R：跨多列的gregexpr并返回单个向量

Question

我有多个包含数据字符串的列。

（data $ product，data $ price，data $ overview1，data $ overview2，data $ overview3，data $ overview4）

我想创建一个仅包含以字符串“ Material：”开头的字符串的新矢量

设置GREP的模式

    matpattern <- "((?<=Material: ).*|(?<=Materials: ).*)"

获取开始时具有素材的字符串

    mat <- gregexpr(matpattern, data$Overview1, perl=TRUE)

创建向量以存储字符串

     data$material1 <- regmatches(data$Overview1, mat, invert = FALSE)

/ 重复进行概述2 /

    mat <- gregexpr(matpattern, data$Overview2, perl=TRUE)

    data$material2 <- regmatches(data$Overview2, mat, invert = FALSE)

该声明

    z <- cbind(material1, material2) 

当我想要一个列表时给出一个矩阵

有没有一种方法可以使lapply和gregexpr跨多个列工作，然后将新字符串放在单个列中？

我看了下面，无济于事，谢谢您的帮助。

将R向量转换为1个元素的字符串向量

R中的正则表达式-将一列与另一列进行比较

使用正则表达式选择R数据框中的行

Answer 1

好。 这是一个完整的技巧，但是我希望最终输出是向量，而不是列表（排除适用，适用吗？）

这将获取4列中所需字符串的位置和长度

m1 <-gregexpr（matpattern，data [，c（“ Overview1”）]，perl = TRUE）

m2 <-gregexpr（matpattern，data [，c（“ Overview2”）]，perl = TRUE）

m3 <-gregexpr（matpattern，data [，c（“ Overview3”）]，perl = TRUE）

m4 <-gregexpr（matpattern，data [，c（“ Overview4”）]，perl = TRUE）

此操作将创建一组向量

mat1 <-regmatches（data [，c（“ Overview1”）]，m1，invert = FALSE）

mat2 <-regmatches（data [，c（“ Overview2”）]，m2，invert = FALSE）

mat3 <-regmatches（data [，c（“ Overview3”）]，m3，invert = FALSE）

mat4 <-regmatches（data [，c（“ Overview4”）]，m4，invert = FALSE）

然后我将所有向量粘贴到一个大向量中（未来的操作将忽略“ character（0）”）

data $ Material <-paste（mat1，mat2，mat3，mat4）

然后，我可以使用此向量根据data $ Material中某些文本字符串的出现来计算data $ price的平均值