Streudiagramm

Ohne Gruppenvariable sowie für ein- bis dreifaktorielle Designs

Erforderliche Pakete laden

library(ggplot2)  # Grafik
library(psych)    # Streudiagrammmatrix

Ohne Gruppenvariable

Datensatz einlesen und Variablen spezifizieren

# Datensatz einlesen
data <- read.table("https://mmi.psycho.unibas.ch/r-toolbox/data/Eingangsfragebogen11.txt", header=TRUE)

# Variablen spezifizieren
Prädiktor <- "Alter"        # Name des Prädiktors eingeben
Zielvariable <- "wiss_den"  # Name der Zielvariable eingeben

Streudiagramm mit Regressionsgeraden

data2 <- na.omit(data[,c(Prädiktor, Zielvariable)]); library(ggplot2)
ggplot(data2, aes_string(x=Prädiktor, y=Zielvariable)) + geom_point() + geom_smooth(method=lm, se=FALSE, col=1, size=1) + theme_bw()

## `geom_smooth()` using formula 'y ~ x'

Eine Gruppenvariable

Datensatz einlesen und Variablen spezifizieren

# Datensatz einlesen
data <- read.table("https://mmi.psycho.unibas.ch/r-toolbox/data/Eingangsfragebogen11.txt", header=TRUE)

# Variablen spezifizieren
Prädiktor <- "Alter"        # Name des Prädiktors eingeben
Zielvariable <- "wiss_den"  # Name der Zielvariable eingeben
Faktor <- "Geschlecht"      # Name des Faktors eingeben
Zeilen <- 2                 # Anzahl Zeilen der Streudiagrammmatrix
Spalten <- 1                # Anzahl Spalten der Streudiagrammmatrix (Zeilen*Spalten >= Anzahl Stufen des Faktors)

Streudiagramm mit Regressionsgeraden

data2 <- na.omit(data[,c(Prädiktor, Zielvariable, Faktor)]); library(ggplot2)
ggplot(data2, aes_string(x=Prädiktor, y=Zielvariable)) + geom_point() + geom_smooth(method=lm, se=FALSE, size=1, colour=1) + facet_wrap(as.formula(paste("~",Faktor)), nrow=Zeilen, ncol=Spalten, scales="fixed", drop=TRUE)  + theme_bw()

## `geom_smooth()` using formula 'y ~ x'

Zwei Gruppenvariablen

Datensatz einlesen und Variablen spezifizieren

# Datensatz einlesen
data <- read.table("https://mmi.psycho.unibas.ch/r-toolbox/data/Eingangsfragebogen11.txt", header=TRUE)

# Variablen spezifizieren
Prädiktor <- "Alter"        # Name des Prädiktors eingeben
Zielvariable <- "wiss_den"  # Name der Zielvariable eingeben
Faktor1 <- "Geschlecht"     # Name des ersten Faktors eingeben (Zeilen der Strudiagrammmatrix)
Faktor2 <- "V10_STUD"       # Name des ersten Faktors eingeben (Spalten der Strudiagrammmatrix)

Streudiagramm mit Regressionsgeraden

data2 <- na.omit(data[,c(Prädiktor, Zielvariable, Faktor1, Faktor2)]); library(ggplot2)
ggplot(data2, aes_string(x=Prädiktor, y=Zielvariable)) + geom_point() + geom_smooth(method=lm, se=FALSE, col=1, size=1) + facet_grid(paste(Faktor1, "~", Faktor2), scales="fixed", drop=TRUE) + theme_bw()

## `geom_smooth()` using formula 'y ~ x'

Streudiagrammmatrix

Datensatz einlesen und Variablen spezifizieren

# Datensatz einlesen
data <- read.table("https://mmi.psycho.unibas.ch/r-toolbox/data/Partial.txt", header=TRUE)

# Variablen spezifizieren
Variablen <- c("TIME", "PUBS", "CITS", "SALARY")   # Namen der zu berücksichtigenden Variablen eingeben

Streudiagrammmatrix mit Regressionsgeraden

library(psych)
pairs.panels(data[,Variablen])