在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
开源软件名称:gforge/htmlTable开源软件地址:https://github.com/gforge/htmlTable开源编程语言:R 95.7%开源软件介绍:BasicsThe htmlTable package is intended for generating tables using HTML formatting. This format is compatible with Markdown when used for HTML-output. The most basic table can easily be created by just passing a library(magrittr)
library(htmlTable)
# A simple output
output <- matrix(1:4,
ncol=2,
dimnames = list(list("Row 1", "Row 2"),
list("Column 1", "Column 2")))
htmlTable(output)
If you are using library(tidyverse)
library(glue)
mtcars %>%
as_tibble(rownames = "rnames") %>%
filter(cyl == 6 & qsec < 18) %>%
pivot_longer(names_to = "per_metric",
cols = c(hp, mpg, qsec)) %>%
arrange(gear, rnames) %>%
mutate(gear = glue("{gear} gears")) %>%
addHtmlTableStyle(align = "r") %>%
tidyHtmlTable(header = per_metric, rnames = rnames, rgroup = gear,
caption = "A simple <code>tidyHtmlTable</code> example using <code>mtcars</code>")
AdvancedWhile it may be sufficient for basic tables a more advanced layout is often needed in medical publications with elements such as:
As many journals require that a MS Word-document is submitted it is furthermore also important that the table imports correctly to a word processor, i.e. that the table doesn't only look nice in a web browser but also in the final document. The Note: Due to GitHub CSS-styles the rows get automatically zebra-striped (in a bad way), borders get overridden and I haven't been able to figure out how to change this. See the vignette for a correct example: For demonstration purposes we will setup a basic matrix: mx <-
matrix(ncol=6, nrow=8) %>%
set_rownames(paste(c("1st", "2nd", "3rd",
paste0(4:8, "th")),
"row")) %>%
set_colnames(paste(c("1st", "2nd", "3rd",
paste0(4:6, "th")),
"hdr"))
for (nr in 1:nrow(mx)){
for (nc in 1:ncol(mx)){
mx[nr, nc] <-
paste0(nr, ":", nc)
}
} Row groupsThe purpose of the row groups is to group variables that belong to the same group, e.g. a factored variable with more than two levels often benefit from grouping variables together. htmlTable(mx,
rgroup = paste("Group", LETTERS[1:3]),
n.rgroup = c(2,4,nrow(mx) - 6))
We can easily mix row groups with regular variables by having an empty row group name htmlTable(mx,
rgroup = c(paste("Group", LETTERS[1:2]), ""),
n.rgroup = c(2,4,nrow(mx) - 6))
When mixing row groups with variables without row groups we may want to omit the bold formatting of the row group label. As of htmlTable version 2.0
you can separate the css styling using mx %>%
addHtmlTableStyle(css.rgroup = "") %>%
htmlTable(rgroup = c(paste("Group", LETTERS[1:2]), ""),
n.rgroup = c(2,4,nrow(mx) - 6))
Column spannersA column spanner spans 2 or more columns: htmlTable(mx,
cgroup = c("Cgroup 1", "Cgroup 2"),
n.cgroup = c(2,4))
It can sometimes be convenient to have column spanners in multiple levels: htmlTable(mx,
cgroup = rbind(c("", "Column spanners", NA),
c("", "Cgroup 1", "Cgroup 2")),
n.cgroup = rbind(c(1,2,NA),
c(2,2,2)))
Above example allows the column spanner to be a sum of the underlying cgroups (see n.cgroup), this is not required by the function: htmlTable(mx,
cgroup = rbind(c("", "Column spanners", NA),
c("", "Cgroup 1", "Cgroup 2")),
n.cgroup = rbind(c(1,5,NA),
c(2,1,3)))
Table spannersA table spanner is similar to rgroup but has the primary purpose of combining 2 or more tables with the same columns into one: htmlTable(mx,
tspanner = paste("Spanner", LETTERS[1:3]),
n.tspanner = c(2,4,nrow(mx) - 6))
Table captionThe table caption is simply the table description and can be either located above or below the table: htmlTable(mx[1:2,1:2],
caption="A table caption above")
mx[1:2,1:2] %>%
addHtmlTableStyle(pos.caption = "bottom") %>%
htmlTable(caption="A table caption below")
A more interesting detail that the function allows for is table numbering, initialized by: options(table_counter = TRUE) htmlTable(mx[1:2,1:2],
caption="A table caption with a numbering")
As we often want to reference the table number in the text there are two associated functions: tblNoLast()
tblNoNext()
Table footerThe footer usually contains specifics regarding variables and is always located at the foot of the table: htmlTable(mx[1:2,1:2],
tfoot="A table footer")
Putting it all togetherNow if we want to do everything in one table it may look like this: mx %>%
addHtmlTableStyle(col.columns = c(rep("none", 2), rep("#F5FBFF", 4)),
col.rgroup = c("none", "#F7F7F7"),
css.cell = "padding-left: .5em; padding-right: .2em;",
align="r") %>%
htmlTable(rgroup = paste("Group", LETTERS[1:3]),
n.rgroup = c(2, 4),
cgroup = rbind(c("", "Column spanners", NA),
c("", "Cgroup 1", "Cgroup 2†")),
n.cgroup = rbind(c(1, 2, NA), c(2, 2, 2)),
caption="A table with column spanners, row groups, and zebra striping",
tfoot="† A table footer commment",
cspan.rgroup = 2)
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论