lyxmoo a <- unlist(strsplit("the quick brown fox jumps over a lazy dog"," ")) length(a) [1] 9 有函数能把 a 再复合成前面句子的函数?
皮皮米菲兔 试试 <br /> a="the quick brown fox jumps over a lazy dog"<br /> a<br /> #[1] "the quick brown fox jumps over a lazy dog"</p> <p>b=unlist(strsplit(a," "))<br /> b<br /> #[1] "the" "quick" "brown" "fox" "jumps" "over" "a" "lazy" "dog" </p> <p>a2=paste(b,collapse=" ")<br /> a2<br /> #[1] "the quick brown fox jumps over a lazy dog"<br /> </p>
lyxmoo 我实现的丑陋的函数是这样的, pastef <- function(x) { retval <- c("") for ( i in 1:length(x) ) { retval <- paste(retval,as.character(x),sep=" ") } return(retval) } }
皮皮米菲兔 前面有个空格不大好,是不是可以考虑改成这样 <br /> p=function(x){<br /> retval=x[1]<br /> if(length(x)>=2){<br /> for(i in 2:length(x)){<br /> retval=paste(retval,as.character(x[i]),sep=" ")}}<br /> return(retval)}<br /> </p>
皮皮米菲兔 试试 <br /> a="the quick brown fox jumps over a lazy dog"<br /> a<br /> #[1] "the quick brown fox jumps over a lazy dog"</p> <p>b=unlist(strsplit(a," "))<br /> b<br /> #[1] "the" "quick" "brown" "fox" "jumps" "over" "a" "lazy" "dog" </p> <p>cat(b,file="1.txt")<br /> aa=readLines("1.txt")[1]<br /> file.remove("1.txt")</p> <p>aa<br /> #[1] "the quick brown fox jumps over a lazy dog"<br /> </p>
Ihavenothing 回复 第9楼 的 nan.xiao: 那我恶搞一个[s:11]: a="the quick brown fox jumps over a lazy dog";<br /> b=unlist(strsplit(a," "));<br /> combstr=function(s1,s2) sprintf("%s %s",s1,s2);<br /> Reduce(combstr,b);<br /> </p>
yihui 回复 第6楼 的 lyxmoo:我好像说了很多遍了,很多人都没有耐心把paste的后一个参数看完[s:11] 颜大站长和邱大站长都很吓人,我第一次知道R的base包中就有Map和Reduce……学习了学习了