如何在R中将表从列布局传递到行布局？

library(tidyverse)

data <- tibble(
  ID = c(1, 2, 3),
  A = c(10, 20, 30),
  B = c(40, 50, 60),
  C = c(70, 80, 90)
)

# 输出示例数据集
data

# A tibble: 3 x 4
     ID     A     B     C
  <dbl> <dbl> <dbl> <dbl>
1     1    10    40    70
2     2    20    50    80
3     3    30    60    90

data_long <- data %>% pivot_longer(-ID, names_to = "Variable", values_to = "Value")

# 输出转换后的表格
data_long

# A tibble: 9 x 3
     ID Variable Value
  <dbl> <chr>    <dbl>
1     1 A           10
2     1 B           40
3     1 C           70
4     2 A           20
5     2 B           50
6     2 C           80
7     3 A           30
8     3 B           60
9     3 C           90