我正在尝试反转R中的子集代码。这是下面我的代码示例。我不想在逗号后面返回20个字符，而是想在逗号之前返回20个字符。提前致谢。
substr(test,gregexpr(pattern =',',test),20)
# Sample "text"
text = "asdasdasdasd,asdasdasdasdasd"
index = gregexpr(pattern =',',text)[[1]]
substr(text,(index-20), index)
> substr(text,(index-20), index)
[1] "asdasdasdasd,"
substr 如果“，”少于20个字符，它将一直返回到开头。
> substr(text,(index-5), index)
[1] "sdasd,"
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句