舍入所有数字列，但表中只有一个

Question

我已经从 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 位？

谢谢

Answer 1

如果您真的想要 除 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 的推广方式。