用文本标记比例填充渐变图例的最小值和最大值：ggplot2

Question

我在ggplot2 中创建了一个使用scale_fill_gradientn 的情节。我想在比例图例的最小值和最大值处添加文本。例如，在图例最小值处显示“Minimum”，在图例最大值处显示“Maximum”。有些帖子使用离散填充并添加带有数字而不是文本的标签（例如here），但我不确定如何使用labels 功能和scale_fill_gradientn 仅在最小值和最大值处插入文本。目前我很容易出错：

Error in scale_labels.continuous(scale, breaks) : 
Breaks and labels are different lengths

这种类型的比例/填充是否可以在 ggplot2 中使用此文本标签？

# The example code here produces an plot for illustrative purposes only.
# create data frame, from ggplot2 documentation
df <- expand.grid(x = 0:5, y = 0:5) 
df$z <- runif(nrow(df))

#plot
ggplot(df, aes(x, y, fill = z)) + geom_raster() + 
scale_fill_gradientn(colours=topo.colors(7),na.value = "transparent")

Answer 1

对于scale_fill_gradientn()，您应该提供两个参数：breaks= 和labels=，长度相同。使用参数limits=，您可以将颜色条扩展到您需要的最小值和最大值。

ggplot(df, aes(x, y, fill = z)) + geom_raster() + 
      scale_fill_gradientn(colours=topo.colors(7),na.value = "transparent",
                           breaks=c(0,0.5,1),labels=c("Minimum",0.5,"Maximum"),
                           limits=c(0,1))

Answer 2

User Didzis Elfert's answer 在我看来略微缺乏“自动化”（但它当然指向问题的核心 +1 :)。 这里有一个以编程方式定义数据的最小值和最大值的选项。

优点：

• 您不再需要对值进行硬编码（这很容易出错）
• 您不需要硬编码限制（这也容易出错）
• 传递命名向量：您不需要标签参数（手动将标签映射到值也容易出错）。
• 作为副作用，您将避免“标签不匹配/中断”问题

library(ggplot2)
foo <- expand.grid(x = 0:5, y = 0:5)
foo$z <- runif(nrow(foo))

myfuns <- list(Minimum = min, Mean = mean, Maximum = max)

ls_val <- unlist(lapply(myfuns, function(f) f(foo$z)))

# you only need to set the breaks argument! 
ggplot(foo, aes(x, y, fill = z)) +
  geom_raster() +
  scale_fill_gradientn(
    colours = topo.colors(7),
    breaks = ls_val
  )

# You can obviously also replace the middle value with sth else

ls_val[2] <- 0.5
names(ls_val)[2] <- 0.5

ggplot(foo, aes(x, y, fill = z)) +
  geom_raster() +
  scale_fill_gradientn(
    colours = topo.colors(7),
    breaks = ls_val
  )