从宽到长，列名到行名

Question

我有一个 table 看起来像这样：

  v1 <- c("A","B","C")
  v2 <- c("E","G","")
  v3 <- c("B","C","D")
  df1 <- data.frame(v1,v2,v3)

我想把它改成

我该怎么办。如果可能的话，请给我多种方式。谢谢

Answer 1

您可以使用 built-in 函数进行转置 t()

df2 <- data.frame(t(df1))
colnames(df2) <- row.names(df1)

df2
   1 2 3
v1 A B C
v2 E G  
v3 B C D

Answer 2

您可以获取长格式的数据，然后去除空白值。

library(dplyr)
library(tidyr)

gather(df1, variable, value) %>% filter(value != '')

#  variable value
#1       v1     A
#2       v1     B
#3       v1     C
#4       v2     E
#5       v2     G
#6       v3     B
#7       v3     C
#8       v3     D

但是，gather 已经停用并由 pivot_longer 本身取代。

pivot_longer(df1, cols = everything(), names_to = 'variable') %>%
    filter(value != '')

您也可以为此使用 data.table :

library(data.table)
melt(setDT(df1), measure.vars = names(df1))[value != '']

从宽到长，列名到行名

wide to long and col name into row name

r

reshape