我希望我的函数打印漂亮的表,无论它是从基R调用还是从RStudio笔记本(.Rmd文件)调用。该函数应该知道从哪里调用它,并相应地调整表。我希望该函数易于使用,并且不希望用户指定调用函数的位置。
我可以使用huxtable实现其中的一些功能,但是用户仍然需要稍微修改代码。(我认为这类似于kable。)
以下是函数定义:
library(huxtable)
func = function() {
table = hux(head(iris))
# Color of table border: white on screen / base R, black in HTML
使用huxtable,可以轻而易举地将不同单元格/行的不同字体输出到html。pdf就不太好用了。这并不是一个新问题,而是RMarkdown - different font types in table using kable?和Change font of Kable in Rmarkdown pdf的一个特定版本 我已经使用https://stackoverflow.com/a/54735453/4927395给出的答案在下面的图像中创建了来自rmarkdown的输出(在我的windows pc上)。请注意,“environment”代码将更改表格(整个表格)的字体,但块之后的文本使用
我在R中运行以下代码:
library(modelsummary)
library(kableExtra)
tmp <- mtcars[, c("mpg", "hp")]
# create a list with individual variables
# remove missing and rescale
tmp_list <- lapply(tmp, na.omit)
tmp_list <- lapply(tmp_list, scale)
# create a table with `datasummary`
# add a hi
如何将转义字符插入数据帧?
它将有助于将文本数据格式化为表包。
我们可以使用一个通用的解决方案,每一个桌子的包装(我的希望)。
但是现在我们应该为每一种情况使用很多方法(取决于库和输出格式: pdf,html)。
真的很不舒服!
例如,,我们有下一个数据
df <- data.frame("names" = c("a long long long long long ... pretty long name of the our story","Here is also long, but a little shorter"))
我们看到一