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