mirror of https://github.com/msberends/AMR.git
72 lines
1.7 KiB
Plaintext
72 lines
1.7 KiB
Plaintext
---
|
|
title: "AMR Goes Vet"
|
|
author: "Jason, Matthew, Javier, Matthijs"
|
|
date: "2024-02-20"
|
|
format:
|
|
html:
|
|
embed-resources: true
|
|
---
|
|
|
|
## Import WHONET data set
|
|
|
|
```{r, message=FALSE, warning=FALSE}
|
|
library(dplyr)
|
|
library(readr)
|
|
library(tidyr)
|
|
library(janitor)
|
|
|
|
# WHONET version of 16th Feb 2024
|
|
whonet_breakpoints <- read_tsv("WHONET/Resources/Breakpoints.txt", na = c("", "NA", "-"),
|
|
show_col_types = FALSE, guess_max = Inf) %>%
|
|
filter(GUIDELINES %in% c("CLSI", "EUCAST"))
|
|
|
|
dim(whonet_breakpoints)
|
|
```
|
|
|
|
# EDA of Animal Breakpoints
|
|
|
|
```{r}
|
|
whonet_breakpoints |>
|
|
filter(BREAKPOINT_TYPE != "Human")
|
|
whonet_breakpoints |>
|
|
filter(BREAKPOINT_TYPE != "Human") |>
|
|
count(BREAKPOINT_TYPE)
|
|
whonet_breakpoints |>
|
|
filter(BREAKPOINT_TYPE == "Animal")
|
|
```
|
|
|
|
### Count of all animal breakpoints
|
|
|
|
```{r}
|
|
whonet_breakpoints |>
|
|
filter(BREAKPOINT_TYPE == "Animal") |>
|
|
count(YEAR, HOST, REFERENCE_TABLE = gsub("VET[0-9]+ ", "", REFERENCE_TABLE)) |>
|
|
pivot_wider(names_from = YEAR, values_from = n, values_fill = list(n = 0)) |>
|
|
arrange(HOST, REFERENCE_TABLE) |>
|
|
adorn_totals(name = "TOTAL")
|
|
```
|
|
|
|
### Cats only
|
|
|
|
```{r}
|
|
whonet_breakpoints |>
|
|
filter(HOST == "Cats", YEAR >= 2021) |>
|
|
select(GUIDELINES, YEAR, TEST_METHOD, ORGANISM_CODE, R, S) |>
|
|
mutate(MO_NAME = AMR::mo_shortname(ORGANISM_CODE), .before = R) |>
|
|
as.data.frame()
|
|
```
|
|
|
|
### Site of infection in cats (2023)
|
|
|
|
```{r}
|
|
whonet_breakpoints |>
|
|
filter(HOST == "Cats", YEAR == 2023) |>
|
|
mutate(MO = AMR::mo_shortname(ORGANISM_CODE),
|
|
AB = AMR::ab_name(WHONET_ABX_CODE),
|
|
SITE_OF_INFECTION = substr(SITE_OF_INFECTION, 1, 25)) |>
|
|
arrange(MO, AB) |>
|
|
select(MO, AB, SITE_OF_INFECTION) |>
|
|
as.data.frame()
|
|
```
|
|
|