我有以下数据:

df <- data.frame(estimate = c(1,2), sd = c("(0.5)*","(0.5)***"))
rownames(df) <- c("race","gender")


我想通过将两列逐元素合并为一个日记质量表。所需的输出将是:

         Results
race     1
         (0.5)*
gender   2
         (0.5)***

最佳答案

由于data.frame不能有重复的行名,因此最好将其存储在matrix中。我们获取数据集的转置(t),创建具有单列的matrix,并通过rbind用空白("")原始数据集的现有行名来分配行名。

m1 <- matrix(c(t(df)), dimnames = list(c(rbind(row.names(df), "")), "Results"))

07-24 09:52
查看更多