使用 ggplot2 删除图像图的零级别

Question

我正在使用 geom_tile 绘制图像图，并希望清除零级别以保持清晰。

#dummy data
set.seed(1)
tdata <- data.frame(cat1=rep(letters[1:3],4),cat2=sort(rep(LETTERS[1:4],3)),val=rpois(12,1.5))
tdata$val<-tdata$val/max(tdata$val)

我找到了两种方法来做到这一点，但都有各自的缺点：

1)

qplot(cat1,cat2,data=tdata,geom="tile",fill=val) + scale_fill_continuous(limits=c(.Machine$double.eps,1))

这有一个缺点，即最小值颜色不会打印在比例中。

2)

qplot(cat1,cat2,data=tdata,geom="tile",fill=val,alpha=ifelse(val,1,0))

这有一个缺点，即 alpha 比例也会被绘制。将 alpha 参数包装在 I() 中会导致其失败。

有没有一种方法可以做到这一点而没有缺点？

Answer 1

您可以对数据进行子集化。

qplot(..., data=subset(tdata, val > 0), ...) 
qplot(cat1,cat2,data=subset(tdata, val >0),geom="tile",fill=val)