modelsummary modelplot: change linewidth

Question

Consider the following MWE:

url <- 'https://vincentarelbundock.github.io/Rdatasets/csv/palmerpenguins/penguins.csv'
dat <- read.csv(url)

# rescale mm -> cm
dat$bill_length_cm <- dat$bill_length_mm / 10
dat$flipper_length_cm <- dat$flipper_length_mm / 10

mod <- lm(bill_length_cm ~ flipper_length_cm + species, data = dat)

modelplot(mod)

which result in

I cannot figure out how to obtain ticker lines ... I have tried various combinations of stroke, size eetc. but without success.

EDIT:

The way to do this in ggplot would be with linewidth argument:

modelplot(mod, draw=FALSE) %>% 
  ggplot(dt, aes(x=term, ymin=estimate-std.error, ymax=estimate+std.error, y=estimate)) +
  geom_pointrange(linewidth=10)

modelplot should pass keyword arguments to geom_pointrange. As written in the examples:

pass arguments to 'geom_pointrange' through the ... ellipsis.

However, the following doesn't work:

modelplot(mod, linewidth=100)

Answer 1

You can change the p$layers[[1]]$geom$default_aes$linewidth parameter directly like

p <- modelplot(mod)
p$layers[[1]]$geom$default_aes$linewidth = 1 # set line width up from 0.5
p

---

I just looked at the plot object p

---

Data

dat <- read.csv('https://vincentarelbundock.github.io/Rdatasets/csv/palmerpenguins/penguins.csv')
library(modelsummary)
dat$bill_length_cm <- dat$bill_length_mm / 10 # rescale mm -> cm
dat$flipper_length_cm <- dat$flipper_length_mm / 10
mod <- lm(bill_length_cm ~ flipper_length_cm + species, data = dat)