如何在R中组合多个数据框列

我有一个 .csv 文件，其中包含参与者的人口统计数据。数据是从我的研究数据库 (REDCap) 中编码和下载的，每个种族都有自己单独的列。也就是说，每个参与者在每一列中都有一个值（如果认可则为 1，如果未认可则为 0）。

它看起来像这样：

SubjID  Sex  Age  White  AA  Asian  Other

 001    F    62   0      1   0      0
 002    M    66   1      0   0      0

我必须使用迂回的方式来获取我的人口统计摘要统计数据。必须有一种更简单的方法来做到这一点。我的问题是，如何将这些列合并为一列，以便每个参与者只有一个比赛值？ （即重新编码，1 = 白色，2 = AA 等，并且仅为每个参与者提取认可的类别并将其添加到此列？）

这就是我希望它看起来的样子：

SubjID  Sex  Age  Race

001     F    62   2
002     M    66   1

这或多或少类似于我们使用来自 REDCap 的类似数据的方法。我们用pivot_longer对于虚拟变量。决赛Race变量也可以成为一个因素。请告诉我这是否是您的想法。

Edit: Added names_ptypes to pivot_longer表明Race变量是一个因素（而不是mutate).

library(tidyverse)

df <- data.frame(
  SubjID = c("001", "002"),
  Sex = c("F", "M"),
  Age = c(62, 66),
  White = c(0, 1),
  AA = c(1, 0),
  Asian = c(0, 0),
  Other = c(0, 0)
)

df %>%
  pivot_longer(cols = c("White", "AA", "Asian", "Other"), names_to = "Race", names_ptypes = list(Race = factor()), values_to = "Value") %>%
  filter(Value == 1) %>%
  select(-Value)

Result:

# A tibble: 2 x 4
  SubjID Sex     Age Race 
  <fct>  <fct> <dbl> <fct>
1 001    F        62 AA   
2 002    M        66 White