下面是我的愚蠢答案...这是正确的方法：
通过css.cell参数，此功能已内置于htmlTable中：
css.cell元素允许您向表格单元格添加任何可能的CSS样式。如果您提供了一个向量，则假定该向量应在整个列中重复样式。如果您提供了与x参数相同大小的矩阵，则如果有ncol(x) + 1，则第一行将对应于行名称样式。相应地，如果大小为nrow(x) + 1，则假定第一行是标题行。
因此，基本上您只需要为每个单元格定义一个样式矩阵：
x <- head(cars)
## indices defining where the styles go
where <- rbind(c(2,2), c(2,1), c(5,2))
style <- c('background-color: red; color: white;',
'border: solid 1px;',
'font-weight: 900; color: blue;')
css.cell <- matrix('', nrow(x), ncol(x))
css.cell[where] <- style
# [,1] [,2]
# [1,] "" ""
# [2,] "border: solid 1px;" "background-color: red; color: white;"
# [3,] "" ""
# [4,] "" ""
# [5,] "" "font-weight: 900; color: blue;"
# [6,] "" ""
htmlTable(head(cars), css.cell = css.cell)
如果你不进行来回切换，很难分辨出这个表格和下面那个类似的表格之间的间距略有不同。在inject_div示例中，看起来更加居中。
有点晚了，但@CyrusMohammadian发表了一条评论，既然这条评论/问题与此相同，我会将答案添加在这里，而不是编辑我的答案，因为它针对的是一个（稍微）不同的问题。
表格可能会变得很复杂，每个人都有不同的功能要求。我认为Max没有内置解决方案能够满足所有需求。
因此，我认为最简单的方法是（hackily）将一些html/css注入到你的表格中（你可能也可以在运行htmlTable后进行这样做，即直接在html代码中进行，但这样更容易）：
inject_div <- function(x, where, style = 'background-color: lightgrey; border: solid 1px') {
if (!all(sapply(style, nzchar)))
return(x)
where <- matrix(where, ncol = 2L, byrow = !is.matrix(where))
style <- rep_len(style, nrow(where))
if (length(where) > 0)
x[where] <- sprintf('<div style=\'%s\'>%s</div>',
gsub(';*$', ';', style), x[where])
x
}
library('htmlTable')
htmlTable(inject_div(head(cars), cbind(2,2)))
htmlTable(inject_div(head(cars), where = c(2,2,2,1,5,2),
style = c('background-color: red; color: white;',
'border: solid 1px;',
'font-weight: 900; color: blue;')))
