小编dc.*_*.tv的帖子

我正在与趋势线线图ggplot2有geom_line，geom_point和geom_smooth。我的代码与此类似。

year <- as.character(2011:2020)
x <- c(12, 13, 12.5, 14, 15, 17, 16, 18, 18, 19)
y <- c(25, 28, 30, 27, 30, 31, 30, 31, 33, 33)

dat <- data.frame(year, x, y) %>% 
  pivot_longer(cols = c(x,y), names_to = "item", values_to = "price")

ggplot(dat,  aes(x=year, y=price, group=item, col=item))+
  geom_line()+
  geom_point(aes(shape=item))+
  geom_smooth(method = "loess", se = FALSE, size=0.8, linetype="dotdash")+
  labs(x = "Year", 
       y = "Price")

这导致以下情节：

我想geom_smooth在图例中单独包含趋势线，以便图例中有四个项目 - x、y、x 的趋势线和 y …