如何绘制一个类似于R中分解函数生成的图？

我见过函数分解在R中生成的图。它们在Y轴上有相同的值，在X轴上有不同的值。 我想创建相同类型的图形

我有一个数据帧 它有多列数据，比如降雨量。所以有一个列表示年份，其他列表示1月至12月，还有其他列（如年度、JF、MAM、JJAS、OND），它们基本上是一些特定列的总和。例如：年度是所有月份的总和，JF是一月到二月的总和，等等

我需要画一个像这样的情节 其中第一张图给出了年度与时间的关系图，第二张图给出了JV与时间的关系图，第三张图给出了mam与时间的关系图，第四张图给出了JVA与时间的关系图，第五张图给出了ond与时间的关系图

提前感谢：）

编辑：数据集的可复制代码为：

structure(list(YEAR = 1901:1904, JAN = c(28.1, 9.9, 22.8, 10.6
), FEB = c(22.1, 11.9, 26.4, 54.9), MAR = c(31.1, 108, 101.9, 
57.6), APR = c(230.2, 341.6, 151.7, 450.2), MAY = c(186.5, 236.9, 
200.6, 358), JUN = c(460, 511.6, 498.1, 367.1), JUL = c(375.9, 
430.8, 317.8, 453.8), AUG = c(455.2, 487.6, 498.7, 410), SEP = c(256.7, 
419.3, 307.8, 232.6), OCT = c(117.4, 93, 145.3, 109.7), NOV = c(97.8, 
8.2, 42.8, 47.3), DEC = c(1.4, 1.4, 1.5, 2.5), ANNUAL = c(2262.4, 
2660.4, 2315.5, 2554.4), JF = c(50.2, 21.8, 49.2, 65.6), MAM = c(447.8, 
686.5, 454.3, 865.7), JJAS = c(1547.8, 1849.4, 1622.4, 1463.6
), OND = c(216.6, 102.7, 189.6, 159.5)), .Names = c("YEAR", "JAN", 
"FEB", "MAR", "APR", "MAY", "JUN", "JUL", "AUG", "SEP", "OCT", 
"NOV", "DEC", "ANNUAL", "JF", "MAM", "JJAS", "OND"), row.names = c(NA, 
-4L), class = c("tbl_df", "tbl", "data.frame"))

我目前用于生成图形的代码是：

year <- ggplot(rainfall, aes(x = YEAR, y = ANNUAL)) + geom_line(size = 1.0, colour = "blue") + labs(x = "Year", y = "Rainfall in mm") + geom_smooth(method = "lm", se = FALSE, color = "red") + ggtitle("Collective rainfall for the Year")
jf <- ggplot(rainfall, aes(x = YEAR, y = JF)) + geom_line(size = 1.0, colour = "first line") + labs(x = "Year", y = "Rainfall in mm") + geom_smooth(method = "lm", se = FALSE, color = "red") + ggtitle("Collective rainfall for January February")
mam <- ggplot(rainfall, aes(x = YEAR, y = MAM)) + geom_line(size = 1.0, colour = "blue") + labs(x = "Year", y = "Rainfall in mm") + geom_smooth(method = "lm", se = FALSE, color = "red") + ggtitle("Collective rainfall for March April May")
jjas <- ggplot(rainfall, aes(x = YEAR, y = JJAS)) + geom_line(size = 1.0, colour = "blue") + labs(x = "Year", y = "Rainfall in mm") + geom_smooth(method = "lm", se = FALSE, color = "red") + ggtitle("Collective rainfall for June July August September")
ond <- ggplot(rainfall, aes(x = YEAR, y = OND)) + geom_line(size = 1.0, colour = "blue") + labs(x = "Year", y = "Rainfall in mm") + geom_smooth(method = "lm", se = FALSE, color = "red") + ggtitle("Collective rainfall for October November December")

但问题是我在同一个图中得到了不同的图，它看起来不像分解图。我如何得到一个看起来像分解图的。 最后，如何得到曲线图中回归线的斜率

---

我问得对吗？我正在努力。：）

你是说发生了什么？我想知道如何创建一个像我描述的@Michaelchirico那样的图形。看起来你已经能够生成这样的图形了？如果你需要代码方面的帮助，可以与

dput

或通过模拟共享数据。数据的图像是无用的。另外，请澄清您的问题：如果您想要一个类似于

decompose

makes的图，为什么不使用

decompose

？我能够生成一个分解图，但我不想要一个分解图。我想要一个看起来像分解图的图。等一下，我将通过更新问题提供更多细节@迈克尔基里科

multiplot(year, jf, mam, jjas, ond, cols = 1)