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/m.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燈, 水草

請輸入看板名稱,例如:iOS站內搜尋

TOP