R是否具有可以缩短图表中较长的垂直线的功能

Question

我正在使用直方图绘制多面包装图，我注意到有一些垂直的长线会影响图表的其余部分，在此我想展示更多。我知道可以手动从行中删除数据并添加向上箭头以指示它们实际到达的距离，但是我想知道R是否具有可以对数据造成最小影响（或没有影响）的功能。我有一些代码，但是我要绘制的数据超过40万条记录，我不确定如何用Rnorm实现显示。

代码：

library(ggplot2)
library(gridExtra)
library(scales)
#_______________________________________________________________________________________________________________
dat <- read.table("C:/Projects/....T2S4.txt",
                    sep="\t", header=TRUE)
df<-data.frame(dat)
df$dist_f <- factor(df$dist, levels=c('Unused','Deducted','Carryover','Used'),ordered=TRUE)

ggplot(df)+
  geom_histogram(aes(x=points,fill=type),bins=50,position="dodge") +
  facet_wrap(.~dist_f,scales="free")+
  labs(x="Points",y="Number of Members")+
  scale_fill_manual(values=c("gray", "indianred4"))+
  theme(axis.title.y = element_text(size="14",margin = margin(t = 0, r = 10, b = 0, l = 0)),axis.title.x = element_text(size="14"),
        axis.text.x=element_text(size=10),axis.text.y=element_text(size=12),legend.title=element_blank(),legend.position=c(0.85, 0.90),
        legend.box.background = element_rect(),legend.box.margin = margin(2, 2, 2, 2),legend.text= element_text(size=12))
grid.rect(width = 1.0, height = 1.0, gp = gpar(lwd = 2.5, col = "black", fill = NA))

图表：