Differences

This shows you the differences between two versions of the page.

--- lehrkraefte:ks:ffstat2223 [2023/06/29 13:18]
Simon Knaus
+++ lehrkraefte:ks:ffstat2223 [2024/02/23 09:45]
Simon Knaus
@@ Line 662: / Line 662: @@
 [[https://web.microsoftstream.com/video/f3892b11-1d93-48d7-b59a-e9e8b0a890ee|Einführung Pivot]]
 <code R  ddplystattpivot.R>
-library(plyr) #Zusatzpaket 'plyr' laden (vorgänig mit install.packages("plyr") installieren)
+setwd("Pfad zum Arbeitsverzeichnis angeben")
-head(cardata) #Erste Zeilen anzeigen
+cardata <- read.csv2("bmw_data.csv")
-?ddply #Hilfe zu ddply
-ddply(cardata,.(model),summarise,preis=mean(preis)) #Mittelwert des Preises nach Modell anzeigen
+# install.packages("plyr") # installiert Paket
-ddply(cardata,.(model),summarise,preis=median(preis)) #Median des Preises nach Modell anzeigen
-ddply(cardata,.(model,zylinder),summarise,preis=mean(preis)) #Mittelwert des Preises nach Modell und Anzahl Zylinder anzeigen
+library(plyr)
+# Daten laden
+cardata <- read.csv2("bmw_data.csv")
+library(plyr) # Zusatzpaket 'plyr' laden (vorgänig mit install.packages("plyr") installieren)
+head(cardata) # Erste Zeilen anzeigen
+?ddply # Hilfe zu ddply
+ddply(cardata, .(model), summarise, preis = mean(preis)) # Mittelwert des Preises nach Modell anzeigen
+ddply(cardata, .(model), summarise, preis = median(preis)) # Median des Preises nach Modell anzeigen
+ddply(cardata, .(model, zylinder), summarise, preis = mean(preis)) # Mittelwert des Preises nach Modell und Anzahl Zylinder anzeigen
 </code>