我已经从 t 检验和方差分析创建了许多输出表,并且我想对表的所有数字列进行舍入,除了包含 p 值 (p.value) 的列。
当前代码:
library(dplyr)
library(broom)
a <- rnorm(100, 0.75, 0.1)
t.test <- t.test(a, mu = 0.5, alternative = "greater") %>%
broom::tidy() %>%
mutate_if(is.numeric, round, 2)
问题是这也将我的 p 值四舍五入,然后显示为 0。我已经有一个用于报告我的 markdown 文件的 p 值的函数,所以我想知道如何保留 p 值(p .value) 未更改但将所有其他数字列四舍五入为 2 位?
谢谢
最佳答案
如果您真的想要 除 p.value
列 之外的所有数字列,只需确保您的 p.value
列不通过在舍入前将其强制为字符,然后在舍入后返回数字来进行舍入。
library(dplyr)
library(broom)
a <- rnorm(100, 0.75, 0.1)
t.test <- t.test(a, mu = 0.5, alternative = "greater") %>%
broom::tidy() %>%
mutate(p.value = as.character(p.value)) %>%
mutate_if(is.numeric, round, 2) %>%
mutate(p.value = as.numeric(p.value))
t.test
# A tibble: 1 x 8
estimate statistic p.value parameter conf.low conf.high method alternative
<dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <chr> <chr>
1 0.76 28.3 1.52e-49 99 0.74 Inf One Sample t-test greater
如果您只想对某些列进行舍入,那么您可能最好使用 mutate_at
作为@user5249203 的推广方式。
关于舍入所有数字列,但表中只有一个,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/55745572/