r - R Highcharter tickmarkPlacement 与 hchart() 函数

Question

查看文档，tickmarkPlacement 似乎允许将刻度从“on”移动到“between”，但是使用 hchart 函数我似乎无法让它工作。

试图从这种风格转变为这种风格。

library(highcharter)

# Create sample data frame
sample_df <- data_frame(sku = c(rep("12",40)),
                        type = c(rep("actuals",20), rep("forecast",20)),
                        calendar_week = rep(seq(as.Date("2017-09-08"), as.Date("2018-01-23"), by=7),2),
                        units = round(c(rnorm(11, mean=50, sd=10), rep(0, 9), c(rnorm(20, mean=100, sd=10))),0))

# Create colours vector
custom_colours <- c("#4286f4", "#d66048")

# Chart
hchart(sample_df, "line",  hcaes(calendar_week, units, group = type), color = custom_colours)  %>%
  hc_yAxis(title = list(text = "Units")) %>%  
  hc_xAxis(title = list(text = "Week"), startOfWeek = 5, type = "datetime", tickInterval = 7* 24 * 3600 * 1000, tickmarkPlacement = "between")

Answer 1

tickmarkPlacement仅适用于分类轴。尝试这个：

hchart(sample_df, "line",  hcaes(factor(format(sample_df$calendar_week, "%d-%b-%Y")), 
                                 units, group = type), color = custom_colours)  %>%
  hc_yAxis(title = list(text = "Units")) %>%  
  hc_xAxis(title = list(text = "Week"), tickmarkPlacement = "between")