Temperature Line Graph

 

###_ Plot soil temperature (All depths)

p.soil_temp <-ggplot(soil_temperature, aes(x=id,y=soil_temperature,group=soil_depth,

                               colour=soil_depth))+ geom_line(size=1) +

  scale_colour_manual(values=color) +

  ylab(expression("Soil temperature  "(degree*C))) +

  xlab("Time (yyyy-mm)") + ylim(0,40) +

  scale_x_continuous(breaks=c(1,90,181,273,365),

                     labels=c("2021-01","2021-03","2021-06",

                              "2021-09","2021-12"))+

  theme_bw()+

  s.theme +

  labs(fill = "Soil Depth")

  p.soil_temp

ggsave("p.soil_temp_final00.pdf", width = 12, height = 7)