2018-12-23 21:26:21 +01:00
<!-- Generated by pkgdown: do not edit by hand -->
<!DOCTYPE html>
< html lang = "en" >
< head >
< meta charset = "utf-8" >
< meta http-equiv = "X-UA-Compatible" content = "IE=edge" >
< meta name = "viewport" content = "width=device-width, initial-scale=1.0" >
2019-01-27 19:30:40 +01:00
< title > AMR plots with < code > ggplot2< / code > — ggplot_rsi • AMR (for R)< / title >
2018-12-29 22:24:19 +01:00
<!-- favicons -->
< link rel = "icon" type = "image/png" sizes = "16x16" href = "../favicon-16x16.png" >
< link rel = "icon" type = "image/png" sizes = "32x32" href = "../favicon-32x32.png" >
< link rel = "apple-touch-icon" type = "image/png" sizes = "180x180" href = "../apple-touch-icon.png" / >
< link rel = "apple-touch-icon" type = "image/png" sizes = "120x120" href = "../apple-touch-icon-120x120.png" / >
< link rel = "apple-touch-icon" type = "image/png" sizes = "76x76" href = "../apple-touch-icon-76x76.png" / >
< link rel = "apple-touch-icon" type = "image/png" sizes = "60x60" href = "../apple-touch-icon-60x60.png" / >
2018-12-23 21:26:21 +01:00
<!-- jquery -->
< script src = "https://cdnjs.cloudflare.com/ajax/libs/jquery/3.3.1/jquery.min.js" integrity = "sha256-FgpCb/KJQlLNfOu91ta32o/NMZxltwRo8QtmkMRdAu8=" crossorigin = "anonymous" > < / script >
<!-- Bootstrap -->
2018-12-29 22:24:19 +01:00
< link href = "https://cdnjs.cloudflare.com/ajax/libs/bootswatch/3.3.7/flatly/bootstrap.min.css" rel = "stylesheet" crossorigin = "anonymous" / >
2018-12-23 21:26:21 +01:00
< script src = "https://cdnjs.cloudflare.com/ajax/libs/twitter-bootstrap/3.3.7/js/bootstrap.min.js" integrity = "sha256-U5ZEeKfGNOja007MMD3YBI0A3OSZOQbeG6z2f2Y0hu8=" crossorigin = "anonymous" > < / script >
<!-- Font Awesome icons -->
< link rel = "stylesheet" href = "https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css" integrity = "sha256-eZrrJcwDc/3uDhsdt61sL2oOBY362qM3lon1gyExkL0=" crossorigin = "anonymous" / >
<!-- clipboard.js -->
< script src = "https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.4/clipboard.min.js" integrity = "sha256-FiZwavyI2V6+EXO1U+xzLG3IKldpiTFf3153ea9zikQ=" crossorigin = "anonymous" > < / script >
<!-- sticky kit -->
< script src = "https://cdnjs.cloudflare.com/ajax/libs/sticky-kit/1.1.3/sticky-kit.min.js" integrity = "sha256-c4Rlo1ZozqTPE2RLuvbusY3+SU1pQaJC0TjuhygMipw=" crossorigin = "anonymous" > < / script >
<!-- pkgdown -->
< link href = "../pkgdown.css" rel = "stylesheet" >
< script src = "../pkgdown.js" > < / script >
2018-12-29 22:24:19 +01:00
<!-- docsearch -->
< script src = "../docsearch.js" > < / script >
< link rel = "stylesheet" href = "https://cdnjs.cloudflare.com/ajax/libs/docsearch.js/2.6.1/docsearch.min.css" integrity = "sha256-QOSRU/ra9ActyXkIBbiIB144aDBdtvXBcNc3OTNuX/Q=" crossorigin = "anonymous" / >
< link href = "../docsearch.css" rel = "stylesheet" >
< script src = "https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/jquery.mark.min.js" integrity = "sha256-4HLtjeVgH0eIB3aZ9mLYF6E8oU5chNdjU6p6rrXpl9U=" crossorigin = "anonymous" > < / script >
2018-12-23 21:26:21 +01:00
2018-12-29 22:24:19 +01:00
< link href = "../extra.css" rel = "stylesheet" >
< script src = "../extra.js" > < / script >
2019-01-27 19:30:40 +01:00
< meta property = "og:title" content = "AMR plots with <code>ggplot2</code> — ggplot_rsi" / >
2018-12-23 21:26:21 +01:00
< meta property = "og:description" content = "Use these functions to create bar plots for antimicrobial resistance analysis. All functions rely on internal ggplot functions." / >
2018-12-29 22:24:19 +01:00
2019-01-02 23:24:07 +01:00
< meta property = "og:image" content = "https://msberends.gitlab.io/AMR/logo.png" / >
2018-12-23 21:26:21 +01:00
< meta name = "twitter:card" content = "summary" / >
<!-- mathjax -->
< script src = "https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity = "sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin = "anonymous" > < / script >
< script src = "https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity = "sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin = "anonymous" > < / script >
<!-- [if lt IE 9]>
< script src = "https://oss.maxcdn.com/html5shiv/3.7.3/html5shiv.min.js" > < / script >
< script src = "https://oss.maxcdn.com/respond/1.4.2/respond.min.js" > < / script >
<![endif]-->
< / head >
< body >
< div class = "container template-reference-topic" >
< header >
< div class = "navbar navbar-default navbar-fixed-top" role = "navigation" >
< div class = "container" >
< div class = "navbar-header" >
< button type = "button" class = "navbar-toggle collapsed" data-toggle = "collapse" data-target = "#navbar" aria-expanded = "false" >
< span class = "sr-only" > Toggle navigation< / span >
< span class = "icon-bar" > < / span >
< span class = "icon-bar" > < / span >
< span class = "icon-bar" > < / span >
< / button >
< span class = "navbar-brand" >
2018-12-29 22:24:19 +01:00
< a class = "navbar-link" href = "../index.html" > AMR (for R)< / a >
2019-02-26 12:33:26 +01:00
< span class = "version label label-default" data-toggle = "tooltip" data-placement = "bottom" title = "Released version" > 0.5.0.9019< / span >
2018-12-23 21:26:21 +01:00
< / span >
< / div >
< div id = "navbar" class = "navbar-collapse collapse" >
< ul class = "nav navbar-nav" >
< li >
< a href = "../index.html" >
2018-12-29 22:24:19 +01:00
< span class = "fa fa-home" > < / span >
2018-12-23 21:26:21 +01:00
2018-12-29 22:24:19 +01:00
Home
2018-12-23 21:26:21 +01:00
< / a >
< / li >
2019-01-02 23:24:07 +01:00
< li class = "dropdown" >
< a href = "#" class = "dropdown-toggle" data-toggle = "dropdown" role = "button" aria-expanded = "false" >
< span class = "fa fa-question-circle" > < / span >
How to
2018-12-29 22:24:19 +01:00
2019-01-02 23:24:07 +01:00
< span class = "caret" > < / span >
2018-12-29 22:24:19 +01:00
< / a >
2019-01-02 23:24:07 +01:00
< ul class = "dropdown-menu" role = "menu" >
< li >
< a href = "../articles/AMR.html" >
< span class = "fa fa-directions" > < / span >
Conduct AMR analysis
< / a >
< / li >
< li >
2019-02-14 10:23:51 +01:00
< a href = "../articles/resistance_predict.html" >
2019-01-02 23:24:07 +01:00
< span class = "fa fa-dice" > < / span >
Predict antimicrobial resistance
< / a >
< / li >
2019-01-29 00:06:50 +01:00
< li >
< a href = "../articles/WHONET.html" >
< span class = "fa fa-globe-americas" > < / span >
Work with WHONET data
< / a >
< / li >
2019-02-14 15:18:17 +01:00
< li >
< a href = "../articles/SPSS.html" >
< span class = "fa fa-file-upload" > < / span >
Import data from SPSS/SAS/Stata
< / a >
< / li >
2019-01-02 23:24:07 +01:00
< li >
< a href = "../articles/EUCAST.html" >
< span class = "fa fa-exchange-alt" > < / span >
Apply EUCAST rules
< / a >
< / li >
< li >
2019-02-14 10:23:51 +01:00
< a href = "../reference/mo_property.html" >
2019-01-02 23:24:07 +01:00
< span class = "fa fa-bug" > < / span >
Get properties of a microorganism
< / a >
< / li >
< li >
2019-02-14 10:23:51 +01:00
< a href = "../reference/atc_property.html" >
2019-01-02 23:24:07 +01:00
< span class = "fa fa-capsules" > < / span >
Get properties of an antibiotic
< / a >
< / li >
< li >
< a href = "../articles/freq.html" >
< span class = "fa fa-sort-amount-down" > < / span >
Create frequency tables
< / a >
< / li >
< li >
< a href = "../articles/G_test.html" >
< span class = "fa fa-clipboard-check" > < / span >
Use the G-test
< / a >
< / li >
2019-01-11 20:37:23 +01:00
< li >
< a href = "../articles/benchmarks.html" >
< span class = "fa fa-shipping-fast" > < / span >
Other: benchmarks
< / a >
< / li >
2019-01-02 23:24:07 +01:00
< / ul >
2018-12-23 21:26:21 +01:00
< / li >
< li >
2018-12-29 22:24:19 +01:00
< a href = "../reference/" >
< span class = "fa fa-book-open" > < / span >
Manual
< / a >
2018-12-23 21:26:21 +01:00
< / li >
2018-12-29 22:24:19 +01:00
< li >
< a href = "../authors.html" >
< span class = "fa fa-users" > < / span >
2018-12-23 21:26:21 +01:00
2018-12-29 22:24:19 +01:00
Authors
2018-12-23 21:26:21 +01:00
< / a >
< / li >
< li >
2018-12-29 22:24:19 +01:00
< a href = "../news/" >
< span class = "far fa far fa-newspaper" > < / span >
Changelog
< / a >
< / li >
2019-01-02 23:24:07 +01:00
< / ul >
< ul class = "nav navbar-nav navbar-right" >
< li >
2018-12-29 22:24:19 +01:00
< a href = "https://gitlab.com/msberends/AMR" >
< span class = "fab fa fab fa-gitlab" > < / span >
Source Code
< / a >
2018-12-23 21:26:21 +01:00
< / li >
2019-01-02 23:24:07 +01:00
< li >
2018-12-29 22:24:19 +01:00
< a href = "../LICENSE-text.html" >
< span class = "fa fa-book" > < / span >
Licence
< / a >
< / li >
2018-12-23 21:26:21 +01:00
< / ul >
2018-12-29 22:24:19 +01:00
< form class = "navbar-form navbar-right" role = "search" >
< div class = "form-group" >
< input type = "search" class = "form-control" name = "search-input" id = "search-input" placeholder = "Search..." aria-label = "Search for..." autocomplete = "off" >
< / div >
< / form >
2018-12-23 21:26:21 +01:00
< / div > <!-- /.nav - collapse -->
< / div > <!-- /.container -->
< / div > <!-- /.navbar -->
< / header >
< div class = "row" >
< div class = "col-md-9 contents" >
< div class = "page-header" >
2019-01-27 19:30:40 +01:00
< h1 > AMR plots with < code > ggplot2< / code > < / h1 >
2018-12-23 21:26:21 +01:00
< div class = "hidden name" > < code > ggplot_rsi.Rd< / code > < / div >
< / div >
< div class = "ref-description" >
2019-01-29 20:20:09 +01:00
< p > Use these functions to create bar plots for antimicrobial resistance analysis. All functions rely on internal < code > < a href = 'https://ggplot2.tidyverse.org/reference/ggplot.html' > ggplot< / a > < / code > functions.< / p >
2018-12-23 21:26:21 +01:00
< / div >
< pre class = "usage" > < span class = 'fu' > ggplot_rsi< / span > (< span class = 'no' > data< / span > , < span class = 'kw' > position< / span > < span class = 'kw' > =< / span > < span class = 'kw' > NULL< / span > , < span class = 'kw' > x< / span > < span class = 'kw' > =< / span > < span class = 'st' > "Antibiotic"< / span > ,
< span class = 'kw' > fill< / span > < span class = 'kw' > =< / span > < span class = 'st' > "Interpretation"< / span > , < span class = 'kw' > facet< / span > < span class = 'kw' > =< / span > < span class = 'kw' > NULL< / span > , < span class = 'kw' > breaks< / span > < span class = 'kw' > =< / span > < span class = 'fu' > < a href = 'https://www.rdocumentation.org/packages/base/topics/seq' > seq< / a > < / span > (< span class = 'fl' > 0< / span > , < span class = 'fl' > 1< / span > , < span class = 'fl' > 0.1< / span > ),
< span class = 'kw' > limits< / span > < span class = 'kw' > =< / span > < span class = 'kw' > NULL< / span > , < span class = 'kw' > translate_ab< / span > < span class = 'kw' > =< / span > < span class = 'st' > "official"< / span > , < span class = 'kw' > fun< / span > < span class = 'kw' > =< / span > < span class = 'no' > count_df< / span > ,
< span class = 'kw' > nrow< / span > < span class = 'kw' > =< / span > < span class = 'kw' > NULL< / span > , < span class = 'kw' > datalabels< / span > < span class = 'kw' > =< / span > < span class = 'fl' > TRUE< / span > , < span class = 'kw' > datalabels.size< / span > < span class = 'kw' > =< / span > < span class = 'fl' > 3< / span > ,
< span class = 'kw' > datalabels.colour< / span > < span class = 'kw' > =< / span > < span class = 'st' > "grey15"< / span > , < span class = 'no' > ...< / span > )
< span class = 'fu' > geom_rsi< / span > (< span class = 'kw' > position< / span > < span class = 'kw' > =< / span > < span class = 'kw' > NULL< / span > , < span class = 'kw' > x< / span > < span class = 'kw' > =< / span > < span class = 'fu' > < a href = 'https://www.rdocumentation.org/packages/base/topics/c' > c< / a > < / span > (< span class = 'st' > "Antibiotic"< / span > , < span class = 'st' > "Interpretation"< / span > ),
< span class = 'kw' > fill< / span > < span class = 'kw' > =< / span > < span class = 'st' > "Interpretation"< / span > , < span class = 'kw' > translate_ab< / span > < span class = 'kw' > =< / span > < span class = 'st' > "official"< / span > , < span class = 'kw' > fun< / span > < span class = 'kw' > =< / span > < span class = 'no' > count_df< / span > ,
< span class = 'no' > ...< / span > )
< span class = 'fu' > facet_rsi< / span > (< span class = 'kw' > facet< / span > < span class = 'kw' > =< / span > < span class = 'fu' > < a href = 'https://www.rdocumentation.org/packages/base/topics/c' > c< / a > < / span > (< span class = 'st' > "Interpretation"< / span > , < span class = 'st' > "Antibiotic"< / span > ), < span class = 'kw' > nrow< / span > < span class = 'kw' > =< / span > < span class = 'kw' > NULL< / span > )
< span class = 'fu' > scale_y_percent< / span > (< span class = 'kw' > breaks< / span > < span class = 'kw' > =< / span > < span class = 'fu' > < a href = 'https://www.rdocumentation.org/packages/base/topics/seq' > seq< / a > < / span > (< span class = 'fl' > 0< / span > , < span class = 'fl' > 1< / span > , < span class = 'fl' > 0.1< / span > ), < span class = 'kw' > limits< / span > < span class = 'kw' > =< / span > < span class = 'kw' > NULL< / span > )
< span class = 'fu' > scale_rsi_colours< / span > ()
< span class = 'fu' > theme_rsi< / span > ()
< span class = 'fu' > labels_rsi_count< / span > (< span class = 'kw' > position< / span > < span class = 'kw' > =< / span > < span class = 'kw' > NULL< / span > , < span class = 'kw' > x< / span > < span class = 'kw' > =< / span > < span class = 'st' > "Antibiotic"< / span > ,
< span class = 'kw' > datalabels.size< / span > < span class = 'kw' > =< / span > < span class = 'fl' > 3< / span > , < span class = 'kw' > datalabels.colour< / span > < span class = 'kw' > =< / span > < span class = 'st' > "grey15"< / span > )< / pre >
< h2 class = "hasAnchor" id = "arguments" > < a class = "anchor" href = "#arguments" > < / a > Arguments< / h2 >
< table class = "ref-arguments" >
< colgroup > < col class = "name" / > < col class = "desc" / > < / colgroup >
< tr >
< th > data< / th >
2018-12-31 01:48:53 +01:00
< td > < p > a < code > data.frame< / code > with column(s) of class < code > "rsi"< / code > (see < code > < a href = 'as.rsi.html' > as.rsi< / a > < / code > )< / p > < / td >
2018-12-23 21:26:21 +01:00
< / tr >
< tr >
< th > position< / th >
2018-12-31 01:48:53 +01:00
< td > < p > position adjustment of bars, either < code > "fill"< / code > (default when < code > fun< / code > is < code > < a href = 'count.html' > count_df< / a > < / code > ), < code > "stack"< / code > (default when < code > fun< / code > is < code > < a href = 'portion.html' > portion_df< / a > < / code > ) or < code > "dodge"< / code > < / p > < / td >
2018-12-23 21:26:21 +01:00
< / tr >
< tr >
< th > x< / th >
< td > < p > variable to show on x axis, either < code > "Antibiotic"< / code > (default) or < code > "Interpretation"< / code > or a grouping variable< / p > < / td >
< / tr >
< tr >
< th > fill< / th >
< td > < p > variable to categorise using the plots legend, either < code > "Antibiotic"< / code > (default) or < code > "Interpretation"< / code > or a grouping variable< / p > < / td >
< / tr >
< tr >
< th > facet< / th >
< td > < p > variable to split plots by, either < code > "Interpretation"< / code > (default) or < code > "Antibiotic"< / code > or a grouping variable< / p > < / td >
< / tr >
< tr >
< th > breaks< / th >
< td > < p > numeric vector of positions< / p > < / td >
< / tr >
< tr >
< th > limits< / th >
< td > < p > numeric vector of length two providing limits of the scale, use < code > NA< / code > to refer to the existing minimum or maximum< / p > < / td >
< / tr >
< tr >
< th > translate_ab< / th >
2018-12-31 01:48:53 +01:00
< td > < p > a column name of the < code > < a href = 'antibiotics.html' > antibiotics< / a > < / code > data set to translate the antibiotic abbreviations into, using < code > < a href = 'abname.html' > abname< / a > < / code > . Default behaviour is to translate to official names according to the WHO. Use < code > translate_ab = FALSE< / code > to disable translation.< / p > < / td >
2018-12-23 21:26:21 +01:00
< / tr >
< tr >
< th > fun< / th >
2018-12-31 01:48:53 +01:00
< td > < p > function to transform < code > data< / code > , either < code > < a href = 'count.html' > count_df< / a > < / code > (default) or < code > < a href = 'portion.html' > portion_df< / a > < / code > < / p > < / td >
2018-12-23 21:26:21 +01:00
< / tr >
< tr >
< th > nrow< / th >
< td > < p > (when using < code > facet< / code > ) number of rows< / p > < / td >
< / tr >
< tr >
< th > datalabels< / th >
< td > < p > show datalabels using < code > labels_rsi_count< / code > , will at default only be shown when < code > fun = count_df< / code > < / p > < / td >
< / tr >
< tr >
< th > datalabels.size< / th >
< td > < p > size of the datalabels< / p > < / td >
< / tr >
< tr >
< th > datalabels.colour< / th >
< td > < p > colour of the datalabels< / p > < / td >
< / tr >
< tr >
< th > ...< / th >
< td > < p > other parameters passed on to < code > geom_rsi< / code > < / p > < / td >
< / tr >
< / table >
< h2 class = "hasAnchor" id = "details" > < a class = "anchor" href = "#details" > < / a > Details< / h2 >
2018-12-31 01:48:53 +01:00
< p > At default, the names of antibiotics will be shown on the plots using < code > < a href = 'abname.html' > abname< / a > < / code > . This can be set with the option < code > get_antibiotic_names< / code > (a logical value), so change it e.g. to < code > FALSE< / code > with < code > < a href = 'https://www.rdocumentation.org/packages/base/topics/options' > options(get_antibiotic_names = FALSE)< / a > < / code > .< / p >
2018-12-23 21:26:21 +01:00
< p > < strong > The functions< / strong > < br / >
2018-12-31 01:48:53 +01:00
< code > geom_rsi< / code > will take any variable from the data that has an < code > rsi< / code > class (created with < code > < a href = 'as.rsi.html' > as.rsi< / a > < / code > ) using < code > fun< / code > (< code > < a href = 'count.html' > count_df< / a > < / code > at default, can also be < code > < a href = 'portion.html' > portion_df< / a > < / code > ) and will plot bars with the percentage R, I and S. The default behaviour is to have the bars stacked and to have the different antibiotics on the x axis.< / p >
2019-01-29 20:20:09 +01:00
< p > < code > facet_rsi< / code > creates 2d plots (at default based on S/I/R) using < code > < a href = 'https://ggplot2.tidyverse.org/reference/facet_wrap.html' > facet_wrap< / a > < / code > .< / p >
2018-12-23 21:26:21 +01:00
< p > < code > scale_y_percent< / code > transforms the y axis to a 0 to 100% range using < code > scale_continuous< / code > .< / p >
< p > < code > scale_rsi_colours< / code > sets colours to the bars: green for S, yellow for I and red for R, using < code > scale_brewer< / code > .< / p >
2019-01-04 09:49:42 +01:00
< p > < code > theme_rsi< / code > is a < code > ggplot < a href = 'https://ggplot2.tidyverse.org/reference/theme.html' > theme< / a > < / code > with minimal distraction.< / p >
2018-12-23 21:26:21 +01:00
< p > < code > labels_rsi_count< / code > print datalabels on the bars with percentage and amount of isolates using < code > < a href = 'https://ggplot2.tidyverse.org/reference/geom_text.html' > geom_text< / a > < / code > < / p >
< p > < code > ggplot_rsi< / code > is a wrapper around all above functions that uses data as first input. This makes it possible to use this function after a pipe (< code > %> %< / code > ). See Examples.< / p >
2019-01-02 23:24:07 +01:00
< h2 class = "hasAnchor" id = "read-more-on-our-website-" > < a class = "anchor" href = "#read-more-on-our-website-" > < / a > Read more on our website!< / h2 >
2019-02-21 18:55:52 +01:00
< p > On our website < a href = 'https://msberends.gitlab.io/AMR' > https://msberends.gitlab.io/AMR< / a > you can find < a href = 'https://msberends.gitlab.io/AMR/articles/AMR.html' > a comprehensive tutorial< / a > about how to conduct AMR analysis, the < a href = 'https://msberends.gitlab.io/AMR/reference' > complete documentation of all functions< / a > (which reads a lot easier than here in R) and < a href = 'https://msberends.gitlab.io/AMR/articles/WHONET.html' > an example analysis using WHONET data< / a > .< / p >
2019-01-02 23:24:07 +01:00
2018-12-23 21:26:21 +01:00
< h2 class = "hasAnchor" id = "examples" > < a class = "anchor" href = "#examples" > < / a > Examples< / h2 >
2019-01-02 23:24:07 +01:00
< pre class = "examples" > < span class = 'co' > # NOT RUN {< / span >
< span class = 'fu' > < a href = 'https://www.rdocumentation.org/packages/base/topics/library' > library< / a > < / span > (< span class = 'no' > dplyr< / span > )
2018-12-23 21:26:21 +01:00
< span class = 'fu' > < a href = 'https://www.rdocumentation.org/packages/base/topics/library' > library< / a > < / span > (< span class = 'no' > ggplot2< / span > )
< span class = 'co' > # get antimicrobial results for drugs against a UTI:< / span >
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://ggplot2.tidyverse.org/reference/ggplot.html' > ggplot< / a > < / span > (< span class = 'no' > septic_patients< / span > < span class = 'kw' > %> %< / span > < span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/select.html' > select< / a > < / span > (< span class = 'no' > amox< / span > , < span class = 'no' > nitr< / span > , < span class = 'no' > fosf< / span > , < span class = 'no' > trim< / span > , < span class = 'no' > cipr< / span > )) +
2019-01-02 23:24:07 +01:00
< span class = 'fu' > geom_rsi< / span > ()
2018-12-23 21:26:21 +01:00
< span class = 'co' > # prettify the plot using some additional functions:< / span >
< span class = 'no' > df< / span > < span class = 'kw' > < -< / span > < span class = 'no' > septic_patients< / span > [, < span class = 'fu' > < a href = 'https://www.rdocumentation.org/packages/base/topics/c' > c< / a > < / span > (< span class = 'st' > "amox"< / span > , < span class = 'st' > "nitr"< / span > , < span class = 'st' > "fosf"< / span > , < span class = 'st' > "trim"< / span > , < span class = 'st' > "cipr"< / span > )]
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://ggplot2.tidyverse.org/reference/ggplot.html' > ggplot< / a > < / span > (< span class = 'no' > df< / span > ) +
2018-12-23 21:26:21 +01:00
< span class = 'fu' > geom_rsi< / span > () +
< span class = 'fu' > scale_y_percent< / span > () +
< span class = 'fu' > scale_rsi_colours< / span > () +
< span class = 'fu' > labels_rsi_count< / span > () +
2019-01-02 23:24:07 +01:00
< span class = 'fu' > theme_rsi< / span > ()
2018-12-23 21:26:21 +01:00
< span class = 'co' > # or better yet, simplify this using the wrapper function - a single command:< / span >
< span class = 'no' > septic_patients< / span > < span class = 'kw' > %> %< / span >
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/select.html' > select< / a > < / span > (< span class = 'no' > amox< / span > , < span class = 'no' > nitr< / span > , < span class = 'no' > fosf< / span > , < span class = 'no' > trim< / span > , < span class = 'no' > cipr< / span > ) < span class = 'kw' > %> %< / span >
2019-01-02 23:24:07 +01:00
< span class = 'fu' > ggplot_rsi< / span > ()
2018-12-23 21:26:21 +01:00
< span class = 'co' > # get only portions and no counts:< / span >
< span class = 'no' > septic_patients< / span > < span class = 'kw' > %> %< / span >
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/select.html' > select< / a > < / span > (< span class = 'no' > amox< / span > , < span class = 'no' > nitr< / span > , < span class = 'no' > fosf< / span > , < span class = 'no' > trim< / span > , < span class = 'no' > cipr< / span > ) < span class = 'kw' > %> %< / span >
2019-01-02 23:24:07 +01:00
< span class = 'fu' > ggplot_rsi< / span > (< span class = 'kw' > fun< / span > < span class = 'kw' > =< / span > < span class = 'no' > portion_df< / span > )
2018-12-23 21:26:21 +01:00
< span class = 'co' > # add other ggplot2 parameters as you like:< / span >
< span class = 'no' > septic_patients< / span > < span class = 'kw' > %> %< / span >
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/select.html' > select< / a > < / span > (< span class = 'no' > amox< / span > , < span class = 'no' > nitr< / span > , < span class = 'no' > fosf< / span > , < span class = 'no' > trim< / span > , < span class = 'no' > cipr< / span > ) < span class = 'kw' > %> %< / span >
2018-12-23 21:26:21 +01:00
< span class = 'fu' > ggplot_rsi< / span > (< span class = 'kw' > width< / span > < span class = 'kw' > =< / span > < span class = 'fl' > 0.5< / span > ,
< span class = 'kw' > colour< / span > < span class = 'kw' > =< / span > < span class = 'st' > "black"< / span > ,
< span class = 'kw' > size< / span > < span class = 'kw' > =< / span > < span class = 'fl' > 1< / span > ,
< span class = 'kw' > linetype< / span > < span class = 'kw' > =< / span > < span class = 'fl' > 2< / span > ,
2019-01-02 23:24:07 +01:00
< span class = 'kw' > alpha< / span > < span class = 'kw' > =< / span > < span class = 'fl' > 0.25< / span > )
2018-12-23 21:26:21 +01:00
< span class = 'co' > # resistance of ciprofloxacine per age group< / span >
< span class = 'no' > septic_patients< / span > < span class = 'kw' > %> %< / span >
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/mutate.html' > mutate< / a > < / span > (< span class = 'kw' > first_isolate< / span > < span class = 'kw' > =< / span > < span class = 'fu' > < a href = 'first_isolate.html' > first_isolate< / a > < / span > (< span class = 'no' > .< / span > )) < span class = 'kw' > %> %< / span >
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/filter.html' > filter< / a > < / span > (< span class = 'no' > first_isolate< / span > < span class = 'kw' > ==< / span > < span class = 'fl' > TRUE< / span > ,
2018-12-31 01:48:53 +01:00
< span class = 'no' > mo< / span > < span class = 'kw' > ==< / span > < span class = 'fu' > < a href = 'as.mo.html' > as.mo< / a > < / span > (< span class = 'st' > "E. coli"< / span > )) < span class = 'kw' > %> %< / span >
2018-12-23 21:26:21 +01:00
< span class = 'co' > # `age_group` is also a function of this package:< / span >
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/group_by.html' > group_by< / a > < / span > (< span class = 'kw' > age_group< / span > < span class = 'kw' > =< / span > < span class = 'fu' > < a href = 'age_groups.html' > age_groups< / a > < / span > (< span class = 'no' > age< / span > )) < span class = 'kw' > %> %< / span >
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/select.html' > select< / a > < / span > (< span class = 'no' > age_group< / span > ,
2018-12-23 21:26:21 +01:00
< span class = 'no' > cipr< / span > ) < span class = 'kw' > %> %< / span >
2019-01-02 23:24:07 +01:00
< span class = 'fu' > ggplot_rsi< / span > (< span class = 'kw' > x< / span > < span class = 'kw' > =< / span > < span class = 'st' > "age_group"< / span > )
< span class = 'co' > # }< / span > < span class = 'co' > # NOT RUN {< / span >
2018-12-23 21:26:21 +01:00
< span class = 'co' > # for colourblind mode, use divergent colours from the viridis package:< / span >
< span class = 'no' > septic_patients< / span > < span class = 'kw' > %> %< / span >
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/select.html' > select< / a > < / span > (< span class = 'no' > amox< / span > , < span class = 'no' > nitr< / span > , < span class = 'no' > fosf< / span > , < span class = 'no' > trim< / span > , < span class = 'no' > cipr< / span > ) < span class = 'kw' > %> %< / span >
< span class = 'fu' > ggplot_rsi< / span > () + < span class = 'fu' > < a href = 'https://ggplot2.tidyverse.org/reference/scale_viridis.html' > scale_fill_viridis_d< / a > < / span > ()
2019-01-02 23:24:07 +01:00
2018-12-23 21:26:21 +01:00
< span class = 'co' > # it also supports groups (don't forget to use the group var on `x` or `facet`):< / span >
< span class = 'no' > septic_patients< / span > < span class = 'kw' > %> %< / span >
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/select.html' > select< / a > < / span > (< span class = 'no' > hospital_id< / span > , < span class = 'no' > amox< / span > , < span class = 'no' > nitr< / span > , < span class = 'no' > fosf< / span > , < span class = 'no' > trim< / span > , < span class = 'no' > cipr< / span > ) < span class = 'kw' > %> %< / span >
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/group_by.html' > group_by< / a > < / span > (< span class = 'no' > hospital_id< / span > ) < span class = 'kw' > %> %< / span >
2018-12-23 21:26:21 +01:00
< span class = 'fu' > ggplot_rsi< / span > (< span class = 'kw' > x< / span > < span class = 'kw' > =< / span > < span class = 'no' > hospital_id< / span > ,
< span class = 'kw' > facet< / span > < span class = 'kw' > =< / span > < span class = 'no' > Antibiotic< / span > ,
< span class = 'kw' > nrow< / span > < span class = 'kw' > =< / span > < span class = 'fl' > 1< / span > ) +
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://ggplot2.tidyverse.org/reference/labs.html' > labs< / a > < / span > (< span class = 'kw' > title< / span > < span class = 'kw' > =< / span > < span class = 'st' > "AMR of Anti-UTI Drugs Per Hospital"< / span > ,
2019-01-02 23:24:07 +01:00
< span class = 'kw' > x< / span > < span class = 'kw' > =< / span > < span class = 'st' > "Hospital"< / span > )
2018-12-23 21:26:21 +01:00
< span class = 'co' > # genuine analysis: check 2 most prevalent microorganisms< / span >
< span class = 'no' > septic_patients< / span > < span class = 'kw' > %> %< / span >
< span class = 'co' > # create new bacterial ID's, with all CoNS under the same group (Becker et al.)< / span >
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/mutate.html' > mutate< / a > < / span > (< span class = 'kw' > mo< / span > < span class = 'kw' > =< / span > < span class = 'fu' > < a href = 'as.mo.html' > as.mo< / a > < / span > (< span class = 'no' > mo< / span > , < span class = 'kw' > Becker< / span > < span class = 'kw' > =< / span > < span class = 'fl' > TRUE< / span > )) < span class = 'kw' > %> %< / span >
2018-12-23 21:26:21 +01:00
< span class = 'co' > # filter on top three bacterial ID's< / span >
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/filter.html' > filter< / a > < / span > (< span class = 'no' > mo< / span > < span class = 'kw' > %in%< / span > < span class = 'fu' > < a href = 'freq.html' > top_freq< / a > < / span > (< span class = 'fu' > < a href = 'freq.html' > freq< / a > < / span > (< span class = 'no' > .< / span > $< span class = 'no' > mo< / span > ), < span class = 'fl' > 3< / span > )) < span class = 'kw' > %> %< / span >
2018-12-23 21:26:21 +01:00
< span class = 'co' > # determine first isolates< / span >
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/mutate.html' > mutate< / a > < / span > (< span class = 'kw' > first_isolate< / span > < span class = 'kw' > =< / span > < span class = 'fu' > < a href = 'first_isolate.html' > first_isolate< / a > < / span > (< span class = 'no' > .< / span > ,
2018-12-23 21:26:21 +01:00
< span class = 'kw' > col_date< / span > < span class = 'kw' > =< / span > < span class = 'st' > "date"< / span > ,
< span class = 'kw' > col_patient_id< / span > < span class = 'kw' > =< / span > < span class = 'st' > "patient_id"< / span > ,
< span class = 'kw' > col_mo< / span > < span class = 'kw' > =< / span > < span class = 'st' > "mo"< / span > )) < span class = 'kw' > %> %< / span >
< span class = 'co' > # filter on first isolates< / span >
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/filter.html' > filter< / a > < / span > (< span class = 'no' > first_isolate< / span > < span class = 'kw' > ==< / span > < span class = 'fl' > TRUE< / span > ) < span class = 'kw' > %> %< / span >
2018-12-23 21:26:21 +01:00
< span class = 'co' > # get short MO names (like "E. coli")< / span >
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/mutate.html' > mutate< / a > < / span > (< span class = 'kw' > mo< / span > < span class = 'kw' > =< / span > < span class = 'fu' > < a href = 'mo_property.html' > mo_shortname< / a > < / span > (< span class = 'no' > mo< / span > , < span class = 'kw' > Becker< / span > < span class = 'kw' > =< / span > < span class = 'fl' > TRUE< / span > )) < span class = 'kw' > %> %< / span >
2018-12-23 21:26:21 +01:00
< span class = 'co' > # select this short name and some antiseptic drugs< / span >
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/select.html' > select< / a > < / span > (< span class = 'no' > mo< / span > , < span class = 'no' > cfur< / span > , < span class = 'no' > gent< / span > , < span class = 'no' > cipr< / span > ) < span class = 'kw' > %> %< / span >
2018-12-23 21:26:21 +01:00
< span class = 'co' > # group by MO< / span >
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://dplyr.tidyverse.org/reference/group_by.html' > group_by< / a > < / span > (< span class = 'no' > mo< / span > ) < span class = 'kw' > %> %< / span >
2018-12-23 21:26:21 +01:00
< span class = 'co' > # plot the thing, putting MOs on the facet< / span >
< span class = 'fu' > ggplot_rsi< / span > (< span class = 'kw' > x< / span > < span class = 'kw' > =< / span > < span class = 'no' > Antibiotic< / span > ,
< span class = 'kw' > facet< / span > < span class = 'kw' > =< / span > < span class = 'no' > mo< / span > ,
< span class = 'kw' > translate_ab< / span > < span class = 'kw' > =< / span > < span class = 'fl' > FALSE< / span > ,
< span class = 'kw' > nrow< / span > < span class = 'kw' > =< / span > < span class = 'fl' > 1< / span > ) +
2019-01-29 20:20:09 +01:00
< span class = 'fu' > < a href = 'https://ggplot2.tidyverse.org/reference/labs.html' > labs< / a > < / span > (< span class = 'kw' > title< / span > < span class = 'kw' > =< / span > < span class = 'st' > "AMR of Top Three Microorganisms In Blood Culture Isolates"< / span > ,
2018-12-23 21:26:21 +01:00
< span class = 'kw' > subtitle< / span > < span class = 'kw' > =< / span > < span class = 'st' > "Only First Isolates, CoNS grouped according to Becker et al. (2014)"< / span > ,
2019-01-02 23:24:07 +01:00
< span class = 'kw' > x< / span > < span class = 'kw' > =< / span > < span class = 'st' > "Microorganisms"< / span > )
< span class = 'co' > # }< / span > < / pre >
2018-12-23 21:26:21 +01:00
< / div >
< div class = "col-md-3 hidden-xs hidden-sm" id = "sidebar" >
< h2 > Contents< / h2 >
< ul class = "nav nav-pills nav-stacked" >
< li > < a href = "#arguments" > Arguments< / a > < / li >
< li > < a href = "#details" > Details< / a > < / li >
2019-01-02 23:24:07 +01:00
< li > < a href = "#read-more-on-our-website-" > Read more on our website!< / a > < / li >
2018-12-23 21:26:21 +01:00
< li > < a href = "#examples" > Examples< / a > < / li >
< / ul >
< / div >
< / div >
< footer >
< div class = "copyright" >
2018-12-29 22:24:19 +01:00
< p > Developed by < a href = 'https://www.rug.nl/staff/m.s.berends/' > Matthijs S. Berends< / a > , < a href = 'https://www.rug.nl/staff/c.f.luz/' > Christian F. Luz< / a > , < a href = 'https://www.rug.nl/staff/c.glasner/' > Corinna Glasner< / a > , < a href = 'https://www.rug.nl/staff/a.w.friedrich/' > Alex W. Friedrich< / a > , < a href = 'https://www.rug.nl/staff/b.sinha/' > Bhanu N. M. Sinha< / a > .< / p >
2018-12-23 21:26:21 +01:00
< / div >
< div class = "pkgdown" >
< p > Site built with < a href = "https://pkgdown.r-lib.org/" > pkgdown< / a > 1.3.0.< / p >
< / div >
< / footer >
< / div >
2018-12-29 22:24:19 +01:00
< script src = "https://cdnjs.cloudflare.com/ajax/libs/docsearch.js/2.6.1/docsearch.min.js" integrity = "sha256-GKvGqXDznoRYHCwKXGnuchvKSwmx9SRMrZOTh2g4Sb0=" crossorigin = "anonymous" > < / script >
< script >
docsearch({
apiKey: 'f737050abfd4d726c63938e18f8c496e',
indexName: 'amr',
inputSelector: 'input#search-input.form-control',
transformData: function(hits) {
return hits.map(function (hit) {
hit.url = updateHitURL(hit);
return hit;
});
}
});
< / script >
2018-12-23 21:26:21 +01:00
< / body >
< / html >
