r - ggplot2 颜色条具有不连续跳跃的倾斜数据

Question

这是一些假数据，x和 y , 带有颜色信息 z . z高度偏斜，因此使颜色条无法提供信息:

set.seed(1)
N <- 100
x <- rnorm(N)
y <- x + rnorm(N)
z <- x+y+rnorm(N)
z[z>2] <- z[z>2]+exp(z[z>2]-2)
d <- data.frame(x,y,z)
ggplot(d, aes(x=x, y=y, color = z)) + geom_point()

我想让大部分颜色条反射(reflect)数据的主要范围，但有一个溢出框，比如上面 5。像这样:



有没有办法在 ggplot2 中做到这一点？请注意，我希望颜色条在其大部分范围内保持连续，而不是离散。如果我想要的不可行，我可能会离散化或顶部编码。

Answer 1

您可以获得该一般情节，尽管传说需要更多工作:

p <- ggplot(d, aes(x=x, y=y, color = z)) + geom_point(size = 5)

p + scale_color_gradient2(
  low = 'green', high = 'red', mid = 'grey80', na.value = 'blue', limits= c(-10, 10)
)

您可以在一些额外的传奇绒毛中作弊，例如:

ggplot(d, aes(x=x, y=y, color = z, alpha = '>10')) + 
  geom_point(size = 5) +
  scale_color_gradient2(
    low = 'green', high = 'red', mid = 'grey80', na.value = 'blue', limits= c(-10, 10),
    guide = guide_colorbar(title.position = 'left')
  ) +
  scale_alpha_manual(
    values = 1, name = 'z', 
    guide = guide_legend(
      override.aes = list(color = 'blue'), title.position = 'left', 
      title.theme = element_text(color = 'white', angle = 0)
    )
  ) +
  theme(legend.margin = margin(-5, 10, -5, 10))

请注意，红色/绿色托盘对颜色受损的人不利。