Advertisement
Guest User

Untitled

a guest
Jun 16th, 2019
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.36 KB | None | 0 0
  1. library(lubridate)
  2. v1 = seq(ymd('2000-05-01'),ymd('2000-05-10'),by='day')
  3. v2 = seq(2,20, length = 10)
  4. v3 = seq(-2,7, length = 10)
  5. v4 = seq(-6,3, length = 10)
  6. df1 = data.frame(Date = v1, df1_Tmax = v2, df1_Tmean = v3, df1_Tmin = v4)
  7.  
  8. v1 = seq(ymd('2000-05-01'),ymd('2000-05-10'),by='day')
  9. v2 = seq(3,21, length = 10)
  10. v3 = seq(-3,8, length = 10)
  11. v4 = seq(-7,4, length = 10)
  12. df2 = data.frame(Date = v1, df2_Tmax = v2, df2_Tmean = v3, df2_Tmin = v4)
  13.  
  14. v1 = seq(ymd('2000-05-01'),ymd('2000-05-10'),by='day')
  15. v2 = seq(4,22, length = 10)
  16. v3 = seq(-4,9, length = 10)
  17. v4 = seq(-8,5, length = 10)
  18. df3 = data.frame(Date = v1, df3_Tmax = v2, df3_Tmean = v3, df3_Tmin = v4)
  19.  
  20. v1 = seq(ymd('2000-05-01'),ymd('2000-05-10'),by='day')
  21. v2 = seq(2,20, length = 10)
  22. v3 = seq(-2,8, length = 10)
  23. v4 = seq(-6,3, length = 10)
  24. abc = data.frame(Date = v1, ABC_Tmax = v2, ABC_Tmean = v3, ABC_Tmin = v4)
  25.  
  26. df_list = list(df1, df2, df3, abc)
  27. names(df_list) = c("df1", "df2", "df3", "abc")
  28.  
  29. ggplot(data = df_list, aes(x = df1$Date)) +
  30. geom_line(aes(y = df1$df1_Tmax), color = "darkgreen", size = 1) +
  31. geom_line(aes(y = abc$ABC_Tmax), color = "grey27", size = 1) +
  32. labs(title="Title",
  33. subtitle="subtitle",
  34. x = "day",
  35. y = "T") +
  36. scale_x_date(date_labels="%d",date_breaks ="1 day")
  37.  
  38. Error: `data` must be a data frame, or other object coercible by `fortify()`, not a list
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement