如何根据R中的多列展开单列？

pivot_longer(data, cols, names_to, values_to)

library(tidyverse)

# 创建一个包含多列的数据框
df <- data.frame(ID = c("A", "B", "C"),
                 Var1 = c(1, 2, 3),
                 Var2 = c(4, 5, 6),
                 Var3 = c(7, 8, 9))

# 使用pivot_longer函数展开多列为单列
df_long <- df %>%
  pivot_longer(cols = c(Var1, Var2, Var3),
               names_to = "Variable",
               values_to = "Value")

# 输出展开后的数据框
print(df_long)

# A tibble: 9 x 3
  ID    Variable Value
  <chr> <chr>    <dbl>
1 A     Var1         1
2 A     Var2         4
3 A     Var3         7
4 B     Var1         2
5 B     Var2         5
6 B     Var3         8
7 C     Var1         3
8 C     Var2         6
9 C     Var3         9