R 使用geom_smooth后是否有ggplot2功能删除原始线？

我有按房屋类型划分的房屋销售时间序列数据（横轴=时间，纵轴=销售价格，每条线=不同的房屋类型）。它非常凌乱，所以我选择在线条上使用

geom_smooth

，以获得更好的可视化效果。虽然这会产生平滑的线条，但仍会显示杂乱的线条。我希望图形不显示原始数据，而只显示平滑的线条。我环顾四周，似乎找不到一种方法来消除那些行之有效的旧台词。代码显示我当前所在的位置

 ## sample code taken from: https://stackoverflow.com/questions/3777174/plotting-two-variables-as-lines-using-ggplot2-on-the-same-graph

library("reshape2")
library("ggplot2")

test_data <- data.frame(
var0 = 100 + c(0, cumsum(runif(49, -20, 20))),
var1 = 150 + c(0, cumsum(runif(49, -10, 10))),
date = seq(as.Date("2002-01-01"), by="1 month", length.out=100)
  )

test_data_long <- melt(test_data, id="date")  # convert to long format

ggplot(data=test_data_long,
   aes(x=date, y=value, colour=variable)) +
  geom_line() +
  geom_smooth(se = FALSE)

##示例代码取自：https://stackoverflow.com/questions/3777174/plotting-two-variables-as-lines-using-ggplot2-on-the-same-graph
图书馆（“重塑2”）
图书馆（“ggplot2”）
测试数据
将显示警告，但绘图应该正确。
尝试删除
geom\u线（）+
添加
geom\u平滑
不需要调用
geom\u线。如果您想要的只是一条平滑的线，那么只需这样做，无需添加您不想要的层仅供参考，假设我们得到相同的输出，“geom_smooth（）`using method='leash'和公式'y~x'”并不是因为
geom_线
被取出，这只是为了让您知道所使用的默认回归方法，因为您尚未指定一种方法
ggplot(data=test_data_long,
       aes(x=date, y=value, colour=variable)) +
        # geom_line() +
        geom_smooth(formula = y~x, se = FALSE)