Я занимаюсь разработкой таблицы характеристик участников (которая обычно называется Таблицей 1), и я хотел бы сохранить десятичные точки для значений%, которые меньше 1, например 0,5%, чтобы остаться 0,5%, и 0 десятичных точек для значений > = 1, например, 1,4% будет 1% или 56,2% будет 56%. Ниже приведен пример таблицы, которая у меня есть:
Intervention A Intervention B
Female 43 (21.5%) 47 (23.5%)
Alive 56 (28%) 59 (29.5%)
TB + 15 (7.5%) 1 (0.5%)
Я хотел бы отформатировать таблицу как-нибудь еще:
Intervention A Intervention B
Female 43 (22%) 47 (24%)
Alive 56 (28%) 59 (30%)
TB + 15 (8%) 1 (0.5%)
Код, который у меня сейчас есть, такой:
my.render.cat <- function(x) {
c("", sapply(stats.default(x), function(y) with(y,
sprintf("%d (%0.0f%%)", FREQ, PCT))))
}
Изменяет все значения на 0 десятичных знаков. Как включить условие if и указать, что если значение <1%, оно остается прежним? </p>