问题2.1
> K<- data.frame(c('i have never seen a beauty like you'))
> K<- as.character(K)
> strsplit(K,split =" ")
[[1]]
[1] "1"
问题2.2
K<- data.frame(c('i have never seen a beauty like you'))
> K[1,1]<- as.character(K[1,1])
> strsplit(K[1,1],split =" ")
Error in strsplit(K[1, 1], split = " ") : non-character argument