在R中首次出现特殊字符之前获取所有字符

Question

我希望得到所有超过第一个“。”的角色。 如果有的话。 否则，我想找回相同的字符（“8” - >“8”）。

例：

v<-c("7.7.4","8","12.6","11.5.2.1")

我想得到这样的东西：

[1] "7 "8" "12" "11"

我的想法是将每个元素拆分为“。” 然后只进行第一次拆分。 我找不到有效的解决方案......

Answer 1

你可以使用sub

sub("\\..*", "", v)
#[1] "7"  "8"  "12" "11"

或几个stringi选项：

library(stringi)
stri_replace_first_regex(v, "\\..*", "")
#[1] "7"  "8"  "12" "11"
# extract vs. replace
stri_extract_first_regex(v, "[^\\.]+")
#[1] "7"  "8"  "12" "11"

如果您想使用拆分方法，这些方法将起作用：

unlist(strsplit(v, "\\..*"))
#[1] "7"  "8"  "12" "11"

# stringi option
unlist(stri_split_regex(v, "\\..*", omit_empty=TRUE))
#[1] "7"  "8"  "12" "11"
unlist(stri_split_fixed(v, ".", n=1, tokens_only=TRUE))
unlist(stri_split_regex(v, "[^\\w]", n=1, tokens_only=TRUE))

其他使用捕获组来定位主要字符的sub变体：

sub("(\\w+).+", "\\1", v) # \w matches [[:alnum:]_] (i.e. alphanumerics and underscores)
sub("([[:alnum:]]+).+", "\\1", v) # exclude underscores

# variations on a theme
sub("(\\w+)\\..*", "\\1", v)
sub("(\\d+)\\..*", "\\1", v) # narrower: \d for digits specifically
sub("(.+)\\..*", "\\1", v) # broader: "." matches any single character

# stringi variation just for fun:
stri_extract_first_regex(v, "\\w+")

Answer 2

scan()实际上可以很好地工作。 因为我们在第一个之前想要一切. ，我们可以将其用作注释字符，而scan()将删除v每个元素之后的所有内容。

scan(text = v, comment.char = ".")
# [1]  7  8 12 11

上面的内容返回一个数字向量，可能就是你要去的地方。 如果你需要坚持使用字符，添加what参数表示我们想要返回一个字符向量。

scan(text = v, comment.char = ".", what = "")
# [1] "7"  "8"  "12" "11"

数据：

v <- c("7.7.4", "8", "12.6", "11.5.2.1")