ggplot直方图的极端值

Question

我想绘制使用ggplot()的直方图，但是我无法处理极端值。我希望他们能够在一个垃圾箱内（例如，称为“500以上”）联合起来。

我已经尝试了scale_x_continuous(breaks = seq(0,500, by = 50))函数，但它只是从x轴上删除标签（附后）如何处理这个问题的任何想法？

Answer 1

我会建议在绘图前计算计数。使用功能cut()您可以根据需要设置中断，并使用geom_bar()绘制这些数据。 geom_bar()中的设置宽度= 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)