如何在R语言中实现dataframe宽表转换：将单列event转为多列0-1标记

你的需求是将长格式的人员-事件数据转换为宽格式，用1/0标记每个人员是否参加对应事件，下面是几种可行的方法，同时指出你原有代码的问题：

一、原有代码的问题 #

你写的代码存在语法和逻辑错误：

• group_by(name) %>% filter(event=="beach") 不能直接嵌套在ifelse中，ifelse是逐行判断逻辑，而group_by+filter是对分组后的子集操作，两者逻辑不匹配
• 代码缺少闭合括号，语法不完整
• 这种逐列手动判断的方式效率低且不灵活，当事件类型增多时需要重复写大量代码

二、推荐方法：使用tidyr::pivot_wider（tidyverse风格） #

这是处理长宽数据转换的标准方法，简洁且通用，无需手动指定每个事件：

# 加载tidyverse包（包含tribble、pivot_wider等函数）
library(tidyverse)

# 你的原始数据
df1 <- tribble(
  ~name, ~event, 
  "jon", "beach",
  "jon", "party", 
  "mark", "beach",
  "sam", "concert"
)

# 转换为宽格式
df2 <- df1 %>%
  # 先给每条记录标记为1（表示参加该事件）
  mutate(value = 1) %>%
  # 把event列的取值转为列名，value列的取值填充对应单元格，缺失的填0
  pivot_wider(
    names_from = event, 
    values_from = value, 
    values_fill = 0
  )

运行后得到的df2就是你想要的结果：

# A tibble: 3 × 4
  name  beach party concert
  <chr> <dbl> <dbl>   <dbl>
1 jon       1     1       0
2 mark      1     0       0
3 sam       0     0       1

三、替代方法：使用table函数 #

如果不需要tidyverse风格，也可以用基础R的table函数快速生成：

# 生成交叉表
event_table <- table(df1$name, df1$event)
# 转换为数据框并将行名转为name列
df2 <- as.data.frame.matrix(event_table) %>%
  rownames_to_column("name")

这个方法同样能得到相同结果，适合快速处理简单场景。

四、手动逐列生成（不推荐，仅作参考） #

如果一定要用group_by+mutate的思路，你可以通过分组后判断是否存在对应事件来生成列，但需要手动列出所有事件类型：

df2 <- df1 %>%
  group_by(name) %>%
  mutate(
    beach = as.integer(any(event == "beach")),
    party = as.integer(any(event == "party")),
    concert = as.integer(any(event == "concert"))
  ) %>%
  ungroup() %>%
  # 保留每个name的唯一行
  distinct(name, .keep_all = TRUE) %>%
  # 移除原event列
  select(-event)

这种方法的缺点是事件类型变化时需要修改代码，扩展性差。

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