# Datensatz
 Geschlecht <-as.factor( c("Mann", "Frau","Mann", "Frau"))
 Alkohol  <-as.factor( c("keinAlkohol","Alkohol","Alkohol","keinAlkohol"))
 Mittelwerte  <-as.numeric ( c(6.7, 4.5,9.9,5.2))
 
ProfildiagrammeDaten <- data.frame(Geschlecht,Alkohol,Mittelwerte)
head(ProfildiagrammeDaten)



Alkohol/Geschlecht Mann Frau
KeinAlkohol 6.7 5.2
Alkohol 9.9 4.5



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 nicht 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 nicht global interpretierbar. Die Graphen der beiden Faktorstufen „Mann“ und „Frau“ weisen nicht in die gleiche Richtung. Der Faktor „Alkohol“ hat in Kombination mit „Mann“ zu mehr Songs und in Kombination mit „Frau“ zu weniger Songs geführt.

Zusammmenfassung

nur noch ein Haupteffekte sinnvoll interpretierbar ist. Das heißt, dass die Interpretation des anderen Hauptfaktors nicht vorgenommen werden darf.

LS0tDQp0aXRsZTogIlNlbWlkaXNvcmRpbmFsZSBJbnRlcmFrdGlvbiINCm91dHB1dDogaHRtbF9ub3RlYm9vaw0KLS0tDQpgYGB7cn0NCiMgRGF0ZW5zYXR6DQogR2VzY2hsZWNodCA8LWFzLmZhY3RvciggYygiTWFubiIsICJGcmF1IiwiTWFubiIsICJGcmF1IikpDQogQWxrb2hvbCAgPC1hcy5mYWN0b3IoIGMoImtlaW5BbGtvaG9sIiwiQWxrb2hvbCIsIkFsa29ob2wiLCJrZWluQWxrb2hvbCIpKQ0KIE1pdHRlbHdlcnRlICA8LWFzLm51bWVyaWMgKCBjKDYuNywgNC41LDkuOSw1LjIpKQ0KIA0KUHJvZmlsZGlhZ3JhbW1lRGF0ZW4gPC0gZGF0YS5mcmFtZShHZXNjaGxlY2h0LEFsa29ob2wsTWl0dGVsd2VydGUpDQpgYGANCg0KYGBge3J9DQpoZWFkKFByb2ZpbGRpYWdyYW1tZURhdGVuKQ0KYGBgDQo8YnI+PGJyPg0KDQogQWxrb2hvbC9HZXNjaGxlY2h0IHxNYW5uICB8RnJhdXwNCi0tLS0tLS0tLS0tLS0tLS0tLS0tfC0tLS0tLXwtLS0tfCANCktlaW5BbGtvaG9sICAgICAgICAgfDYuNyAgIHw1LjIgfA0KQWxrb2hvbCAgICAgICAgICAgICB8OS45ICAgfDQuNSB8IA0KDQo8YnI+PGJyPg0KDQoqKkRlciBIYXVwdGVmZmVrdCBBIGlzdCBHZXNjaGxlY2h0LiAqKg0KKipEZXIgSGF1cHRlZmZla3QgQiBpc3QgQWxrb2hvbC4gKioNCg0KIyBDb2RlZXJrbMOkcnVuZw0KDQpgYGB7cn0NCiMgQWRkaXRpb25hbCBvcHRpb25zIHRvIGNoYW5nZQ0KIyB4bGFiID0gIkxhYmVsIGbDvHIgeCINCiMgeWxhYiA9ICJMYWJlbCBmw7xyIHkiDQojIG1haW4gPSAiVGl0ZWwiDQojIHlsaW0gPSAieS1BY2hzZW4tUmFuZ2UgaW4gZGllc2VtIEJlaXNwaWVsIHZvbiA0LSAxMCINCiMgdHJhY2UubGFiZWwgPSAiTGFiZWwgZsO8ciBMZWdlbmRlIg0KIyB0eXBlID0gS8O2bm5lbiBzZWluIC0+ImwiLCAicCIsICJiIiwgIm8iLCAiYyINCiMgcGNoID0gIktyZWlzZSwgRHJlaWVja2UuLi4gZWluZmFjaCBtYWwgZGllIFphaGxlbiDDpG5kZXJuIg0KIyBjb2wgPSAiRmFyYmUiDQpgYGANCg0KDQoNCiMgSGF1cHRlZmZla3QgQSBpc3QgZ2xvYmFsIA0KDQoNCmBgYHtyfQ0KDQppbnRlcmFjdGlvbi5wbG90KFByb2ZpbGRpYWdyYW1tZURhdGVuJEdlc2NobGVjaHQsUHJvZmlsZGlhZ3JhbW1lRGF0ZW4kQWxrb2hvbCwgUHJvZmlsZGlhZ3JhbW1lRGF0ZW4kTWl0dGVsd2VydGUsDQogICAgICAgICAgICAgICAgIHhsYWIgPSAiR2VzY2hsZWNodCIsIHlsYWIgPSAiQW56YWhsIGRlciBnZXN1bmdlbmVuIFNvbmdzIiwgDQogICAgICAgICAgICAgICAgIG1haW4gPSAiSW50ZXJha3Rpb25zcHJvZmlsIEdlc2NobGVjaHQgdW5kIEFsa29ob2wiLCANCiAgICAgICAgICAgICAgICAgeWxpbSA9IGMoNCwxMCksIHRyYWNlLmxhYmVsID0gIkFsa29ob2wiLCANCiAgICAgICAgICAgICAgICAgdHlwZSA9ICJiIiwgY29sPWMoImRhcmtibHVlIiwidG9tYXRvIiksIHBjaCA9IGMoNSwxNykpDQpgYGANCg0KKipEZXIgSGF1cHRlZmZla3QgQSBpc3QgZ2xvYmFsIGludGVycHJldGllcmJhci4qKiBEaWUgR3JhcGhlbiBkZXIgYmVpZGVuIEZha3RvcnN0dWZlbiBtaXQgb2RlciAgb2huZSBBbGtvaG9sIHdlaXNlbiBpbiBkaWUgZ2xlaWNoZSBSaWNodHVuZy4gRGllIE3DpG5uZXIgaGFiZW4gaW1tZXIgbWVociBTb25ncyBnZXN1bmdlbiBhbHMgZGllIEZyYXVlbi4gDQoNCiMgSGF1cHRlZmZla3QgQiBpc3QgbmljaHQgZ2xvYmFsIA0KDQpgYGB7cn0NCg0KaW50ZXJhY3Rpb24ucGxvdChQcm9maWxkaWFncmFtbWVEYXRlbiRBbGtvaG9sLFByb2ZpbGRpYWdyYW1tZURhdGVuJEdlc2NobGVjaHQsIFByb2ZpbGRpYWdyYW1tZURhdGVuJE1pdHRlbHdlcnRlLA0KICAgICAgICAgICAgICAgICB4bGFiID0gIkFsa29ob2wiLCB5bGFiID0gIkFuemFobCBkZXIgZ2VzdW5nZW5lbiBTb25ncyIsIA0KICAgICAgICAgICAgICAgICBtYWluID0gIkludGVyYWt0aW9uc3Byb2ZpbCBHZXNjaGxlY2h0IHVuZCBBbGtvaG9sIiwgDQogICAgICAgICAgICAgICAgIHlsaW0gPSBjKDQsMTApLCB0cmFjZS5sYWJlbCA9ICJHZXNjaGxlY2h0IiwgDQogICAgICAgICAgICAgICAgIHR5cGUgPSAiYiIsIGNvbD1jKCJkYXJrYmx1ZSIsInRvbWF0byIpLCBwY2ggPSBjKDE5LDE3KSkNCg0KDQpgYGANCg0KDQoqKkRlciBIYXVwdGVmZmVrdCBCIGlzdCBuaWNodCBnbG9iYWwgaW50ZXJwcmV0aWVyYmFyLioqIA0KRGllIEdyYXBoZW4gZGVyIGJlaWRlbiBGYWt0b3JzdHVmZW4g4oCeTWFubuKAnCB1bmQg4oCeRnJhdeKAnCB3ZWlzZW4gbmljaHQgaW4gZGllIGdsZWljaGUgUmljaHR1bmcuIERlciBGYWt0b3Ig4oCeQWxrb2hvbOKAnCBoYXQgaW4gS29tYmluYXRpb24gbWl0IOKAnk1hbm7igJwgenUgbWVociBTb25ncyB1bmQgaW4gS29tYmluYXRpb24gbWl0IOKAnkZyYXXigJwgenUgd2VuaWdlciBTb25ncyBnZWbDvGhydC4gDQoNCiMgWnVzYW1tbWVuZmFzc3VuZw0KbnVyIG5vY2ggZWluIEhhdXB0ZWZmZWt0ZSBzaW5udm9sbCBpbnRlcnByZXRpZXJiYXIgaXN0LiBEYXMgaGVpw590LCBkYXNzIGRpZSBJbnRlcnByZXRhdGlvbiBkZXMgYW5kZXJlbiBIYXVwdGZha3RvcnMgbmljaHQgdm9yZ2Vub21tZW4gd2VyZGVuIGRhcmYuICANCg0KDQoNCg0K