我正在尝试根据单元格中的值创建一个数据表,其单元格是不同的颜色.我可以addtable2plot通过plotrix包中的功能实现这一点.该addtable2plot函数在已存在的图上放置一个表.该解决方案的问题在于我不想要一个情节,只需要表格.
我也看过了这些heatmap功能.问题是我的表中的一些值是字符,而heatmap我所知道的函数只接受数字矩阵.此外,我希望我的列名称位于表格的顶部,而不是底部,这似乎不是一个选项.
这是示例代码addtable2plot.如果我能拿到桌子,填满整个屏幕,那就太好了.
library(plotrix)
testdf<-data.frame(Before=c(10,7,5,9),During=c(8,6,2,5),After=c(5,3,4,3))
rownames(testdf)<-c("Red","Green","Blue","Lightblue")
barp(testdf,main="Test addtable2plot",ylab="Value",
names.arg=colnames(testdf),col=2:5)
# show most of the options including the christmas tree colors
abg<-matrix(c(2,3,5,6,7,8),nrow=4,ncol=3)
addtable2plot(2,8,testdf,bty="o",display.rownames=TRUE,hlines=TRUE,
vlines=TRUE,title="The table",bg=abg)
任何帮助将不胜感激.
我几乎在编程格式化r输出一个初学者,但我有一个基本的了解knitr,xtable,降价和Pandoc的一个标记格式转换为另一种能力.我想要做的是将R数据帧写入dfHTML表,并将特定颜色应用于满足条件的每一行(例如,df$outcome == 1).但是,我不确定哪个软件包可以通过简单有效的方式完成此任务,但是从浏览一些表格格式线程(xtable线程1,xtable线程2,kable文档1)开始,我已经收集了它kable并且xtable可能能够完成我的期望的结果.
为了澄清,这是我可重复的例子(使用xtable,但我对使用kable或其他包的答案感兴趣):
set.seed(123)
df <- data.frame(id = sample(1:100, 20, replace = TRUE),
inputval = sample(seq(0, 1, by=0.01), 20, replace = TRUE),
outcome = sample(1:4, 20, replace = TRUE))
library(xtable)
dfxt <- xtable(df)
knit2html(input = "~/rowcolor_ex.Rmd",
output = OUTPUTHERE
stylesheet = "STYLESHEET.css")
与knit2html引用名为"rowcolor_ex.Rmd"的文件,如下图所示:
```{r,echo=FALSE,results='asis',warning=FALSE,message=FALSE}
print(dfxt,
type = "html",
include.rownames = FALSE,)
``` …