r - 转置将第一列保持为标题的数据框

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

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

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

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

然后pivot_wider从“A”列中获取所有值并将它们转换为列，使用value我们创建的列中的值pivot_longer进行填充。

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 包于 2021-06-17 创建 (v2.0.0 )}

Answer 5

来自 Ramnath 的 Data.table 变体，在字符串中指示想要的变量名。

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"]])