创建正则以从行值中删除字符串和字符

发布于 2025-02-13 18:33:26 字数 593 浏览 0 评论 0 原文

我的数据框中有一个列，看起来像这样：

branching_loc <- c("([preliminary_arm_1][antibiotic_arm] = '1') and [was_review_done]='1'",
                   "[preliminary_arm_1][antibiotic_arm]  = '1' and [was_review_done]=='1'",
                   "[preliminary_arm_1][antibiotic_arm]  = '1' and [was_review_done]=='1'",
                   "[preliminary_arm_1][antibiotic_arm]  = '1' and [was_review_done]=='1'")
                                                 
df <- data.frame(branching_loc)

现在我确实想删除 [preliminary_arm_1] 仅从此行值中。我正在努力用R语言创建正则表达式来做到这一点。请协助

原文

I have a column in my dataframe that looks like this:

branching_loc <- c("([preliminary_arm_1][antibiotic_arm] = '1') and [was_review_done]='1'",
                   "[preliminary_arm_1][antibiotic_arm]  = '1' and [was_review_done]=='1'",
                   "[preliminary_arm_1][antibiotic_arm]  = '1' and [was_review_done]=='1'",
                   "[preliminary_arm_1][antibiotic_arm]  = '1' and [was_review_done]=='1'")
                                                 
df <- data.frame(branching_loc)

Now I did like to remove [preliminary_arm_1] only from this row values. I am struggling with creating a regex expression in R language to do this. Kindly assist

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

好久不见√ 2025-02-20 18:33:26

一个可能的解决方案：

library(tidyverse)

df %>% 
  mutate(branching_loc = str_remove(branching_loc, "\\[preliminary_arm_1\\]"))

#>                                        branching_loc
#> 1 ([antibiotic_arm] = '1') and [was_review_done]='1'
#> 2 [antibiotic_arm]  = '1' and [was_review_done]=='1'
#> 3 [antibiotic_arm]  = '1' and [was_review_done]=='1'
#> 4 [antibiotic_arm]  = '1' and [was_review_done]=='1'

A possible solution:

library(tidyverse)

df %>% 
  mutate(branching_loc = str_remove(branching_loc, "\\[preliminary_arm_1\\]"))

#>                                        branching_loc
#> 1 ([antibiotic_arm] = '1') and [was_review_done]='1'
#> 2 [antibiotic_arm]  = '1' and [was_review_done]=='1'
#> 3 [antibiotic_arm]  = '1' and [was_review_done]=='1'
#> 4 [antibiotic_arm]  = '1' and [was_review_done]=='1'

回复收藏 0 原文

甜柠檬 2025-02-20 18:33:26

gsub 选项：

branching_loc <- c("([preliminary_arm_1][antibiotic_arm] = '1') and [was_review_done]='1'",
                   "[preliminary_arm_1][antibiotic_arm]  = '1' and [was_review_done]=='1'",
                   "[preliminary_arm_1][antibiotic_arm]  = '1' and [was_review_done]=='1'",
                   "[preliminary_arm_1][antibiotic_arm]  = '1' and [was_review_done]=='1'")

df <- data.frame(branching_loc)

library(dplyr)
df %>%
  mutate(branching_loc = gsub("[preliminary_arm_1]", "", branching_loc, fixed = TRUE))
#>                                        branching_loc
#> 1 ([antibiotic_arm] = '1') and [was_review_done]='1'
#> 2 [antibiotic_arm]  = '1' and [was_review_done]=='1'
#> 3 [antibiotic_arm]  = '1' and [was_review_done]=='1'
#> 4 [antibiotic_arm]  = '1' and [was_review_done]=='1'

^{在2022-07-06创建的}

gsub option:

branching_loc <- c("([preliminary_arm_1][antibiotic_arm] = '1') and [was_review_done]='1'",
                   "[preliminary_arm_1][antibiotic_arm]  = '1' and [was_review_done]=='1'",
                   "[preliminary_arm_1][antibiotic_arm]  = '1' and [was_review_done]=='1'",
                   "[preliminary_arm_1][antibiotic_arm]  = '1' and [was_review_done]=='1'")

df <- data.frame(branching_loc)

library(dplyr)
df %>%
  mutate(branching_loc = gsub("[preliminary_arm_1]", "", branching_loc, fixed = TRUE))
#>                                        branching_loc
#> 1 ([antibiotic_arm] = '1') and [was_review_done]='1'
#> 2 [antibiotic_arm]  = '1' and [was_review_done]=='1'
#> 3 [antibiotic_arm]  = '1' and [was_review_done]=='1'
#> 4 [antibiotic_arm]  = '1' and [was_review_done]=='1'

^{Created on 2022-07-06 by the reprex package (v2.0.1)}

回复收藏 0 原文

临风闻羌笛 2025-02-20 18:33:26

为了获得一些更整洁的输出，而没有可能有不必要的括号：

df %>%
  mutate(branching_loc = gsub("^\\(?\\[\\w+\\]|\\)(?=\\sand)", "", branching_loc, perl = TRUE))
                                       branching_loc
1   [antibiotic_arm] = '1' and [was_review_done]='1'
2 [antibiotic_arm]  = '1' and [was_review_done]=='1'
3 [antibiotic_arm]  = '1' and [was_review_done]=='1'
4 [antibiotic_arm]  = '1' and [was_review_done]=='1'

To get a somewhat tidier output, without the presumably unwanted parentheses:

df %>%
  mutate(branching_loc = gsub("^\\(?\\[\\w+\\]|\\)(?=\\sand)", "", branching_loc, perl = TRUE))
                                       branching_loc
1   [antibiotic_arm] = '1' and [was_review_done]='1'
2 [antibiotic_arm]  = '1' and [was_review_done]=='1'
3 [antibiotic_arm]  = '1' and [was_review_done]=='1'
4 [antibiotic_arm]  = '1' and [was_review_done]=='1'

回复收藏 0 原文

~没有更多了~