如何将多个字符转换为 R 中的向量？

Question

我正在努力将几个字符转换为向量并将它们作为 R 中的列表。

转换规则如下：

1. 为每个字符分配一个数字。前任。 A=1, B=2, C=3,...
2. 当字符长度为“>=2”时创建一个向量。前任。 AB = c(1,2), ABC = c(1,2,3)
3. 制作包含多个向量的列表。

例如，假设有一个ex 对象，它包含三个组件。对于每个组件，我想让它列出对象list1、list2 和list3。

ex = c("(A,B,C,D)", "(AB,BC,CD)","(AB,C)")

# 3 lists to be returned from ex object
list1 = "list(1,2,3,4)"                # from (A,B,C,D)
list2 = "list(c(1,2), c(2,3), c(3,4))" # from (AB,BC,CD)
list3 = "list(c(1,2), c(3))"           # from (AB,C)

请告诉我一个很好的 R 函数来解决上面的例子。 * 反映了微小的变化。

Answer 1

lookUpTable = as.numeric(1:4)        #map numbers to their respective strings
names(lookUpTable) = LETTERS[1:4]

step1<-                              #get rid of parentheses and split by ",".
strsplit(gsub("[()]", "", ex), ",")

result<-                             #split again to make things like "AB" into "A", "B", also convert the strings to numbers acc. to lookUpTable
lapply(step1, function(x){ lapply(strsplit(x, ""), function(u) unname(lookUpTable[u])) })

# assign to the global environment.
invisible(
lapply(seq_along(result), function(x) {assign(paste0("list", x), result[[x]], envir = globalenv()); NULL})
)

# get it as strings:
invisible(
    lapply(seq_along(result), function(x) {assign(paste0("list_string", x), capture.output(dput(result[[x]])), envir = globalenv()); NULL})
)

---

数据：

ex = c("(A,B,C,D)", "(AB,BC,CD)","(AB,C)")

---

提示和技巧：

• 我在gsub（和strsplit）中使用了正则表达式。学习正则表达式！

• 我创建了一个lookUpTable，将各个字符串映射到数字。确保您的 lookUpTable 设置类似。

• 查看应用函数，例如 ?lapply。

• 最后我assign 将结果发送到全球环境。我不推荐这一步，但它是您要求的。