Seite 1 von 2

Häufigkeit von Kombinationen

Verfasst: Mi Okt 31, 2018 10:53 am
von Rubilu
Hallo zusammen!

Vielleicht kann jemand von euch mir bei meinem Problem helfen. Ich finde einfach nicht die richtige Funktion.

Und zwar geht es um einen Datensatz wie folgt:

Code: Alles auswählen

ID     Code
1         1
2         1
3         1
4         1
1         2
2         3
3         4
4         2
Ich möchte gerne bestimmen, wie häufig eine Kombination auftritt (hier also Code "1"+"2" bei ID 1 und 4). :?: :?: :?:

Ich freue mich über eure Hilfe :) :) :)

Re: Häufigkeit von Kombinationen

Verfasst: Mi Okt 31, 2018 11:40 am
von jogo
Hallo Rubilu,

willkommen im Forum!
Momentan kann ich mir noch nicht vorstellen, was Du meinst.
Wenn Du Deinen Dataframe reduzierst auf die Zeilen mit ID==1 und ID==4, dann hast Du doch nur einzelne Werte bei $Code :?:

Gruß, Jörg

Re: Häufigkeit von Kombinationen

Verfasst: Mi Okt 31, 2018 12:00 pm
von Rubilu
Hallo Jörg!

Mir geht es darum, darzustellen, wie häufig bei der gleichen ID eine bestimmte Kombination auftritt.

zB. folgender Datensatz

Code: Alles auswählen

ID <- c(Jonathan, Hannes, Kathrin, Jennifer, Annika, Benjamin, Jonathan, Hannes, Kathrin, Jennifer, Annika, Benjamin)

Code <- c(Apfel, Apfel, Apfel, Apfel, Apfel, Apfel, Banane, Birne, Kirsche, Banane, Banane, Kiwi)
Gezählt werden soll, wie häufig zum Beispiel die Kombination Apfel und Banane auftritt (im Bezug auf die Person, die diese Obstsorten besitzt).

Ich weiß nicht, ob du dir dadurch besser vorstellen kannst, was ich meine.

Vielen Dank im Vorraus!

Re: Häufigkeit von Kombinationen

Verfasst: Mi Okt 31, 2018 4:52 pm
von jogo
Hallo Rubilu,

zeig doch bitte mal bei Deinen Beispielen, wie das Ergebnis aussehen soll.

Gruß, Jörg

Re: Häufigkeit von Kombinationen

Verfasst: Do Nov 01, 2018 7:55 am
von EDi
Pack die zwei Vektoren in einen data.frame und schau dir mal dplyr::count() an.

Re: Häufigkeit von Kombinationen

Verfasst: Do Nov 01, 2018 1:56 pm
von bigben
Wie wäre es damit?

Code: Alles auswählen

ID <- c("Jonathan", "Hannes", "Kathrin", "Jennifer", "Annika", "Benjamin",
        "Jonathan", "Hannes", "Kathrin", "Jennifer", "Annika", "Benjamin")

Code <- c("Apfel", "Apfel", "Apfel", "Apfel", "Apfel", "Apfel", "Banane",
          "Birne", "Kirsche", "Banane", "Banane", "Kiwi")

count.combi <- function(id, code, search = c("Apfel", "Banane")){
  who <- tapply(code, id, function(i) (search[1] %in% i)&&(search[2] %in% i))
  print(who) # diese Zeile nach dem debuggen löschen
  sum(who)
}
count.combi(ID, Code, c("Apfel", "Banane"))

count.combi(ID, Code, search= c("Apfel", "Kiwi"))

count.combi(ID, Code, c("Banane", "Kiwi"))
LG,
Bernhard

Re: Häufigkeit von Kombinationen

Verfasst: Do Nov 01, 2018 2:40 pm
von jogo
Oder vielleicht sowas:

Code: Alles auswählen

d <- data.frame(
ID=c("Jonathan", "Hannes", "Kathrin", "Jennifer", "Annika", "Benjamin", "Jonathan", "Hannes", "Kathrin", "Jennifer", "Annika", "Benjamin"),
Code=c("Apfel", "Apfel", "Apfel", "Apfel", "Apfel", "Apfel", "Banane", "Birne", "Kirsche", "Banane", "Banane", "Kiwi"))
X <- xtabs( ~ ID + Code, data=d)
sum(X[,"Apfel"] & X[,"Banane"])  ## oder
sum(pmin(X[,"Apfel"], X[,"Banane"]))
Das ist doch mal wieder ein schönes Ratespiel ...

hier noch etwas für die Liebhaber von data.table:

Code: Alles auswählen

library("data.table")

d <- data.table(
  ID=c("Jonathan", "Hannes", "Kathrin", "Jennifer", "Annika", "Benjamin", "Jonathan", "Hannes", "Kathrin", "Jennifer", "Annika", "Benjamin"),
  Code=c("Apfel", "Apfel", "Apfel", "Apfel", "Apfel", "Apfel", "Banane", "Birne", "Kirsche", "Banane", "Banane", "Kiwi"),
  key="Code")

d["Apfel"][d["Banane"], on="ID", .N]           ## oder
d[ID %in% d["Apfel", ID]][!"Apfel", .N, Code]  ## oder
d[ID %in% d["Apfel", ID]][, .N, Code][!"Apfel"]
Gruß, Jörg

Re: Häufigkeit von Kombinationen

Verfasst: Do Nov 01, 2018 4:12 pm
von Athomas
Das ist doch mal wieder ein schönes Ratespiel ...
Stimmt - und diese Ratespiele scheinen sich ja großer Beliebtheit zu erfreuen :lol: !

Re: Häufigkeit von Kombinationen

Verfasst: Fr Nov 02, 2018 1:13 pm
von jogo
Athomas hat geschrieben: Do Nov 01, 2018 4:12 pm
Das ist doch mal wieder ein schönes Ratespiel ...
Stimmt - und diese Ratespiele scheinen sich ja großer Beliebtheit zu erfreuen :lol: !
klaro, aber in dieser Runde ist uns wohl der Quizmaster abhanden gekommen. :shock:
Er hat einfach nur sein Rätsel hier abgekippt und wech.

Re: Häufigkeit von Kombinationen

Verfasst: Di Nov 06, 2018 10:23 am
von Rubilu
Hallo zusammen!

Danke für die Tipps. Ich probier das gleich mal aus und sag euch Bescheid.

LG Rubilu