R_Language 板


LINE

※ 引述《pp61022 (fight)》之铭言: : [问题类型]: : 程式谘询(我想用R 做某件事情,但是我不知道要怎麽用R 写出来) : [软体熟悉度]: : 使用者(已经有用R 做过不少作品) : [问题叙述]: : 我有一个变数是字串,里面同时包含中文英文,但没有任何分隔符号。 : 例如: : [1] "剑桥大学University of Cambridge" : [2] "皇家理工学院(帝国理工学院)Imperial College London" : [3] "加州大学洛杉矶分校University of California-Los Angeles" : [4] "Melbourne University" : ...... : ...... : 我想把这个变数拆成两个变数 : "学校中译", "学校英名" : 如: : [1] "剑桥大学", "University of Cambridge" : [2] "皇家理工学院(帝国理工学院)", "Imperial College London" : [3] "加州大学洛杉矶分校" , "University of California-Los Angeles" : [4] NA, "Melbourne University" : ... : ... : 这变数有一部分含中译,一部分只有英文, : 因为他中文字长度不一样,没办法直接取个数分割, : 不过有中译结尾都是"学院", "大学", "分校"(但并非整个字串的结尾) : 刚接触文字清理,对全部函数还没办法通透运用,有搜寻一阵子但都无法达成想要的结果 : ,想请教版友有没有好方法可以将中英文完整分割成两个变项,谢谢版友。 : 或是没办法中英文分割,能否只留下英文,之後我再自己串中英文对照,谢谢版友。 : [程式范例]: : [环境叙述]: : 请提供 sessionInfo() 的输出结果, : 里面含有所有你使用的作业系统、R 的版本和套件版本资讯, : 让版友更容易找出错误 : [关键字]: : 我已经习惯用stringr了,所以如果你想要用R原生的就用strsplit跟gsub library(stringr) x <- c("剑桥大学University of Cambridge", "皇家理工学院(帝国理工学院)Imperial College London", "加州大学洛杉矶分校University of California-Los Angeles", "Melbourne University") str_split(str_replace_all(x, "([^A-Za-z ]*)([A-Za-z\\- ]+)", "\\1,\\2"), ",") output: [[1]] [1] "剑桥大学" "University of Cambridge" [[2]] [1] "皇家理工学院(帝国理工学院)" "Imperial College London" [[3]] [1] "加州大学洛杉矶分校" "University of California-LosAngeles" [[4]] [1] "" "Melbourne University" -- R资料整理套件系列文: magrittr #1LhSWhpH (R_Language) https://goo.gl/72l1m9 data.table #1LhW7Tvj (R_Language) https://goo.gl/PZa6Ue dplyr(上.下) #1LhpJCfB,#1Lhw8b-s (R_Language) https://goo.gl/I5xX9b tidyr #1Liqls1R (R_Language) https://goo.gl/i7yzAz pipeR #1NXESRm5 (R_Language) https://goo.gl/zRUISx --



※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 36.232.190.147
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1500633836.A.304.html ※ 编辑: celestialgod (36.232.190.147), 07/21/2017 18:44:46 ※ 编辑: celestialgod (36.232.190.147), 07/21/2017 18:45:30
1F:推 pp61022: 谢谢您提供第二种方法! 07/22 10:04
2F:推 DoBahaha: 感谢收益良多 07/23 01:11







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

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

TOP