如何解决如何使用时间序列图在 r 中添加虚线垂直线
我有一个看起来像这样的时间序列:
+------------+-------+------+
| Dates | Sales | City |
+------------+-------+------+
| 2020-01-01 | 10 | A |
+------------+-------+------+
| 2020-01-02 | 20 | A |
+------------+-------+------+
| 2020-01-03 | 30 | A |
+------------+-------+------+
| 2020-01-04 | 40 | A |
+------------+-------+------+
| 2020-01-05 | 50 | A |
+------------+-------+------+
| 2020-01-01 | 60 | B |
+------------+-------+------+
| 2020-01-02 | 70 | B |
+------------+-------+------+
| 2020-01-03 | 50 | B |
+------------+-------+------+
| 2020-01-04 | 30 | B |
+------------+-------+------+
| 2020-01-05 | 60 | B |
+------------+-------+------+
我想使用 plotly 将这两个时间序列绘制在一起,为不同的城市使用不同的颜色。然后在日期 2020-01-03 添加一条垂直的虚线(ofc 这只是一个简单的伪数据集)
我停在这里:
plotly(x = ~df$Dates) %>%
add_lines( y = ~df$Sales,color = ~df$City)
如何添加这条锚定到特定日期的垂直虚线?
附言这不是一个重复的问题 - 在使用基础 R 或 ggplot 的 SO 上有一些类似的问题,但没有一个足够接近使用 R 在 Plotly 中解决这个特定问题。
非常感谢您的帮助!
解决方法
使用 add_segments
的一种方式:
library(plotly)
plot_ly(df,x = ~Dates,y = ~Sales,type = 'scatter',mode = 'lines',color = ~City) %>%
add_segments(y = 0,yend = 70,x = as.Date('2020-01-03'),xend = as.Date('2020-01-03'),line = list(dash = "dash"),showlegend=FALSE)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。