R_Language 板


LINE

我举一个很简单的例子 library(dplyr) data(CO2) CO2 %>% .[grep("^Qn[12]$", .$Plant), ] 你希望用 filter() 来做,但它不适合吃 grep() 回传资料。 ※ 引述《joson4921 (特务)》之铭言: : : 文章分类提示: : - 问题: 当你想要问问题时,请使用这个类别。 : : [问题类型]: : : 程式谘询(我想用R 做某件事情,但是我不知道要怎麽用R 写出来) : : [软体熟悉度]: : 请把以下不需要的部份删除 : 新手(没写过程式,R 是我的第一次) : : [问题叙述]: : 请简略描述你所要做的事情,或是这个程式的目的 : Data含有资料如下所示: : Time UniqueBusID : 1 12:00:30 273-FC_o 大东纺织(振兴路)->屯区艺文中心162 : 2 14:45:54 273-FC_o 大东纺织(振兴路)->屯区艺文中心162 : 3 15:53:47 273-FC_o 屯区艺文中心->莒光新城163 : 4 17:17:56 285-FC_o 下太平->莒光新城164 : 5 15:46:12 285-FC_o 莒光新城->莒光新城163 : 我想做的是将UniqueBusID内含有"屯区艺文中心->","莒光新城->"两字串的资料列取出 : 具体做法是先使用检测用的函数检测UniqueBusID是否含有该二字串, : 爬文之後选用grep来做检测,检测之後再用filter将通过grep检测的资料列留下 : 但我发现使用filter()不能直接在括号内放进grep那一串,改用mutate也一样不行 : 请问板上大大这中间是不是我想错了什麽导致我无法取出我要的结果呢? : PS.结果应仅剩下第3和第5资料列 : 先感谢板大拨冗解惑 : [程式范例]: : : filter(grep("莒光新城->\\d*|屯区艺文中心->\\d*", : BusData_51$UniqueBusID, value = T)) : filter) : [环境叙述]: : : [关键字]: : grep, filter, mutate : : 选择性,也许未来有用 : --



※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 220.135.110.74
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1481903406.A.366.html
1F:→ celestialgod: grepl + filter 12/17 00:02
2F:推 joson4921: c大那一系列文看了很多遍,但是有些眉角还是不太晓得怎 12/17 00:12
3F:→ joson4921: 麽用,andrew大刚刚的写法我针对自己的需求做了修改,终 12/17 00:12
4F:→ joson4921: 於跑出我要的结果了,来去原篇把更正的结果发上来,谢谢 12/17 00:14
5F:→ joson4921: R板的大大们热心协助 12/17 00:14
6F:→ andrew43: 如C板主说的,如果要用filter,用 12/17 00:37
7F:→ andrew43: CO2 %>% filter(., grepl("^Qn[12]$", .$Plant)) 即可 12/17 00:37
8F:→ andrew43: 重点是 filter() 要喂食TRUE/FALSE 12/17 00:38
9F:推 joson4921: 原来是这样...刚刚分别试过两种方法,再好好琢磨琢磨 12/17 16:12







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灯, 水草

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

TOP