# Datensatz
Geschlecht <-as.factor( c("Mann", "Frau","Mann", "Frau"))
Alkohol <-as.factor( c("keinAlkohol","Alkohol","Alkohol","keinAlkohol"))
Mittelwerte <-as.numeric ( c(6.7, 7.2,9.9,5.2))
ProfildiagrammeDaten <- data.frame(Geschlecht,Alkohol,Mittelwerte)
head(ProfildiagrammeDaten)
KeinAlkohol |
6.7 |
5.2 |
Alkohol |
9.9 |
7.2 |
Der Haupteffekt A ist Geschlecht. Der Haupteffekt B ist Alkohol.
Codeerklärung
# Additional options to change
# xlab = "Label für x"
# ylab = "Label für y"
# main = "Titel"
# ylim = "y-Achsen-Range in diesem Beispiel von 4- 10"
# trace.label = "Label für Legende"
# type = Können sein ->"l", "p", "b", "o", "c"
# pch = "Kreise, Dreiecke... einfach mal die Zahlen ändern"
# col = "Farbe"
Haupteffekt A ist global
interaction.plot(ProfildiagrammeDaten$Geschlecht,ProfildiagrammeDaten$Alkohol, ProfildiagrammeDaten$Mittelwerte,
xlab = "Geschlecht", ylab = "Anzahl der gesungenen Songs",
main = "Interaktionsprofil Geschlecht und Alkohol",
ylim = c(4,10), trace.label = "Alkohol",
type = "b", col=c("darkblue","tomato"), pch = c(5,17))

Der Haupteffekt A ist global interpretierbar. Die Graphen der beiden Faktorstufen mit oder ohne Alkohol weisen in die gleiche Richtung. Die Männer haben immer mehr Songs gesungen als die Frauen.
Haupteffekt B ist global
interaction.plot(ProfildiagrammeDaten$Alkohol,ProfildiagrammeDaten$Geschlecht, ProfildiagrammeDaten$Mittelwerte,
xlab = "Alkohol", ylab = "Anzahl der gesungenen Songs",
main = "Interaktionsprofil Geschlecht und Alkohol",
ylim = c(4,10), trace.label = "Geschlecht",
type = "b", col=c("darkblue","tomato"), pch = c(19,17))

Der Haupteffekt B ist global interpretierbar. Die Graphen der beiden Faktorstufen Mann und Frau weisen in die gleiche Richtung. Es wurden immer mehr Songs gesungenen mit Alkohol als ohne.
Zusammmenfassung
beide Haupteffekte sind sinnvoll interpretierbar. Das heißt, dass für die Interpretation der Ausprägung der andern UV keine Rolle spielt.
LS0tDQp0aXRsZTogIk9yZGluYWxlIEludGVyYWt0aW9uIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCmBgYHtyfQ0KIyBEYXRlbnNhdHoNCiBHZXNjaGxlY2h0IDwtYXMuZmFjdG9yKCBjKCJNYW5uIiwgIkZyYXUiLCJNYW5uIiwgIkZyYXUiKSkNCiBBbGtvaG9sICA8LWFzLmZhY3RvciggYygia2VpbkFsa29ob2wiLCJBbGtvaG9sIiwiQWxrb2hvbCIsImtlaW5BbGtvaG9sIikpDQogTWl0dGVsd2VydGUgIDwtYXMubnVtZXJpYyAoIGMoNi43LCA3LjIsOS45LDUuMikpDQogDQpQcm9maWxkaWFncmFtbWVEYXRlbiA8LSBkYXRhLmZyYW1lKEdlc2NobGVjaHQsQWxrb2hvbCxNaXR0ZWx3ZXJ0ZSkNCmBgYA0KDQpgYGB7cn0NCmhlYWQoUHJvZmlsZGlhZ3JhbW1lRGF0ZW4pDQpgYGANCjxicj48YnI+DQoNCiBBbGtvaG9sL0dlc2NobGVjaHQgfE1hbm4gIHxGcmF1fA0KLS0tLS0tLS0tLS0tLS0tLS0tLS18LS0tLS0tfC0tLS18IA0KS2VpbkFsa29ob2wgICAgICAgICB8Ni43ICAgfDUuMiB8DQpBbGtvaG9sICAgICAgICAgICAgIHw5LjkgICB8Ny4yIHwgDQoNCjxicj48YnI+DQoNCioqRGVyIEhhdXB0ZWZmZWt0IEEgaXN0IEdlc2NobGVjaHQuKioNCioqRGVyIEhhdXB0ZWZmZWt0IEIgaXN0IEFsa29ob2wuKioNCg0KIyBDb2RlZXJrbMOkcnVuZw0KDQpgYGB7cn0NCiMgQWRkaXRpb25hbCBvcHRpb25zIHRvIGNoYW5nZQ0KIyB4bGFiID0gIkxhYmVsIGbDvHIgeCINCiMgeWxhYiA9ICJMYWJlbCBmw7xyIHkiDQojIG1haW4gPSAiVGl0ZWwiDQojIHlsaW0gPSAieS1BY2hzZW4tUmFuZ2UgaW4gZGllc2VtIEJlaXNwaWVsIHZvbiA0LSAxMCINCiMgdHJhY2UubGFiZWwgPSAiTGFiZWwgZsO8ciBMZWdlbmRlIg0KIyB0eXBlID0gS8O2bm5lbiBzZWluIC0+ImwiLCAicCIsICJiIiwgIm8iLCAiYyINCiMgcGNoID0gIktyZWlzZSwgRHJlaWVja2UuLi4gZWluZmFjaCBtYWwgZGllIFphaGxlbiDDpG5kZXJuIg0KIyBjb2wgPSAiRmFyYmUiDQpgYGANCg0KDQoNCiMgSGF1cHRlZmZla3QgQSBpc3QgZ2xvYmFsIA0KDQoNCmBgYHtyfQ0KDQppbnRlcmFjdGlvbi5wbG90KFByb2ZpbGRpYWdyYW1tZURhdGVuJEdlc2NobGVjaHQsUHJvZmlsZGlhZ3JhbW1lRGF0ZW4kQWxrb2hvbCwgUHJvZmlsZGlhZ3JhbW1lRGF0ZW4kTWl0dGVsd2VydGUsDQogICAgICAgICAgICAgICAgIHhsYWIgPSAiR2VzY2hsZWNodCIsIHlsYWIgPSAiQW56YWhsIGRlciBnZXN1bmdlbmVuIFNvbmdzIiwgDQogICAgICAgICAgICAgICAgIG1haW4gPSAiSW50ZXJha3Rpb25zcHJvZmlsIEdlc2NobGVjaHQgdW5kIEFsa29ob2wiLCANCiAgICAgICAgICAgICAgICAgeWxpbSA9IGMoNCwxMCksIHRyYWNlLmxhYmVsID0gIkFsa29ob2wiLCANCiAgICAgICAgICAgICAgICAgdHlwZSA9ICJiIiwgY29sPWMoImRhcmtibHVlIiwidG9tYXRvIiksIHBjaCA9IGMoNSwxNykpDQpgYGANCg0KKipEZXIgSGF1cHRlZmZla3QgQSBpc3QgZ2xvYmFsIGludGVycHJldGllcmJhci4qKiBEaWUgR3JhcGhlbiBkZXIgYmVpZGVuIEZha3RvcnN0dWZlbiBtaXQgb2RlciBvaG5lIEFsa29ob2wgd2Vpc2VuIGluIGRpZSBnbGVpY2hlIFJpY2h0dW5nLiBEaWUgTcOkbm5lciBoYWJlbiBpbW1lciBtZWhyIFNvbmdzIGdlc3VuZ2VuIGFscyBkaWUgRnJhdWVuLiANCg0KIyBIYXVwdGVmZmVrdCBCIGlzdCBnbG9iYWwgDQoNCmBgYHtyfQ0KDQppbnRlcmFjdGlvbi5wbG90KFByb2ZpbGRpYWdyYW1tZURhdGVuJEFsa29ob2wsUHJvZmlsZGlhZ3JhbW1lRGF0ZW4kR2VzY2hsZWNodCwgUHJvZmlsZGlhZ3JhbW1lRGF0ZW4kTWl0dGVsd2VydGUsDQogICAgICAgICAgICAgICAgIHhsYWIgPSAiQWxrb2hvbCIsIHlsYWIgPSAiQW56YWhsIGRlciBnZXN1bmdlbmVuIFNvbmdzIiwgDQogICAgICAgICAgICAgICAgIG1haW4gPSAiSW50ZXJha3Rpb25zcHJvZmlsIEdlc2NobGVjaHQgdW5kIEFsa29ob2wiLCANCiAgICAgICAgICAgICAgICAgeWxpbSA9IGMoNCwxMCksIHRyYWNlLmxhYmVsID0gIkdlc2NobGVjaHQiLCANCiAgICAgICAgICAgICAgICAgdHlwZSA9ICJiIiwgY29sPWMoImRhcmtibHVlIiwidG9tYXRvIiksIHBjaCA9IGMoMTksMTcpKQ0KDQoNCmBgYA0KDQoNCioqRGVyIEhhdXB0ZWZmZWt0IEIgaXN0IGdsb2JhbCBpbnRlcnByZXRpZXJiYXIuKiogDQpEaWUgR3JhcGhlbiBkZXIgYmVpZGVuIEZha3RvcnN0dWZlbiBNYW5uIHVuZCBGcmF1IHdlaXNlbiBpbiBkaWUgZ2xlaWNoZSBSaWNodHVuZy4gRXMgd3VyZGVuIGltbWVyIG1laHIgU29uZ3MgZ2VzdW5nZW5lbiBtaXQgQWxrb2hvbCBhbHMgb2huZS4NCg0KIyBadXNhbW1tZW5mYXNzdW5nDQpiZWlkZSBIYXVwdGVmZmVrdGUgc2luZCBzaW5udm9sbCBpbnRlcnByZXRpZXJiYXIuIERhcyBoZWnDn3QsIGRhc3MgZsO8ciBkaWUgSW50ZXJwcmV0YXRpb24gZGVyIEF1c3Byw6RndW5nIGRlciBhbmRlcm4gVVYga2VpbmUgUm9sbGUgc3BpZWx0LiAgDQoNCg0KDQoNCg==