已经提取出来三个数据,并转化成了从2023年5月开始时间序列,第一二三列分别是 fcst lower upper,代表,中间,最小,最大,数据画在一个图里面,然后最大和最小之间填充以下透明颜色,真实值要用高光
时间: 2024-03-16 15:44:09 浏览: 19
好的,以下是将三个时间序列数据绘制在同一张图中,使用透明颜色填充真实值和区间范围之间的区域,并使用高光标记真实值的代码:
```
# 安装和载入ggplot2包
install.packages("ggplot2")
library(ggplot2)
# 合并三个时间序列数据
data <- data.frame(fcst = c(fcst_ele_ts2, fcst_Power_ts2, fcst_income_ts2),
lower = c(lower_ele_ts2, lower_Power_ts2, lower_income_ts2),
upper = c(upper_ele_ts2, upper_Power_ts2, upper_income_ts2),
time = as.Date("2023-05-01") + 0:23)
# 绘图
ggplot(data = data, aes(x = time, y = fcst)) +
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") +
geom_point(aes(y = Power_ts2, color = "red"), size = 3, shape = 21, fill = "white") +
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 = "多个时间序列数据") +
theme_minimal()
```
这将绘制出包含三个时间序列数据的图形,并使用透明颜色填充真实值和区间范围之间的区域。真实值使用了红色的高光标记。
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.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)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)