问题 I have a datatable in R Shiny and would like to have headers that span multiple columns like below: How can this be achieved in R Shiny? 回答1: Theres already example http://rstudio.github.io/DT/ library(DT) sketch = htmltools::withTags(table( class = 'display', thead( tr( th(rowspan = 2, 'Species'), th(colspan = 2, 'Sepal'), th(colspan = 2, 'Petal') ), tr( lapply(rep(c('Length', 'Width'), 2), th) ) ) )) datatable(iris[1:20, c(5, 1:4)], container = sketch, rownames = FALSE) 回答2: Have a look at