我正在facet_grid制作ggplot2地块。我的数据跨越了几个季节。我需要按季节和场地绘制数据。问题是facet_grid将每个季节的日期设置为数据集的整个日期范围。另一种说法是每个季节之间的x轴是相同的。如何将每个季节的x轴强制设置为该季节的日期范围？
数据
CDat2<-structure(list(Field = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L,
5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L), .Label = c("12S",
"19-1", "6", "7", "W62"), class = "factor"), Soil_NLbsAcre = c(172.576578578436,
443.731714467867, 318.97091713563, 428.540114240892, 476.967072004893,
545.021928513018, 1027.31185623675, 1027.31185623675, 493.082462026017,
479.074577238693, 268.942255393941, 228.191007316876, 168.024367273428,
145.150910469252, 379.761905604591, 308.710879155747, 308.710879155747,
286.669886918922, 286.669886918922, 286.669886918922, 332.602963489593,
140.46522383277, 422.630318314444, 422.630318314444, 337.913876678769,
337.913876678769, 337.913876678769, 692.152760834712, 193.88028390363,
110.706003557451, 117.376937462826, 224.689064446728, 219.230625891186,
244.972782561456, 311.351719181778, 818.80997295717, 550.772925053166,
582.923257314984, 257.334773745222, 257.334773745222, 257.334773745222,
320.064695355962, 102.53239575903, 138.322366898274, 125.828033450364,
104.274373472172, 79.244802845739, 67.276665865881, 62.244487239885,
57.094809531768, 68.915874372192, 63.442252714428, 59.485581598068,
64.604553181542, 64.604553181542, 101.569855062195, 49.400035987005,
45.537296152302, 41.975952227379, 21.96790939404, 18.666604421352,
21.393670871196, 27.511101385866, 79.0380747113805, 79.0380747113805,
49.85836172199, 145.69659569538, 145.69659569538, 92.358244282761,
103.524169592979, 75.594286521945, 75.594286521945, 75.594286521945,
41.883154013052, 41.883154013052, 47.205964409193, 55.575139628772,
47.406177406404, 47.406177406404, 82.4168814894405, 128.617191989892,
118.76925059793, 114.605908000578, 66.076067723013, 59.269732271703,
65.02446793404, 58.347981998748, 78.320446517925, 73.61651749743,
77.130385901226, 94.077107422371, 58.270026966444, 58.270026966444,
106.876349288784, 64.440711645624, 48.338238592062, 40.34286228465,
21.075505564932, 19.920230115264, 31.714327953234, 71.0771776428204,
71.0771776428204, 44.968722966108, 133.218465110289, 133.218465110289,
67.378075391916, 74.012184609066, 71.559547066548, 71.559547066548,
71.559547066548, 41.911480696302, 41.911480696302, 46.754210464722,
44.94084950979, 45.448010446698, 45.448010446698, 72.624630356748,
72.969536052, 75.365293614552, 160.60322948886, 86.335878117078,
91.540056363768, 99.177949928565, 94.193700050628, 71.568158378256,
64.60296688728, 75.465909993456, 55.942706670624, 60.1432138764,
34.325821535418, 32.264318835216, 107.883986065353, 107.883986065353
), i.Figure.Date = structure(c(16958, 16993, 17013, 17032, 17048,
17057, 17079, 17101, 17152, 17179, 17190, 17210, 17221, 17239,
17253, 17280, 17282, 17323, 17337, 17345, 17357, 17374, 17382,
17387, 17400, 17403, 17415, 17451, 17000, 17028, 17045, 17064,
17069, 17083, 17123, 17332, 17340, 17367, 17385, 17406, 17417,
17471, 16934, 16972, 16981, 16987, 16994, 17001, 17008, 17015,
17022, 17029, 17036, 17042, 17043, 17079, 17152, 17178, 17190,
17210, 17220, 17240, 17253, 17266, 17270, 17309, 17336, 17343,
17350, 17359, 17366, 17373, 17380, 17387, 17394, 17401, 17408,
17414, 17415, 17448, 16935, 16974, 16980, 16988, 16994, 17001,
17008, 17015, 17022, 17030, 17037, 17042, 17043, 17081, 17152,
17178, 17190, 17208, 17220, 17240, 17266, 17270, 17309, 17336,
17343, 17350, 17359, 17366, 17373, 17380, 17387, 17394, 17401,
17408, 17414, 17415, 17449, 16961, 17028, 17035, 17045, 17058,
17095, 17151, 17190, 17208, 17219, 17240, 17252, 17281, 17286,
17305, 17471), class = "Date"), Season = structure(c(1L, 1L,
1L, 1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 2L,
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 4L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 3L, 2L, 2L, 2L, 2L, 2L, 4L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 2L,
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 4L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L, 3L,
3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
2L, 2L, 4L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
3L, 2L, 4L), .Label = c("Corn 2016", "Corn 2017", "Wheat 2016",
"Wheat 2017"), class = "factor"), `N%` = c(0, 3.25, 2.4, 1.87333333333333,
1.58333333333333, 1.41, 1.23333333333333, 0, 5.51333333333333,
4.88416666666667, 4.19, 3.52166666666667, 3.01333333333333, 2.47666666666667,
2.485, 2.31666666666667, 2.18666666666667, 0, 4.40166666666667,
4.04333333333333, 2.96, 2.19666666666667, 2.04666666666667, 1.83333333333333,
1.705, 1.65333333333333, 1.56444444433333, 0, 0, 3.36333333333333,
2.03666666666667, 1.695, 1.63333333333333, 1.49333333333333,
1.18416666666667, 0, 0, 3.23833333333333, 2.27333333333333, 1.60666666666667,
1.45083333333333, 0, 0, 1.84333333333333, 1.71333333333333, 1.37166666666667,
1.32333333333333, 1.11, 0.92, 0.933333333333333, 0.93, 0.878333333333333,
0.885, 0.841666666666667, 0.883333333333333, 0, 4.62166666666667,
2.88666666666667, 2.41333333333333, 2.15333333333333, 1.7, 1.11,
1.11666666666667, 0.996666666666667, 1.43, 0, 3.40833333333333,
2.84666666666667, 2.34, 1.87333333333333, 1.72333333333333, 1.47333333333333,
1.30333333333333, 1.24333333333333, 1.25166666666667, 1.16, 1.16666666666667,
1.14333333333333, 1.09333333333333, 0, 0, 2.17, 1.73333333333333,
1.45, 1.36833333333333, 1.16, 1.07333333333333, 0.943333333333333,
0.968333333333333, 0.923333333333333, 0.94, 0.956666666666667,
0.918333333333333, 0, 5.03166666666667, 3.55666666666667, 3.03666666666667,
2.80666666666667, 1.82333333333333, 1.63, 1.45833333333333, 1.28333333333333,
0, 3.28666666666667, 2.65, 2.05, 1.83333333333333, 1.56666666666667,
1.36, 1.19166666666667, 1.12, 1.07333333333333, 1.07166666666667,
1.03, 1.01666666666667, 1.17833333333333, 0, 0, 1.33, 1.20666666666667,
1.11666666666667, 1.04, 0, 5.05333333333333, 4.175, 3.66, 3.31333333333333,
2.35833333333333, 1.96833333333333, 1.31666666666667, 1.15, 0,
0)), .Names = c("Field", "Soil_NLbsAcre", "i.Figure.Date", "Season",
"N%"), class = c("data.table", "data.frame"), row.names = c(NA,
-133L))
剧情
ggplot(CDat2, aes(x=i.Figure.Date, y=`N%`/Soil_NLbsAcre)) +
facet_grid(Field~Season) +
geom_point() + geom_smooth(method = "lm", se = FALSE)