tidyr跨多列连接ID表和主表

library(tidyr)

# 创建一个示例数据框
df <- data.frame(
  ID = c(1, 2, 3),
  Name = c("Alice", "Bob", "Charlie"),
  Age = c(25, 30, 35),
  Gender = c("Female", "Male", "Male")
)

# 使用pivot_longer()函数将Name、Age和Gender列连接为一个ID列
df_long <- pivot_longer(df, cols = c(Name, Age, Gender), names_to = "Variable", values_to = "Value")

# 输出结果
print(df_long)

# A tibble: 9 x 3
     ID Variable Value  
  <dbl> <chr>    <chr>  
1     1 Name     Alice  
2     1 Age      25     
3     1 Gender   Female 
4     2 Name     Bob    
5     2 Age      30     
6     2 Gender   Male   
7     3 Name     Charlie
8     3 Age      35     
9     3 Gender   Male