在R中将表格从一种格式重新排列为另一种格式

library(reshape2)

# 创建一个示例数据框
df <- data.frame(ID = 1:3,
                 Name = c("Alice", "Bob", "Charlie"),
                 Age = c(25, 30, 35),
                 Score1 = c(80, 90, 85),
                 Score2 = c(70, 95, 80))

# 使用melt()函数将表格从宽格式转换为长格式
melted_df <- melt(df, id.vars = c("ID", "Name", "Age"),
                  measure.vars = c("Score1", "Score2"))

# 打印转换后的数据框
print(melted_df)

  ID    Name Age variable value
1  1   Alice  25   Score1    80
2  2     Bob  30   Score1    90
3  3 Charlie  35   Score1    85
4  1   Alice  25   Score2    70
5  2     Bob  30   Score2    95
6  3 Charlie  35   Score2    80

# 使用dcast()函数将表格从长格式转换为宽格式
casted_df <- dcast(melted_df, ID + Name + Age ~ variable)

# 打印转换后的数据框
print(casted_df)

  ID    Name Age Score1 Score2
1  1   Alice  25     80     70
2  2     Bob  30     90     95
3  3 Charlie  35     85     80