转置数据框，将第一列保持为标题

Question

我有一个大数据框，但小例子如下：

mydf <- data.frame(A = c(letters[1:10]), M1 = c(11:20), M2 = c(31:40), M3 = c(41:50))

我想转置数据框并将列 1 (A) 维护为列标题（字母 [1:10]）作为变量名称。以下是不成功代码的临时尝试。

tmydf = data.frame(t(mydf))
names(tmydf) <- tmydf[1,]

谢谢;

Answer 1

这是一种方法

tmydf = setNames(data.frame(t(mydf[,-1])), mydf[,1])

Answer 2

也许是这样的：

tmp <- as.data.frame(t(mydf[,-1]))
> colnames(tmp) <- mydf$A
> tmp
    a  b  c  d  e  f  g  h  i  j
M1 11 12 13 14 15 16 17 18 19 20
M2 31 32 33 34 35 36 37 38 39 40
M3 41 42 43 44 45 46 47 48 49 50

Answer 3

您可以使用 tidyr 包中的 pivot_longer 和 pivot_wider 函数。

library(tidyr)
mydf%>%
  pivot_longer(cols=c(-A),names_to="Original_Vars")%>%
  pivot_wider(names_from=c(A))

pivot_longer 创建一个名为“Original_Vars”的列，以及一个名为 value 的新列。如果您停在这里，您的 A 变量、“Original_Vars”（此处为 M1、M2 和 M3）以及与该配对关联的值的每个组合都会有一行。

然后，pivot_wider 从“A”列中获取所有值，并使用我们通过 pivot_longervalue 列中的值将它们转换为列> 来填写。

Answer 4

另一种将 janitor::row_to_names() 与 dplyr/magrittr 管道结合使用的方法

mydf <- data.frame(A = c(letters[1:10]), M1 = c(11:20), M2 = c(31:40), M3 = c(41:50))


library(janitor, warn.conflicts = F)
library(dplyr, warn.conflicts = F)
mydf %>% t %>% as.data.frame() %>% row_to_names(1)

#>     a  b  c  d  e  f  g  h  i  j
#> M1 11 12 13 14 15 16 17 18 19 20
#> M2 31 32 33 34 35 36 37 38 39 40
#> M3 41 42 43 44 45 46 47 48 49 50

^{由 reprex 包 (v2.0.0)}

Answer 5

来自 Ramnath 的 Data.table Variablee，在字符串中指示所需的变量名称。

mydf <- data.table(A = c(letters[1:10]), M1 = c(11:20), M2 = c(31:40), M3 = c(41:50))
tmydf <- setNames(data.table(t(mydf[,-"A"])), mydf[["A"]])