R中的向量反向子集

Question

我试图在R中反转子集代码。下面是我的代码示例。我不想在逗号后面返回20个字符，而是想返回逗号前的20个字符。提前致谢。

substr(test,gregexpr(pattern =',',test),20) 

Answer 1

# 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,"