表中单元格的条件着色

2024-01-04

我正在尝试创建一个数据表，其单元格根据单元格中的值具有不同的颜色。我可以用这个功能来实现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)

任何帮助将不胜感激。

A `heatmap`选择：

library(gplots)

# need data as matrix
mm <- as.matrix(testdf, ncol = 3)

heatmap.2(x = mm, Rowv = FALSE, Colv = FALSE, dendrogram = "none",
          cellnote = mm, notecol = "black", notecex = 2,
          trace = "none", key = FALSE, margins = c(7, 11))

In heatmap.2情节的一侧axis要绘制的内容是硬编码的。但如果你输入“heatmap.2” 在控制台并将输出复制到编辑器，您可以搜索axis(1，其中 1 是side论证（两次命中）。然后，您可以从 1（图下方的轴）更改为 3（图上方的轴）。将更新后的函数指定为新名称，例如heatmap.3，并按上述方式运行它。

An `addtable2plot`选择

library(plotrix)

# while plotrix is loaded anyway:
# set colors with color.scale
# need data as matrix*
mm <- as.matrix(testdf, ncol = 3)
cols <- color.scale(mm, extremes = c("red", "yellow"))

par(mar = c(0.5, 1, 2, 0.5))
# create empty plot
plot(1:10, axes = FALSE, xlab = "", ylab = "", type = "n")

# add table
addtable2plot(x = 1, y = 1, table = testdf,
              bty = "o", display.rownames = TRUE,
              hlines = TRUE, vlines = TRUE,
              bg = cols,
              xjust = 2, yjust = 1, cex = 3)

# *According to `?color.scale`, `x` can be a data frame.
# However, when I tried with `testdf`, I got "Error in `[.data.frame`(x, segindex) : undefined columns selected".

A `color2D.matplot`选择

library(plotrix)
par(mar = c(0.5, 8, 3.5, 0.5))
color2D.matplot(testdf, 
                show.values = TRUE,
                axes = FALSE,
                xlab = "",
                ylab = "",
                vcex = 2,
                vcol = "black",
                extremes = c("red", "yellow"))
axis(3, at = seq_len(ncol(testdf)) - 0.5,
     labels = names(testdf), tick = FALSE, cex.axis = 2)
axis(2, at = seq_len(nrow(testdf)) -0.5,
     labels = rev(rownames(testdf)), tick = FALSE, las = 1, cex.axis = 2)

经过这个小练习后，我倾向于同意@Drew Steen 的观点，即也可以研究 LaTeX 替代品。例如，检查here https://tex.stackexchange.com/questions/42444/parametrize-shading-in-table-through-tikz and here https://tex.stackexchange.com/questions/44868/drawing-heatmaps-using-tikz?lq=1.

本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)