bedarfsanalyse/survey_227824_R_syntax_file-2022-08-13.R

data <- read.csv("survey_227824_R_data_file.csv", quote = "'\"", na.strings=c("", "\"\""), stringsAsFactors=FALSE, fileEncoding="UTF-8-BOM")


# LimeSurvey Field type: F
data[, 1] <- as.numeric(data[, 1])
attributes(data)$variable.labels[1] <- "id"
names(data)[1] <- "id"
# LimeSurvey Field type: DATETIME23.2
data[, 2] <- as.character(data[, 2])
attributes(data)$variable.labels[2] <- "submitdate"
names(data)[2] <- "submitdate"
# LimeSurvey Field type: F
data[, 3] <- as.numeric(data[, 3])
attributes(data)$variable.labels[3] <- "lastpage"
names(data)[3] <- "lastpage"
# LimeSurvey Field type: A
data[, 4] <- as.character(data[, 4])
attributes(data)$variable.labels[4] <- "startlanguage"
names(data)[4] <- "startlanguage"
# LimeSurvey Field type: A
data[, 5] <- as.character(data[, 5])
attributes(data)$variable.labels[5] <- "seed"
names(data)[5] <- "seed"
# LimeSurvey Field type: A
data[, 6] <- as.character(data[, 6])
attributes(data)$variable.labels[6] <- "Hat deine Organisation eine anerkannte Gemeinnützigkeit?"
data[, 6] <- factor(data[, 6], levels=c("AO01","AO02","AO03","AO04","AO05"),labels=c("Ja", "Ich glaube schon", "Nein", "Ist angestrebt", "Weiß ich nicht"))
names(data)[6] <- "G1Q01"
# LimeSurvey Field type: A
data[, 7] <- as.character(data[, 7])
attributes(data)$variable.labels[7] <- "Welche Rechtsform hat die Organisation? "
data[, 7] <- factor(data[, 7], levels=c("AO01","AO02","AO04","AO05","AO06"),labels=c("Keine", "e.V.", "GmbH", "Stiftung", "Weiß ich nicht"))
names(data)[7] <- "G1Q02"
# LimeSurvey Field type: A
data[, 8] <- as.character(data[, 8])
attributes(data)$variable.labels[8] <- "[Sonstiges] Welche Rechtsform hat die Organisation? "
names(data)[8] <- "G1Q02_other"
# LimeSurvey Field type: A
data[, 9] <- as.character(data[, 9])
attributes(data)$variable.labels[9] <- "Wie viele Mitglieder hat dein Verein?  Wenn du es nicht weißt, kannst du gerne schätzen."
data[, 9] <- factor(data[, 9], levels=c("AO01","AO02","AO03","AO04","AO05"),labels=c("< 10", "10-50", "51-100", "101-500", "> 500"))
names(data)[9] <- "G1Q03"
# LimeSurvey Field type: A
data[, 10] <- as.character(data[, 10])
attributes(data)$variable.labels[10] <- "Wie viele hauptamtlich Mitarbeitende hat deine Organisation?   Wenn du es nicht weißt, kannst du gerne schätzen."
data[, 10] <- factor(data[, 10], levels=c("AO01","AO02","AO03","AO04","AO05"),labels=c("Keine", "< 5", "5-10", "11-50", "> 50"))
names(data)[10] <- "G1Q04"
# LimeSurvey Field type: A
data[, 11] <- as.character(data[, 11])
attributes(data)$variable.labels[11] <- "Wie viele Personen arbeiten regelmäßig aktiv ehrenamtlich mit?  Wenn du es nicht weißt, kannst du gerne schätzen."
data[, 11] <- factor(data[, 11], levels=c("AO01","AO02","AO03","AO04","AO05"),labels=c("Keine", "< 5", "5 - 10", "11 - 50", "> 50"))
names(data)[11] <- "G1Q05"
# LimeSurvey Field type: F
data[, 12] <- as.numeric(data[, 12])
attributes(data)$variable.labels[12] <- "[Ehrenamtlich engagiert] Welche Rolle(n) hast du in der Organisation? "
data[, 12] <- factor(data[, 12], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[12] <- "G1Q06_SQ001"
# LimeSurvey Field type: F
data[, 13] <- as.numeric(data[, 13])
attributes(data)$variable.labels[13] <- "[Hauptamtlich] Welche Rolle(n) hast du in der Organisation? "
data[, 13] <- factor(data[, 13], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[13] <- "G1Q06_SQ002"
# LimeSurvey Field type: A
data[, 14] <- as.character(data[, 14])
attributes(data)$variable.labels[14] <- "Welche Rolle spielt Digitalisierung deiner Einschätzung nach in deiner Organisation? "
data[, 14] <- factor(data[, 14], levels=c("AO01","AO02","AO03","AO04","AO05"),labels=c("Ist bislang fast gar kein Thema", "Wir hinken hinterher", "Wir können zumindest mithalten", "Wir entwickeln uns gut", "Wir sind Vorreiter"))
names(data)[14] <- "G2Q01"
# LimeSurvey Field type: A
data[, 15] <- as.character(data[, 15])
attributes(data)$variable.labels[15] <- "Wer kümmert sich um eure digitale Infrastruktur? (Programme einrichten, andere unterstützen, Dienste zu nutzen etc.)"
data[, 15] <- factor(data[, 15], levels=c("AO01","AO02","AO03","AO04","AO05","AO06"),labels=c("Wir haben eine eigene IT-Abteilung mit Expert*innen", "Eine oder mehrere Hauptamtliche sind dafür verantwortlich", "Eine oder mehrere Ehrenamtliche sind dafür verantwortlich", "Niemand ist dafür speziell verantwortlich", "IT Verantwortung ist outgesourced (z.B. an eine IT Firma)", "Weiß ich nicht"))
names(data)[15] <- "G2Q02"
# LimeSurvey Field type: A
data[, 16] <- as.character(data[, 16])
attributes(data)$variable.labels[16] <- "[Sonstiges] Wer kümmert sich um eure digitale Infrastruktur? (Programme einrichten, andere unterstützen, Dienste zu nutzen etc.)"
names(data)[16] <- "G2Q02_other"
# LimeSurvey Field type: F
data[, 17] <- as.numeric(data[, 17])
attributes(data)$variable.labels[17] <- "[Hauptverantwortlich für die IT-Infrastruktur] Ich selbst bin ..."
data[, 17] <- factor(data[, 17], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[17] <- "G2Q03_SQ001"
# LimeSurvey Field type: F
data[, 18] <- as.numeric(data[, 18])
attributes(data)$variable.labels[18] <- "[Mitverantwortlich für die IT-Infrastruktur] Ich selbst bin ..."
data[, 18] <- factor(data[, 18], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[18] <- "G2Q03_SQ002"
# LimeSurvey Field type: F
data[, 19] <- as.numeric(data[, 19])
attributes(data)$variable.labels[19] <- "[Nicht verantwortlich, nutze sie aber] Ich selbst bin ..."
data[, 19] <- factor(data[, 19], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[19] <- "G2Q03_SQ003"
# LimeSurvey Field type: F
data[, 20] <- as.numeric(data[, 20])
attributes(data)$variable.labels[20] <- "[Ich nutze die IT-Infrastruktur unserer Organisation nicht ] Ich selbst bin ..."
data[, 20] <- factor(data[, 20], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[20] <- "G2Q03_SQ004"
# LimeSurvey Field type: A
data[, 21] <- as.character(data[, 21])
attributes(data)$variable.labels[21] <- "[Sonstiges] Ich selbst bin ..."
names(data)[21] <- "G2Q03_other"
# LimeSurvey Field type: A
data[, 22] <- as.character(data[, 22])
attributes(data)$variable.labels[22] <- "Nutzt du mit deinem Team eins oder mehrere der folgenden Tools?  - Gemeinsame Chatgruppen (z.B. Signal oder Whatsapp)- Gemeinsame digitale Dokumentenablage (z.B. in einer Cloud)- Eine über deine Organisation eingerichtete E-Mailadresse- Videocalls"
data[, 22] <- factor(data[, 22], levels=c("AO01","AO02","AO03"),labels=c("Ja", "Nein", "Ich bin mir nicht sicher"))
names(data)[22] <- "G2Q03b"
# LimeSurvey Field type: F
data[, 23] <- as.numeric(data[, 23])
attributes(data)$variable.labels[23] <- "[Videotelefonie (z.B. Zoom, Microsoft Teams, BigBlueButton, etc.)] Folgende digitale Anwendungen nutzen wir im Alltag mindestens dann und wann "
data[, 23] <- factor(data[, 23], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[23] <- "G2Q05_SQ001"
# LimeSurvey Field type: F
data[, 24] <- as.numeric(data[, 24])
attributes(data)$variable.labels[24] <- "[Gemeinsame Dokumentenablage in Cloud (z.B. Google Drive, OneDrive, Nextcloud, etc.)] Folgende digitale Anwendungen nutzen wir im Alltag mindestens dann und wann "
data[, 24] <- factor(data[, 24], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[24] <- "G2Q05_SQ002"
# LimeSurvey Field type: F
data[, 25] <- as.numeric(data[, 25])
attributes(data)$variable.labels[25] <- "[Gemeinsame Dokumentenablage auf lokalem Server] Folgende digitale Anwendungen nutzen wir im Alltag mindestens dann und wann "
data[, 25] <- factor(data[, 25], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[25] <- "G2Q05_SQ013"
# LimeSurvey Field type: F
data[, 26] <- as.numeric(data[, 26])
attributes(data)$variable.labels[26] <- "[Gemeinsame Dokumentenbearbeitung (z.B. Pad, Google Sheets)] Folgende digitale Anwendungen nutzen wir im Alltag mindestens dann und wann "
data[, 26] <- factor(data[, 26], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[26] <- "G2Q05_SQ003"
# LimeSurvey Field type: F
data[, 27] <- as.numeric(data[, 27])
attributes(data)$variable.labels[27] <- "[Messenger/Chat (Whatsapp, Signal, Slack etc.)] Folgende digitale Anwendungen nutzen wir im Alltag mindestens dann und wann "
data[, 27] <- factor(data[, 27], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[27] <- "G2Q05_SQ004"
# LimeSurvey Field type: F
data[, 28] <- as.numeric(data[, 28])
attributes(data)$variable.labels[28] <- "[Projektmanagement Tool (z.B. Trello, Asana, etc.)] Folgende digitale Anwendungen nutzen wir im Alltag mindestens dann und wann "
data[, 28] <- factor(data[, 28], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[28] <- "G2Q05_SQ005"
# LimeSurvey Field type: F
data[, 29] <- as.numeric(data[, 29])
attributes(data)$variable.labels[29] <- "[E-Mail] Folgende digitale Anwendungen nutzen wir im Alltag mindestens dann und wann "
data[, 29] <- factor(data[, 29], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[29] <- "G2Q05_SQ006"
# LimeSurvey Field type: F
data[, 30] <- as.numeric(data[, 30])
attributes(data)$variable.labels[30] <- "[Umfragetool (z.B. LamaPoll, easy feedback, etc.)] Folgende digitale Anwendungen nutzen wir im Alltag mindestens dann und wann "
data[, 30] <- factor(data[, 30], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[30] <- "G2Q05_SQ007"
# LimeSurvey Field type: F
data[, 31] <- as.numeric(data[, 31])
attributes(data)$variable.labels[31] <- "[Terminumfrage (z.B. Doodle)] Folgende digitale Anwendungen nutzen wir im Alltag mindestens dann und wann "
data[, 31] <- factor(data[, 31], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[31] <- "G2Q05_SQ008"
# LimeSurvey Field type: F
data[, 32] <- as.numeric(data[, 32])
attributes(data)$variable.labels[32] <- "[Gemeinsamer Kalender] Folgende digitale Anwendungen nutzen wir im Alltag mindestens dann und wann "
data[, 32] <- factor(data[, 32], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[32] <- "G2Q05_SQ009"
# LimeSurvey Field type: F
data[, 33] <- as.numeric(data[, 33])
attributes(data)$variable.labels[33] <- "[Digitales Whiteboard (z.B. Miro, Padlet, etc.)] Folgende digitale Anwendungen nutzen wir im Alltag mindestens dann und wann "
data[, 33] <- factor(data[, 33], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[33] <- "G2Q05_SQ010"
# LimeSurvey Field type: F
data[, 34] <- as.numeric(data[, 34])
attributes(data)$variable.labels[34] <- "[Lernplattform (z.B. moodle, ilias, etc.)] Folgende digitale Anwendungen nutzen wir im Alltag mindestens dann und wann "
data[, 34] <- factor(data[, 34], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[34] <- "G2Q05_SQ011"
# LimeSurvey Field type: F
data[, 35] <- as.numeric(data[, 35])
attributes(data)$variable.labels[35] <- "[CRM/Mitgliederverwaltung] Folgende digitale Anwendungen nutzen wir im Alltag mindestens dann und wann "
data[, 35] <- factor(data[, 35], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[35] <- "G2Q05_SQ012"
# LimeSurvey Field type: A
data[, 36] <- as.character(data[, 36])
attributes(data)$variable.labels[36] <- "[Sonstiges] Folgende digitale Anwendungen nutzen wir im Alltag mindestens dann und wann "
names(data)[36] <- "G2Q05_other"
# LimeSurvey Field type: F
data[, 37] <- as.numeric(data[, 37])
attributes(data)$variable.labels[37] <- "[Videotelefonie (z.B. Zoom, Microsoft Teams, BigBlueButton, etc.)] Folgende digitale Anwendungen sind für uns dabei am wichtigsten."
data[, 37] <- factor(data[, 37], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[37] <- "G2Q06_SQ001"
# LimeSurvey Field type: F
data[, 38] <- as.numeric(data[, 38])
attributes(data)$variable.labels[38] <- "[Gemeinsame Dokumentenablage/ Coud (z.B. Google Drive, OneDrive, Nextcloud, etc.)] Folgende digitale Anwendungen sind für uns dabei am wichtigsten."
data[, 38] <- factor(data[, 38], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[38] <- "G2Q06_SQ002"
# LimeSurvey Field type: F
data[, 39] <- as.numeric(data[, 39])
attributes(data)$variable.labels[39] <- "[Gemeinsame Dokumentenablage auf lokalem Server] Folgende digitale Anwendungen sind für uns dabei am wichtigsten."
data[, 39] <- factor(data[, 39], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[39] <- "G2Q06_SQ013"
# LimeSurvey Field type: F
data[, 40] <- as.numeric(data[, 40])
attributes(data)$variable.labels[40] <- "[Gemeinsame Dokumentenbearbeitung (z.B. Pad, Google Sheets)] Folgende digitale Anwendungen sind für uns dabei am wichtigsten."
data[, 40] <- factor(data[, 40], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[40] <- "G2Q06_SQ003"
# LimeSurvey Field type: F
data[, 41] <- as.numeric(data[, 41])
attributes(data)$variable.labels[41] <- "[Messenger/Chat (Whatsapp, Signal, Slack etc.)] Folgende digitale Anwendungen sind für uns dabei am wichtigsten."
data[, 41] <- factor(data[, 41], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[41] <- "G2Q06_SQ004"
# LimeSurvey Field type: F
data[, 42] <- as.numeric(data[, 42])
attributes(data)$variable.labels[42] <- "[Projektmanagement Tool (z.B. Trello, Asana, etc.)] Folgende digitale Anwendungen sind für uns dabei am wichtigsten."
data[, 42] <- factor(data[, 42], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[42] <- "G2Q06_SQ005"
# LimeSurvey Field type: F
data[, 43] <- as.numeric(data[, 43])
attributes(data)$variable.labels[43] <- "[E-Mail] Folgende digitale Anwendungen sind für uns dabei am wichtigsten."
data[, 43] <- factor(data[, 43], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[43] <- "G2Q06_SQ006"
# LimeSurvey Field type: F
data[, 44] <- as.numeric(data[, 44])
attributes(data)$variable.labels[44] <- "[Umfragetool (z.B. LamaPoll, easy feedback, etc.)] Folgende digitale Anwendungen sind für uns dabei am wichtigsten."
data[, 44] <- factor(data[, 44], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[44] <- "G2Q06_SQ007"
# LimeSurvey Field type: F
data[, 45] <- as.numeric(data[, 45])
attributes(data)$variable.labels[45] <- "[Terminumfrage (z.B. Doodle)] Folgende digitale Anwendungen sind für uns dabei am wichtigsten."
data[, 45] <- factor(data[, 45], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[45] <- "G2Q06_SQ008"
# LimeSurvey Field type: F
data[, 46] <- as.numeric(data[, 46])
attributes(data)$variable.labels[46] <- "[Gemeinsamer Kalender] Folgende digitale Anwendungen sind für uns dabei am wichtigsten."
data[, 46] <- factor(data[, 46], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[46] <- "G2Q06_SQ009"
# LimeSurvey Field type: F
data[, 47] <- as.numeric(data[, 47])
attributes(data)$variable.labels[47] <- "[Digitales Whiteboard (z.B. Miro, Padlet, etc.)] Folgende digitale Anwendungen sind für uns dabei am wichtigsten."
data[, 47] <- factor(data[, 47], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[47] <- "G2Q06_SQ010"
# LimeSurvey Field type: F
data[, 48] <- as.numeric(data[, 48])
attributes(data)$variable.labels[48] <- "[Lernplattform (z.B. moodle, ilias, etc.)] Folgende digitale Anwendungen sind für uns dabei am wichtigsten."
data[, 48] <- factor(data[, 48], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[48] <- "G2Q06_SQ011"
# LimeSurvey Field type: F
data[, 49] <- as.numeric(data[, 49])
attributes(data)$variable.labels[49] <- "[CRM/Mitgliederverwaltung] Folgende digitale Anwendungen sind für uns dabei am wichtigsten."
data[, 49] <- factor(data[, 49], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[49] <- "G2Q06_SQ012"
# LimeSurvey Field type: A
data[, 50] <- as.character(data[, 50])
attributes(data)$variable.labels[50] <- "[Sonstiges] Folgende digitale Anwendungen sind für uns dabei am wichtigsten."
names(data)[50] <- "G2Q06_other"
# LimeSurvey Field type: A
data[, 51] <- as.character(data[, 51])
attributes(data)$variable.labels[51] <- "Wie werden Entscheidungen getroffen, welche Tools genutzt werden?"
data[, 51] <- factor(data[, 51], levels=c("AO01","AO02","AO03","AO04"),labels=c("Die Leitungsebene entscheidet und es wird Top-Down umgesetzt", "Das Team entscheidet gemeinsam", "Jede Person entscheidet, was sie nutzen möchte", "Das ist unklar"))
names(data)[51] <- "G2Q07"
# LimeSurvey Field type: A
data[, 52] <- as.character(data[, 52])
attributes(data)$variable.labels[52] <- "[Sonstiges] Wie werden Entscheidungen getroffen, welche Tools genutzt werden?"
names(data)[52] <- "G2Q07_other"
# LimeSurvey Field type: A
data[, 53] <- as.character(data[, 53])
attributes(data)$variable.labels[53] <- "​​​​​Wie viel Geld gebt ihr aktuell ca. für die Tools eurer digitalen Zusammenarbeit aus? (Lizenzgebühren, Serverkosten, Support etc.)   Wenn du es nicht weißt, kannst du gerne schätzen."
data[, 53] <- factor(data[, 53], levels=c("AO01","AO02","AO03","AO04","AO05"),labels=c("Weiß ich nicht", "unter 10€ im Monat", "10-40€ im Monat", "41-100€ im Monat", "über 100€ im Monat"))
names(data)[53] <- "G2Q08"
# LimeSurvey Field type: F
data[, 54] <- as.numeric(data[, 54])
attributes(data)$variable.labels[54] <- "[Chrome] Welche(n) Webbrowser nutzt du (in deiner Organisation)?"
data[, 54] <- factor(data[, 54], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[54] <- "G2Q09_SQ001"
# LimeSurvey Field type: F
data[, 55] <- as.numeric(data[, 55])
attributes(data)$variable.labels[55] <- "[Firefox] Welche(n) Webbrowser nutzt du (in deiner Organisation)?"
data[, 55] <- factor(data[, 55], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[55] <- "G2Q09_SQ002"
# LimeSurvey Field type: F
data[, 56] <- as.numeric(data[, 56])
attributes(data)$variable.labels[56] <- "[Safari] Welche(n) Webbrowser nutzt du (in deiner Organisation)?"
data[, 56] <- factor(data[, 56], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[56] <- "G2Q09_SQ003"
# LimeSurvey Field type: F
data[, 57] <- as.numeric(data[, 57])
attributes(data)$variable.labels[57] <- "[Edge] Welche(n) Webbrowser nutzt du (in deiner Organisation)?"
data[, 57] <- factor(data[, 57], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[57] <- "G2Q09_SQ004"
# LimeSurvey Field type: F
data[, 58] <- as.numeric(data[, 58])
attributes(data)$variable.labels[58] <- "[Opera] Welche(n) Webbrowser nutzt du (in deiner Organisation)?"
data[, 58] <- factor(data[, 58], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[58] <- "G2Q09_SQ005"
# LimeSurvey Field type: A
data[, 59] <- as.character(data[, 59])
attributes(data)$variable.labels[59] <- "[Sonstiges] Welche(n) Webbrowser nutzt du (in deiner Organisation)?"
names(data)[59] <- "G2Q09_other"
# LimeSurvey Field type: F
data[, 60] <- as.numeric(data[, 60])
attributes(data)$variable.labels[60] <- "[Chrome] Welchen Webbrowser nutzt du am häufigsten (in deiner Organisation)?"
data[, 60] <- factor(data[, 60], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[60] <- "G2Q10_SQ001"
# LimeSurvey Field type: F
data[, 61] <- as.numeric(data[, 61])
attributes(data)$variable.labels[61] <- "[Firefox] Welchen Webbrowser nutzt du am häufigsten (in deiner Organisation)?"
data[, 61] <- factor(data[, 61], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[61] <- "G2Q10_SQ002"
# LimeSurvey Field type: F
data[, 62] <- as.numeric(data[, 62])
attributes(data)$variable.labels[62] <- "[Safari] Welchen Webbrowser nutzt du am häufigsten (in deiner Organisation)?"
data[, 62] <- factor(data[, 62], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[62] <- "G2Q10_SQ003"
# LimeSurvey Field type: F
data[, 63] <- as.numeric(data[, 63])
attributes(data)$variable.labels[63] <- "[Edge] Welchen Webbrowser nutzt du am häufigsten (in deiner Organisation)?"
data[, 63] <- factor(data[, 63], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[63] <- "G2Q10_SQ004"
# LimeSurvey Field type: F
data[, 64] <- as.numeric(data[, 64])
attributes(data)$variable.labels[64] <- "[Opera] Welchen Webbrowser nutzt du am häufigsten (in deiner Organisation)?"
data[, 64] <- factor(data[, 64], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[64] <- "G2Q10_SQ005"
# LimeSurvey Field type: A
data[, 65] <- as.character(data[, 65])
attributes(data)$variable.labels[65] <- "[Sonstiges] Welchen Webbrowser nutzt du am häufigsten (in deiner Organisation)?"
names(data)[65] <- "G2Q10_other"
# LimeSurvey Field type: A
data[, 66] <- as.character(data[, 66])
attributes(data)$variable.labels[66] <- "[Durch Covid-19 haben wir einen Sprung in der Digitalisierung gemacht ] Wie stark stimmst du den folgenden Aussagen zu?"
data[, 66] <- factor(data[, 66], levels=c("AO01","AO02","AO03","AO04","AO05"),labels=c("Stimme voll zu", "Stimme eher zu", "Teils/teils", "Stimme eher nicht zu", "Stimme nicht zu"))
names(data)[66] <- "G2Q04_SQ001"
# LimeSurvey Field type: A
data[, 67] <- as.character(data[, 67])
attributes(data)$variable.labels[67] <- "[Zu Beginn der Covid-19 Pandemie waren wir mit der Auswahl geeigneter digitaler Tools überfordert] Wie stark stimmst du den folgenden Aussagen zu?"
data[, 67] <- factor(data[, 67], levels=c("AO01","AO02","AO03","AO04","AO05"),labels=c("Stimme voll zu", "Stimme eher zu", "Teils/teils", "Stimme eher nicht zu", "Stimme nicht zu"))
names(data)[67] <- "G2Q04_SQ002"
# LimeSurvey Field type: A
data[, 68] <- as.character(data[, 68])
attributes(data)$variable.labels[68] <- "[Wir haben während Covid-19 viele digitale Tools ausprobiert] Wie stark stimmst du den folgenden Aussagen zu?"
data[, 68] <- factor(data[, 68], levels=c("AO01","AO02","AO03","AO04","AO05"),labels=c("Stimme voll zu", "Stimme eher zu", "Teils/teils", "Stimme eher nicht zu", "Stimme nicht zu"))
names(data)[68] <- "G2Q04_SQ003"
# LimeSurvey Field type: A
data[, 69] <- as.character(data[, 69])
attributes(data)$variable.labels[69] <- "[Wir nutzen mehrere Messenger parallel (z.B. Whatsapp und Signal oder Telegram)] Wie stark stimmst du den folgenden Aussagen zu?"
data[, 69] <- factor(data[, 69], levels=c("AO01","AO02","AO03","AO04","AO05"),labels=c("Stimme voll zu", "Stimme eher zu", "Teils/teils", "Stimme eher nicht zu", "Stimme nicht zu"))
names(data)[69] <- "G2Q11_SQ001"
# LimeSurvey Field type: A
data[, 70] <- as.character(data[, 70])
attributes(data)$variable.labels[70] <- "[Wir nutzen mehrere Videotelefonie Tools parallel (z.B. Zoom und Teams)] Wie stark stimmst du den folgenden Aussagen zu?"
data[, 70] <- factor(data[, 70], levels=c("AO01","AO02","AO03","AO04","AO05"),labels=c("Stimme voll zu", "Stimme eher zu", "Teils/teils", "Stimme eher nicht zu", "Stimme nicht zu"))
names(data)[70] <- "G2Q11_SQ002"
# LimeSurvey Field type: A
data[, 71] <- as.character(data[, 71])
attributes(data)$variable.labels[71] <- "[Ich bin manchmal verwirrt, welches Tool ich in welcher Situation nutzen soll] Wie stark stimmst du den folgenden Aussagen zu?"
data[, 71] <- factor(data[, 71], levels=c("AO01","AO02","AO03","AO04","AO05"),labels=c("Stimme voll zu", "Stimme eher zu", "Teils/teils", "Stimme eher nicht zu", "Stimme nicht zu"))
names(data)[71] <- "G2Q11_SQ003"
# LimeSurvey Field type: A
data[, 72] <- as.character(data[, 72])
attributes(data)$variable.labels[72] <- "[Andere in meinem Team sind überfordert mit der Auswahl der Tools] Wie stark stimmst du den folgenden Aussagen zu?"
data[, 72] <- factor(data[, 72], levels=c("AO01","AO02","AO03","AO04","AO05"),labels=c("Stimme voll zu", "Stimme eher zu", "Teils/teils", "Stimme eher nicht zu", "Stimme nicht zu"))
names(data)[72] <- "G2Q11_SQ004"
# LimeSurvey Field type: A
data[, 73] <- as.character(data[, 73])
attributes(data)$variable.labels[73] <- "[Ich habe unübersichtlich viele verschiedene Log-In Daten] Wie stark stimmst du den folgenden Aussagen zu?"
data[, 73] <- factor(data[, 73], levels=c("AO01","AO02","AO03","AO04","AO05"),labels=c("Stimme voll zu", "Stimme eher zu", "Teils/teils", "Stimme eher nicht zu", "Stimme nicht zu"))
names(data)[73] <- "G2Q11_SQ005"
# LimeSurvey Field type: A
data[, 74] <- as.character(data[, 74])
attributes(data)$variable.labels[74] <- "Insgesamt bin ich mit den digitalen Tools, die wir nutzen..."
data[, 74] <- factor(data[, 74], levels=c("AO01","AO02","AO03","AO04"),labels=c("sehr zufrieden", "eher zufrieden", "eher unzufrieden", "sehr unzufrieden"))
names(data)[74] <- "G02Q12"
# LimeSurvey Field type: A
data[, 75] <- as.character(data[, 75])
attributes(data)$variable.labels[75] <- "Nutzt ihr in deiner Organisation so ein All-in-one-Tool?"
data[, 75] <- factor(data[, 75], levels=c("AO01","AO02","AO03","AO04"),labels=c("Ja", "Ja, aber wir nutzen nur sehr wenige Funktionen davon", "Nein", "Weiß ich nicht"))
names(data)[75] <- "G03Q01"
# LimeSurvey Field type: F
data[, 76] <- as.numeric(data[, 76])
attributes(data)$variable.labels[76] <- "[Videotelefonie] Welche Funktionen sollte es unbedingt haben? "
data[, 76] <- factor(data[, 76], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[76] <- "G3Q01_SQ001"
# LimeSurvey Field type: F
data[, 77] <- as.numeric(data[, 77])
attributes(data)$variable.labels[77] <- "[Gemeinsame Dokumentenablage (Cloud)] Welche Funktionen sollte es unbedingt haben? "
data[, 77] <- factor(data[, 77], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[77] <- "G3Q01_SQ002"
# LimeSurvey Field type: F
data[, 78] <- as.numeric(data[, 78])
attributes(data)$variable.labels[78] <- "[Gemeinsame Dokumentenbearbeitung (z.B. ein Pad)] Welche Funktionen sollte es unbedingt haben? "
data[, 78] <- factor(data[, 78], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[78] <- "G3Q01_SQ003"
# LimeSurvey Field type: F
data[, 79] <- as.numeric(data[, 79])
attributes(data)$variable.labels[79] <- "[Messenger/Chat ] Welche Funktionen sollte es unbedingt haben? "
data[, 79] <- factor(data[, 79], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[79] <- "G3Q01_SQ004"
# LimeSurvey Field type: F
data[, 80] <- as.numeric(data[, 80])
attributes(data)$variable.labels[80] <- "[Projektmanagement Tool ] Welche Funktionen sollte es unbedingt haben? "
data[, 80] <- factor(data[, 80], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[80] <- "G3Q01_SQ005"
# LimeSurvey Field type: F
data[, 81] <- as.numeric(data[, 81])
attributes(data)$variable.labels[81] <- "[Mail] Welche Funktionen sollte es unbedingt haben? "
data[, 81] <- factor(data[, 81], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[81] <- "G3Q01_SQ006"
# LimeSurvey Field type: F
data[, 82] <- as.numeric(data[, 82])
attributes(data)$variable.labels[82] <- "[Umfragetool] Welche Funktionen sollte es unbedingt haben? "
data[, 82] <- factor(data[, 82], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[82] <- "G3Q01_SQ007"
# LimeSurvey Field type: F
data[, 83] <- as.numeric(data[, 83])
attributes(data)$variable.labels[83] <- "[Terminumfrage] Welche Funktionen sollte es unbedingt haben? "
data[, 83] <- factor(data[, 83], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[83] <- "G3Q01_SQ009"
# LimeSurvey Field type: F
data[, 84] <- as.numeric(data[, 84])
attributes(data)$variable.labels[84] <- "[Gemeinsamer Kalender] Welche Funktionen sollte es unbedingt haben? "
data[, 84] <- factor(data[, 84], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[84] <- "G3Q01_SQ008"
# LimeSurvey Field type: F
data[, 85] <- as.numeric(data[, 85])
attributes(data)$variable.labels[85] <- "[Whiteboard] Welche Funktionen sollte es unbedingt haben? "
data[, 85] <- factor(data[, 85], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[85] <- "G3Q01_SQ010"
# LimeSurvey Field type: F
data[, 86] <- as.numeric(data[, 86])
attributes(data)$variable.labels[86] <- "[Lernplattform] Welche Funktionen sollte es unbedingt haben? "
data[, 86] <- factor(data[, 86], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[86] <- "G3Q01_SQ011"
# LimeSurvey Field type: F
data[, 87] <- as.numeric(data[, 87])
attributes(data)$variable.labels[87] <- "[CRM/ Mitgliederverwaltung] Welche Funktionen sollte es unbedingt haben? "
data[, 87] <- factor(data[, 87], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[87] <- "G3Q01_SQ012"
# LimeSurvey Field type: A
data[, 88] <- as.character(data[, 88])
attributes(data)$variable.labels[88] <- "[Sonstiges] Welche Funktionen sollte es unbedingt haben? "
names(data)[88] <- "G3Q01_other"
# LimeSurvey Field type: F
data[, 89] <- as.numeric(data[, 89])
attributes(data)$variable.labels[89] <- "[Videotelefonie] Welche Funktionen würdest du dir außerdem wünschen? Wähle bis zu 4 weitere Funktionen."
data[, 89] <- factor(data[, 89], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[89] <- "G3Q02_SQ001"
# LimeSurvey Field type: F
data[, 90] <- as.numeric(data[, 90])
attributes(data)$variable.labels[90] <- "[Gemeinsame Dokumentenablage (Cloud)] Welche Funktionen würdest du dir außerdem wünschen? Wähle bis zu 4 weitere Funktionen."
data[, 90] <- factor(data[, 90], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[90] <- "G3Q02_SQ002"
# LimeSurvey Field type: F
data[, 91] <- as.numeric(data[, 91])
attributes(data)$variable.labels[91] <- "[Gemeinsame Dokumentenbearbeitung (z.B. ein Pad)] Welche Funktionen würdest du dir außerdem wünschen? Wähle bis zu 4 weitere Funktionen."
data[, 91] <- factor(data[, 91], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[91] <- "G3Q02_SQ003"
# LimeSurvey Field type: F
data[, 92] <- as.numeric(data[, 92])
attributes(data)$variable.labels[92] <- "[Messenger/Chat ] Welche Funktionen würdest du dir außerdem wünschen? Wähle bis zu 4 weitere Funktionen."
data[, 92] <- factor(data[, 92], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[92] <- "G3Q02_SQ004"
# LimeSurvey Field type: F
data[, 93] <- as.numeric(data[, 93])
attributes(data)$variable.labels[93] <- "[Projektmanagement Tool ] Welche Funktionen würdest du dir außerdem wünschen? Wähle bis zu 4 weitere Funktionen."
data[, 93] <- factor(data[, 93], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[93] <- "G3Q02_SQ005"
# LimeSurvey Field type: F
data[, 94] <- as.numeric(data[, 94])
attributes(data)$variable.labels[94] <- "[Mail] Welche Funktionen würdest du dir außerdem wünschen? Wähle bis zu 4 weitere Funktionen."
data[, 94] <- factor(data[, 94], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[94] <- "G3Q02_SQ006"
# LimeSurvey Field type: F
data[, 95] <- as.numeric(data[, 95])
attributes(data)$variable.labels[95] <- "[Umfragetool] Welche Funktionen würdest du dir außerdem wünschen? Wähle bis zu 4 weitere Funktionen."
data[, 95] <- factor(data[, 95], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[95] <- "G3Q02_SQ007"
# LimeSurvey Field type: F
data[, 96] <- as.numeric(data[, 96])
attributes(data)$variable.labels[96] <- "[Terminumfrage] Welche Funktionen würdest du dir außerdem wünschen? Wähle bis zu 4 weitere Funktionen."
data[, 96] <- factor(data[, 96], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[96] <- "G3Q02_SQ009"
# LimeSurvey Field type: F
data[, 97] <- as.numeric(data[, 97])
attributes(data)$variable.labels[97] <- "[Gemeinsamer Kalender] Welche Funktionen würdest du dir außerdem wünschen? Wähle bis zu 4 weitere Funktionen."
data[, 97] <- factor(data[, 97], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[97] <- "G3Q02_SQ008"
# LimeSurvey Field type: F
data[, 98] <- as.numeric(data[, 98])
attributes(data)$variable.labels[98] <- "[Whiteboard] Welche Funktionen würdest du dir außerdem wünschen? Wähle bis zu 4 weitere Funktionen."
data[, 98] <- factor(data[, 98], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[98] <- "G3Q02_SQ010"
# LimeSurvey Field type: F
data[, 99] <- as.numeric(data[, 99])
attributes(data)$variable.labels[99] <- "[Lernplattform] Welche Funktionen würdest du dir außerdem wünschen? Wähle bis zu 4 weitere Funktionen."
data[, 99] <- factor(data[, 99], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[99] <- "G3Q02_SQ011"
# LimeSurvey Field type: F
data[, 100] <- as.numeric(data[, 100])
attributes(data)$variable.labels[100] <- "[CRM/ Mitgliederverwaltung] Welche Funktionen würdest du dir außerdem wünschen? Wähle bis zu 4 weitere Funktionen."
data[, 100] <- factor(data[, 100], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[100] <- "G3Q02_SQ012"
# LimeSurvey Field type: A
data[, 101] <- as.character(data[, 101])
attributes(data)$variable.labels[101] <- "[Sonstiges] Welche Funktionen würdest du dir außerdem wünschen? Wähle bis zu 4 weitere Funktionen."
names(data)[101] <- "G3Q02_other"
# LimeSurvey Field type: F
data[, 102] <- as.numeric(data[, 102])
attributes(data)$variable.labels[102] <- "[Optimale Datenschutzkonformität] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 102] <- factor(data[, 102], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[102] <- "G03Q03_SQ001"
# LimeSurvey Field type: F
data[, 103] <- as.numeric(data[, 103])
attributes(data)$variable.labels[103] <- "[Modernes Design] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 103] <- factor(data[, 103], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[103] <- "G03Q03_SQ002"
# LimeSurvey Field type: F
data[, 104] <- as.numeric(data[, 104])
attributes(data)$variable.labels[104] <- "[Es sollte Open Source zur Verfügung stehen] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 104] <- factor(data[, 104], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[104] <- "G03Q03_SQ003"
# LimeSurvey Field type: F
data[, 105] <- as.numeric(data[, 105])
attributes(data)$variable.labels[105] <- "[Es sollte auf selbst gewählten Servern betreibbar sein] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 105] <- factor(data[, 105], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[105] <- "G03Q03_SQ004"
# LimeSurvey Field type: F
data[, 106] <- as.numeric(data[, 106])
attributes(data)$variable.labels[106] <- "[Ein einheitliches Dashboard von dem aus ich auf alle Funktionen zugreifen kann] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 106] <- factor(data[, 106], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[106] <- "G03Q03_SQ005"
# LimeSurvey Field type: F
data[, 107] <- as.numeric(data[, 107])
attributes(data)$variable.labels[107] <- "[Es sollte Verknüpfungen zwischen den Tools geben (z.B. Temine in Mails als direkter Kalendereintrag etc.)] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 107] <- factor(data[, 107], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[107] <- "G03Q03_SQ006"
# LimeSurvey Field type: F
data[, 108] <- as.numeric(data[, 108])
attributes(data)$variable.labels[108] <- "[Geringe Kosten] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 108] <- factor(data[, 108], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[108] <- "G03Q03_SQ007"
# LimeSurvey Field type: F
data[, 109] <- as.numeric(data[, 109])
attributes(data)$variable.labels[109] <- "[Einheitliches Login (ich logge mich einmal ein und kann dann auf alle Funktionen zugreifen)] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 109] <- factor(data[, 109], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[109] <- "G03Q03_SQ008"
# LimeSurvey Field type: F
data[, 110] <- as.numeric(data[, 110])
attributes(data)$variable.labels[110] <- "[Zentrale User*innenverwaltung (Zugriffsrechte und Rollen werden zentral für alle Tools/Anwendungen vergeben)] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 110] <- factor(data[, 110], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[110] <- "G03Q03_SQ010"
# LimeSurvey Field type: F
data[, 111] <- as.numeric(data[, 111])
attributes(data)$variable.labels[111] <- "[Automatisierte Updates] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 111] <- factor(data[, 111], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[111] <- "G03Q03_SQ009"
# LimeSurvey Field type: F
data[, 112] <- as.numeric(data[, 112])
attributes(data)$variable.labels[112] <- "[Automatisierte Backups] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 112] <- factor(data[, 112], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[112] <- "G03Q03_SQ011"
# LimeSurvey Field type: F
data[, 113] <- as.numeric(data[, 113])
attributes(data)$variable.labels[113] <- "[Es sollte browserbasiert sein] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 113] <- factor(data[, 113], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[113] <- "G03Q03_SQ012"
# LimeSurvey Field type: F
data[, 114] <- as.numeric(data[, 114])
attributes(data)$variable.labels[114] <- "[Hohe Kompatiblität (mit Standardanwendungen wie Microsoft oder Google)] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 114] <- factor(data[, 114], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[114] <- "G03Q03_SQ013"
# LimeSurvey Field type: F
data[, 115] <- as.numeric(data[, 115])
attributes(data)$variable.labels[115] <- "[Geringe Komplexität] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 115] <- factor(data[, 115], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[115] <- "G03Q03_SQ014"
# LimeSurvey Field type: F
data[, 116] <- as.numeric(data[, 116])
attributes(data)$variable.labels[116] <- "[Nutzer*innenfreundlichkeit] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 116] <- factor(data[, 116], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[116] <- "G03Q03_SQ015"
# LimeSurvey Field type: A
data[, 117] <- as.character(data[, 117])
attributes(data)$variable.labels[117] <- "[Sonstiges] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
names(data)[117] <- "G03Q03_other"
# LimeSurvey Field type: F
data[, 118] <- as.numeric(data[, 118])
attributes(data)$variable.labels[118] <- "[Optimale Datenschutzkonformität] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 118] <- factor(data[, 118], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[118] <- "G03Q03b_SQ001"
# LimeSurvey Field type: F
data[, 119] <- as.numeric(data[, 119])
attributes(data)$variable.labels[119] <- "[Modernes Design] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 119] <- factor(data[, 119], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[119] <- "G03Q03b_SQ002"
# LimeSurvey Field type: F
data[, 120] <- as.numeric(data[, 120])
attributes(data)$variable.labels[120] <- "[Es sollte als Open Source zur Verfügung stehen] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 120] <- factor(data[, 120], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[120] <- "G03Q03b_SQ003"
# LimeSurvey Field type: F
data[, 121] <- as.numeric(data[, 121])
attributes(data)$variable.labels[121] <- "[Es sollte auf selbst gewählten Servern betreibbar sein] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 121] <- factor(data[, 121], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[121] <- "G03Q03b_SQ004"
# LimeSurvey Field type: F
data[, 122] <- as.numeric(data[, 122])
attributes(data)$variable.labels[122] <- "[Ein einheitliches Dashboard von dem aus ich auf alle Funktionen zugreifen kann] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 122] <- factor(data[, 122], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[122] <- "G03Q03b_SQ005"
# LimeSurvey Field type: F
data[, 123] <- as.numeric(data[, 123])
attributes(data)$variable.labels[123] <- "[Es sollte Verknüpfungen zwischen den Tools geben (z.B. Temine in Mails als direkter Kalendereintrag etc.)] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 123] <- factor(data[, 123], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[123] <- "G03Q03b_SQ006"
# LimeSurvey Field type: F
data[, 124] <- as.numeric(data[, 124])
attributes(data)$variable.labels[124] <- "[Geringe Kosten] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 124] <- factor(data[, 124], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[124] <- "G03Q03b_SQ007"
# LimeSurvey Field type: F
data[, 125] <- as.numeric(data[, 125])
attributes(data)$variable.labels[125] <- "[Einheitliches Login (ich logge mich einmal ein und kann dann auf alle Funktionen zugreifen)] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 125] <- factor(data[, 125], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[125] <- "G03Q03b_SQ008"
# LimeSurvey Field type: F
data[, 126] <- as.numeric(data[, 126])
attributes(data)$variable.labels[126] <- "[Zentrale User*innenverwaltung (Zugriffsrechte und Rollen werden zentral für alle Tools/Anwendungen vergeben)] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 126] <- factor(data[, 126], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[126] <- "G03Q03b_SQ010"
# LimeSurvey Field type: F
data[, 127] <- as.numeric(data[, 127])
attributes(data)$variable.labels[127] <- "[Automatisierte Updates] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 127] <- factor(data[, 127], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[127] <- "G03Q03b_SQ009"
# LimeSurvey Field type: F
data[, 128] <- as.numeric(data[, 128])
attributes(data)$variable.labels[128] <- "[Automatisierte Backups] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 128] <- factor(data[, 128], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[128] <- "G03Q03b_SQ011"
# LimeSurvey Field type: F
data[, 129] <- as.numeric(data[, 129])
attributes(data)$variable.labels[129] <- "[Es sollte browserbasiert sein] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 129] <- factor(data[, 129], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[129] <- "G03Q03b_SQ012"
# LimeSurvey Field type: F
data[, 130] <- as.numeric(data[, 130])
attributes(data)$variable.labels[130] <- "[Hohe Kompatiblität (mit Standardanwendungen wie Microsoft oder Google)] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 130] <- factor(data[, 130], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[130] <- "G03Q03b_SQ013"
# LimeSurvey Field type: F
data[, 131] <- as.numeric(data[, 131])
attributes(data)$variable.labels[131] <- "[Geringe Komplexität] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 131] <- factor(data[, 131], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[131] <- "G03Q03b_SQ014"
# LimeSurvey Field type: F
data[, 132] <- as.numeric(data[, 132])
attributes(data)$variable.labels[132] <- "[Nutzer*innenfreundlichkeit] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
data[, 132] <- factor(data[, 132], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[132] <- "G03Q03b_SQ015"
# LimeSurvey Field type: A
data[, 133] <- as.character(data[, 133])
attributes(data)$variable.labels[133] <- "[Sonstiges] Neben den Funktionen, wäre mir folgendes wichtig an dem Tool:"
names(data)[133] <- "G03Q03b_other"
# LimeSurvey Field type: A
data[, 134] <- as.character(data[, 134])
attributes(data)$variable.labels[134] <- "Wenn es dieses optimale Tool gäbe, würdest du einen Umstieg darauf befürworten bzw. denkst du, deine Organisation wäre offen dafür?"
data[, 134] <- factor(data[, 134], levels=c("AO01","AO02","AO03","AO04","AO05"),labels=c("Ja, auf jeden Fall", "Eher ja", "Vielleicht, unter bestimmten Bedingungen", "Eher nein, wir sind mit unseren aktuell genutzten Tools zufrieden", "Eher nein, der Aufwand für einen Wechsel wäre zu groß"))
names(data)[134] <- "G3Q03"
# LimeSurvey Field type: A
data[, 135] <- as.character(data[, 135])
attributes(data)$variable.labels[135] <- "[Sonstiges] Wenn es dieses optimale Tool gäbe, würdest du einen Umstieg darauf befürworten bzw. denkst du, deine Organisation wäre offen dafür?"
names(data)[135] <- "G3Q03_other"
# LimeSurvey Field type: A
data[, 136] <- as.character(data[, 136])
attributes(data)$variable.labels[136] <- "[Das gesamte Team in der Nutzung der digitalen Tools zu schulen, wäre eine große Unterstützung | Für Schulungen des Teams haben wir keine Zeit] Was könnte euch einen Umstieg auf das Tool erleichtern?  Entscheide dich, welche der beiden Aussagen eher zutrifft."
data[, 136] <- factor(data[, 136], levels=c("AO01","AO02","AO04","AO05"),labels=c("Stimme A voll zu", "Stimme A eher zu", "Stimme B eher zu", "Stimme B voll zu"))
names(data)[136] <- "G3Q04_SQ001"
# LimeSurvey Field type: A
data[, 137] <- as.character(data[, 137])
attributes(data)$variable.labels[137] <- "[Lehrvideos zur Nutzung der Tools wären eine große Unterstützung | Keiner hat Zeit sich Lehrvideos anzuschauen] Was könnte euch einen Umstieg auf das Tool erleichtern?  Entscheide dich, welche der beiden Aussagen eher zutrifft."
data[, 137] <- factor(data[, 137], levels=c("AO01","AO02","AO04","AO05"),labels=c("Stimme A voll zu", "Stimme A eher zu", "Stimme B eher zu", "Stimme B voll zu"))
names(data)[137] <- "G3Q04_SQ002"
# LimeSurvey Field type: A
data[, 138] <- as.character(data[, 138])
attributes(data)$variable.labels[138] <- "[Eine professionelle Organisationsbegleitung, die mit uns Konzepte entwickelt, welche Tools wir wie anwenden können, wäre eine Unterstützung | Wir brauchen keine Organisationsbegleitung] Was könnte euch einen Umstieg auf das Tool erleichtern?  Entscheide dich, welche der beiden Aussagen eher zutrifft."
data[, 138] <- factor(data[, 138], levels=c("AO01","AO02","AO04","AO05"),labels=c("Stimme A voll zu", "Stimme A eher zu", "Stimme B eher zu", "Stimme B voll zu"))
names(data)[138] <- "G3Q04_SQ003"
# LimeSurvey Field type: A
data[, 139] <- as.character(data[, 139])
attributes(data)$variable.labels[139] <- "[Der Übergang zu dem neuen Tool sollte langsam sein (alte Tools erstmal parallel nutzen) | Der Übergang sollte auf einen Schlag durchgeführt werden, damit sich keine Parallelstruktur entwickelt] Was könnte euch einen Umstieg auf das Tool erleichtern?  Entscheide dich, welche der beiden Aussagen eher zutrifft."
data[, 139] <- factor(data[, 139], levels=c("AO01","AO02","AO04","AO05"),labels=c("Stimme A voll zu", "Stimme A eher zu", "Stimme B eher zu", "Stimme B voll zu"))
names(data)[139] <- "G3Q04_SQ004"
# LimeSurvey Field type: A
data[, 140] <- as.character(data[, 140])
attributes(data)$variable.labels[140] <- "Wie viel dürfte dieses ideale Tool euch im Monat kosten?"
data[, 140] <- factor(data[, 140], levels=c("AO01","AO02","AO03","AO04","AO05","AO06"),labels=c("Nichts. Sonst würden wir lieber auf andere kostenfreie Möglichkeiten zurückgreifen", "< 10€ im Monat", "10-40€ im Monat", "41-100€ im Monat", "> 100€ im Monat", "Kann ich nicht beurteilen"))
names(data)[140] <- "G3Q05"
# LimeSurvey Field type: A
data[, 141] <- as.character(data[, 141])
attributes(data)$variable.labels[141] <- "[Ich finde es besorgniserregend, wie große Unternehmen mit unseren Daten umgehen | Ich finde den Hype um Datenschutz übertrieben. Ich hab nichts zu verbergen.] Kommen wir nun zu dem Thema Datenschutz  Entscheide dich, welche der beiden Aussagen eher zutrifft."
data[, 141] <- factor(data[, 141], levels=c("AO01","AO02","AO04","AO05"),labels=c("Stimme A voll zu", "Stimme A eher zu", "Stimme B eher zu", "Stimme B voll zu"))
names(data)[141] <- "G4Q01_SQ001"
# LimeSurvey Field type: A
data[, 142] <- as.character(data[, 142])
attributes(data)$variable.labels[142] <- "[Datenschutz steht für mich an erster Stelle | Für gute Funktionalität bin ich bereit beim Datenschutz Abstriche zu machen] Kommen wir nun zu dem Thema Datenschutz  Entscheide dich, welche der beiden Aussagen eher zutrifft."
data[, 142] <- factor(data[, 142], levels=c("AO01","AO02","AO04","AO05"),labels=c("Stimme A voll zu", "Stimme A eher zu", "Stimme B eher zu", "Stimme B voll zu"))
names(data)[142] <- "G4Q01_SQ002"
# LimeSurvey Field type: A
data[, 143] <- as.character(data[, 143])
attributes(data)$variable.labels[143] <- "[Als Organisation ist uns der sensible Umgang mit Daten sehr wichtig | Wir gehen nicht mit sensiblen Daten um, da spielt Datenschutz keine große Rolle] Kommen wir nun zu dem Thema Datenschutz  Entscheide dich, welche der beiden Aussagen eher zutrifft."
data[, 143] <- factor(data[, 143], levels=c("AO01","AO02","AO04","AO05"),labels=c("Stimme A voll zu", "Stimme A eher zu", "Stimme B eher zu", "Stimme B voll zu"))
names(data)[143] <- "G4Q01_SQ005"
# LimeSurvey Field type: A
data[, 144] <- as.character(data[, 144])
attributes(data)$variable.labels[144] <- "[Ich kenne mich gut mit der DSGVO aus | Ich kenne mich nicht mit der DSGVO aus] Kommen wir nun zu dem Thema Datenschutz  Entscheide dich, welche der beiden Aussagen eher zutrifft."
data[, 144] <- factor(data[, 144], levels=c("AO01","AO02","AO04","AO05"),labels=c("Stimme A voll zu", "Stimme A eher zu", "Stimme B eher zu", "Stimme B voll zu"))
names(data)[144] <- "G4Q01_SQ003"
# LimeSurvey Field type: A
data[, 145] <- as.character(data[, 145])
attributes(data)$variable.labels[145] <- "[Der DSGVO zu entsprechen, ist leicht umsetzbar | Uns an die DSGVO zu halten, ist schwer umzusetzen] Kommen wir nun zu dem Thema Datenschutz  Entscheide dich, welche der beiden Aussagen eher zutrifft."
data[, 145] <- factor(data[, 145], levels=c("AO01","AO02","AO04","AO05"),labels=c("Stimme A voll zu", "Stimme A eher zu", "Stimme B eher zu", "Stimme B voll zu"))
names(data)[145] <- "G4Q01_SQ004"
# LimeSurvey Field type: A
data[, 146] <- as.character(data[, 146])
attributes(data)$variable.labels[146] <- "Im folgenden Abschnitt geht es um Open Source Tools, also Software, deren Code der Öffentlichkeit zugänglich ist und eingesehen, geändert und genutzt werden kann. Häufig verwendete Open Source Tools sind z.B. LibreOffice, Open Office, BigBlueButton, etc.  Open Source Tools… "
data[, 146] <- factor(data[, 146], levels=c("AO01","AO02","AO03","AO04","AO05"),labels=c("nutzen wir in unserer Organisation aktuell", "haben wir mal genutzt oder ausprobiert", "nutzen wir nicht in unserer Organisation", "ich weiß nicht ob wir sie nutzen oder genutzt haben", "ich kenne den Begriff nicht"))
names(data)[146] <- "G4Q02"
# LimeSurvey Field type: A
data[, 147] <- as.character(data[, 147])
attributes(data)$variable.labels[147] <- "Folgende(s) Open Source Tool(s) nutzen wir:"
names(data)[147] <- "G4Q03"
# LimeSurvey Field type: F
data[, 148] <- as.numeric(data[, 148])
attributes(data)$variable.labels[148] <- "[Wir einen Beitrag zur Weiterentwicklung freier Software leisten wollen] Wir nutzen Open Source Tools, weil… "
data[, 148] <- factor(data[, 148], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[148] <- "G4Q04_SQ001"
# LimeSurvey Field type: F
data[, 149] <- as.numeric(data[, 149])
attributes(data)$variable.labels[149] <- "[Sie günstig oder sogar umsonst sind] Wir nutzen Open Source Tools, weil… "
data[, 149] <- factor(data[, 149], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[149] <- "G4Q04_SQ002"
# LimeSurvey Field type: F
data[, 150] <- as.numeric(data[, 150])
attributes(data)$variable.labels[150] <- "[Wir unser Geld nicht an die großen Unternehmen geben wollen] Wir nutzen Open Source Tools, weil… "
data[, 150] <- factor(data[, 150], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[150] <- "G4Q04_SQ003"
# LimeSurvey Field type: F
data[, 151] <- as.numeric(data[, 151])
attributes(data)$variable.labels[151] <- "[Wir selbst die Kontrolle über unsere Daten haben wollen] Wir nutzen Open Source Tools, weil… "
data[, 151] <- factor(data[, 151], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[151] <- "G4Q04_SQ004"
# LimeSurvey Field type: F
data[, 152] <- as.numeric(data[, 152])
attributes(data)$variable.labels[152] <- "[Die Funktionalität gut ist] Wir nutzen Open Source Tools, weil… "
data[, 152] <- factor(data[, 152], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[152] <- "G4Q04_SQ005"
# LimeSurvey Field type: F
data[, 153] <- as.numeric(data[, 153])
attributes(data)$variable.labels[153] <- "[Ich diese Tools aus meinem Alltag oder aus anderen Kontexten kenne] Wir nutzen Open Source Tools, weil… "
data[, 153] <- factor(data[, 153], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[153] <- "G4Q04_SQ006"
# LimeSurvey Field type: A
data[, 154] <- as.character(data[, 154])
attributes(data)$variable.labels[154] <- "[Sonstiges] Wir nutzen Open Source Tools, weil… "
names(data)[154] <- "G4Q04_other"
# LimeSurvey Field type: F
data[, 155] <- as.numeric(data[, 155])
attributes(data)$variable.labels[155] <- "[Wir einen Beitrag zur Weiterentwicklung freier Software leisten wollen] Der wichtigste Grund für mich, Open Source Tools zu nutzen: "
data[, 155] <- factor(data[, 155], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[155] <- "G4Q05_SQ001"
# LimeSurvey Field type: F
data[, 156] <- as.numeric(data[, 156])
attributes(data)$variable.labels[156] <- "[Sie günstig oder sogar umsonst sind] Der wichtigste Grund für mich, Open Source Tools zu nutzen: "
data[, 156] <- factor(data[, 156], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[156] <- "G4Q05_SQ002"
# LimeSurvey Field type: F
data[, 157] <- as.numeric(data[, 157])
attributes(data)$variable.labels[157] <- "[Wir unser Geld nicht an die großen Unternehmen geben wollen] Der wichtigste Grund für mich, Open Source Tools zu nutzen: "
data[, 157] <- factor(data[, 157], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[157] <- "G4Q05_SQ003"
# LimeSurvey Field type: F
data[, 158] <- as.numeric(data[, 158])
attributes(data)$variable.labels[158] <- "[Wir selbst die Kontrolle über unsere Daten haben wollen] Der wichtigste Grund für mich, Open Source Tools zu nutzen: "
data[, 158] <- factor(data[, 158], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[158] <- "G4Q05_SQ004"
# LimeSurvey Field type: F
data[, 159] <- as.numeric(data[, 159])
attributes(data)$variable.labels[159] <- "[Die Funktionalität gut ist] Der wichtigste Grund für mich, Open Source Tools zu nutzen: "
data[, 159] <- factor(data[, 159], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[159] <- "G4Q05_SQ005"
# LimeSurvey Field type: F
data[, 160] <- as.numeric(data[, 160])
attributes(data)$variable.labels[160] <- "[Ich diese Tools aus meinem Alltag oder aus anderen Kontexten kenne] Der wichtigste Grund für mich, Open Source Tools zu nutzen: "
data[, 160] <- factor(data[, 160], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[160] <- "G4Q05_SQ006"
# LimeSurvey Field type: A
data[, 161] <- as.character(data[, 161])
attributes(data)$variable.labels[161] <- "[Sonstiges] Der wichtigste Grund für mich, Open Source Tools zu nutzen: "
names(data)[161] <- "G4Q05_other"
# LimeSurvey Field type: A
data[, 162] <- as.character(data[, 162])
attributes(data)$variable.labels[162] <- "Folgende(s) Open Source Tool(s) haben wir genutzt:"
names(data)[162] <- "G4Q06"
# LimeSurvey Field type: F
data[, 163] <- as.numeric(data[, 163])
attributes(data)$variable.labels[163] <- "[Wir einen Beitrag zur Weiterentwicklung freier Software leisten wollen] Wir haben Open Source Tools genutzt, weil... "
data[, 163] <- factor(data[, 163], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[163] <- "G4Q07_SQ001"
# LimeSurvey Field type: F
data[, 164] <- as.numeric(data[, 164])
attributes(data)$variable.labels[164] <- "[Sie günstig oder sogar umsonst sind] Wir haben Open Source Tools genutzt, weil... "
data[, 164] <- factor(data[, 164], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[164] <- "G4Q07_SQ002"
# LimeSurvey Field type: F
data[, 165] <- as.numeric(data[, 165])
attributes(data)$variable.labels[165] <- "[Wir unser Geld nicht an die großen Unternehmen geben wollen] Wir haben Open Source Tools genutzt, weil... "
data[, 165] <- factor(data[, 165], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[165] <- "G4Q07_SQ003"
# LimeSurvey Field type: F
data[, 166] <- as.numeric(data[, 166])
attributes(data)$variable.labels[166] <- "[Wir selbst die Kontrolle über unsere Daten haben wollen] Wir haben Open Source Tools genutzt, weil... "
data[, 166] <- factor(data[, 166], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[166] <- "G4Q07_SQ004"
# LimeSurvey Field type: F
data[, 167] <- as.numeric(data[, 167])
attributes(data)$variable.labels[167] <- "[Die Funktionalität gut ist] Wir haben Open Source Tools genutzt, weil... "
data[, 167] <- factor(data[, 167], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[167] <- "G4Q07_SQ005"
# LimeSurvey Field type: F
data[, 168] <- as.numeric(data[, 168])
attributes(data)$variable.labels[168] <- "[Ich diese Tools aus meinem Alltag oder aus anderen Kontexten kenne] Wir haben Open Source Tools genutzt, weil... "
data[, 168] <- factor(data[, 168], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[168] <- "G4Q07_SQ006"
# LimeSurvey Field type: A
data[, 169] <- as.character(data[, 169])
attributes(data)$variable.labels[169] <- "[Sonstiges] Wir haben Open Source Tools genutzt, weil... "
names(data)[169] <- "G4Q07_other"
# LimeSurvey Field type: F
data[, 170] <- as.numeric(data[, 170])
attributes(data)$variable.labels[170] <- "[Die Benutzer*innenfreundlichkeit zu gering ist] Warum habt ihr die Nutzung von Open Source Tools beendet?   Weil..."
data[, 170] <- factor(data[, 170], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[170] <- "G4Q08_SQ001"
# LimeSurvey Field type: F
data[, 171] <- as.numeric(data[, 171])
attributes(data)$variable.labels[171] <- "[Die technische Zuverlässigkeit zu gering ist] Warum habt ihr die Nutzung von Open Source Tools beendet?   Weil..."
data[, 171] <- factor(data[, 171], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[171] <- "G4Q08_SQ002"
# LimeSurvey Field type: F
data[, 172] <- as.numeric(data[, 172])
attributes(data)$variable.labels[172] <- "[Funktionen fehlen] Warum habt ihr die Nutzung von Open Source Tools beendet?   Weil..."
data[, 172] <- factor(data[, 172], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[172] <- "G4Q08_SQ003"
# LimeSurvey Field type: F
data[, 173] <- as.numeric(data[, 173])
attributes(data)$variable.labels[173] <- "[Technische Unterstützung zur Einrichtung/Wartung fehlt oder zu aufwändig ist] Warum habt ihr die Nutzung von Open Source Tools beendet?   Weil..."
data[, 173] <- factor(data[, 173], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[173] <- "G4Q08_SQ004"
# LimeSurvey Field type: F
data[, 174] <- as.numeric(data[, 174])
attributes(data)$variable.labels[174] <- "[Andere aus dem Team damit nicht klar kommen] Warum habt ihr die Nutzung von Open Source Tools beendet?   Weil..."
data[, 174] <- factor(data[, 174], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[174] <- "G4Q08_SQ005"
# LimeSurvey Field type: F
data[, 175] <- as.numeric(data[, 175])
attributes(data)$variable.labels[175] <- "[Der Support zu gering ist] Warum habt ihr die Nutzung von Open Source Tools beendet?   Weil..."
data[, 175] <- factor(data[, 175], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[175] <- "G4Q08_SQ006"
# LimeSurvey Field type: F
data[, 176] <- as.numeric(data[, 176])
attributes(data)$variable.labels[176] <- "[Wir lieber Tools verwenden, die wir aus unserem privaten/beruflichen Alltag kennen] Warum habt ihr die Nutzung von Open Source Tools beendet?   Weil..."
data[, 176] <- factor(data[, 176], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[176] <- "G4Q08_SQ007"
# LimeSurvey Field type: A
data[, 177] <- as.character(data[, 177])
attributes(data)$variable.labels[177] <- "[Sonstiges] Warum habt ihr die Nutzung von Open Source Tools beendet?   Weil..."
names(data)[177] <- "G4Q08_other"
# LimeSurvey Field type: F
data[, 178] <- as.numeric(data[, 178])
attributes(data)$variable.labels[178] <- "[Die Benutzer*innenfreundlichkeit zu gering ist] Warum nutzt ihr keine Open Source Tools?   Weil..."
data[, 178] <- factor(data[, 178], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[178] <- "G4Q09_SQ001"
# LimeSurvey Field type: F
data[, 179] <- as.numeric(data[, 179])
attributes(data)$variable.labels[179] <- "[Die technische Zuverlässigkeit zu gering ist] Warum nutzt ihr keine Open Source Tools?   Weil..."
data[, 179] <- factor(data[, 179], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[179] <- "G4Q09_SQ002"
# LimeSurvey Field type: F
data[, 180] <- as.numeric(data[, 180])
attributes(data)$variable.labels[180] <- "[Funktionen fehlen] Warum nutzt ihr keine Open Source Tools?   Weil..."
data[, 180] <- factor(data[, 180], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[180] <- "G4Q09_SQ003"
# LimeSurvey Field type: F
data[, 181] <- as.numeric(data[, 181])
attributes(data)$variable.labels[181] <- "[Technische Unterstützung zur Einrichtung/Wartung fehlt oder zu aufwändig ist] Warum nutzt ihr keine Open Source Tools?   Weil..."
data[, 181] <- factor(data[, 181], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[181] <- "G4Q09_SQ004"
# LimeSurvey Field type: F
data[, 182] <- as.numeric(data[, 182])
attributes(data)$variable.labels[182] <- "[Wir keinen Zugang dazu haben] Warum nutzt ihr keine Open Source Tools?   Weil..."
data[, 182] <- factor(data[, 182], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[182] <- "G4Q09_SQ008"
# LimeSurvey Field type: F
data[, 183] <- as.numeric(data[, 183])
attributes(data)$variable.labels[183] <- "[Es technisch aufwändiger ist, open Source Lösungen einzurichten] Warum nutzt ihr keine Open Source Tools?   Weil..."
data[, 183] <- factor(data[, 183], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[183] <- "G4Q09_SQ009"
# LimeSurvey Field type: F
data[, 184] <- as.numeric(data[, 184])
attributes(data)$variable.labels[184] <- "[Der Support zu gering ist] Warum nutzt ihr keine Open Source Tools?   Weil..."
data[, 184] <- factor(data[, 184], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[184] <- "G4Q09_SQ006"
# LimeSurvey Field type: F
data[, 185] <- as.numeric(data[, 185])
attributes(data)$variable.labels[185] <- "[Andere aus dem Team damit nicht klar kommen] Warum nutzt ihr keine Open Source Tools?   Weil..."
data[, 185] <- factor(data[, 185], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[185] <- "G4Q09_SQ005"
# LimeSurvey Field type: F
data[, 186] <- as.numeric(data[, 186])
attributes(data)$variable.labels[186] <- "[Wir lieber Tools verwenden, die wir aus unserem privaten/beruflichen Alltag kennen] Warum nutzt ihr keine Open Source Tools?   Weil..."
data[, 186] <- factor(data[, 186], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[186] <- "G4Q09_SQ007"
# LimeSurvey Field type: F
data[, 187] <- as.numeric(data[, 187])
attributes(data)$variable.labels[187] <- "[Wir keine Open Source Alternativen zu den Tools, die wir nutze, kennen] Warum nutzt ihr keine Open Source Tools?   Weil..."
data[, 187] <- factor(data[, 187], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[187] <- "G4Q09_SQ010"
# LimeSurvey Field type: A
data[, 188] <- as.character(data[, 188])
attributes(data)$variable.labels[188] <- "[Sonstiges] Warum nutzt ihr keine Open Source Tools?   Weil..."
names(data)[188] <- "G4Q09_other"
# LimeSurvey Field type: F
data[, 189] <- as.numeric(data[, 189])
attributes(data)$variable.labels[189] <- "Wie alt bist du?"
names(data)[189] <- "G5Q01"
# LimeSurvey Field type: A
data[, 190] <- as.character(data[, 190])
attributes(data)$variable.labels[190] <- "Mit welchem Geschlecht identifizierst du dich?"
data[, 190] <- factor(data[, 190], levels=c("AO01","AO02","AO03"),labels=c("weiblich", "männlich", "divers"))
names(data)[190] <- "G5Q02"
# LimeSurvey Field type: A
data[, 191] <- as.character(data[, 191])
attributes(data)$variable.labels[191] <- "Was ist bisher dein höchster Bildungsabschluss?"
data[, 191] <- factor(data[, 191], levels=c("AO01","AO02","AO03","AO04","AO05","AO06","AO07"),labels=c("kein Abschluss", "Hauptschulabschluss", "Realschulabschluss", "Abitur", "Abgeschlossene Berufsausbildung", "Hochschulabschluss", "Promotion"))
names(data)[191] <- "G5Q03"
# LimeSurvey Field type: F
data[, 192] <- as.numeric(data[, 192])
attributes(data)$variable.labels[192] <- "[Sport] In welchen Bereichen ist deine Organisation aktiv? "
data[, 192] <- factor(data[, 192], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[192] <- "G5Q04_SQ001"
# LimeSurvey Field type: F
data[, 193] <- as.numeric(data[, 193])
attributes(data)$variable.labels[193] <- "[Bildung] In welchen Bereichen ist deine Organisation aktiv? "
data[, 193] <- factor(data[, 193], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[193] <- "G5Q04_SQ002"
# LimeSurvey Field type: F
data[, 194] <- as.numeric(data[, 194])
attributes(data)$variable.labels[194] <- "[Förderverein] In welchen Bereichen ist deine Organisation aktiv? "
data[, 194] <- factor(data[, 194], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[194] <- "G5Q04_SQ003"
# LimeSurvey Field type: F
data[, 195] <- as.numeric(data[, 195])
attributes(data)$variable.labels[195] <- "[Freizeit/Geselligkeit] In welchen Bereichen ist deine Organisation aktiv? "
data[, 195] <- factor(data[, 195], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[195] <- "G5Q04_SQ004"
# LimeSurvey Field type: F
data[, 196] <- as.numeric(data[, 196])
attributes(data)$variable.labels[196] <- "[Wirtschafts-/ Berufsverbände] In welchen Bereichen ist deine Organisation aktiv? "
data[, 196] <- factor(data[, 196], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[196] <- "G5Q04_SQ005"
# LimeSurvey Field type: F
data[, 197] <- as.numeric(data[, 197])
attributes(data)$variable.labels[197] <- "[Wissenschaft/ Forschung] In welchen Bereichen ist deine Organisation aktiv? "
data[, 197] <- factor(data[, 197], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[197] <- "G5Q04_SQ006"
# LimeSurvey Field type: F
data[, 198] <- as.numeric(data[, 198])
attributes(data)$variable.labels[198] <- "[Kirchen/religiöse Vereinigungen] In welchen Bereichen ist deine Organisation aktiv? "
data[, 198] <- factor(data[, 198], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[198] <- "G5Q04_SQ007"
# LimeSurvey Field type: F
data[, 199] <- as.numeric(data[, 199])
attributes(data)$variable.labels[199] <- "[Bevölkerungs-/ Katastrophenschutz] In welchen Bereichen ist deine Organisation aktiv? "
data[, 199] <- factor(data[, 199], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[199] <- "G5Q04_SQ008"
# LimeSurvey Field type: F
data[, 200] <- as.numeric(data[, 200])
attributes(data)$variable.labels[200] <- "[Umwelt-/ Naturschutz] In welchen Bereichen ist deine Organisation aktiv? "
data[, 200] <- factor(data[, 200], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[200] <- "G5Q04_SQ009"
# LimeSurvey Field type: F
data[, 201] <- as.numeric(data[, 201])
attributes(data)$variable.labels[201] <- "[Soziale Dienste] In welchen Bereichen ist deine Organisation aktiv? "
data[, 201] <- factor(data[, 201], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[201] <- "G5Q04_SQ010"
# LimeSurvey Field type: F
data[, 202] <- as.numeric(data[, 202])
attributes(data)$variable.labels[202] <- "[Gesundheitswesen] In welchen Bereichen ist deine Organisation aktiv? "
data[, 202] <- factor(data[, 202], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[202] <- "G5Q04_SQ011"
# LimeSurvey Field type: F
data[, 203] <- as.numeric(data[, 203])
attributes(data)$variable.labels[203] <- "[Bürger-/Verbraucherinteressen] In welchen Bereichen ist deine Organisation aktiv? "
data[, 203] <- factor(data[, 203], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[203] <- "G5Q04_SQ012"
# LimeSurvey Field type: F
data[, 204] <- as.numeric(data[, 204])
attributes(data)$variable.labels[204] <- "[Kultur/Medien] In welchen Bereichen ist deine Organisation aktiv? "
data[, 204] <- factor(data[, 204], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[204] <- "G5Q04_SQ013"
# LimeSurvey Field type: F
data[, 205] <- as.numeric(data[, 205])
attributes(data)$variable.labels[205] <- "[Politik] In welchen Bereichen ist deine Organisation aktiv? "
data[, 205] <- factor(data[, 205], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[205] <- "G5Q04_SQ014"
# LimeSurvey Field type: F
data[, 206] <- as.numeric(data[, 206])
attributes(data)$variable.labels[206] <- "[Im ländlichen Raum] Meine Organisation ist..."
data[, 206] <- factor(data[, 206], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[206] <- "G5Q05_SQ001"
# LimeSurvey Field type: F
data[, 207] <- as.numeric(data[, 207])
attributes(data)$variable.labels[207] <- "[Im städtischen Raum] Meine Organisation ist..."
data[, 207] <- factor(data[, 207], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[207] <- "G5Q05_SQ002"
# LimeSurvey Field type: F
data[, 208] <- as.numeric(data[, 208])
attributes(data)$variable.labels[208] <- "[Überregional aktiv] Meine Organisation ist..."
data[, 208] <- factor(data[, 208], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[208] <- "G5Q05_SQ003"
# LimeSurvey Field type: F
data[, 209] <- as.numeric(data[, 209])
attributes(data)$variable.labels[209] <- "[Teil einer größeren Organisation/ Dachverband] Meine Organisation ist..."
data[, 209] <- factor(data[, 209], levels=c(1,0),labels=c("Ja", "Nicht gewählt"))
names(data)[209] <- "G5Q05_SQ004"