如何将prot DataFrame行数增至13441行匹配mrna.count？解决列表返回问题

已知mrna.count有13441行：

> nrow(mrna.count)
[1] 13441

而prot仅178行，需要将其行数扩充至13441：

> dim(prot)
[1] 178 175

你之前用lapply得到DataFrame列表的原因是，循环里每次生成了不同行数的子数据框。要得到单个DataFrame，直接一次性抽取13441个可重复的行索引即可：

# 从prot的行号中随机抽取13441个可重复的索引
sampled_rows <- sample(nrow(prot), size = nrow(mrna.count), replace = TRUE)
# 根据索引抽取行，得到扩充后的单个DataFrame
protein <- prot[sampled_rows, ]

验证结果：

> nrow(protein)
[1] 13441

示例输入数据：

> dput(prot[1:5,1:5])
structure(list(TCGA.2K.A9WE.01 = c(0.188926557, 0.32718108, -0.194691117, 
0.190334105, -0.4208597615), TCGA.2Z.A9J1.01 = c(0.12354026575, 
0.10028027475, -0.20595222225, -0.26450453025, -0.34263506075
), TCGA.2Z.A9J3.01 = c(-0.196046266, -0.00864849600000012, 0.481444919, 
0.048551157, 0.3332741995), TCGA.2Z.A9J6.01 = c(0.209220311, 
0.355386269, 0.188494459, -0.089151463, -0.3560846405), TCGA.2Z.A9J7.01 = c(-0.0607107314999999, 
-0.0887603205, -0.2174384005, 0.4300315565, 0.248662399)), row.names = c("14-3-3_beta", 
"14-3-3_epsilon", "14-3-3_zeta", "4E-BP1", "4E-BP1_pS65"), class = "data.frame")

内容的提问来源于stack exchange，提问作者Anon