代码之家 › 专栏 › 技术社区 › Denis

解析格式化程序字符串

regex r

Denis · 技术社区 · 6 年前

假设我有以下几点:

format.string <- "@AB@-@BC@/@DF@" #wanted to use $ but it is problematic
value.list <- c(AB="a", BC="bcd", DF="def")

我想将value.list应用于format.string,以便替换指定的值。因此,在本例中,我应该使用一个字符串: a-bcd/def

我试着像下面这样做:

  resolved.string <- lapply(names(value.list), 
       function(x) { 
         sub(x = save.data.path.pattern, 
             pattern = paste0(c("@",x,"@"), collapse=""),
             replacement = value.list[x]) })

3 回复 | 直到 6 年前

acylam 6 年前

这个 glue 软件包就是为此而设计的。可以使用更改开始和结束分隔符 .open 和 .close value.list

library(glue)

format.string <- "{AB}-{BC}/{DF}"
value.list <- list(AB="a", BC="bcd", DF="def")

glue_data(value.list, format.string)
# a-bcd/def

Julius Vainora 6 年前

要回答您的实际问题,请使用 lapply 结束 names(value.list) 正如您的输出所示,您可以获取 value.list 并进行更换。然而,所有这些都是独立发生的,也就是说,替换并不是最终组合成一个结果。

为了使类似于你的方法有效,我们可以使用 Reduce 正是这一点:

Reduce(function(x, y) sub(paste0(c("@", y, "@"), collapse = ""), value.list[y], x),
      init = format.string, names(value.list))
# [1] "a-bcd/def"

如果我们调用匿名函数 f ,那么结果是

f(f(f(format.string, "A"), "B"), "C")

我相信这正是你想要的。

akrun 6 年前

我们可以使用 gsubfn pattern

library(gsubfn)
gsub("@", "", gsubfn("[^@]+", as.list(value.list), format.string))
#[1] "a-bcd/def"

注意:“value.list”是一个 vector 而不是 list

推荐文章

Marc B. · 使用ggplot2创建条形图时“缺少值”

1 年前

deschen · tidyverse与外部向量发生突变,该外部向量的元素是数据帧中的列值

1 年前

Laura · 在Shiny中使用可排序的包拖放名称,这些名称将成为图表

1 年前

Mallikarjun M · 如何使用随机森林进行时间序列预测?

1 年前

ly li · 模型摘要:当表格形状改变时,拟合优度消失

1 年前

C.Robin · 将marginaffects::predictions()的结果连接回main df?

1 年前

monotonic · 如何将格式为“col1+col3+col4”的数据帧的行名转换为一列数字向量“c(1,3,4)”?

2 年前

Shawn Hemelstrand · 为什么我的自定义errorbar函数不能在R中工作?

2 年前

RoyBatty · 统计每个字符在整个数据集中出现的次数

2 年前

stats_noob · R: 记录某个“行为”发生的循环的索引?

2 年前