我正在绘制地震图，我想展示地震位置如何随时间演变.我只想看到随着时间向前移动的地震位置点，而不是地震位置之间的移动点(因为它似乎正在发生).
以下是数据:
clust <- data.frame(latitude = c(31.61205, 31.6132, 31.61286, 31.61355,
31.61087, 31.6141, 31.61514, 31.6132, 31.61118, 31.61511, 31.61409,
31.61409, 31.61307, 31.618, 31.60965, 31.61007, 31.60884, 31.60905,
31.6094, 31.60816, 31.61068, 31.61006, 31.60837, 31.61254, 31.60817,
31.61333, 31.60954, 31.61123, 31.61157, 31.60904, 31.60845),
longitude = c(-104.53083, -104.52606, -104.52635, -104.5249,
-104.53191, -104.52602, -104.52617, -104.52593, -104.5309,
-104.52869, -104.52988, -104.52938, -104.52963, -104.52836,
-104.53803, -104.53386, -104.53954, -104.5379, -104.53699,
-104.54104, -104.53371, -104.53538, -104.54168, -104.52697,
-104.54457, -104.53882, -104.53805, -104.53255, -104.52933,
-104.54067, -104.54229), depth = c(7.589, 7.295, 7.387, 7.282,
7.454, 7.76, 7.787, 7.282, 7.675, 6.003, 6.077, 6.126, 6.218,
7.494, 7.026, 7.59, 7.623, 7.545, 7.287, 7.693, 7.169, 7.423,
7.65, 7.066, 7.137, 8.316, 7.129, 7.41, 7.477, 7.115, 7.16
), mag = c(3.12, 2.64, 2.5, 2.34, 2.63, 1.44, 1.47, 2.27,
2.28, 2.14, 2.31, 2.26, 2.2, 2.04, 2.32, 2.12, 2.6, 2.16,
3.02, 2.04, 3.31, 2.28, 2.1, 2.26, 2.74, 2, 2.01, 2.83, 2.12,
2.25, 2.46), cluster = c(11L, 11L, 11L, 11L, 11L, 11L, 11L,
11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L,
11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L
), datetime = structure(c(1648096488, 1648154064, 1648223479,
1648458486, 1648597348, 1650278472, 1650281886, 1653753093,
1653814043, 1655618186, 1658076718, 1658093072, 1659482037,
1662994538, 1669204899, 1669779205, 1670032484, 1670032691,
1670071292, 1670077497, 1670088406, 1670093402, 1670131993,
1670147329, 1670688840, 1670766002, 1670942474, 1672311253,
1672366539, 1679225056, 1679256690), class = c("POSIXct",
"POSIXt"), tzone = "UTC"))
下面是我的代码:
anim <- ggplot(clust , aes(x = longitude, y=latitude, size = mag, colour = '#562486')) +
geom_point(show.legend = FALSE, alpha = 0.7) +
scale_color_viridis_d() +
theme_bw() +
labs(x = "Longitude", y = "Latitude") +
transition_time(clust$datetime) +
labs(title = "{frame_time}") +
shadow_mark(past = TRUE, future = FALSE, alpha = 0.5)
animate(anim, height = 4, width = 7, units = "in", fps = 0.5, end_pause = 60, res = 100) #+ gifski_renderer()
我试过transition_events(start = datetime)而不是transition_time(clust$datetime)，但我不太了解选项，所以这给了我错误.我也试过调整wake_length的shadow_mark选项，但我不确定是否还有其他选项我不知道.
