延伸问题 原始资料 id year cost D 2012 120 E 2013 300 F 2014 200 A 2015 155 E 2011 200 F 2014 160 B 2013 165 B 2015 185 C 2012 350 A 2014 310 E 2014 225 F 2015 175 想变成这样子 ID 12计数 13计数 14计数 15计数 2012金额 2013金额 2014金额 2015金额 总计数 总金额 A B C D E F 虽然 资料量少 EXCEL 可以计算 我想知道R 是否也能用少量语法做到 ※ 引述《celestialgod (攸蓝)》之铭言： : library(plyr) : library(dplyr) : set.seed(1) : d <- data.frame(year = rep(2000:2002, each = 3), : count = round(runif(9, 0, 20))) : ddply(d, "year", summarise, tol = sum(count), count_year = n()) : # year tol count_year : # 1 2000 23 3 : # 2 2001 40 3 : # 3 2002 45 3 : # 单纯用plyr做 : set.seed(1) : d <- data.frame(year = rep(2000:2002, each = 3), : count = round(runif(9, 0, 20))) : d$ones = 1 : ddply(d, "year", summarise, tol = sum(count), count_year = sum(ones)) : # 用dplyr + magrittr : library(dplyr) : library(magrittr) : set.seed(1) : d <- data.frame(year = rep(2000:2002, each = 3), : count = round(runif(9, 0, 20))) : d %>% group_by(year) %>% summarise(tol = sum(count), count_year = n()) : ※ 引述《psinqoo (零度空间)》之铭言： : : [问题类型]:: : : 程式谘询(我想用R 做某件事情，但是我不知道要怎麽用R 写出来) : : [软体熟悉度]: : : 请把以下不需要的部份删除 : : 使用者(已经有用R 做过不少作品) : : [问题叙述]: : : 请简略描述你所要做的事情，或是这个程式的目的 : : set.seed(1) : : d<- data.frame(year = rep(2000:2002, each = 3),3+ count = round(runif(9, 0, 20))) : : print(d) : : 资料长这样 : : year count : : 1 2000 5 : : 2 2000 7 : : 3 2000 11 : : 4 2001 18 : : 5 2001 4 : : 6 2001 18 : : 7 2002 19 : : 8 2002 13 : : 9 2002 13 : : ddply(d, "year", summarise, tol = sum(count)) : : 会变这样子 : : year tol : : 1 2000 23 : : 2 2001 40 : : 3 2002 45 : : 但我想让它变 : : year tol 计数 : : 1 2000 23 3 : : 2 2001 40 3 : : 3 2002 45 3 : : 3<-代表 2000 出现三次 : : 该如何改写? -- --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 61.220.43.131 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1435891596.A.594.html