将 dotwhisker 的图例更改为自定义值 r

Question

I have this sample of code in R, printing a regression model. I am trying to make the legend more readable than true/false. How can input my own text? such as Significant or nonsignificant?

library(nycflights13)
library(dplyr)
library(dotwhisker)
library(MASS)

flights <- nycflights13::flights
flights<- sample_n (flights, 500)

m1<- glm(formula = arr_delay ~ dep_time + origin+ air_time+ distance , data = flights)
#m1<- glm(formula = arr_delay ~ . , data = flights)

m1<- stepAIC(m1)
p<- dotwhisker::dwplot(m1)
p$layers[[1]]$mapping[5] <- aes(color = p.value < 0.05)
p$layers[[2]]$mapping[4] <- aes(color = p.value < 0.05)
p$labels$colour <- "Significant"
p$theme <- list()

z<- p + 
  geom_vline(xintercept=0, linetype="dashed")+
  geom_segment(aes(x=conf.low,y=term,xend=conf.high,
                   yend=term,col=p.value<0.05)) + 
  geom_point(aes(x=estimate,y=term,col=p.value<0.05)) +
  xlab("standardized coefficient") + 
  ylab("coefficient") +
  ggtitle("coefficients in the model and significance")
print(z)

Thanks

Answer 1

You can use scale_color_hue to change the labels.

library(ggplot2)

p + 
  geom_vline(xintercept=0, linetype="dashed")+
  geom_segment(aes(x=conf.low,y=term,xend=conf.high,
                   yend=term,col=p.value<0.05)) + 
  geom_point(aes(x=estimate,y=term,col=p.value<0.05)) +
  xlab("standardized coefficient") + 
  ylab("coefficient") +
  ggtitle("coefficients in the model and significance") + 
  scale_color_hue(labels = c('Significant', 'nonsignificant'))