在R中查找航班数据集中的比例

Question

我正在努力学习dplyr，我使用的是nywflights13包。我试图找出从起源(纽约)到目的地(西雅图)的航班比例。

我期待的结果是，

Origin   n     Prop
JFK     2092     53
EWR     1831     47

我能用其他方式做这件事。但我正在寻找使用dplyr包的方法。我试了一下，但没有成功，

 library("nycflights13")

   flights %>% filter(dest=="SEA") %>% group_by(origin) %>% 
summarise(n=n(origin)) %>% mutate(Prop= n / sum(n))

但是我得到了一个错误作为Error in n(origin) : unused argument (origin)

有人能帮我纠正一下这件事吗？

Answer 1

如果同时加载了plyr和dplyr，我们可以使用summarise、mutate等掩蔽。

  dplyr::summarise(n=n())

使用完整的代码，

  flights %>% 
    filter(dest=="SEA") %>%
    group_by(origin) %>% 
    dplyr::summarise (n = n()) %>%
    dplyr::mutate(freq = n / sum(n))
 # Source: local data frame [2 x 3]

 #  origin     n      freq
 #  (chr) (int)     (dbl)
 #1    EWR  1831 0.4667346
 #2    JFK  2092 0.5332654