主页 / coding / 问题 / 78428992
Accepted
Mohan
Asked: 2024-05-04 20:35:19 +0800 CST

如何格式化 geom_text_contour 显示的文本？

  • 772

微量元素：

library(metR)

heat_palette = c("darkred", "red", "yellow", "#00A600", "darkgreen")

heatmap_of_percentage <- function(percent) {
  # display <- sprintf("%2f%%", {{percent}})  
  # ^^ If I uncomment this, I get a bug
  c(
    geom_raster(aes(fill = {{percent}})),
    geom_contour(aes(z = {{percent}}), color = "black"),
    geom_text_contour(aes(z = {{percent}}), color = "black", stroke = 0.2),
    scale_fill_gradientn(limits = c(0, 100), colours = heat_palette)
  )
}
  
df <- expand.grid(x = 1:100, y = 1:100)
df$Z <- df$x * df$y / 100

ggplot(df, aes(x = x, y = y)) + 
  heatmap_of_percentage(percent = Z)

产生

在此输入图像描述

我想修改它，以便轮廓被标记为 10%、30% 等。我该如何做到这一点，仅修改heatmap_of_percentage（即不在调用代码中添加额外的列）？

1 个回答

  1. Best Answer

    您可以使用格式化与底层计算的after_stat()值相对应的标签：levelgeom_text_contour

    library(metR)
library(ggplot2)

heat_palette <- c("darkred", "red", "yellow", "#00A600", "darkgreen")

heatmap_of_percentage <- function(percent) {
  c(
    geom_raster(aes(fill = {{ percent }})),
    geom_contour(aes(z = {{ percent }}), color = "black"),
    geom_text_contour(
      aes(
        z = {{ percent }},
        label = after_stat(sprintf("%.0f%%", level))
      ),
      color = "black", stroke = 0.2
    ),
    scale_fill_gradientn(limits = c(0, 100), colours = heat_palette)
  )
}

df <- expand.grid(x = 1:100, y = 1:100)
df$Z <- df$x * df$y / 100

ggplot(df, aes(x = x, y = y)) +
  heatmap_of_percentage(percent = Z)

    • 1

相关问题