Deutsches R-Forum

Code: Alles auswählen

daten=read.csv2("datensatz2.csv", header =TRUE, sep=",")

Code: Alles auswählen

"Antwort ID,""Datum Abgeschickt"",""Letzte Seite"",""Start-Sprache"",""Zufallsgeneratorstartwert"",""Bitte geben Sie Ihr Alter an."",""Bitte geben Sie Ihr Geschlecht an."",""Bitte geben Sie Ihr Geschlecht an. [Sonstiges]"",""Bitte geben Sie Ihre Staatsbürgerschaft an."",""Bitte geben Sie Ihre Staatsbürgerschaft an. [Sonstiges]"",""Bitte geben Sie Ihre höchst abgeschlossene Ausbildung an."",""Bitte geben Sie Ihre höchst abgeschlossene Ausbildung an. [Sonstiges]"",""Beantworten Sie diese Frage bitte in Bezug auf die Wohnsituation in Ihrer Kindheit. Wählen Sie die Antwort aus, welche am ehesten auf Sie zutrifft.  Bitte geben Sie an, wie Sie aufgewachsen sind:  "",""Beantworten Sie diese Frage bitte in Bezug auf die Wohnsituation in Ihrer Kindheit. Wählen Sie die Antwort aus, welche am ehesten auf Sie zutrifft.  Bitte geben Sie an, wie Sie aufgewachsen sind:   [Sonstiges]"",""Beantworten Sie diese Frage bitte in Bezug auf Ihre aktuelle Wohnsituation. Wählen Sie die Antwort aus, welche am ehesten auf Sie zutrifft.  Bitte geben Sie an, wie Ihre aktuelle Wohnsituation ist: "",""Hören Sie immer aufmerksam zu, wenn Sie sich mit Ihnen nahestehenden Personen unterhalten?"",""Wie viele Ihrer nahestehenden Personen sind zumindest einmal auf ihren eigenen Partner eifersüchtig gewesen?  Beantworten Sie die Frage bitte in Bezug auf: Eltern oder andere wichtige Bezugspersonen "",""Wie viele Ihrer nahestehenden Personen sind zumindest einmal auf ihren eigenen Partner eifersüchtig gewesen?  Beantworten Sie die Frage bitte in Bezug auf:     [Freunde, die Sie schon seit Ihrer Kindheit kennen]"",""Wie viele Ihrer nahestehenden Personen sind zumindest einmal auf ihren eigenen Partner eifersüchtig gewesen?  Beantworten Sie die Frage bitte in Bezug auf:     [Freunde, mit denen Sie sich häufig treffen]"",""Wie viele Ihrer nahestehenden Personen sind zumindest einmal auf ihren eigenen Partner eifersüchtig gewesen?  Beantworten Sie die Frage bitte in Bezug auf:     [Ihre besten Freunde/innen ]"",""Ist es schon einmal vorgekommen, dass Sie eine Ihnen nahestehende Person ausgenutzt haben?"",""Wie viele Ihrer nahestehenden Personen sind zumindest einmal gegenüber ihrem eigenen Partner gewalttätig geworden?   Beantworten Sie die Frage bitte in Bezug auf: Eltern oder andere wichtige Bezugspersonen  "",""Wie viele Ihrer nahestehenden Personen sind zumindest einmal gegenüber ihrem eigenen Partner gewalttätig geworden?   Beantworten Sie die Frage bitte in Bezug auf:      [Freunde, die Sie schon seit Ihrer Kindheit kennen]"",""Wie viele Ihrer nahestehenden Personen sind zumindest einmal gegenüber ihrem eigenen Partner gewalttätig geworden?   Beantworten Sie die Frage bitte in Bezug auf:      [Freunde, mit denen Sie sich häufig treffen]"",""Wie viele Ihrer nahestehenden Personen sind zumindest einmal gegenüber ihrem eigenen Partner gewalttätig geworden?   Beantworten Sie die Frage bitte in Bezug auf:      [Ihre besten Freunde/innen ]"",""Behandeln Sie Ihnen nahestehende Personen immer freundlich und zuvorkommend auch wenn Sie selbst gestresst sind?"","" Helfen Sie Ihnen nahestehenden Personen manchmal nur, wenn Sie selbst eine Gegenleistung erwarten können?"",""Haben Sie in Ihrem sozialen Umfeld bei Ihnen nahestehenden Personen, zumindest einmal beobachtet, wie sie eifersüchtig gegenüber ihrem eigenen Partner reagiert haben?   Beantworten Sie die Frage bitte in Bezug auf:   [Eltern / andere wichtige Bezugspersonen]"",""Haben Sie in Ihrem sozialen Umfeld bei Ihnen nahestehenden Personen, zumindest einmal beobachtet, wie sie eifersüchtig gegenüber ihrem eigenen Partner reagiert haben?   Beantworten Sie die Frage bitte in Bezug auf:   [andere Erwachsene / Bekannte]"",""Haben Sie in Ihrem sozialen Umfeld bei Ihnen nahestehenden Personen, zumindest einmal beobachtet, wie sie eifersüchtig gegenüber ihrem eigenen Partner reagiert haben?   Beantworten Sie die Frage bitte in Bezug auf:   [Verwandte]"",""Haben Sie in Ihrem sozialen Umfeld bei Ihnen nahestehenden Personen, zumindest einmal beobachtet, wie sie eifersüchtig gegenüber ihrem eigenen Partner reagiert haben?   Beantworten Sie die Frage bitte in Bezug auf:   [Freundeskreis]"",""Wie schätzen Sie die Folgen von Eifersucht gegen den Partner ein?"",""Wie schätzen Sie die Folgen des Einsatzes von Gewalt gegen den Partner ein?"",""Bleiben Sie im Streit mit Ihnen nahestehenden Personen stets sachlich und objektiv?"",""Wie stehen Sie zu Eifersucht gegenüber dem Partner? "",""Wie stehen Sie zu dem Einsatz von Gewalt gegen den Partner?"",""Wie lautet die Bundeshauptstadt von Österreich? Aufgrund der unbrauchbaren Datenqualität, welche bei schnellem Durchklicken der Studie entstehen kann, bitte ich Sie die folgende Frage mit Köln zu beantworten, um sicherzugehen, dass die Aufgabenstellungen sorgfältig und genau gelesen wurde.  "",""Freddy ist mit seiner Freundin Julia im Strandbad. Er holt beiden etwas zu trinken. Als er zurückkommt, sieht er wie Julia mit zwei anderen Männern redet. Sie scheinen Spaß zu haben.  Was könnte Freddy denken? "",""Wie könnte Freddy reagieren? "",""Sophia ist seit vier Monaten mit Michael zusammen. Sie findet, dass sie eine gute Beziehung führen. Michael erzählt Sophia, dass er kurzfristig beschlossen hat, mit seinen Freunden nach Berlin zu fahren, um dort am Wochenende den Geburtstag seines besten Feundes zu feiern.   Was könnte Sophia denken? "",""Wie könnte Sophia reagieren? "",""Lena ist erst seit sechs Wochen mit ihrem Traummann Florian zusammen. Er postet sehr viele Bilder von seinen sportlichen Aktivitäten in sozialen Netzwerken - er ist Fitness-Influencer. Seit ein paar Tagen bemerkt Lena, dass eine bestimmte Frau alle seine Bilder liket und mit Herz- und Bussi-Emojis kommentiert.  Was könnte Lena denken? "",""Wie könnte Lena reagieren? "",""Daniel wohnt seit zwei Jahren mit seiner Partnerin Marie zusammen. Marie hat einen erfolgreichen Job, der ihr viel Freude bereitet aber ihr leider nur wenig Freizeit lässt. Neuerdings kommt sie abends immer später nachhause und redet ständig nur über ihre Arbeit.  Was könnte Daniel denken? "",""Wie könnte Daniel reagieren? """

Code: Alles auswählen

befragung1 <- read.csv("datensatz2.csv", header = TRUE)
str(befragung1)
head(befragung1)

Code: Alles auswählen

head(befragung1)

Code: Alles auswählen

X.Antwort.ID...Datum.Abgeschickt...Letzte.Seite...Start.Sprache...Zufallsgeneratorstartwert...Bitte.geben.Sie.Ihr.Alter.an....Bitte.geben.Sie.Ihr.Geschlecht.an....Bitte.geben.Sie.Ihr.Geschlecht.an...Sonstiges....Bitte.geben.Sie.Ihre.Staatsbürgerschaf ...

Code: Alles auswählen

1 5,"1980-01-01 00:00:00","7","de","1498893192","22","weiblich","","Österreich","","Matura","","bei zwei Elternteilen (biologisch oder nicht)","","in einer ländlichen Gegend (z.B.: Gemeinde am Land)","trifft voll und ganz zu","keiner von beiden","weniger als die Hälfte","keiner von ihnen","keiner von ihnen",

Code: Alles auswählen

"trifft gar nicht zu","keiner von beiden","keiner von ihnen","keiner von ihnen","keiner von ihnen","trifft voll und ganz zu","trifft gar nicht zu","Nein","Nein","Nein","Nein","ausgewogen zwischen negativ und positiv","hauptsächlich negativ","trifft ziemlich zu","empfinde ich als in Ordnung.","ist für mich unverzeihlich.",

Code: Alles auswählen

"Köln","Freddy denkt, dass die Männer Arbeitskollegen von Julia sind.","Freddy setzt sich zu den drei Anwesenden und nimmt am Gespräch teil.","Sophia denkt, dass sie sich am Wochenende mit ihren Freundinnen treffen kann.","Sophia wünscht Michael viel Spaß.","Lena denkt, dass andere Frauen Florian auch attraktiv finden und freut sich darüber.","Lena fragt Florian wer diese Frau ist."

Code: Alles auswählen

,"Daniel denkt, dass Marie eine gute Mitarbeiterin ist und deshalb länger arbeiten muss.","Daniel bietet Marie seine Unterstützung an."

Code: Alles auswählen

""ID", "Name", "PLZ""
"1, "Gitti", "12435""
"2, "Frank", "23547""
"3, "Steffi", "34576""

Code: Alles auswählen

handle <- file("C:\\Users\\eins\\Documents\\R\\Schrott\\daten.csv", "r", blocking = FALSE)
zeilen <- readLines(handle)
close(handle)
head(zeilen)

for(i in 1:length(zeilen)){
  zl <- nchar(zeilen[i])
  zeilen[i] <- substr(zeilen[i], 2, zl-1)
}

read.csv(text=zeilen)

Code: Alles auswählen

daten=read.csv2("daten3.csv", header =TRUE, sep=";")

Code: Alles auswählen

str(daten)