我有以下数据:
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"))