MDR.RmdWith the function mdro(), you can determine multi-drug resistant organisms (MDRO).
The mdro() takes a data set as input, such as a regular data.frame. It automatically determines the right columns for info about your isolates, like the name of the species and all columns with results of antimicrobial agents. See the help page for more info about how to set the right settings for your data with the command ?mdro.
For WHONET data (and most other data), all settings are automatically set correctly.
The function support multiple guidelines. You can select a guideline with the guideline parameter. Currently supported guidelines are (case-insensitive):
guideline = "CMI2012" (default)
guideline = "EUCAST"
guideline = "TB"
guideline = "MRGN"
guideline = "BRMO"
The Dutch national guideline - Rijksinstituut voor Volksgezondheid en Milieu “WIP-richtlijn BRMO (Bijzonder Resistente Micro-Organismen) [ZKH]” (link)
The mdro() function always returns an ordered factor. For example, the output of the default guideline by Magiorakos et al. returns a factor with levels ‘Negative’, ‘MDR’, ‘XDR’ or ‘PDR’ in that order. If we test that guideline on the included example_isolates data set, we get:
example_isolates %>%
mdro() %>%
freq() # show frequency table of the result
# NOTE: Using column `mo` as input for `col_mo`.
# NOTE: Auto-guessing columns suitable for analysis...OK.
# NOTE: Reliability will be improved if these antimicrobial results would be available too: SAM (ampicillin/sulbactam), ATM (aztreonam), CTT (cefotetan), CPT (ceftaroline), DAP (daptomycin), DOR (doripenem), ETP (ertapenem), FUS (fusidic acid), GEH (gentamicin-high), LVX (levofloxacin), MNO (minocycline), NET (netilmicin), PLB (polymyxin B), QDA (quinupristin/dalfopristin), STH (streptomycin-high), TLV (telavancin), TCC (ticarcillin/clavulanic acid)
# Table 1 - S. aureus ... OK
# Table 2 - Enterococcus spp. ... OK
# Table 3 - Enterobacteriaceae ... OK
# Table 4 - Pseudomonas aeruginosa ... OK
# Table 5 - Acinetobacter spp. ... OK
# Warning in mdro(.): NA introduced for isolates where the available
# percentage of antimicrobial classes was below 50% (set with
# `pct_required_classes`)Frequency table
Class: factor > ordered (numeric)
Length: 2,000 (of which NA: 289 = 14.45%)
Levels: 4: Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant …
Unique: 2
| Item | Count | Percent | Cum. Count | Cum. Percent | |
|---|---|---|---|---|---|
| 1 | Negative | 1596 | 93.28% | 1596 | 93.28% |
| 2 | Multi-drug-resistant (MDR) | 115 | 6.72% | 1711 | 100.00% |
For another example, I will create a data set to determine multi-drug resistant TB:
# a helper function to get a random vector with values S, I and R
# with the probabilities 50% - 10% - 40%
sample_rsi <- function() {
sample(c("S", "I", "R"),
size = 5000,
prob = c(0.5, 0.1, 0.4),
replace = TRUE)
}
my_TB_data <- data.frame(rifampicin = sample_rsi(),
isoniazid = sample_rsi(),
gatifloxacin = sample_rsi(),
ethambutol = sample_rsi(),
pyrazinamide = sample_rsi(),
moxifloxacin = sample_rsi(),
kanamycin = sample_rsi())Because all column names are automatically verified for valid drug names or codes, this would have worked exactly the same:
my_TB_data <- data.frame(RIF = sample_rsi(),
INH = sample_rsi(),
GAT = sample_rsi(),
ETH = sample_rsi(),
PZA = sample_rsi(),
MFX = sample_rsi(),
KAN = sample_rsi())The data set now looks like this:
head(my_TB_data)
# rifampicin isoniazid gatifloxacin ethambutol pyrazinamide moxifloxacin
# 1 S S R R S R
# 2 S R S S R S
# 3 R S R S R R
# 4 S S R S S I
# 5 R R S R S S
# 6 S S R R R S
# kanamycin
# 1 S
# 2 S
# 3 R
# 4 R
# 5 S
# 6 RWe can now add the interpretation of MDR-TB to our data set. You can use:
or its shortcut mdr_tb():
my_TB_data$mdr <- mdr_tb(my_TB_data)
# NOTE: No column found as input for `col_mo`, assuming all records contain Mycobacterium tuberculosis.
# NOTE: Auto-guessing columns suitable for analysis...OK.
# NOTE: Reliability will be improved if these antimicrobial results would be available too: CAP (capreomycin), RIB (rifabutin), RFP (rifapentine)
#
# Only results with 'R' are considered as resistance. Use `combine_SI = FALSE` to also consider 'I' as resistance.
#
# Determining multidrug-resistant organisms (MDRO), according to:
# Guideline: Companion handbook to the WHO guidelines for the programmatic management of drug-resistant tuberculosis
# Version: WHO/HTM/TB/2014.11
# Author: WHO (World Health Organization)
# Source: https://www.who.int/tb/publications/pmdt_companionhandbook/en/
#
# => Found 4371 MDROs out of 5000 tested isolates (87.4%)Create a frequency table of the results:
Frequency table
Class: factor > ordered (numeric)
Length: 5,000 (of which NA: 0 = 0%)
Levels: 5: Negative < Mono-resistant < Poly-resistant < Multi-drug-resistant <…
Unique: 5
| Item | Count | Percent | Cum. Count | Cum. Percent | |
|---|---|---|---|---|---|
| 1 | Mono-resistant | 3301 | 66.02% | 3301 | 66.02% |
| 2 | Negative | 629 | 12.58% | 3930 | 78.60% |
| 3 | Multi-drug-resistant | 596 | 11.92% | 4526 | 90.52% |
| 4 | Poly-resistant | 282 | 5.64% | 4808 | 96.16% |
| 5 | Extensively drug-resistant | 192 | 3.84% | 5000 | 100.00% |