Data.Frame 到带有彩色文本的 PDF/HTML 表格答案

【问题标题】：Data.Frame to PDF/HTML table with Colored TextData.Frame 到带有彩色文本的 PDF/HTML 表格
【发布时间】：2012-04-23 08:09:33
【问题描述】：

我有一个非常简单的问题。我有一个包含多行和多列的数据框。我的行代表时间点。我的列是潜在条件，我的单元格是这些条件在特定时间发生的概率。

我想将此信息输出到 PDF 表。此外，我想为此添加颜色。例如

有没有办法做到这一点？

此外，我的 PDF 输出中是否可以有一列由水平条组成。条的大小也将基于我的单元格值。理想情况下，我也可以对此进行着色。

【问题讨论】：

相关问题：stackoverflow.com/questions/9310971/…
如果 HTML 也是一个选项（正如您的标题所暗示的那样），您还应该查看 hwriter 包。

标签： r pdf-generation dataframe

【解决方案1】：

如果你愿意使用 LaTeX，你可以使用Rd2roxygen，还有a range of ways to export tables from R to LaTeX or HTML。

如果您不想使用 LaTeX，则可以使用热图来传达细胞中的差异。这里是a nice example by Jason Bryer 和another example。

Jason Bryer's blog 的表格供没有时间点击上面链接的人使用。

【讨论】：

为什么Rd2roxygen 相关？错别字？
Jason Bryer 文章的链接坏了，这里是好的链接：jason.bryer.org/posts/2011-11-11/visualizing-likert-items.html

【解决方案2】：

使用 ggplot 和热图。

下面的示例代码。

df.m = melt(df)
df.m <- ddply(df.m, .(variable), transform,rescale = scale(value))
pp = ggplot(df.m, aes(x = variable, y = Time, fill = rescale, label = sprintf("%1.1f%%", 100*value),size=10))
pp = pp + geom_tile() + geom_text(aes(size=10)) + 
scale_x_discrete(name = '', expand = c(0, 0)) +
scale_y_discrete(name = '', expand = c(0, 0)) +
scale_fill_gradient2(low = 'grey', high = 'steelblue') +
theme_bw() +
opts(legend.position = 'none',
    panel.grid.major = theme_line(colour = NA),
    panel.grid.minor = theme_line(colour = NA))

【讨论】：

我对这个例子很感兴趣，但是不看df就很难理解。