使用 R nycflights tidyverse，rouding 输出

Question

试图将输出舍入为等于：

1340.24, has to show 2 figures after decimal
1      AA 1340.24
2      EV 562.99
3      FL 664.83

我的输出显示

1 AA        1340.2 
2 EV         562.99
3 FL         664.83

Q1 <- -filter(flights, carrier=="AA" | carrier=="EV" | carrier=="FL" ) %>% group by(carrier)%>% summarise(mean_dest=round((mean(distance)),2))

Answer 1

四舍五入到小数点后两位如何和设置pillar.sigfig?

library(nycflights13)
Q1 <- (flights 
  %>% filter(carrier %in% c("AA", "EV", "FL"))
  %>% group_by(carrier)
  %>% summarise(across(distance, mean))
)

options(pillar.sigfig = 10)
print(Q1 %>% mutate(across(distance, round, 2)))

结果：

# A tibble: 3 × 2
  carrier distance
  <chr>      <dbl>
1 AA       1340.24
2 EV        562.99
3 FL        664.83

尽管 Controlling decimal places displayed in a tibble. Understanding what pillar.sigfig does 的回答指出，如果有尾随零，小数位可能仍无法正确显示 ...

print(Q1 %>% mutate(across(distance, format, digits=1, nsmall =2)))

也有效，尽管它会给您留下引号...

使用 R nycflights tidyverse，rouding 输出

Using R nycflights tidyverse, rouding output

r

tidyverse