时间戳

首页 > 解决方案 > 替换R中列表列表中的部分文本

r - 替换R中列表列表中的部分文本

问题描述

我正在尝试替换列表名称的特定部分，但我遇到了困难。在这种情况下，我只会删除有 x 的部分中的数字。

list1 <- list("L(x0801, 1)" = 1, "L(x0801, 2)" = 2, "L(x0801, 3)" =4, "rer" =2, "L(rer, 1)" = 3)
list2 <- list("L(x0901, 1)" = 1, "L(x0901, 2)" = 2, "L(x0901, 3)" =4, "L(x0901, 4)" =4, "rer" =2, "L(rer, 1)" = 3)

mylist <- list(list1, list2)

所以我试图排除 x 变量附带的数字，但我不希望删除其他变量的数字。所以我希望 mylist 是两个列表的组合，如下所示：

list1 <- list("L(x, 1)" = 1, "L(x, 2)" = 2, "L(x, 3)" =4, "rer" =2, "L(rer, 1)" = 3)
list2 <- list("L(x, 1)" = 1, "L(x, 2)" = 2, "L(x, 3)" =4, "L(x, 4)" =4, "rer" =2, "L(rer, 1)" = 3)

mylist <- list(list1, list2)

我尝试使用类似下面的代码，但删除了其他变量的名称编号。

mylist <- lapply(mylist, function(x) setNames(x, sub("\\d+", "", names(x))))

有人能帮我吗？谢谢。

标签： rlistreplacenames

解决方案

你已经快到了。只是对替换功能的一个小改动。我在下面做的是用字母 x 替换 x[然后是一些数字]。

mylist <- lapply(mylist, function(x) setNames(x, sub("x\\d+", "x", names(x))))

推荐阅读