r - r 获取向量中每个单词的第一个、前两个、前三个字母的列表

Question

我想将向量的每个元素转换为它们的第一个、前两个等字母，然后再次收到一个带有结果的向量：

例子：

vector2 <- c("nike", "adidas")

结果：

> term2
[1]  "n"    "ni"   "nik"  "nike" "a"    "ad"   "adi"  "adid"  "adida"  "adidas"

这仅适用于耐克：

vector1 <- c("nike")
  n <- nchar(vector1)
    for(i in 1:n)
     {
      term2[i] = substr(vector1, 1,i)
     }

但是关于

  vector2 <- c("nike", "adidas")

标签： rlistsubstr

Answer 1

substring(rep(vector2, nchar(vector2)), 1, sequence(nchar(vector2)))
# [1] "n"      "ni"     "nik"    "nike"   "a"      "ad"     "adi"    "adid"   "adida" 
#[10] "adidas"