首页 文章

从gplots包创建气球图的注释

提问于
浏览 次
1

我想知道是否可以更改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为红色，其他所有为蓝色 .

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

谢谢

r contingency balloon gplots

1 回答

  • 2

    下载 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)

    enter image description here

    回复于

相关问题