- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在尝试使用 grepl(部分匹配)和 ifelse 使用 mutate 创建新列。我有带单位的药物名称列表,我想用这些单位创建新列。这是我的药物名称示例,
Description
ZOLEDRONIC ACID INF 4MG/5ML (5ML)
CALCICHEW D3 FORTE CHEWABLE TABS
DAYCASE DRUGS
AKYNZEO (NETUPITANT/PALONOSETRON) HARD CAPS 300MG/0.5MG
CYCLOPHOSPHAMIDE INF 1MG/ML
EPIRUBICIN INJ 1MG/ML
DAYCASE DRUGS
DAYCASE DRUGS
ALOXI (PALONOSETRON) INJ 250MCG
PACLITAXEL INF 1MG/ML
DEXAMETHASONE VIAL 6.6MG/2ML - USE PSD742
PACLITAXEL INF 1MG/ML
RAMUCIRUMAB INF 0.1MG - 100MG
这是我试过的代码,
units <- c("TABS","INF","SYR","CAPS","INJ","VIAL","SOL","POWDER","GEL","CREAM","LOTION","AMP"," SINGLEJECT","PFS")
drug_name <- drug_name %>% mutate(unit = grepl(paste(units,collapse = "|"),Description))
当前输出是这样的,
Description unit
ZOLEDRONIC ACID INF 4MG/5ML (5ML) TRUE
CALCICHEW D3 FORTE CHEWABLE TABS TRUE
DAYCASE DRUGS FALSE
AKYNZEO (NETUPITANT/PALONOSETRON) CAPS TRUE
CYCLOPHOSPHAMIDE INF 1MG/ML TRUE
EPIRUBICIN INJ 1MG/ML TRUE
DAYCASE DRUGS FALSE
DAYCASE DRUGS FALSE
我不想要 TRUE/FALSE 中的单位,而是应该指定确切的单位,像这样,
ZOLEDRONIC ACID INF 4MG/5ML (5ML) INF
CALCICHEW D3 FORTE CHEWABLE TABS TABS
我正在尝试重新编码,但不知道该怎么做。此外,我需要将药物名称 (4MG/5ML) 中的指标提取到单独的列中。我可以在另一个查询中执行此操作,但需要使用 unit 进行单个查询。不是所有的药物都有这种格式,有些像这样 --> 01.MG-100MG,250MCG。
ZOLEDRONIC ACID INF 4MG/5ML (5ML) INF 4MG/5ML
CALCICHEW D3 FORTE CHEWABLE TABS TABS NA
CYCLOPHOSPHAMIDE INF 1MG/ML INF 1MG/ML
ALOXI (PALONOSETRON) INJ 250MCG INF 250MCG
谁能帮我解决这个问题?
最佳答案
这是使用 dplyr
和 purrr
的一种方法。
library(dplyr)
library(purrr)
drug_name <- data_frame(
Description = trimws(readLines(textConnection('ZOLEDRONIC ACID INF 4MG/5ML (5ML)
CALCICHEW D3 FORTE CHEWABLE TABS
DAYCASE DRUGS
AKYNZEO (NETUPITANT/PALONOSETRON) HARD CAPS 300MG/0.5MG
CYCLOPHOSPHAMIDE INF 1MG/ML
EPIRUBICIN INJ 1MG/ML
DAYCASE DRUGS
DAYCASE DRUGS
ALOXI (PALONOSETRON) INJ 250MCG
PACLITAXEL INF 1MG/ML
DEXAMETHASONE VIAL 6.6MG/2ML - USE PSD742
PACLITAXEL INF 1MG/ML
RAMUCIRUMAB INF 0.1MG - 100MG')))
)
units <- c("TABS","INF","SYR","CAPS","INJ","VIAL","SOL","POWDER",
"GEL","CREAM","LOTION","AMP","SINGLEJECT","PFS")
units1 <- sprintf("\\b(%s)\\b", paste(units, collapse = "|"))
首先,演练和概念验证:
m <- regmatches(drug_name$Description,
gregexpr(paste0(units1, ".*"), drug_name$Description))
m
# [[1]]
# [1] "INF 4MG/5ML (5ML)"
# [[2]]
# [1] "TABS"
# [[3]]
# character(0)
# [[4]]
# [1] "CAPS 300MG/0.5MG"
# [[5]]
# [1] "INF 1MG/ML"
# [[6]]
# [1] "INJ 1MG/ML"
# [[7]]
# character(0)
# [[8]]
# character(0)
# [[9]]
# [1] "INJ 250MCG"
# [[10]]
# [1] "INF 1MG/ML"
# [[11]]
# [1] "VIAL 6.6MG/2ML - USE PSD742"
# [[12]]
# [1] "INF 1MG/ML"
# [[13]]
# [1] "INF 0.1MG - 100MG"
我使用 .*
“获取所有后续信息”以找到单位的数量。这有时会得到比我们想要的更多的信息,但为了在一个单元之后找到所有类似值的词,我们需要全部抓取然后过滤。
我们需要防范 character(0)
并理想地转换为向量,所以
fixEmpties <- function(lst, default=NA_character_)
unlist(replace(lst, lengths(lst) == 0L, default))
尽管您可能更喜欢使用空字符串 ""
而不是 NA_character_
。
要进行过滤,这里有一个快速函数,可以在以下每个“单词”中查找任何数字。它还允许单独的 "-"
,但如果它是最后一个匹配项,则将其删除。
extractAmounts <- function(s, default=NA_character_) {
vec <- strsplit(s, "\\s+")[[1]][-1]
vec2 <- which(cumall(grepl("[0-9]", vec) | vec == "-"))
if (isTRUE(length(vec2) > 0)) {
# remove a trailing "-" that does not result in a range
if (vec[ tail(vec2, 1) ] == "-") vec2 <- vec2[-length(vec2)]
return(paste(vec[vec2], collapse = " "))
} else return(default)
}
快速获得原始单位,始终是第一个词。
extractUnits <- function(s)
head(strsplit(s, "\\s+")[[1]], 1)
测试:
m <- fixEmpties(m)
sapply(m, extractUnits, USE.NAMES=FALSE)
# [1] "INF" "TABS" NA "CAPS" "INF" "INJ" NA NA "INJ" "INF"
# [11] "VIAL" "INF" "INF"
sapply(m, extractAmounts, USE.NAMES=FALSE)
# [1] "4MG/5ML (5ML)" NA NA "300MG/0.5MG"
# [5] "1MG/ML" "1MG/ML" NA NA
# [9] "250MCG" "1MG/ML" "6.6MG/2ML" "1MG/ML"
# [13] "0.1MG - 100MG"
好的,现在将其放入管道中:
drug_name %>%
mutate(
full = fixEmpties(regmatches(Description, gregexpr(paste0(units1, ".*"), Description))),
unit = map_chr(full, extractUnits),
amt = map_chr(full, extractAmounts)
) %>%
select(-full)
# # A tibble: 13 x 3
# Description unit amt
# <chr> <chr> <chr>
# 1 ZOLEDRONIC ACID INF 4MG/5ML (5ML) INF 4MG/5ML (5ML)
# 2 CALCICHEW D3 FORTE CHEWABLE TABS TABS <NA>
# 3 DAYCASE DRUGS <NA> <NA>
# 4 AKYNZEO (NETUPITANT/PALONOSETRON) HARD CAPS 300MG/0.5MG CAPS 300MG/0.5MG
# 5 CYCLOPHOSPHAMIDE INF 1MG/ML INF 1MG/ML
# 6 EPIRUBICIN INJ 1MG/ML INJ 1MG/ML
# 7 DAYCASE DRUGS <NA> <NA>
# 8 DAYCASE DRUGS <NA> <NA>
# 9 ALOXI (PALONOSETRON) INJ 250MCG INJ 250MCG
# 10 PACLITAXEL INF 1MG/ML INF 1MG/ML
# 11 DEXAMETHASONE VIAL 6.6MG/2ML - USE PSD742 VIAL 6.6MG/2ML
# 12 PACLITAXEL INF 1MG/ML INF 1MG/ML
# 13 RAMUCIRUMAB INF 0.1MG - 100MG INF 0.1MG - 100MG
关于r - 在 R 中使用 ifelse 和 grepl 进行变异并创建具有匹配字符串的新列,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/52427265/
使用sed和/或awk,仅在行包含字符串“ foo”并且行之前和之后的行分别包含字符串“ bar”和“ baz”时,我才希望删除行。 因此,对于此输入: blah blah foo blah bar
例如: S1: "some filename contains few words.txt" S2:“一些文件名包含几个单词 - draft.txt” S3:“一些文件名包含几个单词 - 另一个 dr
我正在尝试处理一些非常困惑的数据。我需要通过样本 ID 合并两个包含不同类型数据的大数据框。问题是一张表的样本 ID 有许多不同的格式,但大多数都包含用于匹配其 ID 中某处所需的 ID 字符串,例如
我想在匹配特定屏幕尺寸时显示特定图像。在这种情况下,对于 Bootstrap ,我使用 col-xx-## 作为我的选择。但似乎它并没有真正按照我认为应该的方式工作。 基本思路,我想显示一种全屏图像,
出于某种原因,这条规则 RewriteCond %{REQUEST_FILENAME} !-f RewriteCond %{REQUEST_FILENAME} !-d RewriteRule ^(.*
我想做类似的东西(Nemerle 语法) def something = match(STT) | 1 with st= "Summ" | 2 with st= "AVG" =>
假设这是我的代码 var str="abc=1234587;abc=19855284;abc=1234587;abc=19855284;abc=1234587;abc=19855284;abc=123
我怎样才能得到这个字符串的数字:'(31.5393701, -82.46235569999999)' 我已经在尝试了,但这离解决方案还很远:) text.match(/\((\d+),(\d+)\)/
如何去除输出中的逗号 (,)?有没有更好的方法从字符串或句子中搜索 url。 alert(" http://www.cnn.com df".match(/https?:\/\/([-\w\.]+
a = ('one', 'two') b = ('ten', 'ten') z = [('four', 'five', 'six'), ('one', 'two', 'twenty')] 我正在尝试
我已经编写了以下代码,我希望用它来查找从第 21 列到另一张表中最后一行的值,并根据这张表中 A 列和另一张表中 B 列中的值将它们返回到这张表床单。 当我使用下面的代码时,我得到一个工作表错误。你能
我在以下结构中有两列 A B 1 49 4922039670 我已经能够评估 =LEN(A1)如2 , =LEFT(B1,2)如49 , 和 =LEFT(B1,LEN(A1)
我有一个文件,其中一行可以以 + 开头, -或 * .在其中一些行之间可以有以字母或数字(一般文本)开头的行(也包含这些字符,但不在第 1 列中!)。 知道这一点,设置匹配和突出显示机制的最简单方法是
我有一个数据字段文件,其中可能包含注释,如下所示: id, data, data, data 101 a, b, c 102 d, e, f 103 g, h, i // has to do with
我有以下模式:/^\/(?P.+)$/匹配:/url . 我的问题是它也匹配 /url/page ,如何忽略/在这个正则表达式中? 该模式应该: 模式匹配:/url 模式不匹配:/url/page 提
我有一个非常庞大且复杂的数据集,其中包含许多对公司的观察。公司的一些观察是多余的,我需要制作一个键来将多余的观察映射到一个单独的观察。然而,判断他们是否真的代表同一家公司的唯一方法是通过各种变量的相似
我有以下 XML A B C 我想查找 if not(exists(//Record/subRecord
我制作了一个正则表达式来验证潜在的比特币地址,现在当我单击报价按钮时,我希望根据正则表达式检查表单中输入的值,但它不起作用。 https://jsfiddle.net/arkqdc8a/5/ var
我有一些 MS Word 文档,我已将其全部内容转移到 SQL 表中。 内容包含多个方括号和大括号,例如 [{a} as at [b],] {c,} {d,} etc 我需要进行检查以确保括号平衡/匹
我正在使用 Node.js 从 XML 文件读取数据。但是当我尝试将文件中的数据与文字进行比较时,它不匹配,即使它看起来相同: const parser: xml2js.Parser = new
我是一名优秀的程序员,十分优秀!