如何使用填充渐变来修改图例中图例中的颜色？

Question

跟随这个问题 ，您将如何修改等高线图例的颜色？

这是生成图的方法：

x <- rep(seq(0.01, 0.1, length.out = 50), 50)
y <- rep(seq(0.01, 0.1, length.out = 50), each = 50)
z <- 1 / (x^2 + y^2)

my.data <- data.frame(x, y, z)

ggplot(my.data, aes(x = x, y = y, fill = z)) +
  geom_tile() +
  scale_fill_gradientn(colours = c("blue",
                                   "cyan",
                                   "green",
                                   "yellow",
                                   "orange",
                                   "red"),
                       values = rescale(c(0.3, 1, 2, 5, 10, 20, 35))) +
  scale_x_continuous(expand = c(0, 0)) +
  scale_y_continuous(expand = c(0, 0))

结果如下：

我希望能够手动设置颜色（我知道如何在休息时进行设置），以使其更具可读性。 在上面的示例中，您不能过多提及较低的值，这可能是最令人感兴趣的。图例中甚至没有出现蓝色。

Answer 1

看来您的values=...搞砸了。 阅读文档并尝试使用values函数，看起来就像通过指定范围，您可以为每种颜色赋予更少/更多的权重。 我认为您遇到的问题是，颜色仍然保留在图例中，但是由于根据您的values调用而对它们进行了“加权”，所以它们不可见（也就是说，它们在那里，但是他们只是传说中的一小部分）。

如果尝试为values=...一个极值，则可以尝试一下。 在此示例中，我使用100：

ggplot(my.data) +
  geom_tile(aes(x = x, y = y, fill = z)) +
  scale_fill_gradientn(colours = c("blue",
                                   "cyan",
                                   "green",
                                   "yellow",
                                   "orange",
                                   "red"),
                       values = rescale(c(0.3, 1, 2, 5, 10, 20, 100))) +
  scale_x_continuous(expand = c(0, 0)) +
  scale_y_continuous(expand = c(0, 0))

您可以看到基本上整个图例都由红色取代，此外，情节中还有更多红色。

要更正您的问题，您可以尝试使用没有values=...例如：

ggplot(my.data) +
  geom_tile(aes(x = x, y = y, fill = z)) +
  scale_fill_gradientn(colours = c("blue",
                                   "cyan",
                                   "green",
                                   "yellow",
                                   "orange",
                                   "red"))+
  scale_x_continuous(expand = c(0, 0)) +
  scale_y_continuous(expand = c(0, 0))

然后您可以看到图例中有蓝色，但是图中有更多蓝色。 这是数据的人工产物。 如果您尝试quantile(my.data$z,c(seq(0,1,by=0.05)))您会看到第95个百分位数是quantile(my.data$z,c(seq(0,1,by=0.05)))最大值是5000。如您在图例中看到的z值不足1000的蓝色填充（这是您数据的95％！）。

如果您希望它的蓝色较少，则可以再次弄乱这些values （我不建议这样做-您可能希望准确表示数据）。 像这样：

ggplot(my.data) +
  geom_tile(aes(x = x, y = y, fill = z)) +
  scale_fill_gradientn(colours = c("blue",
                                   "cyan",
                                   "green",
                                   "yellow",
                                   "orange",
                                   "red"),
                       values =rescale(c(0.3, 3, 4, 5, 10, 20, 35))) +
  scale_x_continuous(expand = c(0, 0)) +
  scale_y_continuous(expand = c(0, 0))

另外，我认为这是一个更好的解决方案，您可以摆脱离群值，从而使绘图不偏斜。 现在，没有values操作的ggplot函数可以准确地表示您的数据。