0

我正在绘制等高线图，我使用等高线的大小和颜色来描绘相关信息。这是基于 stat_contour 文档的等效最小示例： 

require(ggplot2)

volcano3d <- melt(volcano) 
names(volcano3d) <- c("x", "y", "z") 
v <- ggplot(volcano3d, aes(x, y, z = z)) 
TransBinary = Trans$new("TransBinary",f=function(x){ifelse(x>124,1,0)})
# under 2.15: TransBinary = trans_new("TransBinary",transform=function(x){ifelse(x>0,1,0)},inverse=FALSE)

v + 
  stat_contour(aes(colour=..level..,size=..level..)) + 
  scale_colour_gradient(high="black",low="grey",trans=TransBinary,legend=FALSE) + 
  scale_size("size")

这正是我正在寻找的东西：一个等高线图，其中较高的 z 值显示为较大的线，并且在 z 的某个值（这里是中位数）处有一个阈值，低于该阈值的线条为灰色，高于该阈值它们是黑色的。

唯一的皱纹是生成的图例显示了线条大小，但图例中的所有线条都是黑色的（不足为奇）。

有没有办法让 ggplot 在图例中也将线条绘制为灰色/黑色？

4

1 回答 1

2

您可以使用仲裁调色板，因此您需要的是：

th <- rescale(c(124, volcano3d$z))[1]
sc <- continuous_scale("colour", "", palette = function(x) {ifelse(x > th, "black", "grey")})

v + 
 stat_contour(aes(colour=..level..,size=..level..)) + 
 sc+
 scale_size("size") + labs(colour = "size")

在此处输入图像描述

请注意，这可能仅适用于 ggplot2 0.9。

于 2012-04-23T08:28:44.080 回答