如何在值是字符的地方使用pivot_wider？

pivot_wider(data, names_from, values_from, values_fill = NULL)

library(tidyverse)

# 创建一个数据框
data <- tibble(
  id = c(1, 1, 2, 2),
  variable = c("A", "B", "A", "B"),
  value = c(10, 20, 30, 40)
)

# 使用pivot_wider()函数进行数据转换
data_wide <- data %>% 
  pivot_wider(names_from = variable, values_from = value)

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

# A tibble: 2 x 3
     id     A     B
  <dbl> <dbl> <dbl>
1     1    10    20
2     2    30    40