不是,不同的数据画在不同图里
时间: 2024-03-16 16:44:09 浏览: 15
好的,如果您希望将三个时间序列数据分别绘制到三个不同的图形中,您可以使用以下代码:
```
# 安装和载入ggplot2包
install.packages("ggplot2")
library(ggplot2)
# 定义ele_ts2_plot
ele_ts2_plot <- ggplot(data = data.frame(fcst = fcst_ele_ts2, lower = lower_ele_ts2, upper = upper_ele_ts2, time = as.Date("2023-05-01") + 0:23)) +
geom_ribbon(aes(ymin = lower, ymax = upper), fill = "lightblue", alpha = 0.5) +
geom_line(color = "blue") +
geom_point(aes(y = ele_ts2, color = "red"), size = 3, shape = 21, fill = "white") +
scale_color_manual(values = c("red" = "red")) +
labs(x = "时间", y = "值", title = "ele_ts2") +
theme_minimal()
# 定义Power_ts2_plot
Power_ts2_plot <- ggplot(data = data.frame(fcst = fcst_Power_ts2, lower = lower_Power_ts2, upper = upper_Power_ts2, time = as.Date("2023-05-01") + 0:23)) +
geom_ribbon(aes(ymin = lower, ymax = upper), fill = "lightblue", alpha = 0.5) +
geom_line(color = "blue") +
geom_point(aes(y = Power_ts2, color = "red"), size = 3, shape = 21, fill = "white") +
scale_color_manual(values = c("red" = "red")) +
labs(x = "时间", y = "值", title = "Power_ts2") +
theme_minimal()
# 定义income_ts2_plot
income_ts2_plot <- ggplot(data = data.frame(fcst = fcst_income_ts2, lower = lower_income_ts2, upper = upper_income_ts2, time = as.Date("2023-05-01") + 0:23)) +
geom_ribbon(aes(ymin = lower, ymax = upper), fill = "lightblue", alpha = 0.5) +
geom_line(color = "blue") +
geom_point(aes(y = income_ts2, color = "red"), size = 3, shape = 21, fill = "white") +
scale_color_manual(values = c("red" = "red")) +
labs(x = "时间", y = "值", title = "income_ts2") +
theme_minimal()
# 打印ele_ts2_plot
print(ele_ts2_plot)
# 打印Power_ts2_plot
print(Power_ts2_plot)
# 打印income_ts2_plot
print(income_ts2_plot)
```
这将分别绘制出三个时间序列数据的图形,每个图形均包含真实值和区间范围。真实值使用了红色的高光标记。
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)