R 在直方图中绘制小范围数据

我的数据主要集中在一个小范围内，但有大量的点超出了这个范围。我想为这些数据绘制一个直方图，它将集中在小范围内，但也将显示异常值。类似于柱状图的对数刻度，与此进行比较

require（latticeExtra）
这里有一个2000 x 4的矩阵。你是说这是一个来自单个人群的8000个样本吗？你能解释一下你需要什么样的解决方案不能用你提到的帖子中提出的解决方案实现吗？图中的每个直方图都有与链接帖子相同的问题。
require(latticeExtra)
n<-1000
m<-matrix(c(rnorm(n,240,56),rnorm(n,47,13),rnorm(n,23,7),rnorm(n,8.7,3)),nrow=n)
m<-rbind(m, matrix(c(rnorm(n,385,78), rnorm(n,160,32), rnorm(n,4,.8), rnorm(n,.6,.12)), nrow=n))
grid<-data.frame(ev=m,model=rep(c("A","B"),each=n))

  histogram(~c(ev.1,ev.2,ev.3,ev.4)|model
      ,data=grid
      ,layout=c(2,1), xlab = "",ylab=""
      ,type=c("density")
      #,par.settings = list(superpose.polygon=list(alpha=c(.5,.5,.5,.5)))
      ,panel=function(x,subscripts=subscripts,...){
         panel.grid()
         x<-matrix(x,nrow=n)
         panel.histogram(x[,1],...,col=4,alpha=.5)
         panel.histogram(x[,2],...,col=2,alpha=.5)
         panel.histogram(x[,3],...,col=5,alpha=.5)
         panel.histogram(x[,4],...,col=7,alpha=.5)
         }

)