babsim.hospital (version 11.5.14)

ggVisualizeIcu: ggVisualizeIcu Visualisierung der ICU Daten

Description

Quelle: ICU Daten bundesweit

Usage

ggVisualizeIcu(data = babsim.hospital::icudata, region = 5315)

Arguments

data

icu data, e.g., icudata

region

Region: Gemeindeschluessel, int 05374 fuer OBK oder |code05315 fuer Koeln oder 05911 fuer Bochum.

Format

data.frame of 9 variables

bundesland

int 1 1 1 1 1 1 1 1 1 1 ...

gemeindeschluessel

int 1001 1002 1003 1004 1051 1053 1054 1055 1056 1057 ...

anzahl_meldebereiche

int 2 3 2 1 1 2 1 3 2 1 ...

faelle_covid_aktuell

int 0 3 5 1 3 1 0 0 5 1 ...

faelle_covid_aktuell_beatmet

int 0 2 5 1 1 1 0 0 4 0 ...

anzahl_standorte

int 2 3 2 1 1 2 1 3 2 1 ...

betten_frei

int 44 113 115 19 54 7 7 18 10 7 ...

betten_belegt

int 38 110 108 19 26 17 3 34 27 5 ...

daten_stand

Date, format: "2020-05-01" "2020-05-01" "2020-05-01" "2020-05-01" ... "2020-08-21"

See Also

icudata

Examples

# NOT RUN {
require("stats")
icu <- babsim.hospital::icudata
icuCov <- as.data.frame(xtabs( faelle_covid_aktuell ~  daten_stand, icu))
icuCov$daten_stand <- as.Date(icuCov$daten_stand)
icuCovBeatm <- as.data.frame(xtabs(faelle_covid_aktuell_beatmet ~ daten_stand, icu))
icuCovBeatm$daten_stand <- as.Date(icuCovBeatm$daten_stand)
dataICUBeds <- data.frame(bed=(icuCov$Freq - icuCovBeatm$Freq),
                               intensiveBedVentilation=icuCovBeatm$Freq,
                               Day =  as.Date(icuCovBeatm$daten_stand))

require("padr")
require("stats")
require("slider")

icu <- babsim.hospital::icudata
icu <- pad(icu,interval="day")
icuCov <- as.data.frame(xtabs( faelle_covid_aktuell ~ daten_stand, icu))
icuCovBeatm <- as.data.frame(xtabs( faelle_covid_aktuell_beatmet   ~ daten_stand, icu))
icuCovBett <- as.data.frame(xtabs( betten_belegt   ~ daten_stand, icu))
plot(icuCov$daten_stand, icuCov$Freq, type = "p", xlab = "Tag", ylab="COVID ",
     main= "COVID-Faelle in Behandlung im KHaus")
plot(icuCovBeatm$daten_stand, icuCovBeatm$Freq, type = "p", xlab = "Tag",
     ylab="Patienten", main="Beatmete COVID-19-Pat. nur invasive Beatmung und ECMO")
plot(icuCovBett$daten_stand, icuCovBett$Freq, type = "l", xlab = "Tag", ylab="ICU Betten belegt")

# Nur Daten des OBK:
icu <- babsim.hospital::icudata
icu <- icu[icu$gemeindeschluessel==05374, ]

# }