DPLYR：我如何编写与table（）基函数等价的函数并保留列名？

Question

我如何只使用dplyr函数（想象一下有6M行的巨大的Data.Table（BIGiris））来实现与下面的代码相同的功能呢

> out<-as.data.frame(table(iris$Species))
> names(out)[1]<-'Species'
> names(out)[2]<-'my_cnt1'
> out

输出是这个。请注意，我必须重新命名列1。另外，在dplyr mutate或其他调用中，我希望以某种方式为我的新count列指定名称。

     Species my_cnt1
1     setosa      50
2 versicolor      50
3  virginica      50

想象一下连接到这样一个表（假设iris data.frame有6M行），species更像是“species_id”

> habitat<-data.frame(Species=c('setosa'),lives_in='sea')

最终联接和输出（对于联接，我需要一直保留列名）

> left_join(out,habitat)
Joining by: "Species"
     Species my_cnt1 lives_in
1     setosa      50      sea
2 versicolor      50     <NA>
3  virginica      50     <NA>
> 

Answer 1

对于第一部分，可以使用dplyr如下所示

library(dplyr)
out <- iris %>% group_by(Species) %>% summarise(my_cnt1 = n())
out

Source: local data frame [3 x 2]

     Species my_cnt1
1     setosa      50
2 versicolor      50
3  virginica      50

要在一个链中继续,请执行以下操作：

out <- iris %>% group_by(Species) %>% summarise(my_cnt1 = n()) %>% left_join(habitat)
out

Source: local data frame [3 x 3]

     Species my_cnt1 lives_in
1     setosa      50      sea
2 versicolor      50       NA
3  virginica      50       NA

顺便说一下，dplyr现在使用%>%代替%.%。它也是magrittr包的一部分。