Differences

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

--- lehrkraefte:ks:ffstat2122:start [2022/06/24 15:54]
Simon Knaus [Lektion 14]
+++ lehrkraefte:ks:ffstat2122:start [2022/06/24 17:10]
Simon Knaus
@@ Line 39: / Line 39: @@
 </code>
+<hidden Mögliche Lösung>
+<code>
+data <- read.table(file("clipboard"),sep="\t",header=T)
+head(data)
+library(ggplot2)
+names(data)
+#gesamtglück
+data$overall <- with(data,(insgesamt.+lately.+happylife+happymonth+happyoverall)/5)
+#glück vs. aussehen
+ggplot(data,aes(y=overall,x=looks))+geom_point()+geom_smooth(method="lm",se = F)
+#glück vs. gesundheit
+ggplot(data,aes(y=overall,x=health))+geom_point()+geom_smooth(method="lm",se = F)
+#glück vs. sleep
+ggplot(data,aes(y=overall,x=sleep))+geom_point()+geom_smooth(method="lm",se = F)
+ggplot(subset(data,sleep<30),aes(y=overall,x=sleep))+geom_point()+geom_smooth(method="lm",se = F)
+with(subset(data,sleep<30),cor(overall,sleep,use = "pairwise.complete"))
+ggplot(data,aes(y=overall,x=free))+geom_point()+geom_smooth(method="lm",se = F)
+ggplot(subset(data,free<30),aes(y=overall,x=free))+geom_point()+geom_smooth(method="lm",se = F)
+ggplot(data,aes(y=overall,x=social))+geom_point()+geom_smooth(method="lm",se = F)
+ggplot(subset(data,social<30),aes(y=overall,x=social))+geom_point()+geom_smooth(method="lm",se = F)
+ggplot(data,aes(y=overall,x=sport))+geom_point()+geom_smooth(method="lm",se = F)
+ggplot(data,aes(x=overall))+geom_histogram(position = "identity")+facet_grid(gender~.)
+ggplot(data,aes(x=overall,y=gender))+geom_boxplot()
+ggplot(data,aes(y=overall,x=age))+geom_point()+geom_smooth(method="lm",se = F)
+ggplot(data,aes(x=meanin,y=overall))+geom_boxplot()
+ggplot(data,aes(x=morning,y=overall))+geom_boxplot()
+ggplot(data,aes(x=morning,y=overall))+geom_violin()
+ggplot(data,aes(x=important,y=overall))+geom_boxplot()
+library(corrplot)
+relvar <- sapply(data,is.numeric)
+corrplot(cor(subset(data[,relvar],free<30),use="pairwise.complete"))
+ggplot(da)
+</code>
+</hidden>
 ==== Lektion 13 ====