我有一些看起来像这样的数据
date Y S I chnageInS changeInI
79 2018-12-26 1039.46 -0.58890684 11566.0343 0.0390560909 -697.41661
80 2018-12-27 1043.88 -0.65931704 12825.1861 -0.0704102017 1259.15178
81 2018-12-28 1037.08 -0.71254559 13777.0432 -0.0532285500 951.85708
我想知道是否可以在两个不同的图形上绘制两个gganimate对象（类似于facet_wrap）。我有时间序列数据，我想绘制两个图。
当前，我尝试使用gganimate绘制以下内容：
d <- data %>%
ggplot(aes(x = as.Date(date), y = Y)) +
geom_line() +
geom_abline(
aes(
slope = S,
intercept = I
),
alpha = 0.1
) +
transition_reveal(as.Date(date)) +
view_follow()
animate(d, nframes = 100, fps = 20)
这给了我一个很好的动画情节。
但是，在此图下方，我还要绘制另外一个图。我想在当前gganimate下绘制以下内容。
data %>%
ggplot(aes(x = as.Date(date), y = chnageInS)) +
geom_line()
我目前拥有的是静态版本-（使用facet_wrap）：
data %>%
select(date, Y, S, I, chnageInS) %>%
pivot_longer(cols = c(Y, chnageInS)) %>%
ggplot(aes(x = as.Date(date), y = value)) +
geom_line() +
geom_abline(
aes(
slope = S,
intercept = I
),
alpha = 0.1
) +
facet_wrap(~name, scales = "free", ncol = 1)
我只是想知道如何在gganimate中使用两个方面。
数据：
data <- structure(list(date = c("2018-12-26", "2018-12-27", "2018-12-28",
"2018-12-31", "2019-01-02", "2019-01-03", "2019-01-04", "2019-01-07",
"2019-01-08", "2019-01-09", "2019-01-10", "2019-01-11", "2019-01-14",
"2019-01-15", "2019-01-16", "2019-01-17", "2019-01-18", "2019-01-22",
"2019-01-23", "2019-01-24", "2019-01-25", "2019-01-28", "2019-01-29",
"2019-01-30", "2019-01-31", "2019-02-01", "2019-02-04", "2019-02-05",
"2019-02-06", "2019-02-07", "2019-02-08", "2019-02-11", "2019-02-12",
"2019-02-13", "2019-02-14", "2019-02-15", "2019-02-19", "2019-02-20",
"2019-02-21", "2019-02-22", "2019-02-25", "2019-02-26", "2019-02-27",
"2019-02-28", "2019-03-01", "2019-03-04", "2019-03-05", "2019-03-06",
"2019-03-07", "2019-03-08", "2019-03-11", "2019-03-12", "2019-03-13",
"2019-03-14", "2019-03-15", "2019-03-18", "2019-03-19", "2019-03-20",
"2019-03-21", "2019-03-22", "2019-03-25", "2019-03-26", "2019-03-27",
"2019-03-28", "2019-03-29", "2019-04-01", "2019-04-02", "2019-04-03",
"2019-04-04", "2019-04-05", "2019-04-08", "2019-04-09", "2019-04-10",
"2019-04-11", "2019-04-12", "2019-04-15", "2019-04-16", "2019-04-17",
"2019-04-18", "2019-04-22", "2019-04-23", "2019-04-24", "2019-04-25",
"2019-04-26", "2019-04-29", "2019-04-30", "2019-05-01", "2019-05-02",
"2019-05-03", "2019-05-06", "2019-05-07", "2019-05-08", "2019-05-09",
"2019-05-10", "2019-05-13", "2019-05-14", "2019-05-15", "2019-05-16",
"2019-05-17", "2019-05-20"), Y = c(1039.459961, 1043.880005,
1037.079956, 1035.609985, 1045.849976, 1016.059998, 1070.709961,
1068.390015, 1076.280029, 1074.660034, 1070.329956, 1057.189941,
1044.689941, 1077.150024, 1080.969971, 1089.900024, 1098.26001,
1070.52002, 1075.569946, 1073.900024, 1090.98999, 1070.079956,
1060.619995, 1089.060059, 1116.369995, 1110.75, 1132.800049,
1145.98999, 1115.22998, 1098.709961, 1095.060059, 1095.01001,
1121.369995, 1120.160034, 1121.670044, 1113.650024, 1118.560059,
1113.800049, 1096.969971, 1110.369995, 1109.400024, 1115.130005,
1116.050049, 1119.920044, 1140.98999, 1147.800049, 1162.030029,
1157.859985, 1143.300049, 1142.319946, 1175.76001, 1193.199951,
1193.319946, 1185.550049, 1184.459961, 1184.26001, 1198.849976,
1223.969971, 1231.540039, 1205.5, 1193, 1184.619995, 1173.02002,
1168.48999, 1173.310059, 1194.430054, 1200.48999, 1205.920044,
1215, 1207.150024, 1203.839966, 1197.25, 1202.160034, 1204.619995,
1217.869995, 1221.099976, 1227.130005, 1236.339966, 1236.369995,
1248.839966, 1264.550049, 1256, 1263.449951, 1272.180054, 1287.579956,
1188.47998, 1168.079956, 1162.609985, 1185.400024, 1189.390015,
1174.099976, 1166.27002, 1162.380005, 1164.27002, 1132.030029,
1120.439941, 1164.209961, 1178.97998, 1162.300049, 1138.849976
), S = c(-0.588906842884746, -0.659317044585515, -0.712545594620795,
-0.667332952597221, -0.608332412879386, -0.65303817355236, -0.600869300517821,
-0.516173044034539, -0.328310490040464, -0.171955775805693, -0.0658073716315259,
-0.0584909230649653, -0.088294993343685, -0.0251477842310003,
0.0941549184742581, 0.225183867883106, 0.267123110837979, 0.251731786278262,
0.272594731336305, 0.249990134215491, 0.321850897493311, 0.329654722309738,
0.415481868324161, 0.579467575673575, 0.827466918754249, 1.08194239876707,
1.25353546390226, 1.48807835164439, 1.56592159376992, 1.59741716291462,
1.64878356311264, 1.72035915110901, 1.85340643837314, 1.93343461200996,
1.93539564293885, 1.94251017459567, 1.9240863602509, 1.85143343384361,
1.64570931444644, 1.44793722020288, 1.38827128144549, 1.3501497471748,
1.29028814924098, 1.22415958041235, 1.22509640387717, 1.15143080906021,
1.24117539715766, 1.29811545465395, 1.33127164774528, 1.3531424859335,
1.43545066356644, 1.51523188678807, 1.54199320448191, 1.61752302910591,
1.69108067031041, 1.7741380039727, 1.91112015190011, 2.00923709591817,
2.12259235221376, 2.15296461313361, 2.17599301208697, 2.10334132334488,
1.9678533312812, 1.88603854936859, 1.8839793757186, 1.90500651223722,
1.98092581161964, 2.10283360239381, 2.16383090481558, 2.15317444073212,
2.10105371592526, 2.01218405664805, 1.99944094028292, 1.98443675571367,
2.00117882527625, 1.9833181958106, 1.96917609673079, 1.95581904017367,
1.88294756208651, 1.85126783383825, 1.83948274325582, 1.8019994983895,
1.77079646083128, 1.75528870247609, 1.81509794047891, 1.60734115490255,
1.38775283499314, 1.15027459926267, 0.934958261524112, 0.711147441089576,
0.535542577153694, 0.389859965674751, 0.241642618452948, 0.0830260965617411,
-0.166512357533303, -0.430374714599367, -0.537130202116077, -0.538864925146485,
-0.555854135259886, -0.695120352709432), I = c(11566.0343170169,
12825.1861001498, 13777.0431840721, 12969.3634016851, 11915.6402241041,
12714.360302328, 11783.8528152234, 10271.4537486111, 6914.15863964321,
4119.70386382765, 2222.55540572232, 2092.31757428622, 2625.49567564074,
1497.35348064925, -635.601795486302, -2978.33301019789, -3726.8102277705,
-3450.80924793598, -3823.46247599792, -3418.23825486513, -4703.25083637657,
-4842.74218484925, -6379.73584636353, -9315.07365959065, -13754.0411784629,
-18310.0818920365, -21381.3539608984, -25580.1853778846, -26974.178285138,
-27538.945848506, -28460.0245740922, -29743.5510332517, -32127.5381371252,
-33561.8237076593, -33597.17457816, -33725.3574617548, -33395.9017676671,
-32094.5246223386, -28408.1035281671, -24863.0583595542, -23794.1879911269,
-23111.2534883688, -22038.3190714445, -20852.6623590974, -20868.8541909546,
-19546.6165769344, -21155.2641997792, -22175.8976184002, -22770.7217498755,
-23163.2200933509, -24638.9573185919, -26068.8477663232, -26547.4197824993,
-27902.0394733191, -29221.6148039783, -30712.1836027366, -33170.5603189923,
-34930.3571165733, -36963.8750108499, -37508.788751837, -37922.8055496527,
-36618.7416010709, -34186.3469675222, -32718.1278213951, -32682.4151890571,
-33060.7189398128, -34425.2500444934, -36616.2092056362, -37712.3953618939,
-37521.3324344469, -36585.4022603913, -34989.105763504, -34760.9777326692,
-34492.0902402747, -34793.3919113652, -34472.6500940093, -34218.5181593433,
-33978.1090663998, -32667.3443637353, -32097.1035918235, -31883.9669691897,
-31209.0643259033, -30646.8276336847, -30366.6487274982, -31441.2870315935,
-27705.8988882843, -23757.9516497327, -19487.5710497755, -15614.304567098,
-11587.4955725417, -8428.65507513058, -5808.41997399054, -3142.25178154639,
-288.248826678568, 4202.0350890852, 8950.60168475337, 10872.2626723356,
10903.1359370592, 11208.0771392875, 13715.0358493607), chnageInS = c(0.0390560909233306,
-0.0704102017007694, -0.0532285500352795, 0.0452126420235743,
0.0590005397178345, -0.0447057606729743, 0.0521688730345397,
0.0846962564832818, 0.187862553994075, 0.156354714234771, 0.106148404174167,
0.00731644856656057, -0.0298040702787197, 0.0631472091126846,
0.119302702705258, 0.131028949408848, 0.0419392429548729, -0.0153913245597169,
0.0208629450580433, -0.022604597120814, 0.0718607632778201, 0.00780382481642666,
0.0858271460144231, 0.163985707349414, 0.247999343080673, 0.254475480012817,
0.171593065135197, 0.234542887742126, 0.0778432421255346, 0.0314955691446925,
0.0513664001980216, 0.0715755879963704, 0.13304728726413, 0.0800281736368207,
0.00196103092888777, 0.0071145316568193, -0.0184238143447668,
-0.0726529264072908, -0.205724119397171, -0.197772094243555,
-0.0596659387573952, -0.0381215342706873, -0.0598615979338206,
-0.0661285688286328, 0.000936823464820602, -0.0736655948169522,
0.0897445880974421, 0.0569400574962962, 0.0331561930913256, 0.0218708381882198,
0.0823081776329373, 0.0797812232216331, 0.026761317693845, 0.0755298246239917,
0.0735576412045029, 0.0830573336622897, 0.136982147927408, 0.098116944018068,
0.11335525629559, 0.030372260919846, 0.0230283989533611, -0.072651688742094,
-0.135487992063678, -0.0818147819126078, -0.00205917364998798,
0.0210271365186185, 0.0759192993824174, 0.121907790774173, 0.0609973024217667,
-0.0106564640834619, -0.052120724806862, -0.0888696592772038,
-0.0127431163651281, -0.0150041845692519, 0.0167420695625753,
-0.0178606294656511, -0.0141420990798036, -0.0133570565571219,
-0.0728714780871638, -0.0316797282482573, -0.0117850905824273,
-0.0374832448663251, -0.0312030375582197, -0.015507758355187,
0.0598092380028192, -0.207756785576356, -0.219588319909408, -0.237478235730471,
-0.215316337738562, -0.223810820434536, -0.175604863935882, -0.145682611478943,
-0.148217347221804, -0.158616521891206, -0.249538454095044, -0.263862357066064,
-0.10675548751671, -0.00173472303040723, -0.0169892101134014,
-0.139266217449546), changeInI = c(-697.416611941639, 1259.15178313291,
951.857083922239, -807.679782386966, -1053.72317758107, 798.720078223938,
-930.507487104589, -1512.39906661235, -3357.29510896785, -2794.45477581557,
-1897.14845810533, -130.237831436096, 533.178101354521, -1128.1421949915,
-2132.95527613555, -2342.73121471158, -748.477217572614, 276.000979834517,
-372.653228061941, 405.224221132792, -1285.01258151144, -139.491348472678,
-1536.99366151428, -2935.33781322712, -4438.96751887226, -4556.04071357354,
-3071.27206886198, -4198.83141698612, -1393.99290725341, -564.767563368056,
-921.078725586209, -1283.52645915945, -2383.98710387355, -1434.28557053404,
-35.3508705006971, -128.182883594811, 329.455694087716, 1301.37714532845,
3686.42109417149, 3545.04516861288, 1068.87036842729, 682.934502758108,
1072.93441692429, 1185.65671234714, -16.1918318571516, 1322.23761402012,
-1608.64762284472, -1020.63341862102, -594.824131475285, -392.498343475461,
-1475.73722524093, -1429.89044773139, -478.572016176051, -1354.61969081985,
-1319.57533065915, -1490.5687987583, -2458.37671625575, -1759.79679758092,
-2033.51789427667, -544.913740987053, -414.01679781577, 1304.06394858184,
2432.39463354872, 1468.21914612704, 35.7126323380035, -378.303750755618,
-1364.53110468067, -2190.95916114279, -1096.18615625769, 191.062927446983,
935.930174055677, 1596.29649688722, 228.128030834807, 268.887492394562,
-301.301671090514, 320.741817355927, 254.131934665988, 240.409092943424,
1310.76470266451, 570.240771911842, 213.136622633829, 674.902643286321,
562.236692218619, 280.178906186542, -1074.63830409536, 3735.3881433092,
3947.94723855165, 4270.3805999572, 3873.26648267751, 4026.80899455633,
3158.84049741108, 2620.23510114004, 2666.16819244415, 2854.00295486782,
4490.28391576377, 4748.56659566817, 1921.66098758227, 30.8732647236029,
304.941202228218, 2506.95871007329)), row.names = 79:178, class = "data.frame")