R每第n个空格添加换行符
R每第n个空格添加换行符
提问于 2018-09-20 08:42:41
Mytext是由空格分隔的长字符串。
Mytextsample <- "aaaaabb cccdddd eee adssdada ooeoeo ososs ksdkd
ooeresso osososososos krrr dkdkkd odlcjs kdcmcmc ddddd dmssss"我尝试使用正则表达式每隔10个空格添加一行如何使用文本替换函数，如gsub或str_replace
回答 1
Stack Overflow用户
回答已采纳
发布于 2018-09-20 09:40:01
这个解决方案首先在每个空格处使用strsplit()将字符串转换为一个向量，在每10个项目之后使用split()，然后使用paste0()使用sapply()重新组装每个关卡
Mytextsample <- "aaaaabb cccdddd eee adssdada ooeoeo ososs ksdkd
ooeresso osososososos krrr dkdkkd odlcjs kdcmcmc ddddd dmssss"
dat <- unlist(strsplit(Mytextsample, " ")) # unlist is here to convert to a vector
dat <- split(dat, ceiling(seq_along(dat)/10))
out <- sapply(dat, function(x) paste0(x, collapse = " "))
out页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/52415930
复制相关文章
相似问题
腾讯云开发者
