R_Language 板


LINE

[问题类型]: 程式谘询(我想用R 做某件事情,但是我不知道要怎麽用R 写出来) [软体熟悉度]: 新手(没写过程式,R 是我的第一次) [问题叙述]: R与SQL在整理/查询资料上有些类似的用法, 现在想要用R做SQL做的事, 中间卡住,来请教各位大大了~ [程式范例]: SQL: SELECT A.DBName ,A.TableName ,B.Count ,C.LADate ,C.LATime #最後要的5个栏位 FROM Table_A A #主要的表,join最後结果row n不变 LEFT JOIN ( #子查询1 取 count SELECT A.DBName, A.TableName, sum(A.Count) as Count FROM Count A LEFT JOIN User B ON A.UserName=B.UserName GROUP BY A.DBName,A.TableName WHERE B.User_Type IN ('A','B') ) B ON A.DBName = B.DBName AND A.TableName = B.TableName LEFT JOIN ( #子查询2 取 LADate,LAtime select DBName, TableName, LADate, LATime from LA QUALIFY ROW_NUMBER() OVER ( PARTITION BY DBName,TableName ORDER BY LADate DESC, LATime DESC)=1 #以LADate DESC,LaTime DESC排序後,取第一列 ) C ON B.DBName = C.DBName AND B.TableName = C.TableName R写的想法也是和SQL类似, 先写子查询,最後再3个表left join, 只写了2个子查询,第2段卡住(红字部分) 若用group_by取top1不太对, 应该要取LADate同一列的LATime sub_q1<-left_join(x=count,y=user,by="UserName") %>%  group_by(DBName,TableName) %>% summarise(sum(Count)) sub_q2<-select(LA,DBName,TableName, LADate,LATime) %>% order_by LADate desc,LATime desc %>% group_by(DBName,TableName) %>% ?? [环境叙述]: R version 3.3.2 (2016-10-31) Platform: i386-w64-mingw32/i386 (32-bit) Running under: Windows >= 8 (build 9200) [关键字]: SQL 选择性,也许未来有用 --



※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 27.147.47.152
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1481984054.A.B9D.html ※ 编辑: criky (27.147.47.152), 12/17/2016 22:31:14
1F:→ abc2090614: 是我的话就用RODBC直接写SQL了... 12/18 00:00
2F:→ abc2090614: 你是要取每个group里的第一列? 我看不太懂QUALIFY 12/18 00:06
3F:推 hermeslu: 同意楼上 会SQL的话取资料和资料整理在SQL做,让R做计算 12/18 08:38
※ 编辑: criky (27.147.47.152), 12/18/2016 13:00:32
4F:→ criky: 是取第一列没错 12/18 13:00
5F:推 abc2090614: 如果是取第一列的话用dplyr的summarize() 里面取的 12/19 22:33
6F:→ abc2090614: 函数用 first() 12/19 22:34
7F:→ abc2090614: 应该说是用groupy(aa) %>% summarize(bb=first(cc)) 12/19 22:34
8F:→ criky: get it! Thanks! 12/20 07:46
9F:→ clansoda: hi,this is approach from package data.table 12/22 09:29
10F:→ clansoda: dat[,.SD[1],the group variable name] 12/22 09:29







like.gif 您可能会有兴趣的文章
icon.png[问题/行为] 猫晚上进房间会不会有憋尿问题
icon.pngRe: [闲聊] 选了错误的女孩成为魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一张
icon.png[心得] EMS高领长版毛衣.墨小楼MC1002
icon.png[分享] 丹龙隔热纸GE55+33+22
icon.png[问题] 清洗洗衣机
icon.png[寻物] 窗台下的空间
icon.png[闲聊] 双极の女神1 木魔爵
icon.png[售车] 新竹 1997 march 1297cc 白色 四门
icon.png[讨论] 能从照片感受到摄影者心情吗
icon.png[狂贺] 贺贺贺贺 贺!岛村卯月!总选举NO.1
icon.png[难过] 羡慕白皮肤的女生
icon.png阅读文章
icon.png[黑特]
icon.png[问题] SBK S1安装於安全帽位置
icon.png[分享] 旧woo100绝版开箱!!
icon.pngRe: [无言] 关於小包卫生纸
icon.png[开箱] E5-2683V3 RX480Strix 快睿C1 简单测试
icon.png[心得] 苍の海贼龙 地狱 执行者16PT
icon.png[售车] 1999年Virage iO 1.8EXi
icon.png[心得] 挑战33 LV10 狮子座pt solo
icon.png[闲聊] 手把手教你不被桶之新手主购教学
icon.png[分享] Civic Type R 量产版官方照无预警流出
icon.png[售车] Golf 4 2.0 银色 自排
icon.png[出售] Graco提篮汽座(有底座)2000元诚可议
icon.png[问题] 请问补牙材质掉了还能再补吗?(台中半年内
icon.png[问题] 44th 单曲 生写竟然都给重复的啊啊!
icon.png[心得] 华南红卡/icash 核卡
icon.png[问题] 拔牙矫正这样正常吗
icon.png[赠送] 老莫高业 初业 102年版
icon.png[情报] 三大行动支付 本季掀战火
icon.png[宝宝] 博客来Amos水蜡笔5/1特价五折
icon.pngRe: [心得] 新鲜人一些面试分享
icon.png[心得] 苍の海贼龙 地狱 麒麟25PT
icon.pngRe: [闲聊] (君の名は。雷慎入) 君名二创漫画翻译
icon.pngRe: [闲聊] OGN中场影片:失踪人口局 (英文字幕)
icon.png[问题] 台湾大哥大4G讯号差
icon.png[出售] [全国]全新千寻侘草LED灯, 水草

请输入看板名称,例如:BuyTogether站内搜寻

TOP