突出显示coefplot中的重要系数

Question

有没有办法改变coefplot情节中仅重要系数的颜色，再说红色呢？

例如（coefplot帮助文件中的图2），

require(coefplot)
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)

# plot 2
longnames <- c("(Intercept)", longnames) 
coefplot(fit1, longnames, intercept=TRUE)

Answer 1

你不一定需要这样做，即使它很好......如果系数图的95％置信区间在任何一方都超过零，那么它在5 ％级别。反之亦然，如果没有，那么从5％的0水平来看，它具有统计显着性。希望有意义！