示例问题是“航空公司 AA、EV 和 FL 的平均航班距离是多少？”我需要显示 2 个小数位

如何解决示例问题是“航空公司 AA、EV 和 FL 的平均航班距离是多少？”我需要显示 2 个小数位

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

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

这给出了答案 1340. 、 563. 和 665.

为了正确回答问题，我们需要精确到小数点后两位，即 1340.24 等。

如何让这些数字输出小数点后两位？

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

解决方法

精度仍在输出中。唯一的区别在于 print 格式与 tibble

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

---

如果我们担心 print，请更改 options

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