r - 从 gplots 包为气球图创建注释

Question

我想知道是否可以更改 gplots 包生成的气球图的行和列注释。

假设我的数据是 mtcars 数据集的子集

data(mtcars)
dt <- as.table(as.matrix(mtcars[1:10,]))

我可以制作气球图如下

library("gplots")
balloonplot(t(dt), xlab ="", ylab="", label = FALSE, show.margins = FALSE)

我可以用任意颜色更改灰色条的颜色（对于 x 和 y）吗？例如，我想要红色的 mpg、cyl、disp 和 drat，其他的都是蓝色。

这可能吗？或者我需要看另一个包？

谢谢

Answer 1

myballoonplot.r 在此处下载并将其保存在您的工作目录中。
然后，运行以下代码：

data(mtcars)
dt <- as.table(as.matrix(mtcars[1:10,]))

source("myballoonplot.r")

# Define colors for y bars 
col.bar.y <- rep("lightgray",ncol(dt))
col.bar.y[colnames(dt) %in% c("mpg","cyl","disp","drat")] <- "red"

# Define colors for x bars     
col.bar.x <- rep("lightgray",nrow(dt))
col.bar.x[rownames(dt) %in% c("Mazda RX4","Valiant","Duster 360")] <- "green"
col.bar.x[rownames(dt) %in% c("Datsun 710")] <- "#0000FF77"

# Plot using the modified version of balloonplot
myballoonplot.table(t(dt), xlab ="", ylab="", label = FALSE, 
    show.margins = FALSE, col.bar.y = col.bar.y, col.bar.x = col.bar.x)