r - 逐行应用 strsplit

Question

我正在尝试在“.”上拆分字符串。并使用“.”前后的两个字符串创建附加列。

tes<-c("1.abc","2.di","3.lik")
dat<-c(5,3,2)
h<-data.frame(tes,dat)
h$num<-substr(h$tes,1,1)

h$prim<-unlist(strsplit(as.character(h$tes),"\\."))[2]
h$prim<-sapply(h$tes,unlist(strsplit(as.character(h$tes),"\\."))[2])

我希望 h$prim 包含“abc”，“di”，“lik”..但是我无法弄清楚。我猜 strsplit 没有矢量化，但后来我认为 sapply 版本应该可以工作。不过我认为这应该很容易:-)

问候，//M

Answer 1

这应该可以解决问题

R> sapply(strsplit(as.character(h$tes), "\\."), "[[", 2)
[1] "abc" "di"  "lik"