有一个数据表,我想把其中的好几列编号给分别提取出来放到word里,就是“D3、D48···”这种样式。编号这些列每列都有几百个数据,可以从excel里复制到记事本里,但还要手动加“、”并且回车,效率太慢。于是我想在R里怎么倒腾一下。
首先想到先把这一列提取出来吧:
x=Data1[,"编号"]
发现提出出来还是一个dataframe,强制性转换as.character(x)的结果是:
图片.png
这就很难搞了,想把“\”这些去掉,然后seperate这些编号,难,尝试用str_系列的函数没搞定。
然后,突然想到还有apply函数啊,于是,一行代码就解决:
可以愉快地把得到的结果直接复制粘贴到word里了
网友评论