From 4b28d6d2acbb9a3e7c51937e6d17c4dfd032633e Mon Sep 17 00:00:00 2001 From: luebby <karsten@statistix.org> Date: Thu, 10 Feb 2022 14:28:26 +0100 Subject: [PATCH] Umskalierung y, Anregung @DoktorPi --- Module/Modul_05.Rmd | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Module/Modul_05.Rmd b/Module/Modul_05.Rmd index 7d2e79c..835e535 100644 --- a/Module/Modul_05.Rmd +++ b/Module/Modul_05.Rmd @@ -65,7 +65,7 @@ StoercheGeburten <- tibble( land = c("Albanien", "Österreich", "Belgien", "Bulgarien", "Dänemark", "Frankreich", "Deutschland", "Griechenland", "Holland", "Ungarn", "Italien", "Polen", "Portugal", "Rumänien", "Spanien", "Schweiz", "Türkei"), flaeche = c(28750, 83860, 30520, 111000, 43100, 544000, 357000, 132000, 41900, 93000, 301280, 312680, 92390, 237500, 504750, 41290, 779450), stoerche = c(100, 300, 1, 5000, 9, 140, 3300, 2500, 4, 5000, 5, 30000, 1500, 5000, 8000, 150, 25000), - geburten = c(83, 87, 118, 117, 59, 774, 901, 106, 188, 124, 551, 610, 120, 367, 439, 82, 1576) + geburten = c(83, 87, 118, 117, 59, 774, 901, 106, 188, 124, 551, 610, 120, 367, 439, 82, 1576)*1000 ) lm_oA <- lm(geburten ~ stoerche, data = StoercheGeburten) @@ -104,12 +104,12 @@ Robert Matthews hat sich Anfang des Jahrtausend die Mühe gemacht Daten für die ```{r scatter, echo=FALSE, fig.align='center', out.width='85%'} gf_point(geburten ~ stoerche, data = StoercheGeburten, size = 2, alpha = 0.7) %>% gf_lm() %>% - gf_lims(x=c(0,35000), y=c(0,2000)) %>% + gf_lims(x=c(0,35000), y=c(0,2000000)) %>% gf_text(geburten ~ stoerche, label = ~land, hjust = 0, vjust = 2, alpha = 0.8, size = 7, check_overlap = TRUE) %>% - gf_labs(x="Anzahl Störche (Paare)", y="Geburten in 1000", caption="Datenquelle: Robert Matthews") + gf_labs(x="Anzahl Störche (Paare)", y="Geburten", caption="Datenquelle: Robert Matthews") ``` @@ -184,12 +184,12 @@ Wie sieht eigentlich der Zusammenhang zwischen der Fläche des Landes und der An ```{r scatterflaeche, echo=FALSE, fig.align='center', out.width='85%', warning=FALSE} gf_point(geburten ~ flaeche, data = StoercheGeburten, size = 2, alpha = 0.7) %>% gf_lm() %>% - gf_lims(x=c(0,900000), y=c(0,2000)) %>% + gf_lims(x=c(0,900000), y=c(0,2000000)) %>% gf_text(geburten ~ flaeche, label = ~land, hjust = 0, vjust = 2, alpha = 0.8, size = 7, check_overlap = TRUE) %>% - gf_labs(x=parse(text = paste0("'Fläche in '",'~ km^2')), y="Geburten in 1000", caption="Datenquelle: Robert Matthews") + gf_labs(x=parse(text = paste0("'Fläche in '",'~ km^2')), y="Geburten", caption="Datenquelle: Robert Matthews") ``` Anscheinend gibt es auch einen Zusammenhang zwischen der Größe eines Landes und der Anzahl Geburten. -- GitLab