如何在R中展开数据集，并保留每列的名称

library(tidyr)

# 创建一个示例数据集
data <- data.frame(ID = c(1, 2, 3),
                   A = c(10, 20, 30),
                   B = c(15, 25, 35),
                   C = c(18, 28, 38))

# 使用gather()函数展开数据集
gathered_data <- gather(data, key = "Variable", value = "Value", -ID)

# 打印展开后的数据集
print(gathered_data)

  ID Variable Value
1  1        A    10
2  2        A    20
3  3        A    30
4  1        B    15
5  2        B    25
6  3        B    35
7  1        C    18
8  2        C    28
9  3        C    38

library(tidyr)

# 创建一个示例数据集
data <- data.frame(ID = c(1, 2, 3),
                   A = c(10, 20, 30),
                   B = c(15, 25, 35),
                   C = c(18, 28, 38))

# 使用pivot_longer()函数展开数据集
gathered_data <- pivot_longer(data, cols = -ID, names_to = "Variable", values_to = "Value")

# 打印展开后的数据集
print(gathered_data)