作者celestialgod (天)
看板R_Language
标题Re: [分享] dplyr::group_by的进阶应用
时间Wed Oct 7 00:42:13 2015
还记得之前Hadley发的purrr吗？
里面的function也可以协助完成这种指令
library(data.table)
library(dplyr)
library(purrr)
library(magrittr)
library(binom)
N = 200
DT = data.table(广告 = paste0("广告", sample(LETTERS[1:4], N, TRUE)),
网站 = paste0("网站", sample(LETTERS[1:4], N, TRUE)),
点击数 = sample(1:20, N, TRUE))
# W大的do + group_by
filter(DT, 网站 == "网站A") %>%
group_by(广告) %>%
do(binom.confint(sum(.$点击), length(.$点击), methods = "exact"))
# purrr的map
filter(DT, 网站 == "网站A") %>% split(.$广告) %>%
map(~binom.confint(sum(.$点击), length(.$点击), methods = "exact")) %>%
bind_rows
※ 引述《Wush978 (拒看低质媒体)》之铭言：
: [关键字]: R, dplyr, data manipulation
: [出处]: https://wush.ghost.io/dplyr_group_by/
: [重点摘要]:
: 一个能更有弹性的使用dplyr::group_by做资料整理的小撇步：
: dplyr::do
: 内文中会简单介绍dplyr::do的运作。
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 180.218.154.163
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1444149736.A.CED.html
1F：推 Godkin: 10/07 02:05
2F：推 yylee25: 推 10/07 09:38
3F：推 criky: 先推 10/07 17:01