使用 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)