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)