正如在tutorialforgtsummarytbl_regression函数中所建议的那样,我正在使用labelled包为我的回归变量分配属性标签.但是,当我的回归公式包含二次项时,结果表将包含两次相同的变量标签:

library(gtsummary)
library(labelled)
library(tidyverse)

df <- as_tibble(mtcars)

var_label(df) <- list( disp = "Displacement", vs = "Engine type")

c("disp", "disp + I(disp^2)") %>% 
  map(
    ~ paste("vs", .x, sep = " ~ ") %>% 
      as.formula() %>% 
      glm(data = df,
          family = binomial(link = "logit")) %>% 
      tbl_regression(exponentiate = TRUE)) %>% 
  tbl_merge()

Example of gtsummary table

在这种情况下,有没有办法修改二次项的标签?

推荐答案

如果您在tbl_regression()函数中指定标签,您将看到您想要得到的结果.

library(gtsummary)

c("disp", "disp + I(disp^2)") %>% 
  purrr::map(
    ~ paste("vs", .x, sep = " ~ ") %>% 
      as.formula() %>% 
      glm(data = mtcars, family = binomial(link = "logit")) %>% 
      tbl_regression(
        exponentiate = TRUE,
        label = list(
          disp = "Displacement",
          `I(disp^2)` = "Displacement^2"
        )
      )
  ) %>%
  tbl_merge() %>%
  as_kable()
#> ✖ `I(disp^2)` terms have not been found in `x`.
Characteristic OR 95% CI p-value OR 95% CI p-value
Displacement 0.98 0.96, 0.99 0.002 0.99 0.92, 1.07 0.8
Displacement^2 1.00 1.00, 1.00 0.8

创建于2022-09-19年第reprex v2.0.2

R相关问答推荐

在R中为马赛克图中的每个字段着色

在R中使用数据集名称

根据文本字符串中的值粘贴新列

如何同时从多个列表中获取名字?

有效识别长载体中的高/低命中

为了网络分析目的,将数据框转换为长格式列联表

当我们有多个反斜杠和/特殊字符时使用Gsubing

如何从容器函数中提取conf并添加到ggplot2中?

使用RSelenium在R中抓取Reddit时捕获多个标签

从R中发出的咕噜声中的BUG?

如何在R中改变fviz_pca_biplot中圆的边界线的 colored颜色 ?

优化从每个面的栅格中提取值

如何在PrePlot()中将多个元素设置为斜体

删除数据帧中特定行号之间的每第三行和第四行

减少雨云面之间的间距并绘制所有统计数据点

R直方图存储计算的bin值

Ggplot2主题中的背景线

在ggplot中创建一个折线图,根据百分比的变化,线条采用不同的 colored颜色

R:使用For-Loop创建新列

条形图,每组2条