R在每第n个出现的空白处添加换行符

【问题标题】：R add newlines to every nth occurrence of blankR在每第n个出现的空白处添加换行符
【发布时间】：2018-09-20 00:42:41
【问题描述】：

Mytext 是一个由空格分隔的长字符串。

Mytextsample <- "aaaaabb cccdddd eee adssdada ooeoeo ososs ksdkd
ooeresso osososososos krrr dkdkkd odlcjs kdcmcmc ddddd dmssss"

我尝试使用正则表达式每隔 10 个空白添加一个新行如何使用 gsub 或 str_replace 等文本替换功能？

【问题讨论】：

标签： r line add find-occurrences

【解决方案1】：

这个解决方案首先使用strsplit()你的字符串到每个空间的向量中，split()它在每10个项目之后使用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

【讨论】：

没问题，如果您认为这是解决您问题的最佳方案，请up-vote and accept我的回答。