修改ggplot直方图中的某些bin的计数

Question

df <- data.frame(a = round(rnorm(2000, mean=50, sd=5)))
library(ggplot2)
ggplot(df, aes(x=a)) + geom_histogram(binwidth=1)

我想修改ggplot直方图中某些容器的计数（即高度），以便如果容器的计数小于25但大于0，则应将其设置为25。因此，最小非零值计数应该是25。

我正在寻找ggplot解决方案，而不是对数据进行预处理，而是使用条形图。

Answer 1

library(dplyr)
df %>%
  count(bin = floor(a)) %>%
  mutate(n = pmax(25, n)) %>%
  ggplot(aes(bin, n)) + geom_col()

Link to code