从gplots包中创建气球绘图的注释

Question

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

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

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)

​

​