如何在几个ggplots之间共享连续变量图例？

Question

问题

我有多个月的温度数据。我想为每个月创建一个单独的图。以下是示例图：

您可以看到temp_c的范围对于每个月都是不同的，但是在两个图之间的图例颜色是相同的。这使得更难理解情节。如何创建包含temp_c所有值的1个图例？

绘图的数据和代码

数据

dput(my_data)
structure(list(nearest_weather_station_ID_2017 = c(53000, 53000, 
53000, 53000, 53000, 53000, 53000, 53000, 53000, 53000, 53000, 
53000, 31367, 31367, 31367, 31367, 31367, 31367, 7868, 7868, 
7868, 7868, 7868, 7868, 7868, 7868, 7868, 7868, 7868, 7868, 7868, 
7868, 7868, 7868, 7868, 7868, 51459, 51459, 51459, 51459, 51459, 
51459, 51459, 51459, 51459, 51459, 51459, 51459, 51459, 51459, 
51459, 51459, 51459, 51459, 51459, 51459, 51459, 51459, 51459, 
51459, 51459, 51459, 51459, 51459, 51459, 51459, 51459, 51459, 
51459, 51459, 51459, 51459, 51459, 51459, 51459, 51459, 51459, 
51459, 53000, 53000, 53000, 53000, 51459, 51459, 51459, 51459, 
51459, 51459, 51459, 51459, 51459, 51459, 51459, 51459, 51459, 
51459, 51459, 51459, 51459, 51459, 51459, 51459, 51459, 51459, 
51459, 51459, 53000, 53000, 53000, 53000, 51459, 51459, 51459, 
51459, 51459, 51459, 51459, 51459, 51459, 51459, 51459, 51459, 
51459, 51459, 51459, 51459, 51459, 51459, 51459, 51459, 51459, 
51459, 51459, 51459, 7868, 7868), month = c(1, 12, 1, 12, 1, 
12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 
12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 
12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 
12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 
12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 
12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 
12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 12, 1, 
12, 1, 12, 1, 12), month_name = structure(c(1L, 12L, 1L, 12L, 
1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 
1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 
1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 
1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 
1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 
1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 
1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 
1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 
1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 1L, 12L, 
1L, 12L, 1L, 12L, 1L, 12L), .Label = c("Jan", "Feb", "Mar", "Apr", 
"May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"), class = c("ordered", 
"factor")), X = c(-79.1206284, -79.1206284, -79.1348649, -79.1348649, 
-79.1521931, -79.1521931, -79.194578, -79.194578, -79.2215773, 
-79.2215773, -79.239631, -79.239631, -79.3503484, -79.3503484, 
-79.3733226, -79.3733226, -79.3948445, -79.3948445, -79.7941257, 
-79.7941257, -79.8112616, -79.8112616, -79.8253035, -79.8253035, 
-79.8235521, -79.8235521, -79.8096043, -79.8096043, -79.7991724, 
-79.7991724, -79.7816208, -79.7816208, -79.7718636, -79.7718636, 
-79.7563718, -79.7563718, -79.5783878, -79.5783878, -79.5680909, 
-79.5680909, -79.5546024, -79.5546024, -79.5488565, -79.5488565, 
-79.6335256, -79.6335256, -79.6377237, -79.6377237, -79.7659232, 
-79.7659232, -79.6820163, -79.6820163, -79.5731599, -79.5731599, 
-79.5765562, -79.5765562, -79.5361756, -79.5361756, -79.5552055, 
-79.5552055, -79.5604779, -79.5604779, -79.5694487, -79.5694487, 
-79.5842796, -79.5842796, -79.6069602, -79.6069602, -79.6455293, 
-79.6455293, -79.6613403, -79.6613403, -79.6954632, -79.6954632, 
-79.6469266, -79.6469266, -79.6368963, -79.6368963, -79.0543316, 
-79.0543316, -79.1119731, -79.1119731, -79.5591934, -79.5591934, 
-79.5733785, -79.5733785, -79.5890369, -79.5890369, -79.6051577, 
-79.6051577, -79.6083151, -79.6083151, -79.6689924, -79.6689924, 
-79.6842742, -79.6842742, -79.6948494, -79.6948494, -79.7280379, 
-79.7280379, -79.7370403, -79.7370403, -79.7417823, -79.7417823, 
-79.7518746, -79.7518746, -79.0850167, -79.0850167, -79.0992466, 
-79.0992466, -79.5485686, -79.5485686, -79.5488876, -79.5488876, 
-79.5502264, -79.5502264, -79.5622289, -79.5622289, -79.5668269, 
-79.5668269, -79.5681943, -79.5681943, -79.5917132, -79.5917132, 
-79.6060454, -79.6060454, -79.6106834, -79.6106834, -79.6247254, 
-79.6247254, -79.6305885, -79.6305885, -79.6318304, -79.6318304, 
-79.7943543, -79.7943543), Y = c(43.1209496, 43.1209496, 43.1385916, 
43.1385916, 43.1528106, 43.1528106, 43.1673487, 43.1673487, 43.1709843, 
43.1709843, 43.1749357, 43.1749357, 43.1794428, 43.1794428, 43.1849301, 
43.1849301, 43.1866004, 43.1866004, 43.2933749, 43.2933749, 43.3176848, 
43.3176848, 43.327595, 43.327595, 43.3410295, 43.3410295, 43.347595, 
43.347595, 43.3561782, 43.3561782, 43.3720288, 43.3720288, 43.3809595, 
43.3809595, 43.3952454, 43.3952454, 43.5877758, 43.5877758, 43.5972656, 
43.5972656, 43.6093779, 43.6093779, 43.6135975, 43.6135975, 43.7703683, 
43.7703683, 43.7693771, 43.7693771, 43.7250413, 43.7250413, 43.628248, 
43.628248, 43.670571, 43.670571, 43.6762151, 43.6762151, 43.7133782, 
43.7133782, 43.7078757, 43.7078757, 43.7021449, 43.7021449, 43.691865, 
43.691865, 43.6712789, 43.6712789, 43.6630514, 43.6630514, 43.645255, 
43.645255, 43.6389583, 43.6389583, 43.6256349, 43.6256349, 43.62889, 
43.62889, 43.6080463, 43.6080463, 43.1571576, 43.1571576, 43.1495181, 
43.1495181, 43.7054043, 43.7054043, 43.699277, 43.699277, 43.6975832, 
43.6975832, 43.6973244, 43.6973244, 43.6968097, 43.6968097, 43.6458743, 
43.6458743, 43.6572656, 43.6572656, 43.6651429, 43.6651429, 43.6982445, 
43.6982445, 43.704859, 43.704859, 43.7083303, 43.7083303, 43.7157475, 
43.7157475, 43.0962295, 43.0962295, 43.0960886, 43.0960886, 43.6100252, 
43.6100252, 43.6146166, 43.6146166, 43.6164356, 43.6164356, 43.6434239, 
43.6434239, 43.6533082, 43.6533082, 43.6559772, 43.6559772, 43.6746624, 
43.6746624, 43.6956646, 43.6956646, 43.7029569, 43.7029569, 43.7269326, 
43.7269326, 43.7503164, 43.7503164, 43.7566459, 43.7566459, 43.2922133, 
43.2922133), temp_c = c(-0.636302294197031, -3.14099462365591, 
-0.636302294197031, -3.14099462365591, -0.636302294197031, -3.14099462365591, 
-0.636302294197031, -3.14099462365591, -0.636302294197031, -3.14099462365591, 
-0.636302294197031, -3.14099462365591, -0.477150537634409, -2.93724696356275, 
-0.477150537634409, -2.93724696356275, -0.477150537634409, -2.93724696356275, 
-0.348924731182796, -2.80456989247312, -0.348924731182796, -2.80456989247312, 
-0.348924731182796, -2.80456989247312, -0.348924731182796, -2.80456989247312, 
-0.348924731182796, -2.80456989247312, -0.348924731182796, -2.80456989247312, 
-0.348924731182796, -2.80456989247312, -0.348924731182796, -2.80456989247312, 
-0.348924731182796, -2.80456989247312, -1.52620967741935, -4.76908602150538, 
-1.52620967741935, -4.76908602150538, -1.52620967741935, -4.76908602150538, 
-1.52620967741935, -4.76908602150538, -1.52620967741935, -4.76908602150538, 
-1.52620967741935, -4.76908602150538, -1.52620967741935, -4.76908602150538, 
-1.52620967741935, -4.76908602150538, -1.52620967741935, -4.76908602150538, 
-1.52620967741935, -4.76908602150538, -1.52620967741935, -4.76908602150538, 
-1.52620967741935, -4.76908602150538, -1.52620967741935, -4.76908602150538, 
-1.52620967741935, -4.76908602150538, -1.52620967741935, -4.76908602150538, 
-1.52620967741935, -4.76908602150538, -1.52620967741935, -4.76908602150538, 
-1.52620967741935, -4.76908602150538, -1.52620967741935, -4.76908602150538, 
-1.52620967741935, -4.76908602150538, -1.52620967741935, -4.76908602150538, 
-0.636302294197031, -3.14099462365591, -0.636302294197031, -3.14099462365591, 
-1.52620967741935, -4.76908602150538, -1.52620967741935, -4.76908602150538, 
-1.52620967741935, -4.76908602150538, -1.52620967741935, -4.76908602150538, 
-1.52620967741935, -4.76908602150538, -1.52620967741935, -4.76908602150538, 
-1.52620967741935, -4.76908602150538, -1.52620967741935, -4.76908602150538, 
-1.52620967741935, -4.76908602150538, -1.52620967741935, -4.76908602150538, 
-1.52620967741935, -4.76908602150538, -1.52620967741935, -4.76908602150538, 
-0.636302294197031, -3.14099462365591, -0.636302294197031, -3.14099462365591, 
-1.52620967741935, -4.76908602150538, -1.52620967741935, -4.76908602150538, 
-1.52620967741935, -4.76908602150538, -1.52620967741935, -4.76908602150538, 
-1.52620967741935, -4.76908602150538, -1.52620967741935, -4.76908602150538, 
-1.52620967741935, -4.76908602150538, -1.52620967741935, -4.76908602150538, 
-1.52620967741935, -4.76908602150538, -1.52620967741935, -4.76908602150538, 
-1.52620967741935, -4.76908602150538, -1.52620967741935, -4.76908602150538, 
-0.348924731182796, -2.80456989247312), geometry = structure(list(
    structure(c(-79.1206284, 43.1209496), class = c("XY", "POINT", 
    "sfg")), structure(c(-79.1206284, 43.1209496), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.1348649, 43.1385916), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.1348649, 43.1385916), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.1521931, 43.1528106), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.1521931, 43.1528106), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.194578, 43.1673487), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.194578, 43.1673487), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.2215773, 43.1709843), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.2215773, 43.1709843), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.239631, 43.1749357), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.239631, 43.1749357), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.3503484, 43.1794428), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.3503484, 43.1794428), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.3733226, 43.1849301), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.3733226, 43.1849301), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.3948445, 43.1866004), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.3948445, 43.1866004), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.7941257, 43.2933749), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.7941257, 43.2933749), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.8112616, 43.3176848), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.8112616, 43.3176848), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.8253035, 43.327595), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.8253035, 43.327595), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.8235521, 43.3410295), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.8235521, 43.3410295), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.8096043, 43.347595), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.8096043, 43.347595), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.7991724, 43.3561782), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.7991724, 43.3561782), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.7816208, 43.3720288), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.7816208, 43.3720288), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.7718636, 43.3809595), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.7718636, 43.3809595), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.7563718, 43.3952454), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.7563718, 43.3952454), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5783878, 43.5877758), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5783878, 43.5877758), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5680909, 43.5972656), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5680909, 43.5972656), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5546024, 43.6093779), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5546024, 43.6093779), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5488565, 43.6135975), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5488565, 43.6135975), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6335256, 43.7703683), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6335256, 43.7703683), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6377237, 43.7693771), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6377237, 43.7693771), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.7659232, 43.7250413), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.7659232, 43.7250413), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6820163, 43.628248), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6820163, 43.628248), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5731599, 43.670571), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5731599, 43.670571), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5765562, 43.6762151), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5765562, 43.6762151), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5361756, 43.7133782), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5361756, 43.7133782), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5552055, 43.7078757), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5552055, 43.7078757), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5604779, 43.7021449), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5604779, 43.7021449), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5694487, 43.691865), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5694487, 43.691865), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5842796, 43.6712789), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5842796, 43.6712789), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6069602, 43.6630514), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6069602, 43.6630514), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6455293, 43.645255), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6455293, 43.645255), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6613403, 43.6389583), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6613403, 43.6389583), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6954632, 43.6256349), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6954632, 43.6256349), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6469266, 43.62889), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6469266, 43.62889), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6368963, 43.6080463), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6368963, 43.6080463), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.0543316, 43.1571576), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.0543316, 43.1571576), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.1119731, 43.1495181), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.1119731, 43.1495181), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5591934, 43.7054043), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5591934, 43.7054043), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5733785, 43.699277), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5733785, 43.699277), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5890369, 43.6975832), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5890369, 43.6975832), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6051577, 43.6973244), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6051577, 43.6973244), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6083151, 43.6968097), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6083151, 43.6968097), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6689924, 43.6458743), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6689924, 43.6458743), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6842742, 43.6572656), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6842742, 43.6572656), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6948494, 43.6651429), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6948494, 43.6651429), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.7280379, 43.6982445), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.7280379, 43.6982445), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.7370403, 43.704859), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.7370403, 43.704859), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.7417823, 43.7083303), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.7417823, 43.7083303), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.7518746, 43.7157475), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.7518746, 43.7157475), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.0850167, 43.0962295), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.0850167, 43.0962295), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.0992466, 43.0960886), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.0992466, 43.0960886), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5485686, 43.6100252), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5485686, 43.6100252), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5488876, 43.6146166), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5488876, 43.6146166), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5502264, 43.6164356), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5502264, 43.6164356), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5622289, 43.6434239), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5622289, 43.6434239), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5668269, 43.6533082), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5668269, 43.6533082), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5681943, 43.6559772), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5681943, 43.6559772), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5917132, 43.6746624), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.5917132, 43.6746624), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6060454, 43.6956646), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6060454, 43.6956646), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6106834, 43.7029569), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6106834, 43.7029569), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6247254, 43.7269326), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6247254, 43.7269326), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6305885, 43.7503164), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6305885, 43.7503164), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6318304, 43.7566459), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.6318304, 43.7566459), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.7943543, 43.2922133), class = c("XY", 
    "POINT", "sfg")), structure(c(-79.7943543, 43.2922133), class = c("XY", 
    "POINT", "sfg"))), class = c("sfc_POINT", "sfc"), precision = 0, bbox = structure(c(-79.8253035, 
43.0960886, -79.0543316, 43.7703683), .Names = c("xmin", "ymin", 
"xmax", "ymax"), class = "bbox"), crs = structure(list(epsg = 4326L, 
    proj4string = "+proj=longlat +datum=WGS84 +no_defs"), .Names = c("epsg", 
"proj4string"), class = "crs"), n_empty = 0L)), .Names = c("nearest_weather_station_ID_2017", 
"month", "month_name", "X", "Y", "temp_c", "geometry"), row.names = c(NA, 
-136L), class = c("sf", "data.frame"), sf_column = "geometry", agr = structure(c(NA_integer_, 
NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_
), .Names = c("nearest_weather_station_ID_2017", "month", "month_name", 
"X", "Y", "temp_c"), .Label = c("constant", "aggregate", "identity"
), class = "factor"))  

情节

library(tidyverse)
# Function to create plots -------------------
create_map2 <-  function(month_no) {
  plot_title <- my_data %>% 
    filter(month == month_no) %>% pull(month_name) %>% unique()
  ggplot() +
    # geom_sf(data = ontario,
    #         fill = "white") +
    # coord_sf(crs = st_crs(4326),
    #          ylim = c(42, 51)) +
    geom_point(data = my_data %>% 
                 filter(month == month_no), 
               mapping = aes(x = X, y = Y, color = temp_c)) +
    labs(x = "Longitude", y = "Latitude") +
    ggtitle(label = plot_title) +
    scale_color_viridis_c(option = "inferno", direction = 1)

}

create_map2(1)


# Creating all plots ------------------------
all_plots2 <- purrr::map(na.omit(unique(my_data$month)), ~ create_map2(.x))

# Combining plots -----------------------------------
plotz2 <- cowplot::plot_grid(plotlist = all_plots2)