反向子集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,"

如果“，”中的字符少于20个，

substr将返回到开头。

> substr(text,(index-5), index)
[1] "sdasd,"