Umwandlung long in wide format / Zusammenfügen von Zeilen
Umwandlung long in wide format / Zusammenfügen von Zeilen
Hallo,
ich möchte meinen Datensatz aufbereiten und bin dabei auf folgendes Problem gestoßen:
Die Probanden haben zu verschiedenen Zeiten randomisiert Teile eines Fragebogens beantwortet was zu einem Datensatz in Form wie folgendes Beispiel geführt hat (wie ein long format mit verschiedenen Zeitpunkten und somit mehreren Zeilen für eine Person, jedoch insgesamt pro Person nur ein kompletter Fragebogen, da immer nur Teile beantwortet wurden):
Die Punkte sollen nur verdeutlichen dass es pro Fragebogenteil mehr als nur zwei Fragen waren.
VP, SA1, SA2, .... PD1, PD2, .... PK1, PK2, ....
1 , NA, NA, ... 2, 1, ... NA, NA
1, 1, 1 , ... NA, NA, ... NA, NA
1, NA, NA , ... NA, NA, ... 2 , 1
2, 1 , 2 , ... NA, NA, ... NA, NA
2, NA, NA , ... NA, NA, ... 1 , 1
2, NA , NA , ... 2, 1, ... NA , NA
.
.
Nun brauche ich für meine Auswertungen aber ein Format, indem pro Person nur eine Zeile vorliegt, jedoch die Informationen aus allen Zeilen einer Person kombiniert werden, die Zeile also erstellt wird indem die Missings durch die Daten in den anderen Zeilen einer Person ersetzt werden.
Das ganze sollte also im Endeffekt so aussehen:
VP, SA1, SA2, ... PD1, PD2, .... PK1, PK2, ...
1 , 1 , 1 , ... 2 , 1, ... 2, 1
2 , 1 , 2 , ... 2 , 1, ... 1, 1
.
.
.
Ich habe an den reshape oder den cast Befehl gedacht, so wie ich es verstanden habe (bzw. hat die Google Suche so erklärt) funktioniert das nur wenn man eine Spalte hat, die den Zeitpunkt oder "Values" enthält, welche dann zu den neuen Variablen im wide Format werden. Das habe ich ja aber nicht sondern in den Zeilen sollen die selben Variablen stehen, nur der Inhalt aus mehreren soll übernommen werden.
Vielen Dank schonmal für eure Hilfe!
Alina
ich möchte meinen Datensatz aufbereiten und bin dabei auf folgendes Problem gestoßen:
Die Probanden haben zu verschiedenen Zeiten randomisiert Teile eines Fragebogens beantwortet was zu einem Datensatz in Form wie folgendes Beispiel geführt hat (wie ein long format mit verschiedenen Zeitpunkten und somit mehreren Zeilen für eine Person, jedoch insgesamt pro Person nur ein kompletter Fragebogen, da immer nur Teile beantwortet wurden):
Die Punkte sollen nur verdeutlichen dass es pro Fragebogenteil mehr als nur zwei Fragen waren.
VP, SA1, SA2, .... PD1, PD2, .... PK1, PK2, ....
1 , NA, NA, ... 2, 1, ... NA, NA
1, 1, 1 , ... NA, NA, ... NA, NA
1, NA, NA , ... NA, NA, ... 2 , 1
2, 1 , 2 , ... NA, NA, ... NA, NA
2, NA, NA , ... NA, NA, ... 1 , 1
2, NA , NA , ... 2, 1, ... NA , NA
.
.
Nun brauche ich für meine Auswertungen aber ein Format, indem pro Person nur eine Zeile vorliegt, jedoch die Informationen aus allen Zeilen einer Person kombiniert werden, die Zeile also erstellt wird indem die Missings durch die Daten in den anderen Zeilen einer Person ersetzt werden.
Das ganze sollte also im Endeffekt so aussehen:
VP, SA1, SA2, ... PD1, PD2, .... PK1, PK2, ...
1 , 1 , 1 , ... 2 , 1, ... 2, 1
2 , 1 , 2 , ... 2 , 1, ... 1, 1
.
.
.
Ich habe an den reshape oder den cast Befehl gedacht, so wie ich es verstanden habe (bzw. hat die Google Suche so erklärt) funktioniert das nur wenn man eine Spalte hat, die den Zeitpunkt oder "Values" enthält, welche dann zu den neuen Variablen im wide Format werden. Das habe ich ja aber nicht sondern in den Zeilen sollen die selben Variablen stehen, nur der Inhalt aus mehreren soll übernommen werden.
Vielen Dank schonmal für eure Hilfe!
Alina
Re: Umwandlung long in wide format / Zusammenfügen von Zeilen
Hallo Alina,
willkommen im Forum. Zum long und wide-Format habe ich hier mal etwas gemacht. Vielleicht hilft es weiter...
willkommen im Forum. Zum long und wide-Format habe ich hier mal etwas gemacht. Vielleicht hilft es weiter...
Viele Grüße,
Student
-----------------------------------------------------------------------------------------------------------------------
faes.de, Datenanalyse mit R & das Ad-Oculos-Projekt
Das Ad-Oculos-Projekt auf YouTube
Habe Mut, dich deines eigenen Verstandes zu bedienen! (Kant)
Student
-----------------------------------------------------------------------------------------------------------------------
faes.de, Datenanalyse mit R & das Ad-Oculos-Projekt
Das Ad-Oculos-Projekt auf YouTube
Habe Mut, dich deines eigenen Verstandes zu bedienen! (Kant)
Re: Umwandlung long in wide format / Zusammenfügen von Zeilen
Geht das in die gewünschte Richtung?
LG,
Bernhard
Code: Alles auswählen
bsp <- read.csv(header=TRUE, text="VP, SA1, SA2, PD1, PD2, PK1, PK2
1,NA,NA,2,1,NA,NA
1,1,1,NA,NA,NA,NA
1,NA,NA,NA,NA,2,1
2,1,2,NA,NA,NA,NA
2,NA,NA,NA,NA,1,1
2,NA,NA,2,1,NA,NA")
erg <- tapply(X=bsp[,2:7],
INDEX = list(bsp$VP),
FUN = function(x) colMeans(x, na.rm = TRUE))
print(erg)
Bernhard
---
Programmiere stets so, dass die Maxime Deines Programmierstils Grundlage allgemeiner Gesetzgebung sein könnte
Programmiere stets so, dass die Maxime Deines Programmierstils Grundlage allgemeiner Gesetzgebung sein könnte
Re: Umwandlung long in wide format / Zusammenfügen von Zeilen
Oder eine dplyr-Lösung:
Code: Alles auswählen
bsp <- read.csv(header=TRUE, text="VP, SA1, SA2, PD1, PD2, PK1, PK2
1,NA,NA,2,1,NA,NA
1,1,1,NA,NA,NA,NA
1,NA,NA,NA,NA,2,1
2,1,2,NA,NA,NA,NA
2,NA,NA,NA,NA,1,1
2,NA,NA,2,1,NA,NA")
library(dplyr)
bsp %>%
group_by(VP) %>%
summarise_all(function(x) x[!is.na(x)])
# or as lambda function
# summarise_all(~ .x[!is.na(.x)])
Bitte immer ein reproduzierbares Minimalbeispiel angeben. Meinungen gehören mir und geben nicht die meines Brötchengebers wieder.
Dieser Beitrag ist lizensiert unter einer CC BY 4.0 Lizenz
.
Dieser Beitrag ist lizensiert unter einer CC BY 4.0 Lizenz
.
Re: Umwandlung long in wide format / Zusammenfügen von Zeilen
Vielen Dank schonmal für die schnelle Hilfe!!!
Bei der dplyr Lösung kommt folgende Fehlermeldung:
> df %>%
+ group_by(session) %>%
+ summarise_all(function(x) x[!is.na(x)])
Error in function_list[[k]](value) :
could not find function "summarise_all"
> # or as lambda function
> # summarise_all(~ .x[!is.na(.x)])
> df %>%
+ group_by(session) %>%
+ summarize_all(function(x) x[!is.na(x)])
Error in function_list[[k]](value) :
could not find function "summarize_all"
Ich habe es mit summarise_all und summarize_all probiert...
Könnte es an folgender Warnung liegen, welche beim Laden des dplyr Paketes kommt?
Attache Paket: ‘dplyr’
The following objects are masked from ‘package:stats’:
filter, lag
The following objects are masked from ‘package:base’:
intersect, setdiff, setequal, union
Warning message:
Paket ‘dplyr’ wurde unter R Version 3.1.3 erstellt
Ich habe das Paket bereits nochmal aktualisiert/neu heruntergeladen, das hat aber leider nichts gebracht.
Bei der anderen Lösung mit dem tapply Befehl kommt folgende Fehlermeldung:
> erg <- tapply(X=df.red2[,2:74],
+ INDEX = list(df.red2$session),
+ FUN = function(x) colMeans(x, na.rm = TRUE))
Error in tapply(X = df.red2[, 2:74], INDEX = list(df.red2$session), FUN = function(x) colMeans(x, :
Argumente müssen die selbe Länge haben
Ich habe bereits einen reduzierten Datensatz erstellt, welcher nur die Variablen enthält welche ersetzt werden müssen.
Könnte es daran liegen, dass nicht von jedem Probanden die Antworten auf alle Fragen vorliegen, sondern Probanden auch abgebrochen haben und von einzelnen dann z.B nur die Antworten auf die SA Fragen vorliegen? Wenn ja gäbe es dafür eine Lösung?
Vielen Dank nocheinmal für die Hilfe!
Bei der dplyr Lösung kommt folgende Fehlermeldung:
> df %>%
+ group_by(session) %>%
+ summarise_all(function(x) x[!is.na(x)])
Error in function_list[[k]](value) :
could not find function "summarise_all"
> # or as lambda function
> # summarise_all(~ .x[!is.na(.x)])
> df %>%
+ group_by(session) %>%
+ summarize_all(function(x) x[!is.na(x)])
Error in function_list[[k]](value) :
could not find function "summarize_all"
Ich habe es mit summarise_all und summarize_all probiert...
Könnte es an folgender Warnung liegen, welche beim Laden des dplyr Paketes kommt?
Attache Paket: ‘dplyr’
The following objects are masked from ‘package:stats’:
filter, lag
The following objects are masked from ‘package:base’:
intersect, setdiff, setequal, union
Warning message:
Paket ‘dplyr’ wurde unter R Version 3.1.3 erstellt
Ich habe das Paket bereits nochmal aktualisiert/neu heruntergeladen, das hat aber leider nichts gebracht.
Bei der anderen Lösung mit dem tapply Befehl kommt folgende Fehlermeldung:
> erg <- tapply(X=df.red2[,2:74],
+ INDEX = list(df.red2$session),
+ FUN = function(x) colMeans(x, na.rm = TRUE))
Error in tapply(X = df.red2[, 2:74], INDEX = list(df.red2$session), FUN = function(x) colMeans(x, :
Argumente müssen die selbe Länge haben
Ich habe bereits einen reduzierten Datensatz erstellt, welcher nur die Variablen enthält welche ersetzt werden müssen.
Könnte es daran liegen, dass nicht von jedem Probanden die Antworten auf alle Fragen vorliegen, sondern Probanden auch abgebrochen haben und von einzelnen dann z.B nur die Antworten auf die SA Fragen vorliegen? Wenn ja gäbe es dafür eine Lösung?
Vielen Dank nocheinmal für die Hilfe!
Re: Umwandlung long in wide format / Zusammenfügen von Zeilen
Hallo alina,
sei so nett, und gib uns einen Einblick in Deine Originaldaten. Beispielsweise könntest du uns den Output folgender Zeile in code-Tags hier ins Forum posten:
Natürlich nicht, wenn da Klarnamen, Telefonnummern oder Emailadressen drin stehen.
LG,
Bernhard
sei so nett, und gib uns einen Einblick in Deine Originaldaten. Beispielsweise könntest du uns den Output folgender Zeile in code-Tags hier ins Forum posten:
Code: Alles auswählen
dput(head(df.red2, 20))
Natürlich nicht, wenn da Klarnamen, Telefonnummern oder Emailadressen drin stehen.
LG,
Bernhard
---
Programmiere stets so, dass die Maxime Deines Programmierstils Grundlage allgemeiner Gesetzgebung sein könnte
Programmiere stets so, dass die Maxime Deines Programmierstils Grundlage allgemeiner Gesetzgebung sein könnte
Re: Umwandlung long in wide format / Zusammenfügen von Zeilen
Hallo Bernhard,
ich weiß nicht was ein Code Tag ist, aber hier ist der Output von dem Befehl:
Die langen Zahlen/Buchstaben Kombinationen sind die, vom Programm mit dem ich die Umfrage gemacht habe erstellten, Session Codes mit welchen die Zuordnung zur Versuchsperson möglich ist (also gleicher Session code heißt gleiche Versuchsperson)
bigben hat code-Tags ergänzt, siehe auch viewtopic.php?f=20&t=29
ich weiß nicht was ein Code Tag ist, aber hier ist der Output von dem Befehl:
Code: Alles auswählen
dput(head(df.red2, 20))
structure(list(session = structure(c(1L, 136L, 136L, 136L, 136L,
136L, 136L, 59L, 28L, 135L, 52L, 52L, 52L, 52L, 52L, 52L, 36L,
36L, 36L, 36L), .Label = c("", "-GK5NM8WY-5hlWsTj1Q4yY_VHsZW7JOljK3Zk2STl9wQ88MIo86_yKOBuQxRPmm9",
"_z2aDQUDZi1orGJNlugMoGqXoXpdrp5ZrvzZ8p1Lu_vcFeCo4_qJA1TwYlldCRKD",
"0Q60yev1O28YS2IWA9G72d99jBlk9Fi8h50HjEZA7St3snZwzt-mLzV_njQQpEH0",
"2fGnOInmIf0HKAeHad_FGXuLkydNj4MJdQifCpbOTrJb5hk8ivd4382OJ19FheWZ",
"4_Muulivqk-FFasifTjmTOaLhgIhfwNsR_GFM-AjdHy2Ucf1Dlk0lf5I5iQ75iVG",
"46Yr1DWyi3BrmAXlTSae_5qYTHm_epBbTMARE_034mRk2pJ2lJ2uM13S7J0zHNwl",
"46ZYH7Oh001-FoeDv6kMPYjNramE5QRohP8vPNyTT1rRa0coGAcvbN1uk3aAwYbs",
"4Mf3rya4G0BbY4FBt66krtmcoozFw8qIsS2q5Is4HScDh8ULKGg-DxVJ4Je8AWVm",
"4NBQZSImRgG9S25O2c6khge6ZZnPvGkOVmzVSSsSoQes4AfGSfgcxhnC3f0d9LO4",
"4QBjhoDW9u5GFMCqTDdoZ7Xdg0M-O46Khx9BRN966qLGZxZI7TfIQ_JYjdUKiP-1",
"5Lnl7G1KrcZct8Nm__XOG6ABpklpQt7O2yThtT19es-yeph4BpA2l1Gh02tWPDog",
"5M-CJBHE_RyL8bhXgCzaeP7MwDfYCplsm8lNQXTLHKZFGYxHklcNhjCRAGbhSuhQ",
"63F8feGuZPhMzkEUCKUrnENoRzf6yBKo-gQEBD7_HONRmylwctWQp0Ah4exIfOV1",
"79uQqXUeupMezqJL7v0cen4CCrvj739teADCag17DcPboG1pchNd8zOxYXNQVQXA",
"7N7GimTyeXFj_JnRuvR8okyidPwE3Lleh1PMPOj6Ybf4EQ5ZJxoX6i-QiH4nfCer",
"89bPS0q6CgjXIvnNI0pogbyU40hz8LFI0rgs0o_RJ6HpKOVaf4KQ1Bkuw6dokpQA",
"95OgY8UKqvU_nJO6TI2CM8w0GIec_Z3n84XYhLdz7G_ftxhalEhQ63RPwSW4Ra-B",
"A-iZPpPdBg_ZRjTRjEe_RhpS0TQhIgSjsO9EhFiJmm7cLDXdMOf1B9L_QOJmMX8Z",
"A3odHbtW6XB-eiR-sK5Yq3XqHmvjnFloNi6aqbRhgEtPyMVEGB3bpODoOlHHNHOL",
"adventurousToadXXX1CUoqPZaY-QTPaPkzHI1ApKQuSfobf0D1_MJB_bTWtmTuF",
"adyRsanBFheV3PRot93XFf5jTeA1sDwlDbrDx-fRy-6f44vaIjH42M3JjrLkb25e",
"aggressiveBombayXXXHIBsel38J3chihWEY1WEIYFftktOqyQw8IVYTkdqzlKk2",
"aggressiveOrioleXXXSTOACEsQcEXf_fosPrarUpavYjkuRCFIv30pTkBPTRrkb",
"bC-Ex_xsrwxB8aa-nyvf-ol962pl_VhKpyXXvmIiJM_jZ-PyQ_Sp6wB6KkX-rjyd",
"BleAdTZsXsqLsOpj-dt9m0-fICfXh-vR8LbqjTCFe8vF76sC_L8EiCBxKNflZLBq",
"brainyBarbXXXYWlTCrTV4rK4n8cUOX0N6SxviUEdiHjBPH5tGTWW-rcowp15KAB",
"breakableCuscusXXXZZdEpAG2mEmSRLzHA6HfKIu__Tt5o6VwALA066KR9lOWUD",
"bYOirIB40mQq1XST0QXMrhRd08kJZezPhIsysnrqtH6JdpGLEXiNGq2f0JKa_-s2",
"BYyRAecmHGwkp3IA-jDFJQndzQzZ9ER_cE-TbjfttOWlc7EhPEyL_FHExl-cz-2l",
"bznm31PMYHhie0Q5vOL45ydD9Bc77ecMvY_QLbVzxUtiZjCtbog51Tortuo86cDU",
"c-EqtK2jOxiNMkDDfvCLIR6ERIeMETR0h3gREaspcXZH8ydMZajWyP8PIC_P1eWj",
"carefulSunBearXXX-6zsFN5cpV2OHOP5r7vX77sZBZcrJanMXNMofQSeNemuKxt",
"cbdogxJEb23jmQSGcIGem68Zo4I8WCQjfNlsoLn_nIX-kAIj6aGTsDo1LXcY1zDB",
"CCrAwpveHSJU8DR8SGK0u1Z0QB3mVnoN-vxEEHjvlJq_srxKZRdok2KBy9AnQXn9",
"cheerfulRiverTurtleXXXvtqhBiqh7zfe1ABblILFvq9_Em6ZIFtOB3hCI98wGL",
"Cj6pPT66bWuHDV9uoc44X48W9kteq9V6HGepGg30nR0cEv_YyrWVWLu4uhLqn_Xq",
"cleanZebraXXXDauOiBYWPiABF_yTc0H4VMezKU42SfLFZDNbySKVqhiq6PSDvEE",
"colorfulMongooseXXXECsmHbQjuhbhqL5IuW0u-g2w1gAIMDH1zAkpDpzdLsbIl",
"CqSp-j7MFUkXXn2n1vB3WU2QTAw1_04aiM8si6KqftyA9z7Xx-p2U-9LCyIfzDVI",
"dbZ_fJmyIwlnRcznNAtBzDjbj0-YjG2z5Bhqwihs9sEtSEU1Z5LB07YsvpJmCMBE",
"determinedDiscusXXXJWA_rZNpB8WrPVXa5UibAJt7787g13PCmRsJSuXrh4dGO",
"dfC-EXkFh4UlI4-pTlaSAXTqmER-kzxdwwuWTUwDL2OFEmweHjiBEzjufM2YgG7S",
"DGQZ3BQlTA2jIz_1EdoyaUyHZ02GIBTeErLkXpiO0SIO12n1cTWuy7_T64S4auHo",
"dPzAy9IFWXBzHo4pWsGWhCttC5ryOEFUb_ATP4QvgexveyrG3R54WsTg8IOrD3CO",
"e6pyVHUh6O4nJ_fdosqGHBr8LMn2mrZKXiL6IUqGrkL_Q39j7NrixCgv70McGpGN",
"E7eFrPHlavzSAbzYKDcVr3_EDjpJ2qpPbenl47O1VBvjlspKKEozVtdJESOjj2Ci",
"EMxEYrFrtphN-9Qw5bmlILEzqpZwdqpkoLm4xsAsXlpu7oCdf6gCVxhxz4e0BvEO",
"excitedWombatXXXRH7i0Rj5hzQhigyLCPr4wHaLqYzfgLqF2sU-CFi2-DZt_SmV",
"FMR8ar0kTLmff-2v2rW54gLO2bAbTeleb0dqjt9mrv8F2_qX5hgvvrXlkTZSOJmt",
"fragileSnappingTurtleXXXFve02kMjTd9BgTc1bB9kWpNBdpDWEHeUvULZOq-p",
"friendlyBrownBearXXX6dxu2lnXR0792eA-Aj8to46qLwr6imn2yX98wIHrg1DO",
"FsJVAxsU2g_q6-jETWMaRWT_dMbdCyaLAZdGCK4FQo6gWcu3ElH1KJ9B_gOx_-ns",
"FxjnXEQGNdQsNOepgPSXzsMnHfjURylYpgTr2Iq3Yqfcz-dc6JSxVQS-uYuVPsqM",
"G_cjUtLdDRkjqvV8m_uMYxDcUzypRiS7jSK9GkevHrZTFxvXyxFe7Ljd_iZN2hmn",
"G9UJilKrYRMbKd0KpmR4T5z5T2Gqb1yfy-PRI2AwIBcyxo8PWe_Ep1J02tLx_Fui",
"GcuiHO5-amXAMCls9rrZB8oUqjcLct1MVSEW1Jyoa8YUCRO2CrIkdSXpxTp1A5a_",
"gentleOkapiXXXsz-NlEjS_jDDKorI8FkYOmtXIqpjxXGcF9c_fMf9x6MixRq7LZ",
"gracefulHeronXXXZfYPBxVIA8RocfosJ6CtVpVLJZH2Ny7V2myFe7EQry5k1U9r",
"gracefulMonitorXXXEybuP3cpE8rkxmstr1xsEYNiU2TW5XgWMY4GunvXVJQ3pV",
"GUZwFVzcHImE8FUIMy_rjQirjTnpRFFpT8WIQajo9SYxtwcLe-f8k3XVgHaQSVUf",
"H6UruP4hdTMUKZqvpXLcUwpvhvFuTV6GqrV8wZfUisiflWkm228OOaBHFcykHfcA",
"H7Q4AfXtc8DF0U6grwQHu_1XDnCD3japgDfjI63G3r6AUsVz55BIMc1V0xS-eu7s",
"hmeFm3Cwvff6hF7oBdL5TQNgf76GEXRbg5H16mURK4uQsDbqha3q1ZttUV4wL64t",
"hSPn4qevXPXZRYh285E9-8ZflCf1P5SDUT3NN8S3czo-gU3VpJzT3P_U9D0H4Ulj",
"hsrWqHvYgyKON5ZINtRtwqznQJ3rQUOlpBJ5p60ZqOdSIrS0DDWE6c587uoLLjle",
"HSxg6TQj5MdoDL_wQkXMjUUUxxa9EjTVpW6BbQGiAx0s00J7SPE2wPVAg685KzvY",
"hungoverQuokkaXXX-0DBEI06-I3roMVbYgcT-lkbNI42F0LlAlGiFg-6B6SdhJy",
"I5aHBKp-DzKm7tNIKd5NHHYJPhUs5jWBr7NWUA2x4FHUiaAv9bOaxMnev2AIP5MO",
"iIEJ5iMkSuhvyLyULqhOr9Bavx9qsbIu7tv62PZPEOhxEZyPGKii5VesSEUecgNb",
"IOQYJzwv3_7izELTJk6PT3jiV-ECyVxX78zJpEwnYqeAwIpJW1AfVqLrVKvVbApI",
"iPbkjkntZfFeYf871PlqTPJhnuHm54zFFHPIItWIPQoy_1MZ_9T7Tj3LzE58dHXO",
"IR-GDAfAQ2Cxi_6pEN2lpDYzPrfmyABMcuux6bxRFNZMrJRAvMKzEePtGMdPDaDh",
"JBxalk_k9X7Gh32l2qww9mZ4v6dx-2qFScjEC4LWBkGZyJSZPLg9xJbq43_FcrGD",
"JCQU0t4vdP7nPgzvWJqjUEJNsDFqJBy7jophq5s8xgJ2GH_CApLN8PqK7r4szpHj",
"JjtZbREKsSFt4dbY9wFgpuqpJDbeSc1mz8QH49u6fGE3JYjNs4EO3k1hkji-bzkM",
"JLXekSsxY_ZK18mhn7_KwQVmX6L6pBKja0r4uju0Id5F0c_Peev3U1RSqRQB7_bw",
"kI7TLyTQ6Jb_UTayk9aoNJ9-l7Fli3_7pLoaPKR38H4l0O4bTrZXM2uBbdxBHwPm",
"kindBluetickXXX1MQeinYFEJnkiexZCDcdkQk2K4ttPkp0wooh6RnbGbi41ElEz",
"kLQpY4OroxBEonlKn51IeROto_PJ2LoUPS4UtNafbU04Gb11sFXfVm0vp949jpvu",
"KssNk0iicNf1hqEiv-w12fXXoPJKMrX1HAscpRoXayPeBnqtXerM2xedYhjC1Lq5",
"kWv2k3ZsNSt6DcQ94RaiFHeyTYNRqobv2D7p6jHgvMRFrnU3Vpq9qXOQ6YKS2T6M",
"l0hm55u5KlvgQ6tKXtwsFq0fpysZYLuHQsYkOIDajJkVlJ3QEIZq3n2m8Nv79Akr",
"l9vMgZVCVopHrXU22S6KGF-DGCse6y0vtC5GaBxlNKNZOT7gd8qfrbLF9fbGyOtB",
"LBPVdq1CMRDdftWs1SaqHt6TPUUIbbPhKP6sDmf640STUSK5Bc3nN8lhhUoVSBSe",
"LC-Z3CpYoSrkiZYrPrdrzUuI0on9fAhTx8gQslrrgDmZ8AYtJUBvVTi-zEUu_iZ9",
"LFzPHwv9LONMUCMvDWPiq7pScUZ4bQG03XqyDx-C1fG3Z88m1frQEigQgXAJz2LJ",
"LOCq-ULSfP01AyxP-hRYDAfY44jiVlgzCvJAPr9_SMfWkgPrJ3_hs9K57sUqQVJK",
"LQySfHeDS6B_dMvoWCQSF7WUiMf18K6IDGJyB-CrKfaCMnoWmEPWTWuXqVP-McYf",
"mcirMNYaLAPTiMtWQZUl28JIWV_29jLqfK1hdYJVfpcs-YZx1AULiDA-_MC-LbGg",
"mf1Ai_K0olOv8oowFxyWg70Np_OWe48lRFEHDmh2ZVgMW01fZBwfgAS0SoDZOHlk",
"mFRq21SGWgsR0OI8NDaeL079KP61oO0Z4S0hzm0KXjHtPVpBKvgqUPMScKmWhpO8",
"MfRrqIcHbeYoTLwalLqUg0Slo8gjtmAdZqdWDYTOMgxGk9ITmhYYqrULNU_RtPAO",
"mKpTsxZu36LgCnizcNKXJEBjvoT_a2iEXd1_9F6UtQhN4FIYVscL9Dg2raS5JtzU",
"modernMauXXX_4WsU_-N3Zzm8De1j8MwklOjVI4c4wsAAbkG9tZklHt07k9xnwy-",
"MP0tTB6gy33AWtFBFGG93hkeZo4RAFCjf6zdGxaEoXuxC3F2B5HMbsS26TLCcQ1I",
"MTt3uKo7ltS0JOewWtpLMoj96uC4fA59a_bofgpThBJ8P-00j8_6h_Y45U9Hl19b",
"mWTx4gPwtsP-MYtXBJmeAmaAdwnNgcgR8UwHLcpNVMIa93VFWC7PTVho9LjZMVMG",
"Myqk5DyVM_akhLs8YRteuny3_cHTaGObSFlN__9Dbe3XIRclTpW3dtICFtI-P4Hq",
"N0TmpRfWIt-7My2dLLobg8qX7cc29tKYAjtQje45i09JpahCdr69NjQcgXQcDylr",
"n7F9Knzi5KDeiTgowaA59wQxZva8n3_SmZQYR-wVd6m254EHs0SygGECAcf8XR-F",
"NP_C6fhKix4397iJAZfwjxItBD6bRUAbpV08OstGq3PuPfDe8aohNhPd8JIHVS4V",
"O0D9WZzPlS2PwzTgBMUdVeJtNj8E6A40x-pM_E4URcRDiT9lP0chkn1S-qIuqXGq",
"O8phn6MdhWKlOI9W3UiMeoQTq0Q0PrAsX1OxJbHkiShhPWtdTF67Btdy4cCX_Wi_",
"o9BzYu2pmJfy-0rghTpRR5V4_Xr6VBrRITQaVu049qfHenRnsJcFOAOnVcWXi0FL",
"oBcceF6kg5dIF0aDwMIaPz8hr-Eih2TJd6k5KpT9LpzP297Hxts1kIS8DXRxqsbu",
"OdU8W5LWNxpT1SarJp44EEP4Cqmysr9yEJiwHMC4nBCJcNyU4OODd9SJguSxa43t",
"ONcQd4dvZbyy2W6GvJgo-ZuoyCVGa_Zew2bBZbwIhX4rXS2SEEWg8014w5DfVSvb",
"oWZ4t7dGf0RopMoKZOg0KrINOLGlLVYbuh26ulNVMgYW2iKPabrzSOTGV5BfSyzt",
"pAwkcxPWPhYlo3RN7fFU_gZ_3ArlAn77BOXfqDm1mF37kIL4surI6PUrWdyvkQjS",
"PKtfdC-0-vIGCByAO_fSB9xHJfvD4vJLwmW3CuHTjMv230q6vzXsz0JctEv3C3jY",
"poisedKoalaXXXS1FJDJ3idhGiIA-kLkhOuFPul3QBNP6Xqa6d0Bse5SKCiXFZlY",
"pt0hr9LxHYwFdfHPoPX2hbEfsW7t3RCmaA7sMLomnhb_C7jib-kG_so1rhY37jE_",
"pykh5pQrp0Y8Yk4JB3AY0rabEf6WpUW_pNH1CqBqIqo5k5-I3N7DLKtgtXTcQT8K",
"qdt7FHM3Q3ESnBc2VaU_VlL3tZLYv00WlUTDDRnQNDMJxERBC9P-IQVVXMfjyKdc",
"qezJHVrdFk873vUM93X7446QddFQIMc9T53WCMj9_EnU-wcJmpjAiGHjdmE2k1tM",
"QiC_YmeusDnYEfNbMON8PggfpJoAe_38G01fkIea-1Nzlr8cpRbwpEXammwXSfnr",
"qUZJMlJuoSWf9vgYqg6Dzt4HHNzus_PfogBHEZU8bUFl8CngR52egp3ycPb7ULC6",
"QydSxLe470xNqe801RaMZ6FltvwXJQiGqco6aD3JzbS5uUrTDeJc5ikUExu9da1e",
"rcnjD6_WsmpVlYHEmzz7TMg__aBLE3nC3LI2DuBFrEStOsYh32jUh9eZHMmJlVeW",
"RJpPsE40aWW3_GCCtC54z49fQ6ltwfNmK13VBpXDHeIE_qG_Z_nS7YWWFZXjijXF",
"rKRhwLc6evOtLECHswupWXxHOzl-3QZ5ao8bhjTRaCcrzSA481VcTumzuadm7jbs",
"Rlka6LF3UT3e2Kaidp111CImXxqSW2WZsLCep0FrZ4nIgSc3AHbsDniVubM4PGaq",
"RTPkjIaiY0AYDXeaWy0m9Ymwjl2C6QOIEBUc3ItXUwlUz7uwOh4Xi-vq6ZnGKINr",
"Ru11sJ_W4_LXrmbWljFk2LehqRytdQvPuepoS7P78a31tnxfyoiyx1_A1xIN2IBk",
"sa49Z5ff_-TwGazLJE0Ujgi7zzXs76q3DrPFrtoloXhKe9JZnmcVF6T3BHhYv8Gg",
"SanbOjhAjmb2b6ufFHqye_-6fiF5aCI1q4wZFdRgOBYSZ7ojpqPIrnvOovk7OUcu",
"sG7VXh29GSjZJ9OiMF2gw1k1GmF0k1RjJ0r52_hdQ1frkEI_ygbknanuUgvaXqQs",
"sl-cptE3T2RC-ZksAFjo53n6tOMdetksUEwOI6IeZB_0SESZDwqKkizVzeF_9m4G",
"sleepyKillerWhaleXXX-eFcDsnmfq-omrwtt3GTKGeuD7SZ6Wr6fkqpfw2Tx0xg",
"SLp8ByR3fpqQCjRSXqsNQ_2OAYfYO6GEIvsnu5RzKG1RfEndqz6lvD0FkGzN3K8t",
"smilingEchidnaXXX5Imcd-Y-i1XSJy_AUDJZhJZ13wvrgmf66yalT7uRfRdnoIp",
"smsma-RBQiBJRY1dwfTnANYrGNYv3PswUx8c6h3_po8ldTzeGVRVmKEmvQh1ZzVu",
"sparklingClumberXXXS8Do4pnmelFxYeFjEocLYD814s5WXhYdExgejkf1IRqM6",
"splendidCatXXXybeDoxT-2XUafjlksWDb-xlXxyng6GSbWfiZtQnAjBFfjCK6d6",
"stupidPantherXXXFXh1PaNtJ3bvsfN7QWQ451i1i7MP4_-zJw4zo1j4SS7nTKAt",
"successfulOkapiXXXWVqUcJJi2frH9mGhhKrNun2dPFnPtyG58b8peXmK4ZVwLd",
"T05tZJ6AoHA4xY5_5zELiFO67PVYyjC2Be6ECH_Ma0s8jXLzNr0GP_yNp3yOByE8",
"T0lxQUIt__cSAz3-qkM7zYcIBWhlQzcRAxXEGKJ5T-yoI4xmNiaHt1cNpk0rnEQv",
"thankfulCatXXXxUYPWS4vkFLdO5G5Pz2EILYGhL7NnJVz8KJvb1P_LRInTa7L1g",
"THCfPVOvCVu7bHadqcTzF0BBSC-8grGDyNRS9pqUaFt3ZlpScrOvIFGVYx16uE7t",
"uAS5unDZZDxzpfiREOyu4G2P1jvJWXSf6OI5f0wWrwXuyBzgF9IwrWxtbb5zW8h4",
"V08H6chjRwS7UgfwtQsmhjErw6Qq5GpaNYW4eOerVfLr92BOQm-qYZKZ360nUUE-",
"V2OhiLUd4-rWYo0fkmqvVXzBFSn56DCHMCG3n_dG7oRY2KszWhFHhfGM086S-aBV",
"VIU5Wu7peFI6PB2Y9UdrXca36z1w6H8zeqv0lOiup9VRhn680nJM-tozex3JqrNw",
"vo8b_9B469f_gWW2zLTqSZiwhFbqU2HMStphs6eB5v1hc2K0eqGcYKWMMQLmvRQ1",
"wd5nqiGHR1RqUmeoO2rLkKlm3lr3HAKWlCNaoIdfH9nvzYHmvZOw-gFyT-4P2YRW",
"WrAdjdvm0qm6ITqJKAPLXij5qjMDnZ9FjtKrAf_icdKW8x21XlHUy3aBA7M1ROup",
"x3hu8sJqkkYfGIFZx0X2HPRkE3c4fHXirVHbbYvq46Jp_xkkGk0GAeUHVv2jBGNz",
"xj6Td6ugWruTEV5ZzSSkoJOAuNWZT-xSbyK2ZfIGXfqxgQM2J3RGQj1TwYa6p9Jq",
"xmx_nj4loQ6TmHzdxyVGUo-EZ_dU5ychf-ido8uGwjU_fCHjH0MXuTG7wuvZrDJa",
"xoYFh9jRxWusIhuiEnVaw3fZxdzb5pgrjdpTQpcGOPypV3iOpp0v1PiaNVNjAuV3",
"XreutfM9L0dXPrReQfR_pBdfcasBmx-j_j8Ju2WWmoO0_X-TJOZ8pXdVqfeita4Z",
"Xt7-5m__tmdvBacrweU76ir17MU6FL23FEAbE52-B24363_BeROM58gMTLZTplF7",
"Xx_PMrGEAa6SPHT_WYuWlndJmHlSLXPYZG5FWV_wVVHDXC3TxfPkfHrNje2DCteB",
"ye3zJkla0RHWckXWpqLxcAsYtQUyFDn4brFMEc8qH-g8nKthgd9i9IiozQSo-WzT",
"YjZLVfeC1G13MoXdV4-CLaCvJiXjDimEmmKxdozjqKoy3wwBvWYXyKqIRgJ4YU71",
"ypRS6GulJPDZ6SJb-r_5Bq8tiHp6xYbTrs5MieANMowEXl9skbrcdOwVHbjjsLyX",
"YZHWaabQrqdyUImQ2QrwQFEXLYfVGl5WCDl0u2p2sfTVNQazdUnZeSP4VYmK3w0k",
"yZUADrg2NrEg5aEgTULgqtIuU6V7YZmcrxxM0xk-2_OP8uZmNoif6Iwck5tq0kMd",
"z9sF6CWCzTSYxXracPzsPLB378otM2uxDbaXoPuIpzc4OmWgYW0h16a1uHEAmFWF",
"zealousOstrichXXXGsD82k867IR378xg__gb1i2nrx_qoqcjLKmy9E3teom8ZZo",
"ZPIIb83l6SQga78PaX4q4V317V7JbuhfO9FMtRX7vxV3HNj39C3ZtPbdSpas7AhC",
"ZwRSa_ApOgHBzMNIo10HU-xGCIxuL0uXbBD2tmCQZiaZ75KcJVCxrb2jE3wPlXG6"
), class = "factor"), SA_koerperlich = c(2L, NA, 2L, NA, NA,
NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L),
SA_Behinderung = c(2L, NA, 2L, NA, NA, NA, NA, NA, NA, 2L,
NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L), SA_Verdacht_Behinderung = c(2L,
NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L,
NA, NA, NA, 2L), SA_Inzest = c(2L, NA, 2L, NA, NA, NA, NA,
NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L), SA_Minderjaehrig = c(2L,
NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L,
NA, NA, NA, 2L), SA_spaet = c(2L, NA, 2L, NA, NA, NA, NA,
NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L), SA_Vergewaltigung = c(2L,
NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L,
NA, NA, NA, 2L), SA_Frist = c(2L, NA, 2L, NA, NA, NA, NA,
NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L), SA_Wunsch = c(2L,
NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L,
NA, NA, NA, 2L), SA_Verboten = c(2L, NA, 2L, NA, NA, NA,
NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L),
SA_Kosten = c(2L, NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA,
NA, NA, NA, NA, 2L, NA, NA, NA, 2L), SA_Eltern_straffrei = c(2L,
NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L,
NA, NA, NA, 2L), SA_Arzt_straffrei = c(2L, NA, 2L, NA, NA,
NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L
), PND_Verdacht = c(2L, NA, NA, NA, NA, 2L, NA, NA, NA, NA,
NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA), PND_Erbkrankheit = c(2L,
NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA,
NA, NA, NA, NA), PND_RS = c(2L, NA, NA, NA, NA, 2L, NA, NA,
NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA), PND_Geschlecht = c(2L,
NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA,
NA, NA, NA, NA), PND_Erbkrankheit_Erw = c(2L, NA, NA, NA,
NA, 2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA,
NA), PND_Standard = c(2L, NA, NA, NA, NA, 2L, NA, NA, NA,
NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA), PND_Verbot = c(2L,
NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA,
NA, NA, NA, NA), PND_Kosten = c(2L, NA, NA, NA, NA, 2L, NA,
NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA), PND_Eltern_straffei = c(2L,
NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA,
NA, NA, NA, NA), PND_Arzt_straffei = c(2L, NA, NA, NA, NA,
2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA
), PID_Alter = c(2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA,
2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA), PID_Erbkrankheit = c(2L,
NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L, NA, NA, NA, NA, NA,
NA, 2L, NA, NA), PID_kuenstlich = c(2L, NA, NA, NA, NA, NA,
2L, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA),
PID_Genetik_Erkrankung = c(2L, NA, NA, NA, NA, NA, 2L, NA,
NA, NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA), PID_Geschlecht = c(2L,
NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L, NA, NA, NA, NA, NA,
NA, 2L, NA, NA), PID_Erbgut = c(2L, NA, NA, NA, NA, NA, 2L,
NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA), PID_Organspendung = c(2L,
NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L, NA, NA, NA, NA, NA,
NA, 2L, NA, NA), PID_erlaubt = c(2L, NA, NA, NA, NA, NA,
2L, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA),
PID_verboten = c(2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA,
2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA), PID_Kosten = c(2L,
NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L, NA, NA, NA, NA, NA,
NA, 2L, NA, NA), PID_Land = c(2L, NA, NA, NA, NA, NA, 2L,
NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA), PID_Eltern_straffrei = c(2L,
NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L, NA, NA, NA, NA, NA,
NA, 2L, NA, NA), PID_Arzt_straffrei = c(2L, NA, NA, NA, NA,
NA, 2L, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA
), PKD_Vorgeschichte = c(2L, 2L, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA), PKD_Erbkrankheit = c(2L,
2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA,
NA, NA, 2L, NA), PKD_jeder = c(2L, 2L, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA), PKD_schwere_Erkrankung = c(2L,
2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA,
NA, NA, 2L, NA), PKD_behandelbareK = c(2L, 2L, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA
), PKD_Krankheiten = c(2L, 2L, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA), PKD_Krankheiten_Erw = c(2L,
2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA,
NA, NA, 2L, NA), PKD_koerperliche_Besonderheiten = c(2L,
2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA,
NA, NA, 2L, NA), PKD_alles_erlaubt = c(2L, 2L, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA
), PKD_verboten = c(2L, 2L, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA), PKD_Kosten = c(2L,
2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA,
NA, NA, 2L, NA), PKD_Eltern_straffrei = c(2L, 2L, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L,
NA), PKD_Arzt_straffrei = c(2L, 2L, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA), Crisp_schwere_Krankheit = c(2L,
NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA,
2L, NA, NA, NA), Crisp_behandelbare_Krankheit = c(2L, NA,
NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, 2L,
NA, NA, NA), Crisp_Krankheiten_Erw = c(2L, NA, NA, NA, 2L,
NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, 2L, NA, NA, NA
), Crisp_Merkmale_auserlich = c(2L, NA, NA, NA, 2L, NA, NA,
NA, NA, NA, NA, NA, NA, NA, 2L, NA, 2L, NA, NA, NA), Crisp_Merkmale_PE = c(2L,
NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA,
2L, NA, NA, NA), Crisp_Design = c(2L, NA, NA, NA, 2L, NA,
NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, 2L, NA, NA, NA),
Crisp_Wunsch = c(2L, NA, NA, NA, 2L, NA, NA, NA, NA, NA,
NA, NA, NA, NA, 2L, NA, 2L, NA, NA, NA), Crisp_verboten = c(2L,
NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA,
2L, NA, NA, NA), Crisp_Kosten = c(2L, NA, NA, NA, 2L, NA,
NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, 2L, NA, NA, NA),
Crisp_Eltern_straffrei = c(2L, NA, NA, NA, 2L, NA, NA, NA,
NA, NA, NA, NA, NA, NA, 2L, NA, 2L, NA, NA, NA), Crisp_Arzt_straffrei = c(2L,
NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA,
2L, NA, NA, NA), KB_Frauen_keine_Kinder = c(2L, NA, NA, 2L,
NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA,
NA), KB_Eizellspende = c(2L, NA, NA, 2L, NA, NA, NA, NA,
NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA), KB_Spermaspende = c(2L,
NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA,
NA, NA, NA, NA), KB_Embryonenspende = c(2L, NA, NA, 2L, NA,
NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA
), KB_Verstorbene = c(2L, NA, NA, 2L, NA, NA, NA, NA, NA,
NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA), KB_Alleinstehende = c(2L,
NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA,
NA, NA, NA, NA), KB_ueber_40 = c(2L, NA, NA, 2L, NA, NA,
NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA),
KB_Homosexuell = c(2L, NA, NA, 2L, NA, NA, NA, NA, NA, NA,
NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA), KB_wunsch_Eltern = c(2L,
NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA,
NA, NA, NA, NA), KB_verboten = c(2L, NA, NA, 2L, NA, NA,
NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA),
KB_Kosten = c(2L, NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA,
NA, NA, 2L, NA, NA, NA, NA, NA, NA), KB_Paare_straffrei = c(2L,
NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA,
NA, NA, NA, NA), KB_Arzt_straffrei = c(2L, NA, NA, 2L, NA,
NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA
)), .Names = c("session", "SA_koerperlich", "SA_Behinderung",
"SA_Verdacht_Behinderung", "SA_Inzest", "SA_Minderjaehrig", "SA_spaet",
"SA_Vergewaltigung", "SA_Frist", "SA_Wunsch", "SA_Verboten",
"SA_Kosten", "SA_Eltern_straffrei", "SA_Arzt_straffrei", "PND_Verdacht",
"PND_Erbkrankheit", "PND_RS", "PND_Geschlecht", "PND_Erbkrankheit_Erw",
"PND_Standard", "PND_Verbot", "PND_Kosten", "PND_Eltern_straffei",
"PND_Arzt_straffei", "PID_Alter", "PID_Erbkrankheit", "PID_kuenstlich",
"PID_Genetik_Erkrankung", "PID_Geschlecht", "PID_Erbgut", "PID_Organspendung",
"PID_erlaubt", "PID_verboten", "PID_Kosten", "PID_Land", "PID_Eltern_straffrei",
"PID_Arzt_straffrei", "PKD_Vorgeschichte", "PKD_Erbkrankheit",
"PKD_jeder", "PKD_schwere_Erkrankung", "PKD_behandelbareK", "PKD_Krankheiten",
"PKD_Krankheiten_Erw", "PKD_koerperliche_Besonderheiten", "PKD_alles_erlaubt",
"PKD_verboten", "PKD_Kosten", "PKD_Eltern_straffrei", "PKD_Arzt_straffrei",
"Crisp_schwere_Krankheit", "Crisp_behandelbare_Krankheit", "Crisp_Krankheiten_Erw",
"Crisp_Merkmale_auserlich", "Crisp_Merkmale_PE", "Crisp_Design",
"Crisp_Wunsch", "Crisp_verboten", "Crisp_Kosten", "Crisp_Eltern_straffrei",
"Crisp_Arzt_straffrei", "KB_Frauen_keine_Kinder", "KB_Eizellspende",
"KB_Spermaspende", "KB_Embryonenspende", "KB_Verstorbene", "KB_Alleinstehende",
"KB_ueber_40", "KB_Homosexuell", "KB_wunsch_Eltern", "KB_verboten",
"KB_Kosten", "KB_Paare_straffrei", "KB_Arzt_straffrei"), row.names = c(NA,
20L), class = "data.frame")
bigben hat code-Tags ergänzt, siehe auch viewtopic.php?f=20&t=29
Re: Umwandlung long in wide format / Zusammenfügen von Zeilen
Setzen wir Deine Daten als "bsp":
Dann funktioniert bei mir folgendes:
Ist ein bisschen unübersichtlich: Es gibt eine session mit leerem Namen und überall dort, wo nur NA angegeben waren steht jetzt NaN (breakableCucscus ist ein Beispiel dafür). Andere Werte als "2" und "NA" scheinen in Deinen Daten nicht vorzukommen.
LG,
Bernhard
Code: Alles auswählen
bsp <- structure(list(session = structure(c(1L, 136L, 136L, 136L, 136L,
136L, 136L, 59L, 28L, 135L, 52L, 52L, 52L, 52L, 52L, 52L, 36L,
36L, 36L, 36L), .Label = c("", "-GK5NM8WY-5hlWsTj1Q4yY_VHsZW7JOljK3Zk2STl9wQ88MIo86_yKOBuQxRPmm9",
"_z2aDQUDZi1orGJNlugMoGqXoXpdrp5ZrvzZ8p1Lu_vcFeCo4_qJA1TwYlldCRKD",
"0Q60yev1O28YS2IWA9G72d99jBlk9Fi8h50HjEZA7St3snZwzt-mLzV_njQQpEH0",
"2fGnOInmIf0HKAeHad_FGXuLkydNj4MJdQifCpbOTrJb5hk8ivd4382OJ19FheWZ",
"4_Muulivqk-FFasifTjmTOaLhgIhfwNsR_GFM-AjdHy2Ucf1Dlk0lf5I5iQ75iVG",
"46Yr1DWyi3BrmAXlTSae_5qYTHm_epBbTMARE_034mRk2pJ2lJ2uM13S7J0zHNwl",
"46ZYH7Oh001-FoeDv6kMPYjNramE5QRohP8vPNyTT1rRa0coGAcvbN1uk3aAwYbs",
"4Mf3rya4G0BbY4FBt66krtmcoozFw8qIsS2q5Is4HScDh8ULKGg-DxVJ4Je8AWVm",
"4NBQZSImRgG9S25O2c6khge6ZZnPvGkOVmzVSSsSoQes4AfGSfgcxhnC3f0d9LO4",
"4QBjhoDW9u5GFMCqTDdoZ7Xdg0M-O46Khx9BRN966qLGZxZI7TfIQ_JYjdUKiP-1",
"5Lnl7G1KrcZct8Nm__XOG6ABpklpQt7O2yThtT19es-yeph4BpA2l1Gh02tWPDog",
"5M-CJBHE_RyL8bhXgCzaeP7MwDfYCplsm8lNQXTLHKZFGYxHklcNhjCRAGbhSuhQ",
"63F8feGuZPhMzkEUCKUrnENoRzf6yBKo-gQEBD7_HONRmylwctWQp0Ah4exIfOV1",
"79uQqXUeupMezqJL7v0cen4CCrvj739teADCag17DcPboG1pchNd8zOxYXNQVQXA",
"7N7GimTyeXFj_JnRuvR8okyidPwE3Lleh1PMPOj6Ybf4EQ5ZJxoX6i-QiH4nfCer",
"89bPS0q6CgjXIvnNI0pogbyU40hz8LFI0rgs0o_RJ6HpKOVaf4KQ1Bkuw6dokpQA",
"95OgY8UKqvU_nJO6TI2CM8w0GIec_Z3n84XYhLdz7G_ftxhalEhQ63RPwSW4Ra-B",
"A-iZPpPdBg_ZRjTRjEe_RhpS0TQhIgSjsO9EhFiJmm7cLDXdMOf1B9L_QOJmMX8Z",
"A3odHbtW6XB-eiR-sK5Yq3XqHmvjnFloNi6aqbRhgEtPyMVEGB3bpODoOlHHNHOL",
"adventurousToadXXX1CUoqPZaY-QTPaPkzHI1ApKQuSfobf0D1_MJB_bTWtmTuF",
"adyRsanBFheV3PRot93XFf5jTeA1sDwlDbrDx-fRy-6f44vaIjH42M3JjrLkb25e",
"aggressiveBombayXXXHIBsel38J3chihWEY1WEIYFftktOqyQw8IVYTkdqzlKk2",
"aggressiveOrioleXXXSTOACEsQcEXf_fosPrarUpavYjkuRCFIv30pTkBPTRrkb",
"bC-Ex_xsrwxB8aa-nyvf-ol962pl_VhKpyXXvmIiJM_jZ-PyQ_Sp6wB6KkX-rjyd",
"BleAdTZsXsqLsOpj-dt9m0-fICfXh-vR8LbqjTCFe8vF76sC_L8EiCBxKNflZLBq",
"brainyBarbXXXYWlTCrTV4rK4n8cUOX0N6SxviUEdiHjBPH5tGTWW-rcowp15KAB",
"breakableCuscusXXXZZdEpAG2mEmSRLzHA6HfKIu__Tt5o6VwALA066KR9lOWUD",
"bYOirIB40mQq1XST0QXMrhRd08kJZezPhIsysnrqtH6JdpGLEXiNGq2f0JKa_-s2",
"BYyRAecmHGwkp3IA-jDFJQndzQzZ9ER_cE-TbjfttOWlc7EhPEyL_FHExl-cz-2l",
"bznm31PMYHhie0Q5vOL45ydD9Bc77ecMvY_QLbVzxUtiZjCtbog51Tortuo86cDU",
"c-EqtK2jOxiNMkDDfvCLIR6ERIeMETR0h3gREaspcXZH8ydMZajWyP8PIC_P1eWj",
"carefulSunBearXXX-6zsFN5cpV2OHOP5r7vX77sZBZcrJanMXNMofQSeNemuKxt",
"cbdogxJEb23jmQSGcIGem68Zo4I8WCQjfNlsoLn_nIX-kAIj6aGTsDo1LXcY1zDB",
"CCrAwpveHSJU8DR8SGK0u1Z0QB3mVnoN-vxEEHjvlJq_srxKZRdok2KBy9AnQXn9",
"cheerfulRiverTurtleXXXvtqhBiqh7zfe1ABblILFvq9_Em6ZIFtOB3hCI98wGL",
"Cj6pPT66bWuHDV9uoc44X48W9kteq9V6HGepGg30nR0cEv_YyrWVWLu4uhLqn_Xq",
"cleanZebraXXXDauOiBYWPiABF_yTc0H4VMezKU42SfLFZDNbySKVqhiq6PSDvEE",
"colorfulMongooseXXXECsmHbQjuhbhqL5IuW0u-g2w1gAIMDH1zAkpDpzdLsbIl",
"CqSp-j7MFUkXXn2n1vB3WU2QTAw1_04aiM8si6KqftyA9z7Xx-p2U-9LCyIfzDVI",
"dbZ_fJmyIwlnRcznNAtBzDjbj0-YjG2z5Bhqwihs9sEtSEU1Z5LB07YsvpJmCMBE",
"determinedDiscusXXXJWA_rZNpB8WrPVXa5UibAJt7787g13PCmRsJSuXrh4dGO",
"dfC-EXkFh4UlI4-pTlaSAXTqmER-kzxdwwuWTUwDL2OFEmweHjiBEzjufM2YgG7S",
"DGQZ3BQlTA2jIz_1EdoyaUyHZ02GIBTeErLkXpiO0SIO12n1cTWuy7_T64S4auHo",
"dPzAy9IFWXBzHo4pWsGWhCttC5ryOEFUb_ATP4QvgexveyrG3R54WsTg8IOrD3CO",
"e6pyVHUh6O4nJ_fdosqGHBr8LMn2mrZKXiL6IUqGrkL_Q39j7NrixCgv70McGpGN",
"E7eFrPHlavzSAbzYKDcVr3_EDjpJ2qpPbenl47O1VBvjlspKKEozVtdJESOjj2Ci",
"EMxEYrFrtphN-9Qw5bmlILEzqpZwdqpkoLm4xsAsXlpu7oCdf6gCVxhxz4e0BvEO",
"excitedWombatXXXRH7i0Rj5hzQhigyLCPr4wHaLqYzfgLqF2sU-CFi2-DZt_SmV",
"FMR8ar0kTLmff-2v2rW54gLO2bAbTeleb0dqjt9mrv8F2_qX5hgvvrXlkTZSOJmt",
"fragileSnappingTurtleXXXFve02kMjTd9BgTc1bB9kWpNBdpDWEHeUvULZOq-p",
"friendlyBrownBearXXX6dxu2lnXR0792eA-Aj8to46qLwr6imn2yX98wIHrg1DO",
"FsJVAxsU2g_q6-jETWMaRWT_dMbdCyaLAZdGCK4FQo6gWcu3ElH1KJ9B_gOx_-ns",
"FxjnXEQGNdQsNOepgPSXzsMnHfjURylYpgTr2Iq3Yqfcz-dc6JSxVQS-uYuVPsqM",
"G_cjUtLdDRkjqvV8m_uMYxDcUzypRiS7jSK9GkevHrZTFxvXyxFe7Ljd_iZN2hmn",
"G9UJilKrYRMbKd0KpmR4T5z5T2Gqb1yfy-PRI2AwIBcyxo8PWe_Ep1J02tLx_Fui",
"GcuiHO5-amXAMCls9rrZB8oUqjcLct1MVSEW1Jyoa8YUCRO2CrIkdSXpxTp1A5a_",
"gentleOkapiXXXsz-NlEjS_jDDKorI8FkYOmtXIqpjxXGcF9c_fMf9x6MixRq7LZ",
"gracefulHeronXXXZfYPBxVIA8RocfosJ6CtVpVLJZH2Ny7V2myFe7EQry5k1U9r",
"gracefulMonitorXXXEybuP3cpE8rkxmstr1xsEYNiU2TW5XgWMY4GunvXVJQ3pV",
"GUZwFVzcHImE8FUIMy_rjQirjTnpRFFpT8WIQajo9SYxtwcLe-f8k3XVgHaQSVUf",
"H6UruP4hdTMUKZqvpXLcUwpvhvFuTV6GqrV8wZfUisiflWkm228OOaBHFcykHfcA",
"H7Q4AfXtc8DF0U6grwQHu_1XDnCD3japgDfjI63G3r6AUsVz55BIMc1V0xS-eu7s",
"hmeFm3Cwvff6hF7oBdL5TQNgf76GEXRbg5H16mURK4uQsDbqha3q1ZttUV4wL64t",
"hSPn4qevXPXZRYh285E9-8ZflCf1P5SDUT3NN8S3czo-gU3VpJzT3P_U9D0H4Ulj",
"hsrWqHvYgyKON5ZINtRtwqznQJ3rQUOlpBJ5p60ZqOdSIrS0DDWE6c587uoLLjle",
"HSxg6TQj5MdoDL_wQkXMjUUUxxa9EjTVpW6BbQGiAx0s00J7SPE2wPVAg685KzvY",
"hungoverQuokkaXXX-0DBEI06-I3roMVbYgcT-lkbNI42F0LlAlGiFg-6B6SdhJy",
"I5aHBKp-DzKm7tNIKd5NHHYJPhUs5jWBr7NWUA2x4FHUiaAv9bOaxMnev2AIP5MO",
"iIEJ5iMkSuhvyLyULqhOr9Bavx9qsbIu7tv62PZPEOhxEZyPGKii5VesSEUecgNb",
"IOQYJzwv3_7izELTJk6PT3jiV-ECyVxX78zJpEwnYqeAwIpJW1AfVqLrVKvVbApI",
"iPbkjkntZfFeYf871PlqTPJhnuHm54zFFHPIItWIPQoy_1MZ_9T7Tj3LzE58dHXO",
"IR-GDAfAQ2Cxi_6pEN2lpDYzPrfmyABMcuux6bxRFNZMrJRAvMKzEePtGMdPDaDh",
"JBxalk_k9X7Gh32l2qww9mZ4v6dx-2qFScjEC4LWBkGZyJSZPLg9xJbq43_FcrGD",
"JCQU0t4vdP7nPgzvWJqjUEJNsDFqJBy7jophq5s8xgJ2GH_CApLN8PqK7r4szpHj",
"JjtZbREKsSFt4dbY9wFgpuqpJDbeSc1mz8QH49u6fGE3JYjNs4EO3k1hkji-bzkM",
"JLXekSsxY_ZK18mhn7_KwQVmX6L6pBKja0r4uju0Id5F0c_Peev3U1RSqRQB7_bw",
"kI7TLyTQ6Jb_UTayk9aoNJ9-l7Fli3_7pLoaPKR38H4l0O4bTrZXM2uBbdxBHwPm",
"kindBluetickXXX1MQeinYFEJnkiexZCDcdkQk2K4ttPkp0wooh6RnbGbi41ElEz",
"kLQpY4OroxBEonlKn51IeROto_PJ2LoUPS4UtNafbU04Gb11sFXfVm0vp949jpvu",
"KssNk0iicNf1hqEiv-w12fXXoPJKMrX1HAscpRoXayPeBnqtXerM2xedYhjC1Lq5",
"kWv2k3ZsNSt6DcQ94RaiFHeyTYNRqobv2D7p6jHgvMRFrnU3Vpq9qXOQ6YKS2T6M",
"l0hm55u5KlvgQ6tKXtwsFq0fpysZYLuHQsYkOIDajJkVlJ3QEIZq3n2m8Nv79Akr",
"l9vMgZVCVopHrXU22S6KGF-DGCse6y0vtC5GaBxlNKNZOT7gd8qfrbLF9fbGyOtB",
"LBPVdq1CMRDdftWs1SaqHt6TPUUIbbPhKP6sDmf640STUSK5Bc3nN8lhhUoVSBSe",
"LC-Z3CpYoSrkiZYrPrdrzUuI0on9fAhTx8gQslrrgDmZ8AYtJUBvVTi-zEUu_iZ9",
"LFzPHwv9LONMUCMvDWPiq7pScUZ4bQG03XqyDx-C1fG3Z88m1frQEigQgXAJz2LJ",
"LOCq-ULSfP01AyxP-hRYDAfY44jiVlgzCvJAPr9_SMfWkgPrJ3_hs9K57sUqQVJK",
"LQySfHeDS6B_dMvoWCQSF7WUiMf18K6IDGJyB-CrKfaCMnoWmEPWTWuXqVP-McYf",
"mcirMNYaLAPTiMtWQZUl28JIWV_29jLqfK1hdYJVfpcs-YZx1AULiDA-_MC-LbGg",
"mf1Ai_K0olOv8oowFxyWg70Np_OWe48lRFEHDmh2ZVgMW01fZBwfgAS0SoDZOHlk",
"mFRq21SGWgsR0OI8NDaeL079KP61oO0Z4S0hzm0KXjHtPVpBKvgqUPMScKmWhpO8",
"MfRrqIcHbeYoTLwalLqUg0Slo8gjtmAdZqdWDYTOMgxGk9ITmhYYqrULNU_RtPAO",
"mKpTsxZu36LgCnizcNKXJEBjvoT_a2iEXd1_9F6UtQhN4FIYVscL9Dg2raS5JtzU",
"modernMauXXX_4WsU_-N3Zzm8De1j8MwklOjVI4c4wsAAbkG9tZklHt07k9xnwy-",
"MP0tTB6gy33AWtFBFGG93hkeZo4RAFCjf6zdGxaEoXuxC3F2B5HMbsS26TLCcQ1I",
"MTt3uKo7ltS0JOewWtpLMoj96uC4fA59a_bofgpThBJ8P-00j8_6h_Y45U9Hl19b",
"mWTx4gPwtsP-MYtXBJmeAmaAdwnNgcgR8UwHLcpNVMIa93VFWC7PTVho9LjZMVMG",
"Myqk5DyVM_akhLs8YRteuny3_cHTaGObSFlN__9Dbe3XIRclTpW3dtICFtI-P4Hq",
"N0TmpRfWIt-7My2dLLobg8qX7cc29tKYAjtQje45i09JpahCdr69NjQcgXQcDylr",
"n7F9Knzi5KDeiTgowaA59wQxZva8n3_SmZQYR-wVd6m254EHs0SygGECAcf8XR-F",
"NP_C6fhKix4397iJAZfwjxItBD6bRUAbpV08OstGq3PuPfDe8aohNhPd8JIHVS4V",
"O0D9WZzPlS2PwzTgBMUdVeJtNj8E6A40x-pM_E4URcRDiT9lP0chkn1S-qIuqXGq",
"O8phn6MdhWKlOI9W3UiMeoQTq0Q0PrAsX1OxJbHkiShhPWtdTF67Btdy4cCX_Wi_",
"o9BzYu2pmJfy-0rghTpRR5V4_Xr6VBrRITQaVu049qfHenRnsJcFOAOnVcWXi0FL",
"oBcceF6kg5dIF0aDwMIaPz8hr-Eih2TJd6k5KpT9LpzP297Hxts1kIS8DXRxqsbu",
"OdU8W5LWNxpT1SarJp44EEP4Cqmysr9yEJiwHMC4nBCJcNyU4OODd9SJguSxa43t",
"ONcQd4dvZbyy2W6GvJgo-ZuoyCVGa_Zew2bBZbwIhX4rXS2SEEWg8014w5DfVSvb",
"oWZ4t7dGf0RopMoKZOg0KrINOLGlLVYbuh26ulNVMgYW2iKPabrzSOTGV5BfSyzt",
"pAwkcxPWPhYlo3RN7fFU_gZ_3ArlAn77BOXfqDm1mF37kIL4surI6PUrWdyvkQjS",
"PKtfdC-0-vIGCByAO_fSB9xHJfvD4vJLwmW3CuHTjMv230q6vzXsz0JctEv3C3jY",
"poisedKoalaXXXS1FJDJ3idhGiIA-kLkhOuFPul3QBNP6Xqa6d0Bse5SKCiXFZlY",
"pt0hr9LxHYwFdfHPoPX2hbEfsW7t3RCmaA7sMLomnhb_C7jib-kG_so1rhY37jE_",
"pykh5pQrp0Y8Yk4JB3AY0rabEf6WpUW_pNH1CqBqIqo5k5-I3N7DLKtgtXTcQT8K",
"qdt7FHM3Q3ESnBc2VaU_VlL3tZLYv00WlUTDDRnQNDMJxERBC9P-IQVVXMfjyKdc",
"qezJHVrdFk873vUM93X7446QddFQIMc9T53WCMj9_EnU-wcJmpjAiGHjdmE2k1tM",
"QiC_YmeusDnYEfNbMON8PggfpJoAe_38G01fkIea-1Nzlr8cpRbwpEXammwXSfnr",
"qUZJMlJuoSWf9vgYqg6Dzt4HHNzus_PfogBHEZU8bUFl8CngR52egp3ycPb7ULC6",
"QydSxLe470xNqe801RaMZ6FltvwXJQiGqco6aD3JzbS5uUrTDeJc5ikUExu9da1e",
"rcnjD6_WsmpVlYHEmzz7TMg__aBLE3nC3LI2DuBFrEStOsYh32jUh9eZHMmJlVeW",
"RJpPsE40aWW3_GCCtC54z49fQ6ltwfNmK13VBpXDHeIE_qG_Z_nS7YWWFZXjijXF",
"rKRhwLc6evOtLECHswupWXxHOzl-3QZ5ao8bhjTRaCcrzSA481VcTumzuadm7jbs",
"Rlka6LF3UT3e2Kaidp111CImXxqSW2WZsLCep0FrZ4nIgSc3AHbsDniVubM4PGaq",
"RTPkjIaiY0AYDXeaWy0m9Ymwjl2C6QOIEBUc3ItXUwlUz7uwOh4Xi-vq6ZnGKINr",
"Ru11sJ_W4_LXrmbWljFk2LehqRytdQvPuepoS7P78a31tnxfyoiyx1_A1xIN2IBk",
"sa49Z5ff_-TwGazLJE0Ujgi7zzXs76q3DrPFrtoloXhKe9JZnmcVF6T3BHhYv8Gg",
"SanbOjhAjmb2b6ufFHqye_-6fiF5aCI1q4wZFdRgOBYSZ7ojpqPIrnvOovk7OUcu",
"sG7VXh29GSjZJ9OiMF2gw1k1GmF0k1RjJ0r52_hdQ1frkEI_ygbknanuUgvaXqQs",
"sl-cptE3T2RC-ZksAFjo53n6tOMdetksUEwOI6IeZB_0SESZDwqKkizVzeF_9m4G",
"sleepyKillerWhaleXXX-eFcDsnmfq-omrwtt3GTKGeuD7SZ6Wr6fkqpfw2Tx0xg",
"SLp8ByR3fpqQCjRSXqsNQ_2OAYfYO6GEIvsnu5RzKG1RfEndqz6lvD0FkGzN3K8t",
"smilingEchidnaXXX5Imcd-Y-i1XSJy_AUDJZhJZ13wvrgmf66yalT7uRfRdnoIp",
"smsma-RBQiBJRY1dwfTnANYrGNYv3PswUx8c6h3_po8ldTzeGVRVmKEmvQh1ZzVu",
"sparklingClumberXXXS8Do4pnmelFxYeFjEocLYD814s5WXhYdExgejkf1IRqM6",
"splendidCatXXXybeDoxT-2XUafjlksWDb-xlXxyng6GSbWfiZtQnAjBFfjCK6d6",
"stupidPantherXXXFXh1PaNtJ3bvsfN7QWQ451i1i7MP4_-zJw4zo1j4SS7nTKAt",
"successfulOkapiXXXWVqUcJJi2frH9mGhhKrNun2dPFnPtyG58b8peXmK4ZVwLd",
"T05tZJ6AoHA4xY5_5zELiFO67PVYyjC2Be6ECH_Ma0s8jXLzNr0GP_yNp3yOByE8",
"T0lxQUIt__cSAz3-qkM7zYcIBWhlQzcRAxXEGKJ5T-yoI4xmNiaHt1cNpk0rnEQv",
"thankfulCatXXXxUYPWS4vkFLdO5G5Pz2EILYGhL7NnJVz8KJvb1P_LRInTa7L1g",
"THCfPVOvCVu7bHadqcTzF0BBSC-8grGDyNRS9pqUaFt3ZlpScrOvIFGVYx16uE7t",
"uAS5unDZZDxzpfiREOyu4G2P1jvJWXSf6OI5f0wWrwXuyBzgF9IwrWxtbb5zW8h4",
"V08H6chjRwS7UgfwtQsmhjErw6Qq5GpaNYW4eOerVfLr92BOQm-qYZKZ360nUUE-",
"V2OhiLUd4-rWYo0fkmqvVXzBFSn56DCHMCG3n_dG7oRY2KszWhFHhfGM086S-aBV",
"VIU5Wu7peFI6PB2Y9UdrXca36z1w6H8zeqv0lOiup9VRhn680nJM-tozex3JqrNw",
"vo8b_9B469f_gWW2zLTqSZiwhFbqU2HMStphs6eB5v1hc2K0eqGcYKWMMQLmvRQ1",
"wd5nqiGHR1RqUmeoO2rLkKlm3lr3HAKWlCNaoIdfH9nvzYHmvZOw-gFyT-4P2YRW",
"WrAdjdvm0qm6ITqJKAPLXij5qjMDnZ9FjtKrAf_icdKW8x21XlHUy3aBA7M1ROup",
"x3hu8sJqkkYfGIFZx0X2HPRkE3c4fHXirVHbbYvq46Jp_xkkGk0GAeUHVv2jBGNz",
"xj6Td6ugWruTEV5ZzSSkoJOAuNWZT-xSbyK2ZfIGXfqxgQM2J3RGQj1TwYa6p9Jq",
"xmx_nj4loQ6TmHzdxyVGUo-EZ_dU5ychf-ido8uGwjU_fCHjH0MXuTG7wuvZrDJa",
"xoYFh9jRxWusIhuiEnVaw3fZxdzb5pgrjdpTQpcGOPypV3iOpp0v1PiaNVNjAuV3",
"XreutfM9L0dXPrReQfR_pBdfcasBmx-j_j8Ju2WWmoO0_X-TJOZ8pXdVqfeita4Z",
"Xt7-5m__tmdvBacrweU76ir17MU6FL23FEAbE52-B24363_BeROM58gMTLZTplF7",
"Xx_PMrGEAa6SPHT_WYuWlndJmHlSLXPYZG5FWV_wVVHDXC3TxfPkfHrNje2DCteB",
"ye3zJkla0RHWckXWpqLxcAsYtQUyFDn4brFMEc8qH-g8nKthgd9i9IiozQSo-WzT",
"YjZLVfeC1G13MoXdV4-CLaCvJiXjDimEmmKxdozjqKoy3wwBvWYXyKqIRgJ4YU71",
"ypRS6GulJPDZ6SJb-r_5Bq8tiHp6xYbTrs5MieANMowEXl9skbrcdOwVHbjjsLyX",
"YZHWaabQrqdyUImQ2QrwQFEXLYfVGl5WCDl0u2p2sfTVNQazdUnZeSP4VYmK3w0k",
"yZUADrg2NrEg5aEgTULgqtIuU6V7YZmcrxxM0xk-2_OP8uZmNoif6Iwck5tq0kMd",
"z9sF6CWCzTSYxXracPzsPLB378otM2uxDbaXoPuIpzc4OmWgYW0h16a1uHEAmFWF",
"zealousOstrichXXXGsD82k867IR378xg__gb1i2nrx_qoqcjLKmy9E3teom8ZZo",
"ZPIIb83l6SQga78PaX4q4V317V7JbuhfO9FMtRX7vxV3HNj39C3ZtPbdSpas7AhC",
"ZwRSa_ApOgHBzMNIo10HU-xGCIxuL0uXbBD2tmCQZiaZ75KcJVCxrb2jE3wPlXG6"
), class = "factor"), SA_koerperlich = c(2L, NA, 2L, NA, NA,
NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L),
SA_Behinderung = c(2L, NA, 2L, NA, NA, NA, NA, NA, NA, 2L,
NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L), SA_Verdacht_Behinderung = c(2L,
NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L,
NA, NA, NA, 2L), SA_Inzest = c(2L, NA, 2L, NA, NA, NA, NA,
NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L), SA_Minderjaehrig = c(2L,
NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L,
NA, NA, NA, 2L), SA_spaet = c(2L, NA, 2L, NA, NA, NA, NA,
NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L), SA_Vergewaltigung = c(2L,
NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L,
NA, NA, NA, 2L), SA_Frist = c(2L, NA, 2L, NA, NA, NA, NA,
NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L), SA_Wunsch = c(2L,
NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L,
NA, NA, NA, 2L), SA_Verboten = c(2L, NA, 2L, NA, NA, NA,
NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L),
SA_Kosten = c(2L, NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA,
NA, NA, NA, NA, 2L, NA, NA, NA, 2L), SA_Eltern_straffrei = c(2L,
NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L,
NA, NA, NA, 2L), SA_Arzt_straffrei = c(2L, NA, 2L, NA, NA,
NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L
), PND_Verdacht = c(2L, NA, NA, NA, NA, 2L, NA, NA, NA, NA,
NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA), PND_Erbkrankheit = c(2L,
NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA,
NA, NA, NA, NA), PND_RS = c(2L, NA, NA, NA, NA, 2L, NA, NA,
NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA), PND_Geschlecht = c(2L,
NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA,
NA, NA, NA, NA), PND_Erbkrankheit_Erw = c(2L, NA, NA, NA,
NA, 2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA,
NA), PND_Standard = c(2L, NA, NA, NA, NA, 2L, NA, NA, NA,
NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA), PND_Verbot = c(2L,
NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA,
NA, NA, NA, NA), PND_Kosten = c(2L, NA, NA, NA, NA, 2L, NA,
NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA), PND_Eltern_straffei = c(2L,
NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA,
NA, NA, NA, NA), PND_Arzt_straffei = c(2L, NA, NA, NA, NA,
2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA
), PID_Alter = c(2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA,
2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA), PID_Erbkrankheit = c(2L,
NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L, NA, NA, NA, NA, NA,
NA, 2L, NA, NA), PID_kuenstlich = c(2L, NA, NA, NA, NA, NA,
2L, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA),
PID_Genetik_Erkrankung = c(2L, NA, NA, NA, NA, NA, 2L, NA,
NA, NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA), PID_Geschlecht = c(2L,
NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L, NA, NA, NA, NA, NA,
NA, 2L, NA, NA), PID_Erbgut = c(2L, NA, NA, NA, NA, NA, 2L,
NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA), PID_Organspendung = c(2L,
NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L, NA, NA, NA, NA, NA,
NA, 2L, NA, NA), PID_erlaubt = c(2L, NA, NA, NA, NA, NA,
2L, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA),
PID_verboten = c(2L, NA, NA, NA, NA, NA, 2L, NA, NA, NA,
2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA), PID_Kosten = c(2L,
NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L, NA, NA, NA, NA, NA,
NA, 2L, NA, NA), PID_Land = c(2L, NA, NA, NA, NA, NA, 2L,
NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA), PID_Eltern_straffrei = c(2L,
NA, NA, NA, NA, NA, 2L, NA, NA, NA, 2L, NA, NA, NA, NA, NA,
NA, 2L, NA, NA), PID_Arzt_straffrei = c(2L, NA, NA, NA, NA,
NA, 2L, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, 2L, NA, NA
), PKD_Vorgeschichte = c(2L, 2L, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA), PKD_Erbkrankheit = c(2L,
2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA,
NA, NA, 2L, NA), PKD_jeder = c(2L, 2L, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA), PKD_schwere_Erkrankung = c(2L,
2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA,
NA, NA, 2L, NA), PKD_behandelbareK = c(2L, 2L, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA
), PKD_Krankheiten = c(2L, 2L, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA), PKD_Krankheiten_Erw = c(2L,
2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA,
NA, NA, 2L, NA), PKD_koerperliche_Besonderheiten = c(2L,
2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA,
NA, NA, 2L, NA), PKD_alles_erlaubt = c(2L, 2L, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA
), PKD_verboten = c(2L, 2L, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA), PKD_Kosten = c(2L,
2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA,
NA, NA, 2L, NA), PKD_Eltern_straffrei = c(2L, 2L, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L,
NA), PKD_Arzt_straffrei = c(2L, 2L, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, 2L, NA), Crisp_schwere_Krankheit = c(2L,
NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA,
2L, NA, NA, NA), Crisp_behandelbare_Krankheit = c(2L, NA,
NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, 2L,
NA, NA, NA), Crisp_Krankheiten_Erw = c(2L, NA, NA, NA, 2L,
NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, 2L, NA, NA, NA
), Crisp_Merkmale_auserlich = c(2L, NA, NA, NA, 2L, NA, NA,
NA, NA, NA, NA, NA, NA, NA, 2L, NA, 2L, NA, NA, NA), Crisp_Merkmale_PE = c(2L,
NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA,
2L, NA, NA, NA), Crisp_Design = c(2L, NA, NA, NA, 2L, NA,
NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, 2L, NA, NA, NA),
Crisp_Wunsch = c(2L, NA, NA, NA, 2L, NA, NA, NA, NA, NA,
NA, NA, NA, NA, 2L, NA, 2L, NA, NA, NA), Crisp_verboten = c(2L,
NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA,
2L, NA, NA, NA), Crisp_Kosten = c(2L, NA, NA, NA, 2L, NA,
NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, 2L, NA, NA, NA),
Crisp_Eltern_straffrei = c(2L, NA, NA, NA, 2L, NA, NA, NA,
NA, NA, NA, NA, NA, NA, 2L, NA, 2L, NA, NA, NA), Crisp_Arzt_straffrei = c(2L,
NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA,
2L, NA, NA, NA), KB_Frauen_keine_Kinder = c(2L, NA, NA, 2L,
NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA,
NA), KB_Eizellspende = c(2L, NA, NA, 2L, NA, NA, NA, NA,
NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA), KB_Spermaspende = c(2L,
NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA,
NA, NA, NA, NA), KB_Embryonenspende = c(2L, NA, NA, 2L, NA,
NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA
), KB_Verstorbene = c(2L, NA, NA, 2L, NA, NA, NA, NA, NA,
NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA), KB_Alleinstehende = c(2L,
NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA,
NA, NA, NA, NA), KB_ueber_40 = c(2L, NA, NA, 2L, NA, NA,
NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA),
KB_Homosexuell = c(2L, NA, NA, 2L, NA, NA, NA, NA, NA, NA,
NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA), KB_wunsch_Eltern = c(2L,
NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA,
NA, NA, NA, NA), KB_verboten = c(2L, NA, NA, 2L, NA, NA,
NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA),
KB_Kosten = c(2L, NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA,
NA, NA, 2L, NA, NA, NA, NA, NA, NA), KB_Paare_straffrei = c(2L,
NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA,
NA, NA, NA, NA), KB_Arzt_straffrei = c(2L, NA, NA, 2L, NA,
NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA
)), .Names = c("session", "SA_koerperlich", "SA_Behinderung",
"SA_Verdacht_Behinderung", "SA_Inzest", "SA_Minderjaehrig", "SA_spaet",
"SA_Vergewaltigung", "SA_Frist", "SA_Wunsch", "SA_Verboten",
"SA_Kosten", "SA_Eltern_straffrei", "SA_Arzt_straffrei", "PND_Verdacht",
"PND_Erbkrankheit", "PND_RS", "PND_Geschlecht", "PND_Erbkrankheit_Erw",
"PND_Standard", "PND_Verbot", "PND_Kosten", "PND_Eltern_straffei",
"PND_Arzt_straffei", "PID_Alter", "PID_Erbkrankheit", "PID_kuenstlich",
"PID_Genetik_Erkrankung", "PID_Geschlecht", "PID_Erbgut", "PID_Organspendung",
"PID_erlaubt", "PID_verboten", "PID_Kosten", "PID_Land", "PID_Eltern_straffrei",
"PID_Arzt_straffrei", "PKD_Vorgeschichte", "PKD_Erbkrankheit",
"PKD_jeder", "PKD_schwere_Erkrankung", "PKD_behandelbareK", "PKD_Krankheiten",
"PKD_Krankheiten_Erw", "PKD_koerperliche_Besonderheiten", "PKD_alles_erlaubt",
"PKD_verboten", "PKD_Kosten", "PKD_Eltern_straffrei", "PKD_Arzt_straffrei",
"Crisp_schwere_Krankheit", "Crisp_behandelbare_Krankheit", "Crisp_Krankheiten_Erw",
"Crisp_Merkmale_auserlich", "Crisp_Merkmale_PE", "Crisp_Design",
"Crisp_Wunsch", "Crisp_verboten", "Crisp_Kosten", "Crisp_Eltern_straffrei",
"Crisp_Arzt_straffrei", "KB_Frauen_keine_Kinder", "KB_Eizellspende",
"KB_Spermaspende", "KB_Embryonenspende", "KB_Verstorbene", "KB_Alleinstehende",
"KB_ueber_40", "KB_Homosexuell", "KB_wunsch_Eltern", "KB_verboten",
"KB_Kosten", "KB_Paare_straffrei", "KB_Arzt_straffrei"), row.names = c(NA,
20L), class = "data.frame")
Code: Alles auswählen
erg <- aggregate(x= bsp[,2:74], by=list(bsp$session),
FUN= function(x) mean(x, na.rm = TRUE))
print(erg)
LG,
Bernhard
---
Programmiere stets so, dass die Maxime Deines Programmierstils Grundlage allgemeiner Gesetzgebung sein könnte
Programmiere stets so, dass die Maxime Deines Programmierstils Grundlage allgemeiner Gesetzgebung sein könnte
Re: Umwandlung long in wide format / Zusammenfügen von Zeilen
Hallo Bernhard,
vielen lieben Dank für deine Hilfe!!!
Es hat jetzt funktioniert indem ich die drei Zeilen ohne Session code noch aus dem Datensatz entfernt habe - vielen Dank!!
Genau, ich habe im Datensatz nur dichotome Items, also 1 und 2 für "ja" und "nein" und die NAs.
Bei mir hat es im reduzierten Datensatz korrekt die "NA" angezeigt und kein "NaN".
Nachdem ich den Datensatz aber mit deinem Befehl zusammengefügt habe erschienen fehlende Werte als "NaN".
Das werde ich jetzt einfach manuell mit folgendem Befehl beheben.
Vielen Dank für die gute und super schnelle Hilfe (das ist für mich als Psychologiestudentin, die nur begrenzt R an der Uni lernt, wirklich Gold wert)!!
Liebe Grüße
Alina
vielen lieben Dank für deine Hilfe!!!
Es hat jetzt funktioniert indem ich die drei Zeilen ohne Session code noch aus dem Datensatz entfernt habe - vielen Dank!!
Genau, ich habe im Datensatz nur dichotome Items, also 1 und 2 für "ja" und "nein" und die NAs.
Bei mir hat es im reduzierten Datensatz korrekt die "NA" angezeigt und kein "NaN".
Nachdem ich den Datensatz aber mit deinem Befehl zusammengefügt habe erschienen fehlende Werte als "NaN".
Das werde ich jetzt einfach manuell mit folgendem Befehl beheben.
Code: Alles auswählen
is.na(erg$SA_Behinderung) <- which(erg$SA_Behinderung=="NaN")
Liebe Grüße
Alina
Re: Umwandlung long in wide format / Zusammenfügen von Zeilen
Code: Alles auswählen
Warning message:
Paket ‘dplyr’ wurde unter R Version 3.1.3 erstellt
Was sagt
Code: Alles auswählen
packageVersion('dplyr')
Bitte immer ein reproduzierbares Minimalbeispiel angeben. Meinungen gehören mir und geben nicht die meines Brötchengebers wieder.
Dieser Beitrag ist lizensiert unter einer CC BY 4.0 Lizenz
.
Dieser Beitrag ist lizensiert unter einer CC BY 4.0 Lizenz
.