我有按房屋类型细分的房屋销售时间序列数据（横轴=时间，垂直轴=销售价格，每行=不同的房屋类型）。这非常混乱，因此我选择在行上使用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,-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)