R直方图如何删除条之间的填充（由mvn（）创建）

我用这个函数来测试单变量和多变量的正态性。有了它，函数就可以将排列得很好的柱状图发送到一个大的绘图中

但是我不明白直方图中创建的填充。前两个栏彼此紧密对齐，然后是填充/空白，另一个栏，然后是填充/空白。如何删除直方图条之间的填充

最小可重复性Exmaple:

# MRE
library(MVN)
library(dplyr)

df <- abs(round(iris %>% select(c(1:4)) - 3))
normality<-mvn(data= df, mvnTest="hz",univariateTest="SW",desc=TRUE,univariatePlot="histogram")
normality$univariateNormality
normality$multivariateNormality

> str(normality)
List of 3
 $ multivariateNormality:'data.frame':  1 obs. of  4 variables:
  ..$ Test   : Factor w/ 1 level "Henze-Zirkler": 1
  ..$ HZ     : num 7.59
  ..$ p value: num 0
  ..$ MVN    : Factor w/ 1 level "NO": 1
 $ univariateNormality  :'data.frame':  4 obs. of  5 variables:
  ..$ Test     : 'AsIs' chr [1:4] "Shapiro-Wilk" "Shapiro-Wilk" "Shapiro-Wilk" "Shapiro-Wilk"
  ..$ Variable : 'AsIs' chr [1:4] "Sepal.Length" "Sepal.Width " "Petal.Length" "Petal.Width "
  ..$ Statistic: 'AsIs' chr [1:4] "   0.8739" "   0.4896" "   0.8530" "   0.8297"
  ..$ p value  : 'AsIs' chr [1:4] " <0.001  " " <0.001  " " <0.001  " " <0.001  "
  ..$ Normality: 'AsIs' chr [1:4] "   NO    " "   NO    " "   NO    " "   NO    "
 $ Descriptives         :'data.frame':  4 obs. of  10 variables:
  ..$ n       : int [1:4] 150 150 150 150
  ..$ Mean    : num [1:4] 2.85 0.2 1.88 1.95
  ..$ Std.Dev : num [1:4] 0.9 0.401 0.785 0.854
  ..$ Median  : num [1:4] 3 0 2 2
  ..$ Min     : num [1:4] 1 0 0 0
  ..$ Max     : num [1:4] 5 1 4 3
  ..$ 25th    : num [1:4] 2 0 1 1
  ..$ 75th    : num [1:4] 3 0 2 3
  ..$ Skew    : num [1:4] 0.398 1.485 0.128 -0.105
  ..$ Kurtosis: num [1:4] -0.423 0.207 0.483 -1.223