R：具有多列和多行的乳胶表

Question

我想使用R生成代码乳胶表。

这是预期表的示例：

我的问题是：如何使用Methods创建此多行以及如何使用GROUP 1，GROUPE 2，A，B，{ {1}} ...，C，...，(l = 0)...。使用R？

有没有一种方法可以将CONDITION 0与R相加？

我的数据如下：

cmidrule

我使用了“ z1 <- c(8.00,5.36,2.55,0.49,90.29,0.70,0.01,15.34,0.74,0.02,97.27,0.54, 0.92,29.78,0.54,3.44,21.56,4.62,3.80,92.53,6.76,0.65,7.82) z2 <- c(3.00,57.56,4.55,0.52,18.95,6.52,0.01,9.79,0.69,0.01,88.50,4.94, 0.33,17.33,30.48,0.42,89.50,3.58,0.52,99.63,9.78,0.65,7.90) z3 <- c(9.00,28.32,3.46,0.65,11.74,8.41,0.01, 7.86,6.91,0.92, 9.49,3.23, 0.42,12.82,0.35,0.90,13.07,4.47,0.62, 6.74,9.74,9.77,3.88) z4 <- c(9.00,32.01,0.43,0.62,11.79,6.46,1.02, 8.74,4.53,0.02, 9.80,0.38, 0.47,14.56,0.39,0.50,14.04,3.50,0.61, 6.95,0.78,0.77,4.01) z5 <- c(1.00,53.73,4.54,4.46,62.63,1.67,1.01,92.97,3.69,0.01,86.04,1.48, 2.39,99.92,0.51,0.40,21.60,1.61,0.50,91.85,0.84,0.69,6.83) tab <- data.frame(Methods = c(rep(c("val 0", "cond 1", "val 1", "cond 2", "val 2", "val 3", "val 4"),8)), colFactor1 = c(rep("GROUP 1",14) ,rep("GROUP 2",42)), colFactor2 = c(rep("A",7), rep("B",7), rep("C",7), rep("D",7), rep("E",7), rep("F",7), rep("G",7) ,rep("H",7)), colFactor3 = c(rep("(l = 0)",7), rep("(l = 4)",7), rep("(l = 1)",7), rep("(l = 2)",7), rep("(l = 1)",7), rep("(l = 2)",7), rep("(l = 2)",7), rep("(l = 2)",7)), colFactor4 = c(rep(" ",7), rep("CONDITION 0",7), rep("CONDITION 1",14), rep("CONDITION 2",28)), x = c(c(paste0(format(z1[1],nsmall=2),'/-' ,' (',format(z1[2],nsmall=2),')'), paste0(" "), paste0(format(z2[1],nsmall=2),'/-' ,' (',format(z2[2],nsmall=2),')'), paste0(" "), paste0(format(z3[1],nsmall=2),'/-' ,' (',format(z3[2],nsmall=2),')'), paste0(format(z4[1],nsmall=2),'/-' ,' (',format(z4[2],nsmall=2),')'), paste0(format(z5[1],nsmall=2),'/-' ,' (',format(z5[3],nsmall=2),')')), c(paste0(format(z1[3],nsmall=2),'/',format(z1[4],nsmall=2) ,' (',format(z1[5],nsmall=2),')'), paste0(" "), paste0(format(z2[3],nsmall=2),'/',format(z2[4],nsmall=2) ,' (',format(z2[5],nsmall=2),')'), paste0(" "), paste0(format(z3[3],nsmall=2),'/',format(z3[4],nsmall=2) ,' (',format(z3[5],nsmall=2),')'), paste0(format(z4[3],nsmall=2),'/',format(z4[4],nsmall=2) ,' (',format(z4[5],nsmall=2),')'), paste0(format(z5[3],nsmall=2),'/',format(z5[4],nsmall=2) ,' (',format(z5[5],nsmall=2),')')), c(paste0(format(z1[6],nsmall=2),'/',format(z1[7],nsmall=2) ,' (',format(z1[8],nsmall=2),')'), paste0(" "), paste0(format(z2[6],nsmall=2),'/',format(z2[7],nsmall=2) ,' (',format(z2[8],nsmall=2),')'), paste0(" "), paste0(format(z3[6],nsmall=2),'/',format(z3[7],nsmall=2) ,' (',format(z3[8],nsmall=2),')'), paste0(format(z4[6],nsmall=2),'/',format(z4[7],nsmall=2) ,' (',format(z4[8],nsmall=2),')'), paste0(format(z5[6],nsmall=2),'/',format(z5[7],nsmall=2) ,' (',format(z5[8],nsmall=2),')')), c(paste0(format(z1[9],nsmall=2),'/',format(z1[10],nsmall=2) ,' (',format(z1[11],nsmall=2),')'), paste0(" "), paste0(format(z2[9],nsmall=2),'/',format(z2[10],nsmall=2) ,' (',format(z2[11],nsmall=2),')'), paste0(" "), paste0(format(z3[9],nsmall=2),'/',format(z3[10],nsmall=2) ,' (',format(z3[11],nsmall=2),')'), paste0(format(z4[9],nsmall=2),'/',format(z4[10],nsmall=2) ,' (',format(z4[11],nsmall=2),')'), paste0(format(z5[9],nsmall=2),'/',format(z5[10],nsmall=2) ,' (',format(z5[11],nsmall=2),')')), c(paste0(format(z1[12],nsmall=2),'/',format(z1[13],nsmall=2) ,' (',format(z1[14],nsmall=2),')'), paste0(" "), paste0(format(z2[12],nsmall=2),'/',format(z2[13],nsmall=2) ,' (',format(z2[14],nsmall=2),')'), paste0(" "), paste0(format(z3[12],nsmall=2),'/',format(z3[13],nsmall=2) ,' (',format(z3[14],nsmall=2),')'), paste0(format(z4[12],nsmall=2),'/',format(z4[13],nsmall=2) ,' (',format(z4[14],nsmall=2),')'), paste0(format(z5[12],nsmall=2),'/',format(z5[13],nsmall=2) ,' (',format(z5[14],nsmall=2),')')), c(paste0(format(z1[15],nsmall=2),'/',format(z1[16],nsmall=2) ,' (',format(z1[17],nsmall=2),')'), paste0(" "), paste0(format(z2[15],nsmall=2),'/',format(z2[16],nsmall=2) ,' (',format(z2[17],nsmall=2),')'), paste0(" "), paste0(format(z3[15],nsmall=2),'/',format(z3[16],nsmall=2) ,' (',format(z3[17],nsmall=2),')'), paste0(format(z4[15],nsmall=2),'/',format(z4[16],nsmall=2) ,' (',format(z4[17],nsmall=2),')'), paste0(format(z5[15],nsmall=2),'/',format(z5[16],nsmall=2) ,' (',format(z5[17],nsmall=2),')')), c(paste0(format(z1[18],nsmall=2),'/',format(z1[19],nsmall=2) ,' (',format(z1[20],nsmall=2),')'), paste0(" "), paste0(format(z2[18],nsmall=2),'/',format(z2[19],nsmall=2) ,' (',format(z2[20],nsmall=2),')'), paste0(" "), paste0(format(z3[18],nsmall=2),'/',format(z3[19],nsmall=2) ,' (',format(z3[20],nsmall=2),')'), paste0(format(z4[18],nsmall=2),'/',format(z4[19],nsmall=2) ,' (',format(z4[20],nsmall=2),')'), paste0(format(z5[18],nsmall=2),'/',format(z5[19],nsmall=2) ,' (',format(z5[20],nsmall=2),')')), c(paste0(format(z1[21],nsmall=2),'/',format(z1[22],nsmall=2) ,' (',format(z1[23],nsmall=2),')'), paste0(" "), paste0(format(z2[21],nsmall=2),'/',format(z2[22],nsmall=2) ,' (',format(z2[23],nsmall=2),')'), paste0(" "), paste0(format(z3[21],nsmall=2),'/',format(z3[22],nsmall=2) ,' (',format(z3[23],nsmall=2),')'), paste0(format(z4[21],nsmall=2),'/',format(z4[22],nsmall=2) ,' (',format(z4[23],nsmall=2),')'), paste0(format(z5[21],nsmall=2),'/',format(z5[22],nsmall=2) ,' (',format(z5[23],nsmall=2),')'))) ) tab$x <- as.character(tab$x) ”包中的R函数“ tabular ”，这是我的尝试：

tables

我有一张带有 NA 和一个latex(tabular(RowFactor(Methods) ~ colFactor1*colFactor2*colFactor3*colFactor4*Heading()*(x)*Heading()*identity, data = tab))

的桌子

warnings()

非常感谢您的帮助！