Differences
This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision | ||
lehrkraefte:ks:ffstat2223 [2023/06/29 13:17] Simon Knaus |
lehrkraefte:ks:ffstat2223 [2024/03/22 15:28] (current) Simon Knaus |
||
---|---|---|---|
Line 9: | Line 9: | ||
* Jede:r wählt sich eine Frage resp. Fragestellung, | * Jede:r wählt sich eine Frage resp. Fragestellung, | ||
* Erste Runde: Welche Fragen interessieren? | * Erste Runde: Welche Fragen interessieren? | ||
- | * Zweite Runde: Wie kann ich diese beantworten? | + | * Zweite Runde: Wie kann ich diese beantworten? |
+ | * Bitte eure Analysen [[https:// | ||
Orientiert euch für die Aufträge auch am [[lehrkraefte: | Orientiert euch für die Aufträge auch am [[lehrkraefte: | ||
Line 514: | Line 515: | ||
=== Anwendungen Boxplot === | === Anwendungen Boxplot === | ||
Löhne in der Stadt Zürich | Löhne in der Stadt Zürich | ||
- | * {{https:// | + | * {{lehrkraefte: |
* Insb. Seiten 13 bis 15: Überrascht diese Verteilung? | * Insb. Seiten 13 bis 15: Überrascht diese Verteilung? | ||
* Welche Grafiken / Methoden sind aus dem Freifach bekannt? | * Welche Grafiken / Methoden sind aus dem Freifach bekannt? | ||
- | * Gibt es irgeneine | + | * Gibt es irgendeine |
* Wie würde der Lohnreport der Stadt St. Gallen aussehen? | * Wie würde der Lohnreport der Stadt St. Gallen aussehen? | ||
==== Lektion 04 ==== | ==== Lektion 04 ==== | ||
Line 569: | Line 570: | ||
* Kapitel 7 insb. Kapitel 7.1 | * Kapitel 7 insb. Kapitel 7.1 | ||
<hidden R-Code> | <hidden R-Code> | ||
- | <file code> | + | <code code> |
- | #Daten sind aus Excel in die Zwischenablage kopiert. | + | # cardata |
- | bmw <- read.table(file(" | + | head(cardata) |
- | library(ggplot2) | + | unique(cardata$model) |
- | library(plyr) | + | x5 <- cardata$model |
- | ggplot(bmw, | + | x5 #ein Vektor mit TRUE and FALSE |
- | names(bmw) | + | x5preise <- cardata$preis[x5] |
- | ddply(bmw,.(model),summarise, | + | mean(x5preise) |
- | ddply(bmw,.(model), | + | median(x5preise) |
- | ddply(bmw, | + | sd(x5preise) |
- | ddply(bmw,.(model,zylinder), | + | quantile(x5preise, 0.25) #25% Quantil |
- | #oder | + | quantile(x5preise, c(0.25, 0.75)) #25% Quantil und 75% Quantil |
- | tapply(bmw$preis, | + | |
- | tapply(bmw$preis, | + | library(plyr) # Zusatzpaket ' |
- | tapply(bmw$preis, | + | head(cardata) # Erste Zeilen anzeigen |
- | tapply(bmw$preis,bmw$model, | + | `? |
- | tapply((bmw$preis, | + | ) |
- | tapply((bmw$preis, | + | ddply(cardata, .(model), summarise, |
- | tapply((bmw$preis,bmw$model,quantile, | + | ddply(cardata, .(model), summarise, preis = median(preis)) |
- | #gibt das gleiche wie | + | ddply(cardata, .(model, |
- | tapply(bmw$preis, | + | </code> |
- | mean(bmw$preis[bmw$model==" | + | |
- | </file> | + | |
</ | </ | ||
Line 661: | Line 660: | ||
[[https:// | [[https:// | ||
<code R ddplystattpivot.R> | <code R ddplystattpivot.R> | ||
- | library(plyr) # | + | setwd(" |
- | head(cardata) #Erste Zeilen anzeigen | + | cardata <- read.csv2(" |
- | ?ddply #Hilfe zu ddply | + | |
- | ddply(cardata, | + | # install.packages(" |
- | ddply(cardata, | + | |
- | ddply(cardata, | + | library(plyr) |
+ | # Daten laden | ||
+ | cardata <- read.csv2(" | ||
+ | library(plyr) # Zusatzpaket ' | ||
+ | head(cardata) # Erste Zeilen anzeigen | ||
+ | ?ddply # Hilfe zu ddply | ||
+ | ddply(cardata, | ||
+ | ddply(cardata, | ||
+ | ddply(cardata, | ||
</ | </ | ||