小编Joe*_*Joe的帖子

你好！有没有办法对图表进行索引以在特定点开始和结束（可能不符合数字顺序）？

我有从 10 月 1 日开始到次年 9 月 31 日结束的数据。该系列在过去的几年中重复出现，我想建立一个每日季节性图表。挑战在于X轴不是从低到高，它是10-11-12-1-2-3-4-5-6-7-8-9。

问题一：

您可以按月份 10-11-12-1-2-3-4-5-6-7-8-9 订购索引吗？同时，与 %m-%d 格式兼容，因为真正的问题是每日格式，但为了简洁起见，我只使用了几个月。

结果应该是这样的...抱歉我不得不使用 Excel...

问题2：

我们可以删除连接的图表线吗？或者问题 1 的解决方案会自然地解决问题 2 吗？下面尝试中的示例。

问题3：

解决方案的最终格式是否允许采用移动平均值或初始数据的其他突变？尝试 #2 中的表将允许按年取每月的平均值。由于 7 月 17 日是 6，7 月 18 日是 12，因此我们将在图表中绘制 9 等整个图。

问题4：

有没有和XTS等价的解决这个问题的？

谢谢你，谢谢你，谢谢你！

library(ggplot2)
library(plotly)
library(tidyr)
library(reshape2)

Date <- seq(as.Date("2016-10-1"), as.Date("2018-09-01"), by="month")
values <- c(2,3,4,3,4,5,6,4,5,6,7,8,9,10,8,9,10,11,12,13,11,12,13,14)
YearEnd <-c(2017,2017,2017,2017,2017,2017,2017,2017,2017,2017,2017,2017,
        2018,2018,2018,2018,2018,2018,2018,2018,2018,2018,2018,2018)
df <- data.frame(Date,values,YearEnd)

## PLOT THE TIMESERIES
plot_ly(df, x = ~Date, y = ~values, type = "scatter", mode = "lines")

## PLOT THE …

当我尝试修改我的 y 轴标题时，它就消失了。修改 y 轴刻度工作得很好。有没有人遇到过这个问题？谢谢！

library(plotly)
set.seed(2017)
x <- seq(1:10)
y <- x + rnorm(10)
plot_ly( x = ~x, y = ~y + rnorm(10)) %>%
     layout(
       xaxis = list(tickfont = list(size = 15)), 
       yaxis = list(tickfont = list(size = 25))) ## This works well.

 plot_ly( x = ~x, y = ~y + rnorm(10)) %>%
     layout(
       xaxis = list(tickfont = list(size = 15)), 
       yaxis = list(titlefont = list(size = 25))) ## This makes the y axis label disappear.

目标是修改 y 轴标题的大小，而不是让它一起消失。