具体是啥问题?
<br />
x <- str_c('测试一下',1:100,collapse='_')<br />
x<br />
[1] "测试一下1_测试一下2_测试一下3_测试一下4_测试一下5_测试一下6_测试一下7_测试一下8_测试一下9_测试一下10_测试一下11_测试一下12_测试一下13_测试一下14_测试一下15_测试一下16_测试一下17_测试一下18_测试一下19_测试一下20_测试一下21_测试一下22_测试一下23_测试一下24_测试一下25_测试一下26_测试一下27_测试一下28_测试一下29_测试一下30_测试一下31_测试一下32_测试一下33_测试一下34_测试一下35_测试一下36_测试一下37_测试一下38_测试一下39_测试一下40_测试一下41_测试一下42_测试一下43_测试一下44_测试一下45_测试一下46_测试一下47_测试一下48_测试一下49_测试一下50_测试一下51_测试一下52_测试一下53_测试一下54_测试一下55_测试一下56_测试一下57_测试一下58_测试一下59_测试一下60_测试一下61_测试一下62_测试一下63_测试一下64_测试一下65_测试一下66_测试一下67_测试一下68_测试一下69_测试一下70_测试一下71_测试一下72_测试一下73_测试一下74_测试一下75_测试一下76_测试一下77_测试一下78_测试一下79_测试一下80_测试一下81_测试一下82_测试一下83_测试一下84_测试一下85_测试一下86_测试一下87_测试一下88_测试一下89_测试一下90_测试一下91_测试一下92_测试一下93_测试一下94_测试一下95_测试一下96_测试一下97_测试一下98_测试一下99_测试一下100"<br />
str_count(x, '测试')<br />
[1] 100<br />
str_count(x, '试')<br />
[1] 100<br />
str_count(x, '试一')<br />
[1] 100<br />
</p>