babsim.hospital (version 11.8.8)

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, ]
# }