R HighCharter株価グラフが正しく引き上げられていない

Question

HighCharterを使用していますが、timeseriesグラフを作成しようとしていますが、日付がチャートに表示されません。以下は私の現在のコードです。私は連続的な時系列を持っていないが、私はそれが問題で役割を果たすべきだとは思わない。以下

library (shiny) 
library (shinydashboard) 
library (date) 
library (tidyr) 
library (dplyr) 
library (data.table) 
library (zoo) 
library (tibble) 
library (scales) 
library (highcharter) 
library (quantmod) 
library (RODBC) 

ShipmentsYear <- #Pulling data from SQl Server 

AUSP <- aggregate(ShipmentsYear$Sales.Net.Value, by = list(ShipmentsYear$Shipment.Date),FUN=mean) 
AUSP <- data.table(AUSP) 
AUSP <- AUSP[ ,Index:=1:.N] 

Mean <- rollapply(AUSP$x,30, FUN=mean, fill=NA, partial = TRUE, align = 'right') 
Mean <- data.table(Mean) 
Mean <- Mean[ ,Index:=1:.N] 

AUSPFinal <- merge(AUSP,Mean,by="Index") 

hc<- 
highchart(type = "stock") %>% 
    hc_yAxis(min = 0, title = list(text = "Average Unit Selling Price (AUSP)")) %>% 
    hc_xAxis(type = 'datetime', labels = list(format = '{value:%b %d}')) %>% 
    hc_add_series(name = "Average Day", data=AUSPFinal$x, type = "line", color = "#2670FF", marker = list(radius = 2), alpha = 0.5) %>% 
    hc_add_series(name = "Rolling Mean", data=AUSPFinal$Mean, color = "#FF7900") %>% 
    hc_tooltip(valueDecimals = 0) %>% 
    hc_rangeSelector(enabled = FALSE) 

hc 

2つのピクチャである：AUSPFinal 2の 1）出力）グラフの出力

以下、要求に基づいて更新dputから出力されます。

> dput(AUSPFinal[1:20,]) 
structure(list(Index = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 
13, 14, 15, 16, 17, 18, 19, 20), Group.1 = structure(c(17169, 
17170, 17171, 17172, 17175, 17176, 17177, 17178, 17179, 17180, 
17182, 17183, 17184, 17185, 17186, 17187, 17189, 17190, 17191, 
17192), class = "Date"), x = c(4069, 4903, 3427, 4357, 3703, 
2888, 3034, 2539, 3618, 4001, 4190, 3553, 3915, 3156, 3943, 5948, 
3974, 2707, 3275, 4042), Mean = c(4069, 4486, 4133, 4189, 4092, 
3891, 3769, 3615, 3615, 3654, 3703, 3690, 3707, 3668, 3686, 3828, 
3836, 3774, 3747, 3762)), .Names = c("Index", "Group.1", "x", 
"Mean"), sorted = "Index", class = c("data.table", "data.frame" 
), row.names = c(NA, -20L), .internal.selfref = <pointer: 0x042a24a0>) 

Answer 1

AUSPFinal <- 
structure(list(Index = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 
13, 14, 15, 16, 17, 18, 19, 20), Group.1 = structure(c(17169, 
17170, 17171, 17172, 17175, 17176, 17177, 17178, 17179, 17180, 
17182, 17183, 17184, 17185, 17186, 17187, 17189, 17190, 17191, 
17192), class = "Date"), x = c(4069, 4903, 3427, 4357, 3703, 
2888, 3034, 2539, 3618, 4001, 4190, 3553, 3915, 3156, 3943, 5948, 
3974, 2707, 3275, 4042), Mean = c(4069, 4486, 4133, 4189, 4092, 
3891, 3769, 3615, 3615, 3654, 3703, 3690, 3707, 3668, 3686, 3828, 
3836, 3774, 3747, 3762)), .Names = c("Index", "Group.1", "x", 
"Mean"), sorted = "Index", class = c("data.table", "data.frame" 
), row.names = c(NA, -20L)) 

library(highcharter) 

hc <- 
highchart(type = "stock") %>% 
    hc_add_series_times_values(AUSPFinal$"Group.1", AUSPFinal$x, type = "line", color = "#2670FF", marker = list(radius = 2), alpha = 0.5) %>% 
    hc_add_series_times_values(AUSPFinal$"Group.1", AUSPFinal$Mean, color = "#FF7900") %>% 
    hc_yAxis(min = 0, title = list(text = "Average Unit Selling Price (AUSP)")) %>% 
    hc_xAxis(type = 'datetime', labels = list(format = '{value:%b %d}')) %>% 
    hc_tooltip(valueDecimals = 0) %>% 
    hc_rangeSelector(enabled = FALSE) 
hc