Re: [分享] dplyr::group_by的進階應用

[celestialgod (天)]

還記得之前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://www.ptt.cc/bbs/R_Language/M.1444149736.A.CED.html
推 Godkin:
推 yylee25: 推
推 criky: 先推