主页 / coding / 问题 / 77325641
Accepted
Quinten
Asked: 2023-10-20 00:39:50 +0800 CST

如何在所有填充美学上使用 after_stat 到一个比例

  • 772

我想使用after_stat(ndensity)缩放到最大值 1，如下所述：

after_stat(n密度) 密度，缩放至最大值 1。

当我们以fill审美的方式使用它时，它当然会fill单独缩放每个数据，但我想知道是否可以使用它after_stat来缩放完整的数据，以便将所有fill密度组合在一起。这是一些可重现的示例：

library(ggplot2)
ggplot(iris, aes(x = Sepal.Length, fill = Species)) +
  geom_density(aes(y = after_stat(ndensity)), alpha = 0.4)

创建于 2023-10-19，使用reprex v2.0.2

正如预期的那样，密度最大缩放为 1。但我想知道是否有人知道如何缩放组合，同时分别具有三个密度。这将导致只有一条密度曲线，最大值为 1。我们可以用来ggplot_build修改图层，但我想知道是否有after_stat唯一的选择？

1 个回答

  1. Best Answer

    我不确定我是否正确理解了所需的输出。如果您希望最高曲线的峰值密度等于 1，而其他曲线以相对值显示，我们可以预先计算峰值密度并除以after_stat(density)它：

    library(tidyverse)

div <- iris %>%
  summarize(max = max(density(Sepal.Length)$y), .by = Species) %>%
  pull(max) %>%
  max()

ggplot(iris, aes(x = Sepal.Length, fill = Species)) +
  geom_density(aes(y = after_stat(density/div)), alpha = 0.4)

    在此输入图像描述

    如果您希望曲线堆叠的峰值总密度为 1，那么您可以这样做：

    div <- iris %>%
  reframe(dens = density(Sepal.Length, 
                         from = min(iris$Sepal.Length),
                         to = max(iris$Sepal.Length))$y, 
          xval = seq(min(iris$Sepal.Length), max(iris$Sepal.Length), len = 512), 
          .by = Species) %>%
  group_by(xval) %>%
  summarize(dens = sum(dens)) %>%
  slice_max(order_by = dens, n = 1) %>%
  pull(dens)

ggplot(iris, aes(x = Sepal.Length, fill = Species)) +
  geom_density(aes(y = after_stat(density/div)), position = 'stack', alpha = 0.4)

    在此输入图像描述

    • 2

相关问题