Question

我有一条短信说：

s <- "Chengdu Shi, Sichuan Sheng, China"

我想使用一个函数，使得我只会在最后一个逗号（即中国）之后得到单词。

我尝试了grep之类的几种方法，但是它们返回所有实例，而不是最后一个。

Answer 1

使用sub：

# Simply get the text after last comma ,
sub('.*\\,', '', s)

OR

使用word包中的library(stringr)：

s <- "Chengdu Shi, Sichuan Sheng, China"
word(s,3,sep=",") # Extract word from the last column

OR

# If your data is stored in data.frame
word(s,ncol(s),sep=",") # Extract last column data using column index

输出：

[1] " China"

Answer 2

尝试：

sapply(strsplit(s,", "),"[")[3]
[1] "China"

Answer 3

Use stringi package

   s <- "Chengdu Shi, Sichuan Sheng, China"

    library(stringi)

    stri_extract_last_words(s)
    [1] "China"

Answer 4

尝试：

        min         lq       mean     median         uq        max neval cld
 4499.66564 4911.42674 4874.35170 4958.81553 4977.55873 5024.29187     5   b
   23.03861   23.09293   23.82407   23.29574   24.04696   25.64611     5  a 
   12.92261   13.08275   13.54088   13.15898   13.80212   14.73794     5  a

最后一个逗号后如何获取文字？

4 个答案: