可以查查boxplot

这个有点像龙卷风图

可以参考
library(arm)
library(RGraphics)
old.par <- par(no.readonly = TRUE)
     
      y1 <- rnorm(1000,50,23)
      y2 <- rbinom(1000,1,prob=0.72)
      x1 <- rnorm(1000,50,2)
      x2 <- rbinom(1000,1,prob=0.63)
      x3 <- rpois(1000, 2)
      x4 <- runif(1000,40,100)
      x5 <- rbeta(1000,2,2)
      
      longnames <- c("a long name01","a long name02","a long name03",
                     "a long name04","a long name05")
     
      fit1 <- lm(y1 ~ x1 + x2 + x3 + x4 + x5)
      fit2 <- glm(y2 ~ x1 + x2 + x3 + x4 + x5,
                 family=binomial(link="logit"))
      op <- par()
      # plot 1
      par (mfrow=c(2,2))
      coefplot(fit1)
      coefplot(fit2, col.pts="blue")