我怎样才能旋转这个tibble呢？

library(tidyverse)

# 创建一个示例tibble
tib <- tibble(
  id = 1:3,
  col1 = c("A", "B", "C"),
  col2 = c("X", "Y", "Z")
)

# 使用pivot_longer()函数将tibble转换为长格式
tib_long <- tib %>%
  pivot_longer(cols = starts_with("col"), names_to = "column", values_to = "value")

# 打印转换后的tibble
print(tib_long)

# A tibble: 6 × 3
     id column value
  <int> <chr>  <chr>
1     1 col1   A    
2     1 col2   X    
3     2 col1   B    
4     2 col2   Y    
5     3 col1   C    
6     3 col2   Z    

# 使用pivot_wider()函数将tibble转换为宽格式
tib_wide <- tib_long %>%
  pivot_wider(names_from = "column", values_from = "value")

# 打印转换后的tibble
print(tib_wide)

# A tibble: 3 × 3
     id col1  col2 
  <int> <chr> <chr>
1     1 A     X    
2     2 B     Y    
3     3 C     Z