r - R:在情节图上格式化轴和标题(时间序列)
问题描述
我正在使用 R 编程语言。使用以下教程:https ://plotly.com/r/time-series/和这个stackoverflow问题:如何在R中使用plotly在时间序列中绘制多个系列/线?我能够制作一个交互式时间序列图:
library(xts)
library(ggplot2)
library(dplyr)
library(plotly)
library(lubridate)
#time series 1
date_decision_made = seq(as.Date("2014/1/1"), as.Date("2016/1/1"),by="day")
property_damages_in_dollars <- rnorm(731,100,10)
final_data <- data.frame(date_decision_made, property_damages_in_dollars)
final_data %>%
mutate(date_decision_made = as.Date(date_decision_made)) %>%
add_count(week = format(date_decision_made, "%W-%y"))
final_data$class = "time_series_1"
#time series 2
date_decision_made = seq(as.Date("2014/1/1"), as.Date("2016/1/1"),by="day")
date_decision_made <- format(as.Date(date_decision_made), "%Y/%m/%d")
property_damages_in_dollars <- rnorm(731,10,10)
final_data_2 <- data.frame(date_decision_made, property_damages_in_dollars)
final_data_2 %>%
mutate(date_decision_made = as.Date(date_decision_made)) %>%
add_count(week = format(date_decision_made, "%W-%y"))
final_data_2$class = "time_series_2"
#combine
data = rbind(final_data, final_data_2)
data$class = as.factor(data$class)
a = data %>%
group_by(class) %>%
plot_ly(x = ~ yday(date_decision_made)) %>%
add_lines(y = ~ property_damages_in_dollars,
color = ~ factor(class)
)
但是,我无法在此图中添加自定义标题和轴:
with_titles = data %>%
group_by(class) %>%
plot_ly(x = ~ yday(date_decision_made)) %>% layout(title = 'damages vs time', xaxis = 'time', yaxis = 'damage') %>%
add_lines(y = ~ property_damages_in_dollars,
color = ~ factor(class)
)
with_titles
Error: $ operator is invalid for atomic vectors
尝试更改此图的 x 轴时会产生类似的错误:
with_titles_and_axis = data %>%
group_by(class) %>%
plot_ly(x = ~ yday(date_decision_made)) %>% layout(title = 'damages vs time', xaxis = xaxis =list(type="date",
tickformat='%d/%m/%Y',
showticklabels='True',
tick0= "2014-01-01",
dtick= "M12"), yaxis = 'damage') %>%
add_lines(y = ~ property_damages_in_dollars,
color = ~ factor(class)
)
#source: https://community.plotly.com/t/plotly-time-series-forecasting-modify-default-x-axis-and-y-axis-range/11390/2
有人可以告诉我我做错了什么吗?是否也可以在悬停文本上显示日期?谢谢
解决方案
推荐阅读
- ssis - 如何在 SSIS datepart 函数中获取 iso 周
- functional-programming - 忽略 Isabelle 中缺失的模式
- angular - 更改当前显示组件的函数中的字符串值
- r - 使用ggplot在R中填充气泡图的图例?
- docker - docker redis 容器启动问题
- python - 以下代码在cpython中做了什么
- node.js - 如何在固定日期前 24 小时在节点 js 中发送自动电子邮件?
- image - 在工作表中自动导入图像?
- detox - Android detox 调试构建端口 8081 正在使用中
- python - QPrintPreviewDialog 100% 缩放