构造数据字段:
d <- transform(expand.grid(x=seq(-2,2,length=51),
y=seq(-2,2,length=51)),z=x^2+3*x*y+4*x+2*y+2*y^2)
做一个基本的geom_contour
每个级别的绘图颜色不同:
g1 <- qplot(x,y,z=z,data=d,colour=factor(..level..),geom="contour")
现在去掉除“0”电平以外的所有线。这取决于stat_contour
选择零作为其轮廓水平之一,这在某些情况下可能很脆弱......(对我来说这并不明显stat_contour()
允许控制选择什么级别,相当于levels
论证contour()
or contourLines()
在基础 R 中——如果是的话,这个过程会更容易一些。人们可以将愿望清单项目提交至https://github.com/hadley/ggplot2/issues,如果有人足够关心这一点......)
g1 + scale_colour_discrete(breaks="0",limits=c("0","0"),na.value=NA,
guide="none")