我想使用ReporteRs软件包制作FlexTable。我希望能够使用cols.vertical和rows.vertical,针对所有ncol()+ 1列边框和所有nrow() - 1行边框,灵活指定每个列和行是否存在边框。此外,我希望能够在桌面边框的顶部和底部包含较暗的边框。以下使用mtcars数据集显示列说明的示例,并使用虹膜数据集的子集显示较暗边界的示例。ReporteRs单元格边框
library(ReporteRs)
a <- FlexTable(mtcars, body.cell.props = cellProperties(border.style = "none"))
cols.vertical <- c(2, 4, 5)
rows.horizontal <- c(3, 4, 7)
a[, cols.vertical] <- chprop(cellProperties(border.right.width = 1,
border.left.width=0,
border.top.width=0,
border.bottom.width=0))
a[rows.horizontal, ] <- chprop(cellProperties(border.right.width = 0,
border.left.width=0,
border.top.width=0,
border.bottom.width=1))
a[rows.horizontal, cols.vertical] <- chprop(cellProperties(border.right.width=1,
border.left.width=0,
border.top.width=0,
border.bottom.width=1))
b <- FlexTable(iris[1:10,], body.cell.props = cellProperties(border.style="none"))
b[1, ]<- chprop(cellProperties(border.right.width = 0,
border.left.width=0,
border.top.width=2,
border.bottom.width=0))
b[nrow(iris[1:10, ]), ] <- chprop(cellProperties(border.right.width = 0,
border.left.width=0,
border.top.width=0,
border.bottom.width=2))
CHPROP是被用来修改一个属性,因为在你的例子中没有指定属性,这没有效果。 –