从gplots包创建气球图的注释
我想知道是否可以更改由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）吗？ 例如，我想要红，蓝，绿，蓝，蓝，绿，蓝，蓝，绿，蓝，蓝三种颜色。
这可能吗？ 或者我需要看另一个包？
谢谢
在这里下载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)
上一篇: Create annotation for a balloon plot from gplots package