R在第n个空白中添加换行符

Question

Mytext是用空格分隔的长字符串。

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

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

Answer 1

此解决方案首先在每个空格处将strsplit()的字符串用作向量，在第10个项目之后将其split()用作字符串，并使用paste0()使用sapply()重新组装每个级别：< / p>

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