格式化data.frame：小數點后3位

Question

我有一個表格，它想格式化為小數點后的 3 位數字。

    V1 <- c( 0.0727904610967749, 0.004670711, 0.022456166020719)
    V2 <- c( 0.08111, NaN, 0.022222)

 # Method 1
    tab <- data.frame(V1=V1, V2=V2)
    tab2 <- format(tab, digits=3)

# Method 2
    is.num <- sapply(tab2, is.numeric)
    tab2[is.num] <- lapply(tab2[is.num], round, 3)

兩者都給我：

這是我期望看到的。 我怎樣才能做到這一點？

Answer 1

另一種選擇是使用dplyr ：

tab %>%
  mutate_if(is.numeric, ~ round(.,3))

或者

tab %>%
  mutate_if(is.numeric, ~ scales::number(., accuracy = 0.001))


#     V1    V2
# 1 0.073 0.081
# 2 0.005  <NA>
# 3 0.022 0.022

Answer 2

您可以將apply與round一起使用：

apply(tab, 2, function(x) round(x, 3))

        V1    V2
[1,] 0.073 0.081
[2,] 0.005   NaN
[3,] 0.022 0.022

apply(tab, 2, f)將 function f應用於tab的每一列（即2代表的內容）。