R:将二进制分类变量转换为长数据格式

# 创建一个示例数据框
df <- data.frame(
  id = 1:5,
  var1 = c(1, 0, 1, 1, 0),
  var2 = c(0, 1, 0, 1, 1)
)

# 加载tidyr包
library(tidyr)

# 使用pivot_longer()函数转换数据
long_df <- pivot_longer(df, cols = starts_with("var"), names_to = "variable", values_to = "value")

# 查看转换后的数据框
long_df

# A tibble: 10 x 3
      id variable value
   <int> <chr>    <dbl>
 1     1 var1        1
 2     1 var2        0
 3     2 var1        0
 4     2 var2        1
 5     3 var1        1
 6     3 var2        0
 7     4 var1        1
 8     4 var2        1
 9     5 var1        0
10     5 var2        1