0

我有一个数据框，其中每一行都包含有关某个时间点 8 个点的坐标的信息：

时间 x1 y1 x2 y2 x3 y3 … x8 y8

例如，一行可能如下所示：

myData <- data.frame(time=0.1,x1=-7.79,y1=7.32,x2=-3.86,y2=-1.62,x3=-1.35,y3=-4.61,x4=-6.24,y4=-9.89,x5=-6.40,y5=2.00,x6=4.02,y6=4.77,x7=-1.42,y7=9.89,x8=6.59,y8=-8.02)

我遇到的问题是 ggplot 每个轴只接受 1 个列名。此外，我想使用 gganimate 为点的运动设置动画，这就是我想使用 ggplot 的原因。我怎样才能做到这一点？

我设法通过使用标准 R plot() 方法为每个时间点绘制绘图并重新绘制它来为数据设置动画，但这不允许我保存动画或进一步使用它。

4

2 回答 2

1

我刚刚习惯tidyr了管道操作员，因此我将不胜感激任何改进此答案的建议：

您首先需要重塑数据（如@Heroka 建议的那样），然后拆分轴和点（它们混合在 x1、y8 名称中），因此您将以可以通过的正确形状的数据框结束到ggplot：

gather(myData, "coord", "value", -time) %>% 
  separate(coord, sep = 1, into = c("axis", "val2")) %>% 
  spread(key = axis, value = value) %>% 
  ggplot(aes(x = x, y = y)) + geom_point()

我不熟悉gganimate，但我很确定这里的表格你可以找到你的路径......

编辑：

如果将最后一行代码更改为：

ggplot(aes(x = x, y = y, color = val2)) + geom_point()

编辑2：

按照@Sitbu 的建议，我更改了第一行代码

于 2016-02-26T13:45:05.650 回答
1

这建立在 PavoDive 的答案之上，只是添加了动画部分的完成方式。

我定义了一个更大的数据集，以便实际上有一些动画：

set.seed(1544)
myData <- data.frame(seq(0, 1, by = 0.1),
                     matrix(runif(11*8*2, -10, 10), nrow = 11))
names(myData) <- c("time", paste0(c("x", "y"), rep(1:8, each = 2)))

然后我使用 PavoDive 的代码转换为长格式：

library(tidyr)
library(magrittr)
long_data <- 
gather(myData, "coord", "value", -time) %>% 
  separate(coord, sep = 1, into = c("axis", "val2")) %>% 
  spread(key = axis, value = value)

幸运的是，使用gg_animate()相当简单。您所要做的就是添加框架美感：

p <- ggplot(long_data, aes(x = x, y = y, frame = time)) + geom_point()
gg_animate(p, "animation.gif")

在此处输入图像描述

如果您使用的是 RStudio，您可以省略文件名gg_animate()以在 RStudio 的绘图窗格中显示绘图。

于 2016-02-26T14:05:52.297 回答