R erhalten nur 3 verschiedene Strings aus mehreren Kombinationen

Question

Ich extrahierte Informationen aus einer CSV-Datei in eine Tabelle und muss ein Barplot aus einer der Zeilen machen.

Diese Zeile hat 3 verschiedene Zeichenfolgen, aber es kann mehr als 1 Zeichenfolge in jeder Zeile enthalten. Nehmen wir das als Beispiel:

Row1 | Reihe2 | RowIWant | RowEtc ...

Daten | Daten | A | Daten ...

angenommen, A, B und C sind Text und nicht nur ein Zeichen. Ich möchte einen Barplot nur mit A, B und C machen und nicht mit allen 6 möglichen Kombinationen.

Im Moment der Bar Grundstück kommt wie diese BarPlot

ich es nur die 3 verschiedenen Strings anstelle der 6 bar zeigt im Moment haben wollen. Ist das erreichbar? Tut mir leid, wenn es schon beantwortet wurde, aber ich konnte nichts finden, was ruhig war, was ich wollte.

Auch wichtig, ich bin neu auf R und das ist eine Schule Arbeit! Wenn mehr Informationen benötigt werden, sag einfach.

Vielen Dank im Voraus

dput() der Daten mit Ich arbeite

Struktur (c (2L, 2M, 2L, 1L, 3L, 3L, 4L, 2L, 2M, 2L, 4L, 2L, 2L, 4L, 2L, 4L, 2L, 4L, 2L, 2L, 2L, 6L, 4L, 2L, 2L, 2L, 5L, 2L, 4L, 4L, 2L, 2L, 2L, 2L, 5L, 4L, 4L, 4L, 5L, 2L, 2L), .Label = c ("", "Pessoal", "Pessoal, Outros", "Pessoal, Profissional", "Pessoal, Profissional, Outros", "Profissional"), Klasse = "Faktor")

Wie Sie sehen können, habe ich 6 Einträge auf Label und ich möchte nur 3 haben! Aber ich möchte sie nicht löschen, ich möchte sie zählen. Zum Beispiel zählt der Eintrag "Pessoal, Profissional" als 1 für "Pessoal" und 1 für "Profissional".

Answer 1

Wie ich Sie richtig verstehe, wollen Sie jedes Wort einzeln zählen. Daher würde ich verschiedene stringr Funktionen verwenden, um die Worte zu spalten:

d <- structure(c(2L, 2L, 2L, 1L, 3L, 3L, 4L, 2L, 2L, 2L, 4L, 2L, 2L, 4L, 2L, 4L, 2L, 4L, 2L, 2L, 2L, 6L, 4L, 2L, 2L, 2L, 5L, 2L, 4L, 4L, 2L, 2L, 2L, 2L, 5L, 4L, 4L, 4L, 5L, 2L, 2L), .Label = c("", "Pessoal", "Pessoal, Outros", "Pessoal, Profissional", "Pessoal, Profissional, Outros", "Profissional"), class = "factor") 
library(stringr) 
d1 <- str_trim(unlist(str_split(d,","))) 

und zeichnen die Zählungen

barplot(table(d1[d1 != ""]))