Удаление слоев geom_smooth в ggplot

Question

Я строю временной график различных переменных в пределах одного графика с помощью этого кода:

landu<-getField(source =landuseh,var = "LU", cover.threshold = 0.01, spatial.extent = mountains, spatial.extent.id = "SEA" )
year<-selectYears(x = landu, first = 1750, last = 2100)
datalu<-as.data.frame(yearssel1)

aggregate1<-aggregateSpatial(yearssel1)
print(aggregate1)
p<-plotTemporal(aggregate1,layers=c("CL","PA", "NA"))

Код выше выполняется с помощью пакета DGVMTools в R.

plot2<-p+theme_classic()+labs(y= "Fraction", x = "Year")+
  ggtitle("",subtitle ="")+guides(color=guide_legend(override.aes=list(fill=NA)))+
  theme(legend.title = element_blank())+
  theme(legend.position = "bottom", text = element_text(size = theme_get()$text$size * 1.2))+
  theme(panel.background = element_rect(colour = "black", size=1))

ggplot

Geom_smooth строится автоматически (я никогда не передавал команду для его построения). Слои моего ggplot:

plot2$layers
[[1]]
geom_smooth: se = TRUE, na.rm = FALSE, orientation = NA, flipped_aes = FALSE
stat_smooth: method = lm, formula = y ~ x, se = TRUE, n = 80, fullrange = FALSE, level = 0.95, na.rm = FALSE, orientation = NA, method.args = list(), span = 0.75
position_identity 

[[2]]
geom_line: na.rm = FALSE, orientation = NA, flipped_aes = FALSE
stat_identity: na.rm = FALSE
position_identity 

Как я могу удалить плавные линии геометрии? И просто сохранить те линии, которые находятся за плавными оттенками геометрии?