我没有正确编写pivot_wider函数

以下是一种无需转向的替代方法:

library(janitor)
library(dplyr)
df %>% 
  t() %>% 
  row_to_names(row_number = 1) %>% 
  as.data.frame()

     a  b  c  d  e
jan  1  2  3  4  5
feb  2  4  6  8 10
mar  3  6  9 12 14

您可以尝试:

library(tidyr)

df %>%
  pivot_longer(cols = -model, names_to = 'month') %>%
  pivot_wider(names_from = model)

输出:

# A tibble: 3 × 6
  month     a     b     c     d     e
  <chr> <dbl> <dbl> <dbl> <dbl> <dbl>
1 jan       1     2     3     4     5
2 feb       2     4     6     8    10
3 mar       3     6     9    12    14

请检查一下

df %>% pivot_longer(c(-1), names_to = 'name', values_to = 'value') %>% 
pivot_wider(names_from = model, values_from = value) %>% 
  rename(month=name)

^{创建于2023-01-29 reprex v2.0.2}

# A tibble: 3 × 6
  month     a     b     c     d     e
  <chr> <dbl> <dbl> <dbl> <dbl> <dbl>
1 jan       1     2     3     4     5
2 feb       2     4     6     8    10
3 mar       3     6     9    12    14

谢谢-

我最终和

df %>% 
    pivot_longer(cols = jan:mar) %>% 
    pivot_wider(names_from = model, values_from = value)

  name      a     b     c     d     e
  <chr> <dbl> <dbl> <dbl> <dbl> <dbl>
1 jan       1     2     3     4     5
2 feb       2     4     6     8    10
3 mar       3     6     9    12    14