R plotly : Cannot re-arrange x-axis when axis type is category

Question

我有以下数据:

myData <- data.frame(FISCAL_YEAR_WEEK = c('2016-09','2016-09','2016-09','2016-09','2016-09','2016-10','2016-10','2016-10','2016-10','2016-10','2016-10','2016-10','2016-10','2016-11','2016-11','2016-11','2016-11','2016-12','2016-12','2016-12','2016-12','2016-12','2016-12','2016-14','2016-14','2016-14','2016-14'), 
                     MOTOR_VEND_ID = c('7','E','F','F','M','7','9','E','E','F','F','M','R','7','E','F','F','E','E','F','F','M','M','7','E','F','M'),HGA_SUPPLIER=c('RHO','RHO','HWY','RHO','RHO','RHO','RHO','HWY','RHO','HWY','RHO','RHO','RHO','RHO','RHO','HWY','RHO','HWY','RHO','HWY','RHO','HWY','RHO','RHO','RHO','RHO','RHO'), 
                     RTPAD_TOT = c(0,0,0,0,0,0,420,6,0,0,0,20,1,76,0,0,0,76,62,0,0,0,0,6,1,1,0))

我想要一个带有 RTPAD_TOT 的折线图反对 FISCAL_YEAR_WEEK ，按其他变量分组。 FISCAL_YEAR_WEEK表示会计年度中的会计周。 2016-11 表示 2016 财年的第 11 周。这是我的 plotly 代码:

ax <- list(
type = "category",
showgrid = TRUE,
showline = TRUE,
autorange = TRUE,
showticklabels = TRUE,
ticks = "outside",
tickangle = 0
)

ay <- list(
range = c(0,300),
dtick = 50,
showgrid = TRUE,
showline = TRUE,
autorange = FALSE,
showticklabels = TRUE,
ticks = "outside",
tickangle = 0
)

plot_ly(myData,
x = FISCAL_YEAR_WEEK,
y = RTPAD_TOT,
type = 'scatter',
mode = 'markers+lines',
color = interaction(MOTOR_VEND_ID,HGA_SUPPLIER)) %>%
layout(xaxis = ax, yaxis = ay)

但是，这导致我的 x 轴没有按顺序排列:


显然，我希望 2016-09 出现在图表中的 2016-10 之前。但是我的 FISCAL_YEAR_WEEK在 x 轴上都乱七八糟。

使用 ggplot2构建相同的图不会混淆我的 x 轴:

ggplot(data = myData, 
       aes(x = FISCAL_YEAR_WEEK, 
           y = RTPAD_TOT, 
           group = interaction(MOTOR_VEND_ID, HGA_SUPPLIER)))) +
  geom_line()

上面代码中我的轴的外观都很好，直到......

ggplotly()

我想将我的 ggplot 转换为 plotly。后 ggplotly()命令，我的 x 轴将再次困惑。

我需要 type = "category"我的 x 轴中的选项，因为我只想查看数据中存在的日期。此外，plotly 会将 2016-09 误解为 2016 年 9 月而不是 2016 年的第 9 个财政周。我正在构建一个 Shiny 的应用程序，其中我的 x 轴可以由用户更改为不仅是日期时间变量，而且是其他变量以及。有时，它可能是诸如 001、002、120 之类的序列号。因此将其设为数字​​/日期时间是没有意义的，因为这会在 002 和 120 之间产生巨大的差距。
所以 type = "category"这里需要选项。

我也尝试分解 FISCAL_YEAR_WEEK但它不起作用:

myData$FISCAL_YEAR_WEEK <- factor(myData$FISCAL_YEAR_WEEK,levels=sort(unique(myData$FISCAL_YEAR_WEEK)))

我的 x 轴仍然会乱七八糟

Answer 1

直到最近，对 plot.ly 分类轴进行排序的唯一方法是对图形的第一个分类轨迹的数据进行排序(引用:Etienne 在 plot.ly community site 上的回答)。

That's changed ，您可以通过设置 categoryorder 来实现您想要的分类轴排序以下任何一种方式:

ax <- list(
  type = "category",
  categoryorder = "category ascending",
  showgrid = TRUE,
  showline = TRUE,
  autorange = TRUE,
  showticklabels = TRUE,
  ticks = "outside",
  tickangle = 0
)

或者:

ax <- list(
  type = "category",
  categoryorder = "array",
  categoryarray = sort(unique(myData$FISCAL_YEAR_WEEK)),
  showgrid = TRUE,
  showline = TRUE,
  autorange = TRUE,
  showticklabels = TRUE,
  ticks = "outside",
  tickangle = 0
)

有关 plot.ly 分类轴排序的更多信息，请参阅他们的 reference doc .