我自己调试了一下,好像是将字符串用分隔之后,提取分割后第一个字符串,实例代码如下
- > str1<-c("he he","s b","have a bathe")
- > var1<-c(1,2,3)
- > data1<-data.frame(str1,var1)
- > data1
- str1 var1
- 1 he he 1
- 2 s b 2
- 3 have a bathe 3
- > data1[,1]<-sapply(strsplit(as.character(data1[,1]), split=" "),"[[",1)
- > data1
- str1 var1
- 1 he 1
- 2 s 2
- 3 have 3
复制代码 |