Deutsches R-Forum

Verfasst: **Sa Jun 22, 2019 7:59 pm**

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

Verfasst: **Sa Jun 22, 2019 10:04 pm**

Hallo Alina,

willkommen im Forum. Zum long und wide-Format habe ich hier mal etwas gemacht. Vielleicht hilft es weiter...

Verfasst: **Sa Jun 22, 2019 10:22 pm**

Geht das in die gewünschte Richtung?

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)

LG,
Bernhard

Verfasst: **Sa Jun 22, 2019 10:51 pm**

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)])

Verfasst: **So Jun 23, 2019 1:19 pm**

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!

Verfasst: **So Jun 23, 2019 1:41 pm**

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:

Code: Alles auswählen

dput(head(df.red2, 20))

Natürlich nicht, wenn da Klarnamen, Telefonnummern oder Emailadressen drin stehen.

LG,
Bernhard

Verfasst: **So Jun 23, 2019 2:03 pm**

Hallo Bernhard,

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")

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

Verfasst: **So Jun 23, 2019 2:46 pm**

Setzen wir Deine Daten als "bsp":

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")

Dann funktioniert bei mir folgendes:

Code: Alles auswählen

erg <- aggregate(x= bsp[,2:74], by=list(bsp$session), 
          FUN= function(x) mean(x, na.rm = TRUE))
print(erg)

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

Verfasst: **So Jun 23, 2019 3:32 pm**

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.

Code: Alles auswählen

is.na(erg$SA_Behinderung) <- which(erg$SA_Behinderung=="NaN")

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

Verfasst: **So Jun 23, 2019 10:26 pm**

Code: Alles auswählen

Warning message:
Paket ‘dplyr’ wurde unter R Version 3.1.3 erstellt

Wie kann denn das sein, wenn das aktuelle dplyr R (≥ 3.2.0) verlangt? https://cran.r-project.org/web/packages ... index.html

Was sagt

Code: Alles auswählen

packageVersion('dplyr')

Deutsches R-Forum

Umwandlung long in wide format / Zusammenfügen von Zeilen

Umwandlung long in wide format / Zusammenfügen von Zeilen

Re: Umwandlung long in wide format / Zusammenfügen von Zeilen

Re: Umwandlung long in wide format / Zusammenfügen von Zeilen

Re: Umwandlung long in wide format / Zusammenfügen von Zeilen

Re: Umwandlung long in wide format / Zusammenfügen von Zeilen

Re: Umwandlung long in wide format / Zusammenfügen von Zeilen

Re: Umwandlung long in wide format / Zusammenfügen von Zeilen

Re: Umwandlung long in wide format / Zusammenfügen von Zeilen

Re: Umwandlung long in wide format / Zusammenfügen von Zeilen

Re: Umwandlung long in wide format / Zusammenfügen von Zeilen