如何在R中按COORDINATE列拆分数据至X、Y独立列

你可以使用tidyr包中的pivot_wider()函数来完成这个转换——这个函数和你已经在用的gather()、separate()同属一个工具集，操作逻辑一致，很容易上手。

步骤1：加载tidyr包 #

如果还没安装过tidyr，先执行安装命令：

install.packages("tidyr")

然后加载包：

library(tidyr)

步骤2：转换数据格式 #

运行以下代码，将长格式数据转换为适合画散点图的宽格式：

df_wide <- df %>%
  pivot_wider(
    id_cols = c(RUNTIME, ARENA),  # 用来区分不同数据组的标识列
    names_from = COORDINATE,      # 用COORDINATE列的X/Y作为新列名
    values_from = COORDINATE_DATA # 用COORDINATE_DATA的值填充新列
  )

参数说明 #

• id_cols：指定哪些列是唯一标识每一组数据的关键（比如同一时间、同一ARENA下的XY坐标属于一组），确保这些列组合起来能对应唯一的X-Y配对。
• names_from：指定从哪一列提取新列的名称（这里就是包含X/Y的COORDINATE列）。
• values_from：指定从哪一列提取对应的值填充到新列中（这里是COORDINATE_DATA）。

转换后的数据示例 #

转换后的df_wide结构大致如下：

RUNTIME ARENA  X  Y
0.414   A1     NA NA
0.447   A1     NA NA
0.480   A1     NA NA
...

后续画图提示 #

转换完成后，就可以直接用ggplot2画散点图了：

library(ggplot2)
ggplot(df_wide, aes(x = X, y = Y, color = ARENA)) +
  geom_point(na.rm = TRUE)  # na.rm=TRUE可以忽略缺失值，避免画图报错

内容的提问来源于stack exchange，提问作者Shanelle