R 例如，问题是；航空公司AA、EV和FL的平均飞行距离是多少；我需要显示小数点后2位

我有一个代码，我需要得到技术上正确的答案，我会把它放在下面

        filter(carrier == "AA" | carrier == "EV" |carrier == "FL") %>%
        group_by(carrier) %>%
        summarise(average_dist = mean(distance))

这给出了1340的答案，563. , 和665

为了答对这个问题，我们需要精确到小数点后2位，即1340.24等

如何使这些数字输出到小数点后2位

---

我知道我可以将其转换为数据帧，但我不确定最好的方法。

精度仍在输出中。唯一的区别在于

print

格式与

tible

library(nycflights13)
library(dplyr)
out <- flights %>%   
    filter(carrier == "AA" | carrier == "EV" |carrier == "FL") %>%            
    group_by(carrier) %>%
    summarise(average_dist = mean(distance))
out
# A tibble: 3 x 2
#  carrier average_dist
#  <chr>          <dbl>
#1 AA             1340.
#2 EV              563.
#3 FL              665.
out$average_dist
#[1] 1340.2360  562.9917  664.8294

---

这只是控制台上的打印。如果你提取输出，它会有精确性谢谢，这就是我所需要的，我想他让我们转换成数据变得更困难了frames@Natalie如果有效，请考虑检查。

options(pillar.sigfig = 5)
flights %>% 
     filter(carrier == "AA" | carrier == "EV" |carrier == "FL") %>%
     group_by(carrier) %>%
     summarise(average_dist = mean(distance))
# A tibble: 3 x 2
#  carrier average_dist
#  <chr>          <dbl>
#1 AA           1340.2 
#2 EV            562.99
#3 FL            664.83