LOESS作图

附件数据，采用LOESS方法，画出目标图形中的实线（Y）以及阴影区域（MIN-MAX)。虚线及竖线不需要。

1. library(tidyverse)
   
2. df %>%
   
3.     ggplot(aes(x = 1:12, y = Y)) +
   
4.     geom_ribbon(aes(ymin = MIN, ymax = MAX), fill = "grey70") +
   
5.     geom_line() +
   
6.     scale_x_continuous(breaks = 1:12, labels = df$TIME)

复制代码

cheetahfly 发表于 2021-8-23 14:32

不好意思，如果再增加一条虚线，excel中xuxian变量，如何添加？

这是我用代码画出来的图形。请教下:
1.背景可以变成白底吗？
2.如何添加虚线（新上传文件中xuxian变量）

edragon1983 发表于 2021-8-23 17:23
这是我用代码画出来的图形。请教下:
1.背景可以变成白底吗？
2.如何添加虚线（新上传文件中xuxian变量）

1. library(tidyverse)
   
2. df %>%
   
3.     ggplot(aes(x = 1:12, y = Y)) +
   
4.     geom_ribbon(aes(ymin = MIN, ymax = MAX), fill = "grey70") +
   
5.     geom_line() +
   
6.     geom_line(aes(y = xuxian), linetype = "dashed") +
   
7.     scale_x_continuous(breaks = 1:12, labels = df$TIME, expand = c(0, 0)) +
   
8.     theme_bw() +
   
9.     labs(x = NULL, y = NULL)

复制代码

cheetahfly 发表于 2021-8-24 11:42

谢谢大侠相助！