使用ggplot/plotly以3D方式绘制多条时间序列线

install.packages("ggplot2")
install.packages("plotly")

library(ggplot2)
library(plotly)

# 创建示例数据集
data <- data.frame(
  time = rep(seq(as.Date("2022-01-01"), as.Date("2022-01-10"), by = "day"), 3),
  value = c(runif(10), runif(10), runif(10)),
  group = rep(c("Group 1", "Group 2", "Group 3"), each = 10)
)

# 使用ggplot2绘制3D时间序列线图
ggplot(data, aes(x = time, y = value, group = group)) +
  geom_line() +
  facet_wrap(~ group, ncol = 1) +
  labs(x = "Time", y = "Value", title = "3D Time Series Plot using ggplot2")

# 使用plotly将ggplot2图表转换为交互式图表
plotly_chart <- ggplotly(ggplot(data, aes(x = time, y = value, group = group)) +
                           geom_line() +
                           facet_wrap(~ group, ncol = 1) +
                           labs(x = "Time", y = "Value", title = "3D Time Series Plot using ggplot2"))

# 设置图表的标题和轴标签
plotly_chart <- layout(plotly_chart, title = "3D Time Series Plot using plotly",
                       xaxis = list(title = "Time"),
                       yaxis = list(title = "Value"))