Início / coding / Perguntas / 79475342
Accepted
robertspierre
Asked: 2025-02-28 19:16:39 +0800 CST

modelsummary modelplot: alterar largura de linha

  • 772

Considere o seguinte 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)

que resultam em

insira a descrição da imagem aqui

Não consigo descobrir como obter linhas de ticker... Tentei várias combinações de stroke, size etc., mas sem sucesso.

EDITAR:

A maneira de fazer isso no ggplot seria com linewidtho argumento:

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

insira a descrição da imagem aqui

modelplot deve passar argumentos de palavra-chave para geom_pointrange. Conforme escrito nos exemplos :

passe argumentos para 'geom_pointrange' através das reticências ...

Entretanto, o seguinte não funciona:

modelplot(mod, linewidth=100)

3 respostas

  1. Talvez tente desenhar um intervalo de pontos mais espesso por cima, por exemplo

    library(tidyverse)
#install.packages("modelsummary")
library(modelsummary)

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) +
  geom_pointrange(aes(x = estimate, y = term,
                      xmin = conf.low, xmax = conf.high),
                  linewidth = 2, fatten = 8)

    intervalo de pontos

    Criado em 2025-02-28 com reprex v2.1.1

    • 1
  2. Best Answer

    Você pode alterar o p$layers[[1]]$geom$default_aes$linewidthparâmetro diretamente como

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

    fora

    Acabei de olhar para o objeto do enredo p

    objeto de plotagem

    Dados

    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)
    • 1

  3. Você pode passar opções diretamente para modelplot(), e elas serão passadas para geom_pointrange(). Veja?ggplot2::geom_pointrange

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

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,
  size = 1,
  fatten = .7,
  color = "darkgreen",
  linetype = "dotted")

    insira a descrição da imagem aqui

    • 0

relate perguntas