在R中，有没有一种方法可以将平面化的层次结构表旋转到它的完全加宽的输出中，以用于映射？

library(reshape2)

# 创建一个示例数据框
data <- data.frame(
  id = c(1, 2, 3),
  var1 = c(10, 20, 30),
  var2 = c(100, 200, 300)
)

# 使用melt()函数将数据框转换为长格式
melted_data <- melt(data, id.vars = "id", variable.name = "variable", value.name = "value")

# 输出转换后的数据框
print(melted_data)

  id variable value
1  1     var1    10
2  2     var1    20
3  3     var1    30
4  1     var2   100
5  2     var2   200
6  3     var2   300