ich beschäftige mich nun seit fast zwei Wochen mit R (daher seht es mir nach, wenn ich das Ganze auch einfacher hätte konstruieren können, als den Datensatz mithochzuladen...) und habe mir zum Ziel gesetzt einen aussagekräftigen Plot zu erstellen.
Hier in dem Beispiel vergleiche ich die Variablen "Geschlecht" und "Gewicht" aber auf Gruppenebene: Gruppe Male und Gruppe Female.
Das Ganze stelle ich in Form von Boxplots dar. Zusätzlich habe ich durch die summary Funktion die jeweiligen Mittelwerte (grüner Punkt) aufgetragen. Nun habe ich direkt auf einem Blick meinen Median und Mittelwert. Ich würde mir wünschen, dass zusätzlich durch ein Label der jeweilige Mittelwert neben dem Punkt angezeigt wird. Der aktuelle Code sieht folgendermaßen aus:
Code: Alles auswählen
```{r}
```{r setup, include=FALSE}
knitr::opts_chunk$set(
echo = TRUE,
message = FALSE,
warning = FALSE)
```
#Bibliotheken
```{r}
library(car)
library(foreign)
library(pander)
library(descr)
library(psych)
library(ggplot2)
library(plotly)
library(mosaic)
library(pastecs)
```
#Datei einlesen
```{r}
df <- read.csv2("data_bsp_bmi2.csv")
attach(df)
```
# männlich und weiblich Gruppen erstellen
```{r}
groupM <- subset(df,Geschlecht == 0)
groupF <- subset(df,Geschlecht == 1)
```
#Statistische Daten zu den Gruppen
```{r}
pander(describe(groupF))
pander(describe(groupM))
```
#Boxplot + Mittelwert + Labels am Mittelwert?
```{r}
abb1 <- ggplot(subs, aes(y = gender, x = Gewicht, color = gender)) +
labs(x="Gewicht", y="Geschlecht")+
geom_boxplot()+
stat_summary(fun=mean, geom="point", shape=20, size=5, color="green", fill="green") +
theme_classic()+
theme(panel.grid.major.x = element_line(color = "#000000",size = 1, linetype = "dotted"))
abb1
```
Habt ihr alten Hasen eventuell noch weitere gute Ideen? Ansonsten kann ich mir gut vorstellen, dass es von der jeweiligen Fragestellung abhängt was schick zu haben wäre, aber es gibt da ja ein paar "allgemein wichtige" Kennzahlen, die man zusätzlich in die obere rechte Eck schreiben könnte (falls möglich)
Danke fürs Lesen
[/code]