Fragestellung Als Psychologe wird man oft von anderen Menschen mit Laienpsychologie konfrontiert. Psychologische Weisheiten und angebliche psychologische Tests verbreiten sich heutzutage überall im Netz. Wir wollen uns nun anschauen, wie so ein angeblich psychologischer Test entwickelt wird. Der Test, den wir erstellen möchten, beschäftigt sich mit der Frage: „Wer sind deine wahren Freunde?“, indem er die WhatsApp-Chats mit deinen Freunden analysiert und dir zeigt, wem du am wichtigsten zu sein scheinst.
Datensammlung
Als Datengrundlage musst du, wie unter Vorbereitung beschrieben, einen deiner WhatsApp Chats exportieren und in R einlesen.
Datenaufbereitung
Wenn du dir nun den Datensatz anschaust, dann wirst du sehen, dass es in manchen Zeilen keinen Absender und keine Zeitangabe gibt. Das passiert, wenn jemand einen Absatz in seiner Nachricht gemacht hat. Um dies zu beheben müssen wir erst alle Zeilen identifizieren, die dieses Problem aufweisen. Nun musst du die Uhrzeit und den Absender aus der vorherigen Nachricht kopieren und in den ersten beiden Spalten der folgenden Nachricht einfügen.
Tipp 1
Hier geht es darum, bei der Datenaufbereitung die Zeilenumbrüche im Datensatz zu beheben.
Abschnitt anzeigen
Die Nachrichten mit Zeilenumbrüchen lassen sich identifizieren, indem wir mit which zwei Bedingungen verknüpfen. Das geht ganz einfach mit dem ‘&’ Zeichen. Danach kannst du in einer for Schleife die Uhrzeit aus der vorherigen Nachricht in die Zeilen ohne Absender und Uhrzeit kopieren.
Tipp 2
Dieser Tipp hilft dir bei dem Diagramm zu den Zeiten.
Vorwarnung
Achtung! Im Folgenden werden die Lösungen für das dritte Projekt präsentiert. Falls du das Projekt noch nicht vollständig bearbeitet hast, nutze zunächst die Tipps. Sofern dir die Tipps für einen Teil nicht geholfen haben, kannst du die Lösungen benutzen, um einen Schritt weiterzukommen und beim nächsten Abschnitt weiterzumachen.
Datensammlung
Abschnitt anzeigen
Zunächst muss der Chat, wie in der Vorbereitung eingelesen werden.
setwd('...')
install.packages('rwhatsapp')
library(rwhatsapp)
## Warning: package 'rwhatsapp' was built under R version 3.