r - ggplot直方图的极值

Question

我正在尝试使用 ggplot() 绘制直方图但是我无法处理极端值。我希望它们被放在一个垃圾箱中(例如，称为“500 及更多”)。

我试过 scale_x_continuous(breaks = seq(0,500, by = 50))函数，但它只是从 x 轴上删除标签(附在下面)关于如何处理这个问题的任何想法？

Answer 1

我建议在绘图之前计算计数。使用函数 cut()您可以根据需要设置休息时间并使用 geom_bar() 绘制这些数据.在 geom_bar() 中设置 width=1将删除条形之间的空间。

library(dplyr)
library(ggplot2movies)
data("movies")
df<-movies %>% mutate(length.class=cut(length,breaks=c(seq(0,500,50),10000))) %>%
      group_by(length.class) %>% summarise(count=n())

ggplot(df,aes(length.class,count))+geom_bar(stat="identity",width=1)