# Datensatz
 Geschlecht <-as.factor( c("Mann", "Frau","Mann", "Frau"))
 Alkohol  <-as.factor( c("keinAlkohol","Alkohol","Alkohol","keinAlkohol"))
 Mittelwerte  <-as.numeric ( c(9,6.0,6.0,3))
 
ProfildiagrammeDaten <- data.frame(Geschlecht,Alkohol,Mittelwerte)
head(ProfildiagrammeDaten)



Alkohol/Geschlecht Mann Frau
KeinAlkohol 9 3
Alkohol 6.0 6.0



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 nicht global


interaction.plot(ProfildiagrammeDaten$Geschlecht,ProfildiagrammeDaten$Alkohol, ProfildiagrammeDaten$Mittelwerte,
                 xlab = "Geschlecht", ylab = "Anzahl der gesungenen Songs", 
                 main = "Interaktionsprofil Geschlecht und Alkohol", 
                 ylim = c(2,10), trace.label = "Alkohol", 
                 type = "b", col=c("darkblue","tomato"), pch = c(5,17))

Der Haupteffekt A ist nicht global interpretierbar. Die Graphen der beiden Faktorstufen mit oder ohne Alkohol weisen nicht in die gleiche Richtung.

Haupteffekt B ist nicht global


interaction.plot(ProfildiagrammeDaten$Alkohol,ProfildiagrammeDaten$Geschlecht, ProfildiagrammeDaten$Mittelwerte,
                 xlab = "Alkohol", ylab = "Anzahl der gesungenen Songs", 
                 main = "Interaktionsprofil Geschlecht und Alkohol", 
                 ylim = c(2,10), trace.label = "Geschlecht", 
                 type = "b", col=c("darkblue","tomato"), pch = c(19,17))

Der Haupteffekt B ist nicht global interpretierbar. Die Graphen der beiden Faktorstufen „Frau“ und „Mann“ weisen nicht in die gleiche Richtung. .

Zusammmenfassung

Es lässt sich keiner der Haupteffekte interpretieren und somit kann keine generelle Aussage über die Faktoren gemacht werden. Es darf nur die Wechselwirkung interpretiert werden.

LS0tDQp0aXRsZTogIkRpc29yZGluYWxlIEludGVyYWt0aW9uIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCmBgYHtyfQ0KIyBEYXRlbnNhdHoNCiBHZXNjaGxlY2h0IDwtYXMuZmFjdG9yKCBjKCJNYW5uIiwgIkZyYXUiLCJNYW5uIiwgIkZyYXUiKSkNCiBBbGtvaG9sICA8LWFzLmZhY3RvciggYygia2VpbkFsa29ob2wiLCJBbGtvaG9sIiwiQWxrb2hvbCIsImtlaW5BbGtvaG9sIikpDQogTWl0dGVsd2VydGUgIDwtYXMubnVtZXJpYyAoIGMoOSw2LjAsNi4wLDMpKQ0KIA0KUHJvZmlsZGlhZ3JhbW1lRGF0ZW4gPC0gZGF0YS5mcmFtZShHZXNjaGxlY2h0LEFsa29ob2wsTWl0dGVsd2VydGUpDQpgYGANCg0KYGBge3J9DQpoZWFkKFByb2ZpbGRpYWdyYW1tZURhdGVuKQ0KYGBgDQo8YnI+PGJyPg0KDQogQWxrb2hvbC9HZXNjaGxlY2h0IHxNYW5uICB8RnJhdXwNCi0tLS0tLS0tLS0tLS0tLS0tLS0tfC0tLS0tLXwtLS0tfCANCktlaW5BbGtvaG9sICAgICAgICAgfDkgICAgIHwzICAgfA0KQWxrb2hvbCAgICAgICAgICAgICB8Ni4wICAgfDYuMCB8ICANCg0KPGJyPjxicj4NCg0KKipEZXIgSGF1cHRlZmZla3QgQSBpc3QgR2VzY2hsZWNodC4gKioNCioqRGVyIEhhdXB0ZWZmZWt0IEIgaXN0IEFsa29ob2wuICoqDQoNCiMgQ29kZWVya2zDpHJ1bmcNCg0KYGBge3J9DQojIEFkZGl0aW9uYWwgb3B0aW9ucyB0byBjaGFuZ2UNCiMgeGxhYiA9ICJMYWJlbCBmw7xyIHgiDQojIHlsYWIgPSAiTGFiZWwgZsO8ciB5Ig0KIyBtYWluID0gIlRpdGVsIg0KIyB5bGltID0gInktQWNoc2VuLVJhbmdlIGluIGRpZXNlbSBCZWlzcGllbCB2b24gNC0gMTAiDQojIHRyYWNlLmxhYmVsID0gIkxhYmVsIGbDvHIgTGVnZW5kZSINCiMgdHlwZSA9IEvDtm5uZW4gc2VpbiAtPiJsIiwgInAiLCAiYiIsICJvIiwgImMiDQojIHBjaCA9ICJLcmVpc2UsIERyZWllY2tlLi4uIGVpbmZhY2ggbWFsIGRpZSBaYWhsZW4gw6RuZGVybiINCiMgY29sID0gIkZhcmJlIg0KYGBgDQoNCg0KDQojIEhhdXB0ZWZmZWt0IEEgaXN0IG5pY2h0IGdsb2JhbCANCg0KDQpgYGB7cn0NCg0KaW50ZXJhY3Rpb24ucGxvdChQcm9maWxkaWFncmFtbWVEYXRlbiRHZXNjaGxlY2h0LFByb2ZpbGRpYWdyYW1tZURhdGVuJEFsa29ob2wsIFByb2ZpbGRpYWdyYW1tZURhdGVuJE1pdHRlbHdlcnRlLA0KICAgICAgICAgICAgICAgICB4bGFiID0gIkdlc2NobGVjaHQiLCB5bGFiID0gIkFuemFobCBkZXIgZ2VzdW5nZW5lbiBTb25ncyIsIA0KICAgICAgICAgICAgICAgICBtYWluID0gIkludGVyYWt0aW9uc3Byb2ZpbCBHZXNjaGxlY2h0IHVuZCBBbGtvaG9sIiwgDQogICAgICAgICAgICAgICAgIHlsaW0gPSBjKDIsMTApLCB0cmFjZS5sYWJlbCA9ICJBbGtvaG9sIiwgDQogICAgICAgICAgICAgICAgIHR5cGUgPSAiYiIsIGNvbD1jKCJkYXJrYmx1ZSIsInRvbWF0byIpLCBwY2ggPSBjKDUsMTcpKQ0KYGBgDQoNCioqRGVyIEhhdXB0ZWZmZWt0IEEgaXN0IG5pY2h0IGdsb2JhbCBpbnRlcnByZXRpZXJiYXIuKiogRGllIEdyYXBoZW4gZGVyIGJlaWRlbiBGYWt0b3JzdHVmZW4gbWl0IG9kZXIgb2huZSBBbGtvaG9sIHdlaXNlbiBuaWNodCBpbiBkaWUgZ2xlaWNoZSBSaWNodHVuZy4NCg0KIyBIYXVwdGVmZmVrdCBCIGlzdCBuaWNodCBnbG9iYWwgDQoNCmBgYHtyfQ0KDQppbnRlcmFjdGlvbi5wbG90KFByb2ZpbGRpYWdyYW1tZURhdGVuJEFsa29ob2wsUHJvZmlsZGlhZ3JhbW1lRGF0ZW4kR2VzY2hsZWNodCwgUHJvZmlsZGlhZ3JhbW1lRGF0ZW4kTWl0dGVsd2VydGUsDQogICAgICAgICAgICAgICAgIHhsYWIgPSAiQWxrb2hvbCIsIHlsYWIgPSAiQW56YWhsIGRlciBnZXN1bmdlbmVuIFNvbmdzIiwgDQogICAgICAgICAgICAgICAgIG1haW4gPSAiSW50ZXJha3Rpb25zcHJvZmlsIEdlc2NobGVjaHQgdW5kIEFsa29ob2wiLCANCiAgICAgICAgICAgICAgICAgeWxpbSA9IGMoMiwxMCksIHRyYWNlLmxhYmVsID0gIkdlc2NobGVjaHQiLCANCiAgICAgICAgICAgICAgICAgdHlwZSA9ICJiIiwgY29sPWMoImRhcmtibHVlIiwidG9tYXRvIiksIHBjaCA9IGMoMTksMTcpKQ0KDQoNCmBgYA0KDQoNCioqRGVyIEhhdXB0ZWZmZWt0IEIgaXN0IG5pY2h0IGdsb2JhbCBpbnRlcnByZXRpZXJiYXIuKiogDQpEaWUgR3JhcGhlbiBkZXIgYmVpZGVuIEZha3RvcnN0dWZlbiDigJ5GcmF14oCcIHVuZCDigJ5NYW5u4oCcIHdlaXNlbiBuaWNodCBpbiBkaWUgZ2xlaWNoZSBSaWNodHVuZy4gLiANCg0KIyBadXNhbW1tZW5mYXNzdW5nDQoNCkVzIGzDpHNzdCBzaWNoIGtlaW5lciBkZXIgSGF1cHRlZmZla3RlIGludGVycHJldGllcmVuIHVuZCBzb21pdCBrYW5uIGtlaW5lIGdlbmVyZWxsZSBBdXNzYWdlIMO8YmVyIGRpZSBGYWt0b3JlbiBnZW1hY2h0IHdlcmRlbi4gRXMgZGFyZiBudXIgZGllIFdlY2hzZWx3aXJrdW5nIGludGVycHJldGllcnQgd2VyZGVuLg0KDQoNCg0KDQo=