从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 here并将其保存在您的工作目录中 然后，运行以下代码：

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)