主页 / coding / 问题 / 79475342
Accepted
robertspierre
Asked: 2025-02-28 19:16:39 +0800 CST

模型摘要模型图：更改线宽

  • 772

考虑以下 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)

导致

在此处输入图片描述

我不知道如何获得股票行情线...我尝试了stroke、size e 等各种组合，但没有成功。

编辑：

在 ggplot 中执行此操作的方法是使用linewidth参数：

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

在此处输入图片描述

modelplot 应该将关键字参数传递给 geom_pointrange。如示例中所写：

通过...省略号将参数传递给“geom_pointrange”。

但是，下面的操作不起作用：

modelplot(mod, linewidth=100)

3 个回答

  1. 也许可以尝试在顶部绘制更粗的点范围，例如

    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)

    点范围

    创建于 2025-02-28，使用reprex v2.1.1

    • 1
  2. Best Answer

    您可以p$layers[[1]]$geom$default_aes$linewidth直接更改参数，例如

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

    出去

    我刚刚看了情节对象 p

    绘图对象

    数据

    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. 你可以直接将选项传递给modelplot()，这些选项将被传递给geom_pointrange()。请参阅?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")

    在此处输入图片描述

    • 0

相关问题