如何在R中自动按pollinator_ID转置长格式传粉访问数据？

假设你的长格式数据包含pollinator_ID（传粉者ID）、访问顺序（或可生成该字段）、以及访问的花类型，直接用tidyverse工具就能自动化完成需求，以下是具体步骤：

1. 预处理：生成访问顺序列（如果原始数据没有） #

如果你的原始数据没有显式标记每个传粉者的访问先后，先按ID分组生成访问序号：

library(tidyverse)

# 模拟你的长格式数据结构
long_data <- tibble(
  pollinator_ID = c(rep("P1", 3), rep("P2", 4), rep("P3", 2)),
  flower_type = c("A", "A", "B", "C", "C", "C", "A", "B", "B")
)

# 为每个传粉者生成访问顺序
long_data <- long_data %>%
  group_by(pollinator_ID) %>%
  mutate(visit_order = row_number()) %>%
  ungroup()

2. 转置为「每个传粉者一行」的宽格式 #

用pivot_wider直接生成按访问顺序排列的列，这就是你需要的核心转置结果：

wide_transposed <- long_data %>%
  pivot_wider(
    id_cols = pollinator_ID,
    names_from = visit_order,
    values_from = flower_type,
    names_prefix = "visit_"  # 给列名加前缀，比如visit_1、visit_2
  )

运行后wide_transposed的结构为：每行对应一个传粉者，每列对应该传粉者的第N次访问花型，完全匹配按pollinator_ID转置的需求。

3. 可选：转置为「每行是访问顺序」的格式 #

如果你的目标是行代表访问次数、列代表传粉者，可在宽格式基础上进一步转置：

visit_based_transposed <- wide_transposed %>%
  column_to_rownames("pollinator_ID") %>%
  t() %>%
  as_tibble(rownames = "visit_order")

关键提示 #

• 访问顺序列是核心：无论哪种转置方式，都需要明确每个传粉者的访问先后顺序，否则无法保证转置后的记录顺序正确。
• 如果原始数据已有访问顺序标记（比如时间戳排序后的序号），直接用该字段替换visit_order即可。

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