R，将字符串拆分为字符对

Question

如何按以下方式在 R 中分割字符串？请看示例

example:

c("ex", "xa", "am", "mp", "pl", "le") ?

Answer 1

x = "example"
substring(x, first = 1:(nchar(x) - 1), last = 2:nchar(x))
# [1] "ex" "xa" "am" "mp" "pl" "le"

当然，您可以将其包装到一个函数中，也许可以省略非字母(我不知道冒号是否应该是字符串的一部分)，等等。

要对字符串向量执行此操作，您可以将其用作 lapply 的匿名函数:

lapply(month.name, function(x) substring(x, first = 1:(nchar(x) - 1), last = 2:nchar(x)))
# [[1]]
# [1] "Ja" "an" "nu" "ua" "ar" "ry"
# 
# [[2]]
# [1] "Fe" "eb" "br" "ru" "ua" "ar" "ry"
# 
# [[3]]
# [1] "Ma" "ar" "rc" "ch"
# ...

或者将其做成命名函数并按名称使用它。如果您经常使用它，这将是有意义的。

str_split_pairs = function(x) {
    substring(x, first = 1:(nchar(x) - 1), last = 2:nchar(x))
}

lapply(month.name, str_split_pairs)
## same result as above