"轉置一個小標題"

Question

我有這個小標題：

tibble(Cor = c("Linear", "Rank"),
       `a,b` =  c("x1","x2"),
       `b,c` = c("x3","x4")
)

Answer 1

我們可以使用data.table::transpose

as_tibble(data.table::transpose(dat, make.names = 'Cor', keep.names = 'Cor'))
 # A tibble: 2 × 3
  Cor   Linear Rank 
  <chr> <chr>  <chr>
1 a,b   x1     x2   
2 b,c   x3     x4   

數據

dat <- tibble(Cor = c("Linear", "Rank"),
       `a,b` =  c("x1","x2"),
       `b,c` = c("x3","x4")
)

Answer 2

我們可以使用tidyr的pivot_longer和pivot_wider ：

df %>%  
  pivot_longer(-Cor) %>%   
  pivot_wider(names_from = Cor, values_from = value) 

Answer 3

一種更快的方法是在管道%>%之后使用 R 基函數t()

df = tibble(Cor = c("Linear", "Rank"),
       `a,b` =  c("x1","x2"),
       `b,c` = c("x3","x4")
)
df_t = df %>% t()
df_t
    [,1]     [,2]  
Cor "Linear" "Rank"
a,b "x1"     "x2"  
b,c "x3"     "x4"