小编Dan*_*erg的帖子

我正在尝试使用 tbl_summary ()\n \ trial[c("trt", "age", "stage", "grade")] %>%n 中的函数 sort = list (stage ~ "alphanumeric ") 更改 \xd1\x81characteristic 表列中的行顺序tbl_summary(by = trt, sort = list (grade ~ "alphanumeric"))。这不起作用。\n我想看看（例如：T3、T 4、T1、T2 和 III 级 -> I 阶段）

我是在 R 和 RStudio 中使用 Quarto 制作 Revealjs 幻灯片的新手。我想在具有默认 gt 样式的幻灯片上包含一个 {gt} 表 ( https://gt.rstudio.com/ )。但我遇到的问题是该表是 HTML，并且从演示文稿 CSS 继承了自定义 CSS 样式。

例如，呈现的表格如下所示：字体不是默认的 gt 字体以及其他一些小样式。

---
format: 
  revealjs: 
    theme: [night]
    highlight-style: a11y
    transition: fade
    slide-number: true
    chalkboard: true
execute:
  freeze: auto
---

我尝试过的让我接近的一件事是将knit_print()gt 表的默认方法覆盖为 1. 将表转换为图像gt::gtsave()，然后 2. 使用 {magick} pkg 将图像转换为 ggplot，然后 3. knit_print() ggplot。但它在图像的左侧和右侧增加了空白。

library(tidyverse)
library(gtsummary)
library(knitr)

knit_print.gt_tbl <- function(x, ...) {
  # save gt as image -----------------------------------------------------------
  path_gt_table_image <- fs::file_temp(ext = "png")
  gt_table_image <- …

我有一个连续变量，其中有很大比例的未知数。我的顾问要求我将百分比放在该栏中的旁边。这个 reprex 模仿了我想做的事情。

library(tidyverse)
library(gtsummary)

  trial %>%       # included with gtsummary package
  select(trt, age, grade) %>%
  tbl_summary()

我试图将未知数的百分比列在未知数旁边，最好放在括号中。看起来像 11 (5.5%)。

有些人回复了关于丢失的数据如何出现在我的数据集中的请求，这是一个表示

library(gtsummary)
library(tidyverse)
#> Warning: package 'tibble' was built under R version 4.0.3
#> Warning: package 'readr' was built under R version 4.0.3
library(gtsummary)

df<-
  tibble::tribble(
               ~age,       ~sex,  ~race,          ~weight,
  70, "male",  "white",       50,
  57, "female", "african-american",   87,
  64,  "male",  "white",              NA,
  46,  "male",  "white", 49,
  87,  "male",  "hispanic", 51
  )

df %>%
  select(age,sex,race,weight) %>%
  tbl_summary(type = list(age ~ "continuous", …

我正在使用该gt包制作表格广告并将其保存为 .RTF。我正在使用函数 gt::gtsave() 但保存的表格看起来与我的查看器中的表格或输出到 HTML 的表格非常不同。

Lin：我正在使用的文档 https://gt.rstudio.com/reference/gtsave.html

这是我正在做的桌子

library(gt)
library(tidyverse)
library(glue)

# Define the start and end dates for the data range
start_date <- "2010-06-07"
end_date <- "2010-06-14"

# Create a gt table based on preprocessed
# `sp500` table data
tab <- sp500 %>%
  filter(date >= start_date & date <= end_date) %>%
  select(-adj_close) %>%
  gt() %>%
  tab_header(
    title = "S&P 500",
    subtitle = glue("{start_date} to {end_date}")
  ) %>%
  fmt_date(
    columns = date,
    date_style = 3
  ) %>% …

是否可以使用演示者备注打印 xaringan 幻灯片？

我知道我可以使用这些方法打印幻灯片（https://github.com/yihui/xaringan/wiki/Export-Slides-to-PDF）。但是我无法将演示者笔记打印出来。

谢谢！

我只想为百分比列添加小数

#分离列库(gtsummary) 库(tidyverse)

tbl <- 
  c("{n}", "{p}%") %>%         # iterate over these two statistics
  # build tbl_summary using each of the stats
  map(
    ~trial %>% 
      select(response, grade) %>% 
      tbl_summary(
        statistic = all_categorical() ~ .x,
        missing = "ifany",
    digits = list(
      all_categorical() ~ 1,
      all_continuous() ~ 0
    ),
    missing_text = "(Missing)"
      ) 
  ) %>%
  # merge the two tables together
   tbl_merge() %>%
  # some formatting to make it cute
  modify_spanning_header(everything() ~ NA) %>%
  modify_footnote(everything() ~ NA) %>%
  modify_header(list(stat_0_1 ~ "**n / …

当我尝试使用 add_p() 函数获取 by 变量（有 10 个级别）和有两个级别的分类变量（是/否）之间差异的 p 值时，出现以下错误。我不确定如何提供可重现的示例。根据试验数据，我想象我的变量将是具有 10 个级别的“T 阶段”变量，分类变量将是：(1)“化疗治疗”具有 2 个级别，(2)“化疗治疗 2”具有 4 个级别水平。但这是我运行的代码。

library(gtsummary)
library(tidyverse)
miro_def %>% 
  select(mheim, age_dx, time_t1d_yrs, gender, collard, fhist_pandz) %>% 
  tbl_summary(by = mheim, missing = "no",
              type = list(c(gender, collard, fhist_pandz, mheim) ~ "categorical"),
              label = list(gender ~ "Gender", 
                           fhist_pandz ~ "Family history of PD", 
                           age_dx ~ "Age at diagnosis", 
                           time_t1d_yrs ~ "Follow-up(years)")) %>% 
  add_p() %>% 
  # style the output with custom header 
  #modify_header(stat_by = "{level}") %>% 
  # convert to …

我有一个标有 Hmisc R 包的列。列的类是c("labelled", "numeric")。如果我计算median()整个列的 ，返回的中位数仍然是c("labelled", "numeric")。

但是，如果我median()在两个子组中计算了，则一个中位数返回同一个类，但另一个返回为 class "numeric"。返回的不同类导致dplyr::summarize().

1. 谁能帮我理解为什么班级会发生变化？
2. 我能做些什么来解决这个问题？仅供参考，此代码出现在包的内部，我想避免对标有 Hmisc 的变量进行特殊编码。

library(magrittr)

data <-
  structure(
    list(
      cd4_count = c(
        30, 97, 210, NA, 358, 242, 126,
        792, 6, 145, 22, 150, 43, 23, 39, 953, 357, 427, 367, 239, 72,
        61, 61, 438, 392, 1092, 245, 326, 42, 135, 199, 158, 17, NA,
        287, 187, 252, 477, 157, NA, NA, 362, NA, 183, 885, 109, 321, …

我有如下数据集

> head(n2)
# A tibble: 6 x 4
  Pain  Redness Swelling Tiredness
  <fct> <chr>   <chr>    <chr>    
1 Yes   No      No       Yes      
2 No    No      No       No       
3 Yes   No      No       Yes      
4 Yes   No      Yes      Yes      
5 No    No      No       No       
6 No    No      No       No        

我正在尝试使用 gtsummary 包制作一个汇总表。但在汇总表中，它没有显示或变量Pain的“是”/“否”级别，而只是显示每列的计数。有人可以帮忙显示表中的“是”/“否”级别吗RednessSwellingYes

我正在尝试创建一个患者特征表（表 1），该表有效，但由于我的“by”变量有 10 个类别，因此它会溢出 PDF 页面。

我尝试截断类别名称，并将页面布局更改为横向，但 1 个类别仍然不在页面上。

您能告诉我如何解决这个问题吗？

有没有办法可以打印默认情况下出现在列标题上的 N 和 N(%) ，使其出现在列名称的正下方，而不是位于同一行，从而减少宽度？例如，您的示例中的内容是：

药物 A，N = 98 (49%)1 药物 B，N = 102 (51%)1

成为：

药物A _ _ _ _ _ _ _ _ _药物B

N = 98 (49%)1 _ _ _ _ _ N = 102 (51%)1

谢谢