R read读取文档

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

有一这样格式的文本文档，name：aaa
gender：F
age：12
grade：21
time:13:13:13

name：bbb
gender：F
age：12
grade：21
time:13:13:13


name：ccc
gender：F
age：12
grade：21
time:13:13:13


以下形式读取该文本

aaa F 12 21 13:13:13
bbb F 12 21 13:13:13
ccc F 12 21 13:13:13


是读取时就进行修改？
或者是读取后，再修改？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：READ EAD Gender Grade name

R菜单--file--change dir--选中文档存储的位置

1. text <- readLines("data.txt")
   
2. f <- function(x){return(substr(x, regexpr(":|：",x)+1,nchar(x)))} ##取一句话中"："后的话
   
3. name <- sapply(text[grep("name",text)],f,USE.NAMES = F)
   
4. gender <- sapply(text[grep("gender",text)],f,USE.NAMES = F)
   
5. age <- sapply(text[grep("age",text)],f,USE.NAMES = F)
   
6. grade <- sapply(text[grep("grade",text)],f,USE.NAMES = F)
   
7. time <- sapply(text[grep("time",text)],f,USE.NAMES = F)
   
8. data <- data.frame(name=name,gender=gender,age=age,grade=grade,time=time) ##要求每条数据必须是5个元素不能缺

复制代码

万人往LVR 发表于 2015-7-24 17:19
R菜单--file--change dir--选中文档存储的位置

赞！谢谢思路拉~我试试用原数据~

另外，我昨天提的问题，今天研究出来了~

万人往LVR 发表于 2015-7-24 17:19
R菜单--file--change dir--选中文档存储的位置

text1=c("photo: 11747918373 e1df250c19 2876","tags: china")
text2=c("photo: 11747918373 e1df250c19 2876","tags: china plane canon hongkong eos airport asia box aviation cargo airline 7d boeing dslr 3s heavy departure takeoff hkg 100400mm sar freighter clk widebody taxiing planespotting cheklapkok hkia haeco slw triple7 836 hongkonginternationalairport hongkongphotos 36003 daalc vhhh spota aerologic flickraward wwwairlinersnet 07r zensational shalowan worldtrekker b777f b77f germancargo b777fzn flickrtravelaward b777200flr superflickers b772flr christianjunker 36003836 ahkgap box513 germancargo513 3s513")



为什么以下两个 返回的值会不一样？是因为字段长度限制么？？

text1[grep("photo",text1)]

text2[grep("photo",text2)]


请问该如何解决啊？

text2[2]里有“hongkongphotos”带photo了
改成
text2[grep("photo:",text2)]