Округление до ближайшего 0 или 5 в gtsummary outputbale

Мне нужна помощь в округлении последней цифры до 0 или 5 в выходной таблице gtsummary. Буду признателен за любую оказанную помощь

library(tidyverse)
library(gtsummary)

data %>% 
tbl_summary(
  by = hba1c,
  include = -id
)

вот данные

structure(list(id = 1:100, age = c("a", "a", "b", "a", "b", "b", 
"b", "c", "c", "c", "a", "a", "b", "a", "b", "b", "b", "c", "c", 
"c", "a", "a", "b", "a", "b", "b", "b", "c", "c", "c", "a", "a", 
"b", "a", "b", "b", "b", "c", "c", "c", "a", "a", "b", "a", "b", 
"b", "b", "c", "c", "c", "a", "a", "b", "a", "b", "b", "b", "c", 
"c", "c", "a", "a", "b", "a", "b", "b", "b", "c", "c", "c", "a", 
"a", "b", "a", "b", "b", "b", "c", "c", "c", "a", "a", "b", "a", 
"b", "b", "b", "c", "c", "c", "a", "a", "b", "a", "b", "b", "b", 
"c", "c", "c"), sex = c("M", "F", "M", "M", "M", "F", "F", "F", 
"F", "M", "F", "M", "M", "M", "F", "F", "F", "F", "M", "F", "M", 
"M", "M", "F", "F", "F", "F", "M", "F", "M", "M", "M", "F", "F", 
"F", "F", "M", "F", "M", "M", "M", "F", "F", "F", "F", "M", "F", 
"M", "M", "M", "F", "F", "F", "F", "M", "F", "M", "M", "M", "F", 
"F", "F", "F", "M", "F", "M", "M", "M", "F", "F", "F", "F", "M", 
"M", "F", "F", "F", "F", "M", "F", "M", "M", "M", "F", "F", "F", 
"F", "M", "M", "F", "F", "F", "F", "M", "F", "M", "M", "M", "F", 
"F"), country = c("eng", "eng", "eng", "eng", "wale", "wale", 
"wale", "scot", "scot", "scot", "eng", "eng", "eng", "eng", "wale", 
"wale", "wale", "scot", "scot", "scot", "eng", "eng", "eng", 
"eng", "wale", "wale", "wale", "scot", "scot", "scot", "eng", 
"eng", "eng", "eng", "wale", "wale", "wale", "scot", "scot", 
"scot", "eng", "eng", "eng", "eng", "wale", "wale", "wale", "scot", 
"scot", "scot", "eng", "eng", "eng", "eng", "wale", "wale", "wale", 
"scot", "scot", "scot", "eng", "eng", "eng", "eng", "wale", "wale", 
"wale", "scot", "scot", "scot", "eng", "eng", "eng", "eng", "wale", 
"wale", "wale", "scot", "scot", "scot", "eng", "eng", "eng", 
"eng", "wale", "wale", "wale", "scot", "scot", "scot", "eng", 
"eng", "eng", "eng", "wale", "wale", "wale", "scot", "scot", 
"scot"), edu = c("x", "x", "x", "y", "y", "y", "z", "z", "z", 
"z", "x", "x", "x", "y", "y", "y", "z", "z", "z", "z", "x", "x", 
"x", "y", "y", "y", "z", "z", "z", "z", "x", "x", "x", "y", "y", 
"y", "z", "z", "z", "z", "x", "x", "x", "y", "y", "y", "z", "z", 
"z", "z", "x", "x", "x", "y", "y", "y", "z", "z", "z", "z", "x", 
"x", "x", "y", "y", "y", "z", "z", "z", "z", "x", "x", "x", "y", 
"y", "y", "z", "z", "z", "z", "x", "x", "x", "y", "y", "y", "z", 
"z", "z", "z", "x", "x", "x", "y", "y", "y", "z", "z", "z", "z"
), hba1c = c(1L, 1L, 1L, 1L, 1L, 1L, NA, NA, NA, 1L, 1L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, NA, NA, NA, NA, NA, NA, 
0L, 0L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, NA, NA, NA, NA, NA, NA, NA, NA, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 0L, 
0L, 0L, 1L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 0L, 1L, 
NA, NA, NA, NA, NA, 1L, 1L, 1L)), class = "data.frame", row.names = c(NA, 
-100L))

r stat gtsummary

27.06.2024 11:37

Стоит ли изучать PHP в 2023-2024 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Для этого вы можете создать свою собственную функцию стиля.

round_05 <- function(x) {
  ceiling(x/5) * 5
}

А затем используйте его в своем вызове tbl_summary, чтобы округлить частоты, сохранив проценты как есть. Если вы тоже хотите округлить проценты, создайте еще одну аналогичную функцию, которая сначала умножает x на 100, и замените «0» этой функцией.

df %>% 
  tbl_summary(
    by = hba1c,
    include = -id,
    digits=list(everything() ~ c(round_05, 0))
    # digits=list(everything() ~ c(round_05, round_pct))
  )

Спасибо за вашу помощь. это сработало. просто хочу уточнить, хочу ли я добавить add_n в свой код, а также хочу, чтобы здесь было округление, так как мне изменить этот код df %>% tbl_summary( by = hba1c, include = -id, digits=list(everything( ) ~ c(round_05, 0)) # digits=list(everything() ~ c(round_05, round_pct)) ) %>% add_n()

— 27.06.2024 15:52

Это должно сработать. Но обратите внимание, что округление n до 0 или 5 почти наверняка приведет к тому, что эти суммы не прибавятся к общему «N».

— 28.06.2024 01:32

Спасибо за ваш ответ. это не сработало.

— 28.06.2024 10:07

Попробуйте это: df %>% tbl_summary(by=hba1c, include=-id, digits=list(everything() ~ c(round_05, 0))) %>% add_n()

— 28.06.2024 10:21

спасибо, извините, я не достаточно ясно выразился. округление работает для hb1c= 0 и hba1c =1, но округление не работает для столбца n, т.е. add_n()

— 28.06.2024 12:39

AFAICT, add_n() не поддерживает функцию стилизации.

— 28.06.2024 12:43

есть ли способ это исправить?

— 28.06.2024 12:46

Я думаю, вам стоит попробовать задать это в другом вопросе.

— 28.06.2024 14:24

спасибо, я сделаю это. просто хотел спросить, как я могу добавить разделитель-запятую в моем формате чисел в этом сводном выводе, поскольку у меня довольно большое число

— 30.06.2024 19:12

В функции round_05 измените на: prettyNum(ceiling(x/5) * 5, big.mark = ",")

— 01.07.2024 01:24

@ Эдвард, спасибо, это сработало

— 02.07.2024 19:01

27.06.2024 12:02