Advertisement
Guest User

Untitled

a guest
Jun 17th, 2019
47
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.56 KB | None | 0 0
  1. dput(base)
  2. structure(list(mes = c("01", "01", "01", "01", "01", "01", "01",
  3. "01", "01", "01", "01", "01", "01", "01", "01", "01", "01", "01",
  4. "01", "01", "01", "01", "01", "01", "01", "01", "01", "01", "01",
  5. "01", "01", "02", "02", "02", "02", "02", "02", "02", "02", "02",
  6. "02", "02", "02", "02", "02", "02", "02", "02", "02", "02", "02",
  7. "02", "02", "02", "02", "02", "02", "02", "02", "02", "02", "03",
  8. "03", "03", "03", "03", "03", "03", "03", "03", "03", "03", "03",
  9. "03", "03", "03", "03", "03", "03", "03", "03", "03", "03", "03",
  10. "03", "03", "03", "03", "03", "03", "03", "03", "04", "04", "04",
  11. "04", "04", "04", "04", "04", "04", "04", "04", "04", "04", "04",
  12. "04", "04", "04", "04", "04", "04", "04", "04", "04", "04", "04",
  13. "04", "04", "04", "04", "04", "04"), dia = c("01", "02", "03",
  14. "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14",
  15. "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25",
  16. "26", "27", "28", "29", "30", "31", "01", "02", "03", "04", "05",
  17. "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16",
  18. "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27",
  19. "28", "30", "31", "01", "02", "03", "04", "05", "06", "07", "08",
  20. "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19",
  21. "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30",
  22. "31", "01", "02", "03", "04", "05", "06", "07", "08", "09", "10",
  23. "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21",
  24. "22", "23", "24", "25", "26", "27", "28", "29", "30", "31"),
  25. n = c(2, 6, 19, 22, 7, 2, 10, 7, 17, 11, 21, 4, 6, 13, 7,
  26. 12, 12, 11, 10, 3, 10, 6, 12, 15, 9, 5, 2, 7, 12, 8, 9, 17,
  27. 8, 2, 7, 13, 15, 15, 20, 18, 8, 17, 10, 18, 21, 11, 16, 4,
  28. 20, 20, 10, 8, 16, 13, 5, 19, 14, 11, 9, 1, 6, 16, 9, 2,
  29. 17, 10, 14, 14, 9, 6, 5, 11, 13, 17, 10, 23, 13, 9, 5, 19,
  30. 9, 13, 9, 9, 5, 12, 8, 16, 17, 4, 9, 2, 15, 12, 14, 22, 14,
  31. 11, 3, 13, 10, 13, 15, 14, 8, 1, 17, 16, 14, 11, 2, 1, 3,
  32. 15, 7, 6, 9, 14, 8, 6, 12, 5, 1), fecha = c("01-01", "02-01",
  33. "03-01", "04-01", "05-01", "06-01", "07-01", "08-01", "09-01",
  34. "10-01", "11-01", "12-01", "13-01", "14-01", "15-01", "16-01",
  35. "17-01", "18-01", "19-01", "20-01", "21-01", "22-01", "23-01",
  36. "24-01", "25-01", "26-01", "27-01", "28-01", "29-01", "30-01",
  37. "31-01", "01-02", "02-02", "03-02", "04-02", "05-02", "06-02",
  38. "07-02", "08-02", "09-02", "10-02", "11-02", "12-02", "13-02",
  39. "14-02", "15-02", "16-02", "17-02", "18-02", "19-02", "20-02",
  40. "21-02", "22-02", "23-02", "24-02", "25-02", "26-02", "27-02",
  41. "28-02", "30-02", "31-02", "01-03", "02-03", "03-03", "04-03",
  42. "05-03", "06-03", "07-03", "08-03", "09-03", "10-03", "11-03",
  43. "12-03", "13-03", "14-03", "15-03", "16-03", "17-03", "18-03",
  44. "19-03", "20-03", "21-03", "22-03", "23-03", "24-03", "25-03",
  45. "26-03", "27-03", "28-03", "29-03", "30-03", "31-03", "01-04",
  46. "02-04", "03-04", "04-04", "05-04", "06-04", "07-04", "08-04",
  47. "09-04", "10-04", "11-04", "12-04", "13-04", "14-04", "15-04",
  48. "16-04", "17-04", "18-04", "19-04", "20-04", "21-04", "22-04",
  49. "23-04", "24-04", "25-04", "26-04", "27-04", "28-04", "29-04",
  50. "30-04", "31-04")), row.names = c(NA, 123L), class = "data.frame")
  51.  
  52. ggplot(base, aes(fecha, n, group=1)) +
  53. geom_line(colour="red", size=1.2) +
  54. scale_x_discrete(breaks=paste0(c("01-01", "01-02", "01-03")))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement