local-it
/
bedarfsanalyse
0
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

transfer analysis from github repo

main
Frie 2022-08-22 12:18:44 +02:00
parent 2a15d62dbe
commit 72c11ff25d
No known key found for this signature in database
GPG Key ID: CCA18890A31BE98A
10 changed files with 1269 additions and 75 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.gitignore vendored 100644
View File

@ -0,0 +1,4 @@
.Rproj.user
.Rhistory
.RData
.Ruserdata

569
00-exploration.html 100644
View File

@ -0,0 +1,569 @@
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en"><head>
<meta charset="utf-8">
<meta name="generator" content="quarto-1.0.38">
<meta name="viewport" content="width=device-width, initial-scale=1.0, user-scalable=yes">
<title>Local-IT Bedarfsanalyse</title>
<style>
code{white-space: pre-wrap;}
span.smallcaps{font-variant: small-caps;}
span.underline{text-decoration: underline;}
div.column{display: inline-block; vertical-align: top; width: 50%;}
div.hanging-indent{margin-left: 1.5em; text-indent: -1.5em;}
ul.task-list{list-style: none;}
pre > code.sourceCode { white-space: pre; position: relative; }
pre > code.sourceCode > span { display: inline-block; line-height: 1.25; }
pre > code.sourceCode > span:empty { height: 1.2em; }
.sourceCode { overflow: visible; }
code.sourceCode > span { color: inherit; text-decoration: inherit; }
div.sourceCode { margin: 1em 0; }
pre.sourceCode { margin: 0; }
@media screen {
div.sourceCode { overflow: auto; }
}
@media print {
pre > code.sourceCode { white-space: pre-wrap; }
pre > code.sourceCode > span { text-indent: -5em; padding-left: 5em; }
}
pre.numberSource code
{ counter-reset: source-line 0; }
pre.numberSource code > span
{ position: relative; left: -4em; counter-increment: source-line; }
pre.numberSource code > span > a:first-child::before
{ content: counter(source-line);
position: relative; left: -1em; text-align: right; vertical-align: baseline;
border: none; display: inline-block;
-webkit-touch-callout: none; -webkit-user-select: none;
-khtml-user-select: none; -moz-user-select: none;
-ms-user-select: none; user-select: none;
padding: 0 4px; width: 4em;
color: #aaaaaa;
}
pre.numberSource { margin-left: 3em; border-left: 1px solid #aaaaaa; padding-left: 4px; }
div.sourceCode
{ }
@media screen {
pre > code.sourceCode > span > a:first-child::before { text-decoration: underline; }
}
code span.al { color: #ff0000; font-weight: bold; } /* Alert */
code span.an { color: #60a0b0; font-weight: bold; font-style: italic; } /* Annotation */
code span.at { color: #7d9029; } /* Attribute */
code span.bn { color: #40a070; } /* BaseN */
code span.bu { } /* BuiltIn */
code span.cf { color: #007020; font-weight: bold; } /* ControlFlow */
code span.ch { color: #4070a0; } /* Char */
code span.cn { color: #880000; } /* Constant */
code span.co { color: #60a0b0; font-style: italic; } /* Comment */
code span.cv { color: #60a0b0; font-weight: bold; font-style: italic; } /* CommentVar */
code span.do { color: #ba2121; font-style: italic; } /* Documentation */
code span.dt { color: #902000; } /* DataType */
code span.dv { color: #40a070; } /* DecVal */
code span.er { color: #ff0000; font-weight: bold; } /* Error */
code span.ex { } /* Extension */
code span.fl { color: #40a070; } /* Float */
code span.fu { color: #06287e; } /* Function */
code span.im { } /* Import */
code span.in { color: #60a0b0; font-weight: bold; font-style: italic; } /* Information */
code span.kw { color: #007020; font-weight: bold; } /* Keyword */
code span.op { color: #666666; } /* Operator */
code span.ot { color: #007020; } /* Other */
code span.pp { color: #bc7a00; } /* Preprocessor */
code span.sc { color: #4070a0; } /* SpecialChar */
code span.ss { color: #bb6688; } /* SpecialString */
code span.st { color: #4070a0; } /* String */
code span.va { color: #19177c; } /* Variable */
code span.vs { color: #4070a0; } /* VerbatimString */
code span.wa { color: #60a0b0; font-weight: bold; font-style: italic; } /* Warning */
</style>
<script src="00-exploration_files/libs/clipboard/clipboard.min.js"></script>
<script src="00-exploration_files/libs/quarto-html/quarto.js"></script>
<script src="00-exploration_files/libs/quarto-html/popper.min.js"></script>
<script src="00-exploration_files/libs/quarto-html/tippy.umd.min.js"></script>
<script src="00-exploration_files/libs/quarto-html/anchor.min.js"></script>
<link href="00-exploration_files/libs/quarto-html/tippy.css" rel="stylesheet">
<link href="00-exploration_files/libs/quarto-html/quarto-syntax-highlighting.css" rel="stylesheet" id="quarto-text-highlighting-styles">
<script src="00-exploration_files/libs/bootstrap/bootstrap.min.js"></script>
<link href="00-exploration_files/libs/bootstrap/bootstrap-icons.css" rel="stylesheet">
<link href="00-exploration_files/libs/bootstrap/bootstrap.min.css" rel="stylesheet" id="quarto-bootstrap" data-mode="light">
</head>
<body class="fullcontent">
<div id="quarto-content" class="page-columns page-rows-contents page-layout-article">
<main class="content" id="quarto-document-content">
<header id="title-block-header" class="quarto-title-block default">
<div class="quarto-title">
<h1 class="title">Local-IT Bedarfsanalyse</h1>
</div>
<div class="quarto-title-meta">
</div>
</header>
<section id="analyse" class="level1">
<h1>Analyse</h1>
<details>
<summary>
Datenbereinigung
</summary>
<div class="cell">
<details>
<summary>Show the code</summary>
<div class="sourceCode cell-code" id="cb1"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb1-1"><a href="#cb1-1" aria-hidden="true" tabindex="-1"></a><span class="co"># Datenbereinigung </span></span>
<span id="cb1-2"><a href="#cb1-2" aria-hidden="true" tabindex="-1"></a><span class="fu">library</span>(tidyverse)</span>
<span id="cb1-3"><a href="#cb1-3" aria-hidden="true" tabindex="-1"></a><span class="fu">library</span>(janitor)</span>
<span id="cb1-4"><a href="#cb1-4" aria-hidden="true" tabindex="-1"></a>survey_raw <span class="ot">&lt;-</span> readr<span class="sc">::</span><span class="fu">read_rds</span>(here<span class="sc">::</span><span class="fu">here</span>(<span class="st">"data"</span>, <span class="st">"processed"</span>, <span class="st">"survey_with_labels.rds"</span>))</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
</div>
<div class="cell">
<details>
<summary>Show the code</summary>
<div class="sourceCode cell-code" id="cb2"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb2-1"><a href="#cb2-1" aria-hidden="true" tabindex="-1"></a>survey <span class="ot">&lt;-</span> survey_raw <span class="sc">%&gt;%</span> </span>
<span id="cb2-2"><a href="#cb2-2" aria-hidden="true" tabindex="-1"></a> <span class="fu">mutate</span>(</span>
<span id="cb2-3"><a href="#cb2-3" aria-hidden="true" tabindex="-1"></a> <span class="co"># G1Q06_SQ001 = ehrenamtlich engagiert fix missings</span></span>
<span id="cb2-4"><a href="#cb2-4" aria-hidden="true" tabindex="-1"></a> <span class="at">G1Q06_SQ001 =</span> <span class="fu">case_when</span>(<span class="fu">is.na</span>(G1Q06_SQ001) <span class="sc">&amp;</span> G1Q04 <span class="sc">==</span> <span class="st">"Keine"</span> <span class="sc">~</span> <span class="st">"Ja"</span>,</span>
<span id="cb2-5"><a href="#cb2-5" aria-hidden="true" tabindex="-1"></a> <span class="cn">TRUE</span> <span class="sc">~</span> <span class="fu">as.character</span>(G1Q06_SQ001)</span>
<span id="cb2-6"><a href="#cb2-6" aria-hidden="true" tabindex="-1"></a> ),</span>
<span id="cb2-7"><a href="#cb2-7" aria-hidden="true" tabindex="-1"></a> <span class="co"># G1Q06_SQ002 = hauptamtlich engagiert fix missings</span></span>
<span id="cb2-8"><a href="#cb2-8" aria-hidden="true" tabindex="-1"></a> <span class="at">G1Q06_SQ002 =</span> <span class="fu">case_when</span>(<span class="fu">is.na</span>(G1Q06_SQ002) <span class="sc">&amp;</span> G1Q04 <span class="sc">==</span> <span class="st">"Keine"</span> <span class="sc">~</span> <span class="st">"Nicht gewählt"</span>,</span>
<span id="cb2-9"><a href="#cb2-9" aria-hidden="true" tabindex="-1"></a> <span class="cn">TRUE</span> <span class="sc">~</span> <span class="fu">as.character</span>(G1Q06_SQ002)</span>
<span id="cb2-10"><a href="#cb2-10" aria-hidden="true" tabindex="-1"></a> ),</span>
<span id="cb2-11"><a href="#cb2-11" aria-hidden="true" tabindex="-1"></a> <span class="at">G1Q06_SQ001 =</span> <span class="fu">as_factor</span>(G1Q06_SQ001),</span>
<span id="cb2-12"><a href="#cb2-12" aria-hidden="true" tabindex="-1"></a> <span class="at">G1Q06_SQ002 =</span> <span class="fu">as_factor</span>(G1Q06_SQ002),</span>
<span id="cb2-13"><a href="#cb2-13" aria-hidden="true" tabindex="-1"></a> <span class="co"># generate one variable that combines the multiple choice information about the role of the respondent </span></span>
<span id="cb2-14"><a href="#cb2-14" aria-hidden="true" tabindex="-1"></a> <span class="at">role_respondent =</span> <span class="fu">case_when</span>(</span>
<span id="cb2-15"><a href="#cb2-15" aria-hidden="true" tabindex="-1"></a> <span class="co"># decision: Teilnehmende die beide Rollen angegeben haben werden zu hauptamtlich gezählt (es sind nur 6 und eine binary Variable ist besser geeignet für Gruppenvergleiche)</span></span>
<span id="cb2-16"><a href="#cb2-16" aria-hidden="true" tabindex="-1"></a> G1Q06_SQ001 <span class="sc">==</span> <span class="st">"Ja"</span> <span class="sc">&amp;</span> G1Q06_SQ002 <span class="sc">==</span> <span class="st">"Ja"</span> <span class="sc">~</span> <span class="st">"ehrenamtlich"</span>, </span>
<span id="cb2-17"><a href="#cb2-17" aria-hidden="true" tabindex="-1"></a> G1Q06_SQ001 <span class="sc">==</span> <span class="st">"Ja"</span> <span class="sc">~</span> <span class="st">"ehrenamtlich"</span>,</span>
<span id="cb2-18"><a href="#cb2-18" aria-hidden="true" tabindex="-1"></a> G1Q06_SQ002 <span class="sc">==</span> <span class="st">"Ja"</span> <span class="sc">~</span> <span class="st">"hauptamlich"</span>,</span>
<span id="cb2-19"><a href="#cb2-19" aria-hidden="true" tabindex="-1"></a> <span class="co"># decision: Teilnehmende die keine der Kategorien angegeben haben werden zu NA anstatt eine vierte Kategorie "keine" einzuführen, da das wahrcheinlich nicht von Interesse ist.</span></span>
<span id="cb2-20"><a href="#cb2-20" aria-hidden="true" tabindex="-1"></a> G1Q06_SQ001 <span class="sc">==</span> <span class="st">"Nicht gewählt"</span> <span class="sc">&amp;</span> G1Q06_SQ002 <span class="sc">==</span> <span class="st">"Nicht gewählt"</span> <span class="sc">~</span> <span class="cn">NA_character_</span>,</span>
<span id="cb2-21"><a href="#cb2-21" aria-hidden="true" tabindex="-1"></a> <span class="fu">is.na</span>(G1Q06_SQ001) <span class="sc">&amp;</span> <span class="fu">is.na</span>(G1Q06_SQ002) <span class="sc">~</span> <span class="cn">NA_character_</span>,</span>
<span id="cb2-22"><a href="#cb2-22" aria-hidden="true" tabindex="-1"></a> <span class="cn">TRUE</span> <span class="sc">~</span> <span class="st">"error"</span>)</span>
<span id="cb2-23"><a href="#cb2-23" aria-hidden="true" tabindex="-1"></a> )</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
</div>
<section id="g1q06_sq001-filter" class="level2">
<h2 class="anchored" data-anchor-id="g1q06_sq001-filter">G1Q06_SQ001 filter</h2>
<p>Wir sind daran interessiert zu wissen, ob die Teilnehmenden selbst ehrenamtlich, hauptamtlich oder in beiden Positionen arbeiten. Diese Information findet sich in der Frage <code>G1Q06</code>: “Welche Rolle(n) haben sie in der Organisation. Die Filterführung des Fragebogens hat allerdings dazu geführt, dass Personen die angegeben haben, dass in ihrer Organisation keine hauptamtlichen Mitarbeiten vorhanden, sind die <code>G1Q06</code> Frage nicht bekommen haben, da schon klar ist, dass sie dann ehrenamtlich sind. Dadurch haben sie momentan Missings auf den Variablen die zur <code>G1Q06</code> Frage gehören. Die logische Verbindung zwischen <code>G1Q04</code> und <code>G1Q06</code> wollen wir also im Nachhinein recoden.</p>
<div class="cell" data-inlcude="false">
<details>
<summary>Show the code</summary>
<div class="sourceCode cell-code" id="cb3"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb3-1"><a href="#cb3-1" aria-hidden="true" tabindex="-1"></a>survey_raw <span class="sc">%&gt;%</span> <span class="fu">tabyl</span>(G1Q04, G1Q06_SQ001)</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
<div class="cell-output cell-output-stdout">
<pre><code> G1Q04 Ja Nicht gewählt NA_
Keine 0 0 36
&lt; 5 10 22 0
5-10 9 16 0
11-50 2 29 0
&gt; 50 5 21 0
&lt;NA&gt; 0 8 26</code></pre>
</div>
<details>
<summary>Show the code</summary>
<div class="sourceCode cell-code" id="cb5"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb5-1"><a href="#cb5-1" aria-hidden="true" tabindex="-1"></a><span class="co">#TODO wurde der Filter auch für G1Q05 gesetzt? Sieht nicht so aus ()</span></span>
<span id="cb5-2"><a href="#cb5-2" aria-hidden="true" tabindex="-1"></a>survey_raw <span class="sc">%&gt;%</span> <span class="fu">tabyl</span>(G1Q05, G1Q06_SQ002)</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
<div class="cell-output cell-output-stdout">
<pre><code> G1Q05 Ja Nicht gewählt NA_
Keine 7 0 1
&lt; 5 9 0 5
5 - 10 10 8 15
11 - 50 26 4 10
&gt; 50 41 8 5
&lt;NA&gt; 1 8 26</code></pre>
</div>
</div>
<p>36 Personen haben angegeben, dass sich keine Hauptamtlichen in der Org. befinden -&gt; die wollen wir recodieren</p>
<div class="cell">
<details>
<summary>Show the code</summary>
<div class="sourceCode cell-code" id="cb7"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb7-1"><a href="#cb7-1" aria-hidden="true" tabindex="-1"></a>survey <span class="sc">%&gt;%</span> <span class="fu">tabyl</span>(G1Q06_SQ001, G1Q06_SQ002)</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
<div class="cell-output cell-output-stdout">
<pre><code> G1Q06_SQ001 Ja Nicht gewählt NA_
Ja 6 56 0
Nicht gewählt 88 8 0
&lt;NA&gt; 0 0 26</code></pre>
</div>
</div>
<div class="cell">
<details>
<summary>Show the code</summary>
<div class="sourceCode cell-code" id="cb9"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb9-1"><a href="#cb9-1" aria-hidden="true" tabindex="-1"></a>testthat<span class="sc">::</span><span class="fu">expect_equal</span>(survey <span class="sc">%&gt;%</span> <span class="fu">filter</span>(role_respondent <span class="sc">==</span> <span class="st">"error"</span>) <span class="sc">%&gt;%</span> <span class="fu">nrow</span>(), <span class="dv">0</span>)</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
</div>
</section></details>
</section>
<section id="stichprobe" class="level1">
<h1>Stichprobe</h1>
<div class="cell">
<details>
<summary>Show the code</summary>
<div class="sourceCode cell-code" id="cb10"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb10-1"><a href="#cb10-1" aria-hidden="true" tabindex="-1"></a><span class="co"># </span><span class="al">TODO</span><span class="co">: Analyse der Missings (wie weit sind Fragebögen ausgefuellt? schmeißen wir sie alle weg?)</span></span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
</div>
<section id="rolle-der-befragten-personen" class="level2">
<h2 class="anchored" data-anchor-id="rolle-der-befragten-personen">Rolle der befragten Personen</h2>
<div class="cell">
<details>
<summary>Show the code</summary>
<div class="sourceCode cell-code" id="cb11"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb11-1"><a href="#cb11-1" aria-hidden="true" tabindex="-1"></a>survey <span class="sc">%&gt;%</span> <span class="fu">count</span>(role_respondent)</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
<div class="cell-output cell-output-stdout">
<pre><code> role_respondent n
1 ehrenamtlich 62
2 hauptamlich 88
3 &lt;NA&gt; 34</code></pre>
</div>
</div>
</section>
<section id="anzahl-hauptamtlicher-und-ehrenamtlicher" class="level2">
<h2 class="anchored" data-anchor-id="anzahl-hauptamtlicher-und-ehrenamtlicher">Anzahl Hauptamtlicher und Ehrenamtlicher</h2>
<div class="cell">
<details>
<summary>Show the code</summary>
<div class="sourceCode cell-code" id="cb13"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb13-1"><a href="#cb13-1" aria-hidden="true" tabindex="-1"></a><span class="co"># facet wrap plot: beide Fragen haben die gleiche Skala</span></span>
<span id="cb13-2"><a href="#cb13-2" aria-hidden="true" tabindex="-1"></a>tmp_long <span class="ot">&lt;-</span> survey <span class="sc">%&gt;%</span> </span>
<span id="cb13-3"><a href="#cb13-3" aria-hidden="true" tabindex="-1"></a> <span class="fu">select</span>(id, G1Q05, G1Q04) <span class="sc">%&gt;%</span> </span>
<span id="cb13-4"><a href="#cb13-4" aria-hidden="true" tabindex="-1"></a> <span class="fu">pivot_longer</span>(<span class="sc">-</span>id, <span class="at">names_to =</span> <span class="st">"var"</span>, <span class="at">values_to =</span> <span class="st">"value"</span>)</span>
<span id="cb13-5"><a href="#cb13-5" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb13-6"><a href="#cb13-6" aria-hidden="true" tabindex="-1"></a>tmp_long <span class="sc">%&gt;%</span> </span>
<span id="cb13-7"><a href="#cb13-7" aria-hidden="true" tabindex="-1"></a> <span class="fu">ggplot</span>(<span class="fu">aes</span>(<span class="at">x =</span> value)) <span class="sc">+</span></span>
<span id="cb13-8"><a href="#cb13-8" aria-hidden="true" tabindex="-1"></a> <span class="fu">geom_bar</span>()<span class="sc">+</span></span>
<span id="cb13-9"><a href="#cb13-9" aria-hidden="true" tabindex="-1"></a> <span class="fu">facet_wrap</span>(<span class="sc">~</span>var)<span class="sc">+</span></span>
<span id="cb13-10"><a href="#cb13-10" aria-hidden="true" tabindex="-1"></a> <span class="fu">labs</span>(<span class="at">caption =</span> <span class="st">"G1Q04 Anzahl Hauptamtlicher</span><span class="sc">\n</span><span class="st">G1Q05 Anzahl Ehrenamtlicher"</span>, </span>
<span id="cb13-11"><a href="#cb13-11" aria-hidden="true" tabindex="-1"></a> <span class="at">title =</span> <span class="st">"Anzahl Hauptamtlicher (G1Q04) </span><span class="sc">\n</span><span class="st"> und Anzahl Ehrenamtlicher (G1Q05)"</span>)<span class="sc">+</span></span>
<span id="cb13-12"><a href="#cb13-12" aria-hidden="true" tabindex="-1"></a> <span class="fu">coord_flip</span>()</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
<div class="cell-output-display">
<p><img src="00-exploration_files/figure-html/unnamed-chunk-5-1.png" class="img-fluid" width="672"></p>
</div>
</div>
<div class="cell">
<details>
<summary>Show the code</summary>
<div class="sourceCode cell-code" id="cb14"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb14-1"><a href="#cb14-1" aria-hidden="true" tabindex="-1"></a>create_dot_plot <span class="ot">&lt;-</span> <span class="cf">function</span>(data, x_var, y_var) {</span>
<span id="cb14-2"><a href="#cb14-2" aria-hidden="true" tabindex="-1"></a> tmp <span class="ot">&lt;-</span> data <span class="sc">%&gt;%</span> </span>
<span id="cb14-3"><a href="#cb14-3" aria-hidden="true" tabindex="-1"></a> <span class="fu">count</span>({{ x_var }}, {{ y_var }}) <span class="sc">%&gt;%</span> </span>
<span id="cb14-4"><a href="#cb14-4" aria-hidden="true" tabindex="-1"></a> <span class="fu">drop_na</span>({{ x_var }}, {{ y_var }})</span>
<span id="cb14-5"><a href="#cb14-5" aria-hidden="true" tabindex="-1"></a> </span>
<span id="cb14-6"><a href="#cb14-6" aria-hidden="true" tabindex="-1"></a> x_var_pos <span class="ot">&lt;-</span> <span class="fu">which</span>(<span class="fu">attributes</span>(survey)<span class="sc">$</span>names <span class="sc">==</span> <span class="fu">enexpr</span>(x_var))</span>
<span id="cb14-7"><a href="#cb14-7" aria-hidden="true" tabindex="-1"></a> x_var_lab <span class="ot">&lt;-</span> <span class="fu">attributes</span>(survey)<span class="sc">$</span>variable.labels[x_var_pos] <span class="sc">%&gt;%</span> </span>
<span id="cb14-8"><a href="#cb14-8" aria-hidden="true" tabindex="-1"></a> <span class="fu">str_replace</span>(<span class="at">pattern =</span> <span class="st">"</span><span class="sc">\\</span><span class="st">?.+$"</span>, <span class="at">replacement =</span> <span class="st">"?"</span>) </span>
<span id="cb14-9"><a href="#cb14-9" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb14-10"><a href="#cb14-10" aria-hidden="true" tabindex="-1"></a> y_var_pos <span class="ot">&lt;-</span> <span class="fu">which</span>(<span class="fu">attributes</span>(survey)<span class="sc">$</span>names <span class="sc">==</span> <span class="fu">enexpr</span>(y_var))</span>
<span id="cb14-11"><a href="#cb14-11" aria-hidden="true" tabindex="-1"></a> y_var_lab <span class="ot">&lt;-</span> <span class="fu">attributes</span>(survey)<span class="sc">$</span>variable.labels[y_var_pos] <span class="sc">%&gt;%</span> </span>
<span id="cb14-12"><a href="#cb14-12" aria-hidden="true" tabindex="-1"></a> <span class="fu">str_replace</span>(<span class="at">pattern =</span> <span class="st">"</span><span class="sc">\\</span><span class="st">?.+$"</span>, <span class="at">replacement =</span> <span class="st">"?"</span>) </span>
<span id="cb14-13"><a href="#cb14-13" aria-hidden="true" tabindex="-1"></a> </span>
<span id="cb14-14"><a href="#cb14-14" aria-hidden="true" tabindex="-1"></a> <span class="co"># plot</span></span>
<span id="cb14-15"><a href="#cb14-15" aria-hidden="true" tabindex="-1"></a> <span class="fu">ggplot</span>(tmp) <span class="sc">+</span></span>
<span id="cb14-16"><a href="#cb14-16" aria-hidden="true" tabindex="-1"></a> <span class="fu">aes</span>(<span class="at">x =</span> {{ x_var }},</span>
<span id="cb14-17"><a href="#cb14-17" aria-hidden="true" tabindex="-1"></a> <span class="at">y =</span> {{ y_var }},</span>
<span id="cb14-18"><a href="#cb14-18" aria-hidden="true" tabindex="-1"></a> <span class="at">size =</span> n,</span>
<span id="cb14-19"><a href="#cb14-19" aria-hidden="true" tabindex="-1"></a> <span class="at">label =</span> n) <span class="sc">+</span></span>
<span id="cb14-20"><a href="#cb14-20" aria-hidden="true" tabindex="-1"></a> <span class="fu">geom_point</span>() <span class="sc">+</span></span>
<span id="cb14-21"><a href="#cb14-21" aria-hidden="true" tabindex="-1"></a> <span class="fu">labs</span>(<span class="at">caption =</span> glue<span class="sc">::</span><span class="fu">glue</span>(<span class="st">"{enexpr(x_var)}: {x_var_lab} </span><span class="sc">\n</span><span class="st"> {enexpr(y_var)}: {y_var_lab}"</span>)) <span class="sc">+</span></span>
<span id="cb14-22"><a href="#cb14-22" aria-hidden="true" tabindex="-1"></a> <span class="fu">scale_fill_viridis_c</span>() <span class="sc">+</span></span>
<span id="cb14-23"><a href="#cb14-23" aria-hidden="true" tabindex="-1"></a> <span class="fu">theme_minimal</span>()</span>
<span id="cb14-24"><a href="#cb14-24" aria-hidden="true" tabindex="-1"></a>}</span>
<span id="cb14-25"><a href="#cb14-25" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb14-26"><a href="#cb14-26" aria-hidden="true" tabindex="-1"></a><span class="fu">create_dot_plot</span>(survey, G1Q04, G1Q05)</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
<div class="cell-output-display">
<p><img src="00-exploration_files/figure-html/unnamed-chunk-6-1.png" class="img-fluid" width="672"></p>
</div>
</div>
</section>
</section>
<section id="hypothesen" class="level1">
<h1>Hypothesen</h1>
<ol type="1">
<li>Grundsätzlich</li>
</ol>
<p>Gibt es signifikante Zusammenhänge zwischen - G1Q04 Anzahl Hauptamtlicher - G1Q05 Anzahl Ehrenamtlicher - G5Q04 Bereich (Sport/ Bidung etc) Und allen anderen Fragen.</p>
<div class="cell">
<details>
<summary>Show the code</summary>
<div class="sourceCode cell-code" id="cb15"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb15-1"><a href="#cb15-1" aria-hidden="true" tabindex="-1"></a>tmp <span class="ot">&lt;-</span> survey_raw <span class="sc">%&gt;%</span> </span>
<span id="cb15-2"><a href="#cb15-2" aria-hidden="true" tabindex="-1"></a> <span class="fu">count</span>(G1Q05, G1Q04) <span class="sc">%&gt;%</span> </span>
<span id="cb15-3"><a href="#cb15-3" aria-hidden="true" tabindex="-1"></a> <span class="fu">drop_na</span>(G1Q05, G1Q04)</span>
<span id="cb15-4"><a href="#cb15-4" aria-hidden="true" tabindex="-1"></a></span>
<span id="cb15-5"><a href="#cb15-5" aria-hidden="true" tabindex="-1"></a><span class="fu">ggplot</span>(tmp) <span class="sc">+</span></span>
<span id="cb15-6"><a href="#cb15-6" aria-hidden="true" tabindex="-1"></a> <span class="fu">aes</span>(<span class="at">x =</span> G1Q05, <span class="at">y =</span> G1Q04, <span class="at">fill =</span> n) <span class="sc">+</span></span>
<span id="cb15-7"><a href="#cb15-7" aria-hidden="true" tabindex="-1"></a> <span class="fu">geom_tile</span>(<span class="at">size =</span> <span class="fl">1.2</span>) <span class="sc">+</span></span>
<span id="cb15-8"><a href="#cb15-8" aria-hidden="true" tabindex="-1"></a><span class="fu">labs</span>(<span class="at">y =</span> <span class="st">"Anzahl Hauptamtlicher"</span>, <span class="at">x =</span> <span class="st">"Anzahl Ehrenamtlicher"</span>) <span class="sc">+</span> </span>
<span id="cb15-9"><a href="#cb15-9" aria-hidden="true" tabindex="-1"></a> <span class="fu">scale_fill_viridis_c</span>()<span class="sc">+</span></span>
<span id="cb15-10"><a href="#cb15-10" aria-hidden="true" tabindex="-1"></a> <span class="fu">theme_minimal</span>()</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
<div class="cell-output-display">
<p><img src="00-exploration_files/figure-html/unnamed-chunk-7-1.png" class="img-fluid" width="672"></p>
</div>
</div>
<div class="cell">
<details>
<summary>Show the code</summary>
<div class="sourceCode cell-code" id="cb16"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb16-1"><a href="#cb16-1" aria-hidden="true" tabindex="-1"></a><span class="fu">ggplot</span>(tmp) <span class="sc">+</span></span>
<span id="cb16-2"><a href="#cb16-2" aria-hidden="true" tabindex="-1"></a> <span class="fu">aes</span>(<span class="at">x =</span> G1Q05, <span class="at">y =</span> G1Q04, <span class="at">size =</span> n) <span class="sc">+</span></span>
<span id="cb16-3"><a href="#cb16-3" aria-hidden="true" tabindex="-1"></a> <span class="fu">geom_point</span>() <span class="sc">+</span></span>
<span id="cb16-4"><a href="#cb16-4" aria-hidden="true" tabindex="-1"></a><span class="fu">labs</span>(<span class="at">y =</span> <span class="st">"Anzahl Hauptamtlicher"</span>, <span class="at">x =</span> <span class="st">"Anzahl Ehrenamtlicher"</span>) <span class="sc">+</span> </span>
<span id="cb16-5"><a href="#cb16-5" aria-hidden="true" tabindex="-1"></a> <span class="fu">scale_fill_viridis_c</span>()<span class="sc">+</span></span>
<span id="cb16-6"><a href="#cb16-6" aria-hidden="true" tabindex="-1"></a> <span class="fu">theme_minimal</span>()</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
<div class="cell-output-display">
<p><img src="00-exploration_files/figure-html/unnamed-chunk-8-1.png" class="img-fluid" width="672"></p>
</div>
<details>
<summary>Show the code</summary>
<div class="sourceCode cell-code" id="cb17"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb17-1"><a href="#cb17-1" aria-hidden="true" tabindex="-1"></a>p <span class="ot">&lt;-</span> survey_raw <span class="sc">%&gt;%</span></span>
<span id="cb17-2"><a href="#cb17-2" aria-hidden="true" tabindex="-1"></a> <span class="fu">count</span>(G4Q02, G1Q04) <span class="sc">%&gt;%</span></span>
<span id="cb17-3"><a href="#cb17-3" aria-hidden="true" tabindex="-1"></a> <span class="fu">drop_na</span>() <span class="sc">%&gt;%</span> </span>
<span id="cb17-4"><a href="#cb17-4" aria-hidden="true" tabindex="-1"></a> <span class="fu">ggplot</span>() <span class="sc">+</span></span>
<span id="cb17-5"><a href="#cb17-5" aria-hidden="true" tabindex="-1"></a> <span class="fu">aes</span>(<span class="at">x =</span> G4Q02, <span class="at">y =</span> G1Q04, <span class="at">size =</span> n) <span class="sc">+</span></span>
<span id="cb17-6"><a href="#cb17-6" aria-hidden="true" tabindex="-1"></a> <span class="fu">geom_point</span>() <span class="sc">+</span></span>
<span id="cb17-7"><a href="#cb17-7" aria-hidden="true" tabindex="-1"></a> <span class="fu">labs</span>(<span class="at">y =</span> <span class="st">"Anzahl Hauptamtlicher"</span>, <span class="at">x =</span> <span class="st">"Nutzung"</span>) <span class="sc">+</span></span>
<span id="cb17-8"><a href="#cb17-8" aria-hidden="true" tabindex="-1"></a> <span class="fu">coord_flip</span>()<span class="sc">+</span></span>
<span id="cb17-9"><a href="#cb17-9" aria-hidden="true" tabindex="-1"></a> <span class="fu">theme_light</span>() </span>
<span id="cb17-10"><a href="#cb17-10" aria-hidden="true" tabindex="-1"></a>p</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
<div class="cell-output-display">
<p><img src="00-exploration_files/figure-html/unnamed-chunk-8-2.png" class="img-fluid" width="672"></p>
</div>
</div>
<div class="cell">
<details>
<summary>Show the code</summary>
<div class="sourceCode cell-code" id="cb18"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb18-1"><a href="#cb18-1" aria-hidden="true" tabindex="-1"></a>survey_raw <span class="sc">%&gt;%</span> </span>
<span id="cb18-2"><a href="#cb18-2" aria-hidden="true" tabindex="-1"></a> <span class="fu">select</span>(G4Q02, G1Q04) <span class="sc">%&gt;%</span> </span>
<span id="cb18-3"><a href="#cb18-3" aria-hidden="true" tabindex="-1"></a> <span class="fu">drop_na</span>() <span class="sc">%&gt;%</span> </span>
<span id="cb18-4"><a href="#cb18-4" aria-hidden="true" tabindex="-1"></a> janitor<span class="sc">::</span><span class="fu">tabyl</span>(G4Q02, G1Q04) <span class="sc">%&gt;%</span> </span>
<span id="cb18-5"><a href="#cb18-5" aria-hidden="true" tabindex="-1"></a> janitor<span class="sc">::</span><span class="fu">adorn_totals</span>() <span class="sc">%&gt;%</span> </span>
<span id="cb18-6"><a href="#cb18-6" aria-hidden="true" tabindex="-1"></a> janitor<span class="sc">::</span><span class="fu">adorn_percentages</span>() <span class="sc">%&gt;%</span> </span>
<span id="cb18-7"><a href="#cb18-7" aria-hidden="true" tabindex="-1"></a> janitor<span class="sc">::</span><span class="fu">adorn_pct_formatting</span>()</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
<div class="cell-output cell-output-stdout">
<pre><code> G4Q02 Keine &lt; 5 5-10 11-50
nutzen wir in unserer Organisation aktuell 40.5% 21.4% 11.9% 11.9%
haben wir mal genutzt oder ausprobiert 25.0% 18.8% 18.8% 31.2%
nutzen wir nicht in unserer Organisation 15.8% 28.9% 21.1% 18.4%
ich weiß nicht ob wir sie nutzen oder genutzt haben 6.2% 18.8% 6.2% 37.5%
ich kenne den Begriff nicht 0.0% 33.3% 33.3% 33.3%
Total 24.3% 23.5% 15.7% 20.9%
&gt; 50
14.3%
6.2%
15.8%
31.2%
0.0%
15.7%</code></pre>
</div>
</div>
<p>Erklärungsansaetze für Ergebnisse: - Sampling Bias in der Umfrage -</p>
<section id="anzahl-ehrenamtliche" class="level2">
<h2 class="anchored" data-anchor-id="anzahl-ehrenamtliche">Anzahl ehrenamtliche</h2>
<div class="cell">
<details>
<summary>Show the code</summary>
<div class="sourceCode cell-code" id="cb20"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb20-1"><a href="#cb20-1" aria-hidden="true" tabindex="-1"></a>survey_raw <span class="sc">%&gt;%</span></span>
<span id="cb20-2"><a href="#cb20-2" aria-hidden="true" tabindex="-1"></a> <span class="fu">count</span>(G4Q02) <span class="sc">%&gt;%</span></span>
<span id="cb20-3"><a href="#cb20-3" aria-hidden="true" tabindex="-1"></a> <span class="fu">drop_na</span>() <span class="sc">%&gt;%</span> </span>
<span id="cb20-4"><a href="#cb20-4" aria-hidden="true" tabindex="-1"></a> <span class="fu">ggplot</span>(<span class="fu">aes</span>(<span class="at">x =</span> G4Q02, <span class="at">y =</span> n))<span class="sc">+</span></span>
<span id="cb20-5"><a href="#cb20-5" aria-hidden="true" tabindex="-1"></a> <span class="fu">geom_col</span>()<span class="sc">+</span></span>
<span id="cb20-6"><a href="#cb20-6" aria-hidden="true" tabindex="-1"></a> <span class="fu">coord_flip</span>()</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
<div class="cell-output-display">
<p><img src="00-exploration_files/figure-html/unnamed-chunk-10-1.png" class="img-fluid" width="672"></p>
</div>
<details>
<summary>Show the code</summary>
<div class="sourceCode cell-code" id="cb21"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb21-1"><a href="#cb21-1" aria-hidden="true" tabindex="-1"></a>survey_raw <span class="sc">%&gt;%</span></span>
<span id="cb21-2"><a href="#cb21-2" aria-hidden="true" tabindex="-1"></a> <span class="fu">count</span>(G4Q02, G1Q05) <span class="sc">%&gt;%</span></span>
<span id="cb21-3"><a href="#cb21-3" aria-hidden="true" tabindex="-1"></a> <span class="fu">drop_na</span>() <span class="sc">%&gt;%</span> </span>
<span id="cb21-4"><a href="#cb21-4" aria-hidden="true" tabindex="-1"></a> <span class="fu">ggplot</span>() <span class="sc">+</span></span>
<span id="cb21-5"><a href="#cb21-5" aria-hidden="true" tabindex="-1"></a> <span class="fu">aes</span>(<span class="at">x =</span> G4Q02, <span class="at">y =</span> G1Q05, <span class="at">size =</span> n) <span class="sc">+</span></span>
<span id="cb21-6"><a href="#cb21-6" aria-hidden="true" tabindex="-1"></a> <span class="fu">geom_point</span>() <span class="sc">+</span></span>
<span id="cb21-7"><a href="#cb21-7" aria-hidden="true" tabindex="-1"></a> <span class="fu">labs</span>(<span class="at">y =</span> <span class="st">"Anzahl Ehrenamtlicher"</span>, <span class="at">x =</span> <span class="st">"Nutzung"</span>) <span class="sc">+</span></span>
<span id="cb21-8"><a href="#cb21-8" aria-hidden="true" tabindex="-1"></a> <span class="fu">coord_flip</span>()<span class="sc">+</span></span>
<span id="cb21-9"><a href="#cb21-9" aria-hidden="true" tabindex="-1"></a> <span class="fu">theme_minimal</span>()</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
<div class="cell-output-display">
<p><img src="00-exploration_files/figure-html/unnamed-chunk-10-2.png" class="img-fluid" width="672"></p>
</div>
<details>
<summary>Show the code</summary>
<div class="sourceCode cell-code" id="cb22"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb22-1"><a href="#cb22-1" aria-hidden="true" tabindex="-1"></a>survey_raw <span class="sc">%&gt;%</span> </span>
<span id="cb22-2"><a href="#cb22-2" aria-hidden="true" tabindex="-1"></a> <span class="fu">select</span>(G4Q02, G1Q05) <span class="sc">%&gt;%</span> </span>
<span id="cb22-3"><a href="#cb22-3" aria-hidden="true" tabindex="-1"></a> <span class="fu">drop_na</span>() <span class="sc">%&gt;%</span> </span>
<span id="cb22-4"><a href="#cb22-4" aria-hidden="true" tabindex="-1"></a> janitor<span class="sc">::</span><span class="fu">tabyl</span>(G4Q02, G1Q05) <span class="sc">%&gt;%</span> </span>
<span id="cb22-5"><a href="#cb22-5" aria-hidden="true" tabindex="-1"></a> janitor<span class="sc">::</span><span class="fu">adorn_totals</span>() <span class="sc">%&gt;%</span> </span>
<span id="cb22-6"><a href="#cb22-6" aria-hidden="true" tabindex="-1"></a> janitor<span class="sc">::</span><span class="fu">adorn_percentages</span>(<span class="at">denominator =</span> <span class="st">"col"</span>) <span class="sc">%&gt;%</span> </span>
<span id="cb22-7"><a href="#cb22-7" aria-hidden="true" tabindex="-1"></a> janitor<span class="sc">::</span><span class="fu">adorn_pct_formatting</span>()</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
<div class="cell-output cell-output-stdout">
<pre><code> G4Q02 Keine &lt; 5 5 - 10
nutzen wir in unserer Organisation aktuell 33.3% 45.5% 37.0%
haben wir mal genutzt oder ausprobiert 0.0% 0.0% 11.1%
nutzen wir nicht in unserer Organisation 50.0% 36.4% 44.4%
ich weiß nicht ob wir sie nutzen oder genutzt haben 16.7% 18.2% 7.4%
ich kenne den Begriff nicht 0.0% 0.0% 0.0%
Total 100.0% 100.0% 100.0%
11 - 50 &gt; 50
40.7% 30.2%
22.2% 16.3%
25.9% 27.9%
7.4% 20.9%
3.7% 4.7%
100.0% 100.0%</code></pre>
</div>
</div>
<p>Chi-Square Test, um zu sehen, ob zw. den zwei kategorialen Variablen ein signifikanter Zusammenhang besteht:</p>
<div class="cell">
<details>
<summary>Show the code</summary>
<div class="sourceCode cell-code" id="cb24"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb24-1"><a href="#cb24-1" aria-hidden="true" tabindex="-1"></a><span class="fu">chisq.test</span>(survey<span class="sc">$</span>G4Q02, survey<span class="sc">$</span>G1Q05)</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
</details>
<div class="cell-output cell-output-stderr">
<pre><code>Warning in stats::chisq.test(x, y, ...): Chi-squared approximation may be
incorrect</code></pre>
</div>
<div class="cell-output cell-output-stdout">
<pre><code>
Pearson's Chi-squared test
data: survey$G4Q02 and survey$G1Q05
X-squared = 12.462, df = 16, p-value = 0.7116</code></pre>
</div>
</div>
<p>Werden Cluster sichtbar?</p>
<ol start="2" type="1">
<li>Für welche Organisationen ist SKA interessant? Hypothesen:</li>
<li>Große Organisationen mit vielen Hauptamtlichen und eigenen IT Abteilungen haben kein Interessen an Open Source Lösungen sondern entscheiden sich für bekannte, teure propritäre Tools</li>
<li>Organisationen mit eigenen IT Abteilungen haben Wissen und Kompetenz selbst Open Source Lösungen aufzusetzen (also Zugang) und nutzen sie somit häufiger.</li>
</ol>
<p>G2Q02 Wer kümmert sich um eure digitale Infrastruktur G1Q04 Wie viele hauptamtlich Mitarbeitende hat deine Organisation? In Korrelation zu Bisherige Erfahrung mit Open Source (G4Q02) oder der Wichtigkeit bestimmter Eigenschaften des Tools (G03Q03 und G03Q03b)</p>
</section>
</section>
</main>
<!-- /main column -->
<script id="quarto-html-after-body" type="application/javascript">
window.document.addEventListener("DOMContentLoaded", function (event) {
const toggleBodyColorMode = (bsSheetEl) => {
const mode = bsSheetEl.getAttribute("data-mode");
const bodyEl = window.document.querySelector("body");
if (mode === "dark") {
bodyEl.classList.add("quarto-dark");
bodyEl.classList.remove("quarto-light");
} else {
bodyEl.classList.add("quarto-light");
bodyEl.classList.remove("quarto-dark");
}
}
const toggleBodyColorPrimary = () => {
const bsSheetEl = window.document.querySelector("link#quarto-bootstrap");
if (bsSheetEl) {
toggleBodyColorMode(bsSheetEl);
}
}
toggleBodyColorPrimary();
const icon = "";
const anchorJS = new window.AnchorJS();
anchorJS.options = {
placement: 'right',
icon: icon
};
anchorJS.add('.anchored');
const clipboard = new window.ClipboardJS('.code-copy-button', {
target: function(trigger) {
return trigger.previousElementSibling;
}
});
clipboard.on('success', function(e) {
// button target
const button = e.trigger;
// don't keep focus
button.blur();
// flash "checked"
button.classList.add('code-copy-button-checked');
var currentTitle = button.getAttribute("title");
button.setAttribute("title", "Copied!");
setTimeout(function() {
button.setAttribute("title", currentTitle);
button.classList.remove('code-copy-button-checked');
}, 1000);
// clear code selection
e.clearSelection();
});
function tippyHover(el, contentFn) {
const config = {
allowHTML: true,
content: contentFn,
maxWidth: 500,
delay: 100,
arrow: false,
appendTo: function(el) {
return el.parentElement;
},
interactive: true,
interactiveBorder: 10,
theme: 'quarto',
placement: 'bottom-start'
};
window.tippy(el, config);
}
const noterefs = window.document.querySelectorAll('a[role="doc-noteref"]');
for (var i=0; i<noterefs.length; i++) {
const ref = noterefs[i];
tippyHover(ref, function() {
let href = ref.getAttribute('href');
try { href = new URL(href).hash; } catch {}
const id = href.replace(/^#\/?/, "");
const note = window.document.getElementById(id);
return note.innerHTML;
});
}
var bibliorefs = window.document.querySelectorAll('a[role="doc-biblioref"]');
for (var i=0; i<bibliorefs.length; i++) {
const ref = bibliorefs[i];
const cites = ref.parentNode.getAttribute('data-cites').split(' ');
tippyHover(ref, function() {
var popup = window.document.createElement('div');
cites.forEach(function(cite) {
var citeDiv = window.document.createElement('div');
citeDiv.classList.add('hanging-indent');
citeDiv.classList.add('csl-entry');
var biblioDiv = window.document.getElementById('ref-' + cite);
if (biblioDiv) {
citeDiv.innerHTML = biblioDiv.innerHTML;
}
popup.appendChild(citeDiv);
});
return popup.innerHTML;
});
}
});
</script>
</div> <!-- /content -->
</body></html>

237
00-exploration.qmd 100644
View File

@ -0,0 +1,237 @@
---
title: "Local-IT Bedarfsanalyse"
format:
html:
code-fold: true
code-summary: "Show the code"
---
# Analyse
<details>
<summary>Datenbereinigung</summary>
```{r import data, message=FALSE}
# Datenbereinigung
library(tidyverse)
library(janitor)
survey_raw <- readr::read_rds(here::here("data", "processed", "survey_with_labels.rds"))
```
```{r wrangle data}
survey <- survey_raw %>%
mutate(
# G1Q06_SQ001 = ehrenamtlich engagiert fix missings
G1Q06_SQ001 = case_when(is.na(G1Q06_SQ001) & G1Q04 == "Keine" ~ "Ja",
TRUE ~ as.character(G1Q06_SQ001)
),
# G1Q06_SQ002 = hauptamtlich engagiert fix missings
G1Q06_SQ002 = case_when(is.na(G1Q06_SQ002) & G1Q04 == "Keine" ~ "Nicht gewählt",
TRUE ~ as.character(G1Q06_SQ002)
),
G1Q06_SQ001 = as_factor(G1Q06_SQ001),
G1Q06_SQ002 = as_factor(G1Q06_SQ002),
# generate one variable that combines the multiple choice information about the role of the respondent
role_respondent = case_when(
# decision: Teilnehmende die beide Rollen angegeben haben werden zu hauptamtlich gezählt (es sind nur 6 und eine binary Variable ist besser geeignet für Gruppenvergleiche)
G1Q06_SQ001 == "Ja" & G1Q06_SQ002 == "Ja" ~ "ehrenamtlich",
G1Q06_SQ001 == "Ja" ~ "ehrenamtlich",
G1Q06_SQ002 == "Ja" ~ "hauptamlich",
# decision: Teilnehmende die keine der Kategorien angegeben haben werden zu NA anstatt eine vierte Kategorie "keine" einzuführen, da das wahrcheinlich nicht von Interesse ist.
G1Q06_SQ001 == "Nicht gewählt" & G1Q06_SQ002 == "Nicht gewählt" ~ NA_character_,
is.na(G1Q06_SQ001) & is.na(G1Q06_SQ002) ~ NA_character_,
TRUE ~ "error")
)
```
## G1Q06_SQ001 filter
Wir sind daran interessiert zu wissen, ob die Teilnehmenden selbst ehrenamtlich, hauptamtlich oder in beiden Positionen arbeiten. Diese Information findet sich in der Frage `G1Q06`: "Welche Rolle(n) haben sie in der Organisation. Die Filterführung des Fragebogens hat allerdings dazu geführt, dass Personen die angegeben haben, dass in ihrer Organisation keine hauptamtlichen Mitarbeiten vorhanden, sind die `G1Q06` Frage nicht bekommen haben, da schon klar ist, dass sie dann ehrenamtlich sind. Dadurch haben sie momentan Missings auf den Variablen die zur `G1Q06` Frage gehören. Die logische Verbindung zwischen `G1Q04` und `G1Q06` wollen wir also im Nachhinein recoden.
```{r explore G1Q06_SQ001 filter, inlcude = FALSE}
survey_raw %>% tabyl(G1Q04, G1Q06_SQ001)
#TODO wurde der Filter auch für G1Q05 gesetzt? Sieht nicht so aus ()
survey_raw %>% tabyl(G1Q05, G1Q06_SQ002)
```
36 Personen haben angegeben, dass sich keine Hauptamtlichen in der Org. befinden -> die wollen wir recodieren
```{r}
survey %>% tabyl(G1Q06_SQ001, G1Q06_SQ002)
```
```{r}
testthat::expect_equal(survey %>% filter(role_respondent == "error") %>% nrow(), 0)
```
</details>
# Stichprobe
```{r}
# TODO: Analyse der Missings (wie weit sind Fragebögen ausgefuellt? schmeißen wir sie alle weg?)
```
## Rolle der befragten Personen
```{r}
survey %>% count(role_respondent)
```
## Anzahl Hauptamtlicher und Ehrenamtlicher
```{r}
# facet wrap plot: beide Fragen haben die gleiche Skala
tmp_long <- survey %>%
select(id, G1Q05, G1Q04) %>%
pivot_longer(-id, names_to = "var", values_to = "value")
tmp_long %>%
ggplot(aes(x = value)) +
geom_bar()+
facet_wrap(~var)+
labs(caption = "G1Q04 Anzahl Hauptamtlicher\nG1Q05 Anzahl Ehrenamtlicher",
title = "Anzahl Hauptamtlicher (G1Q04) \n und Anzahl Ehrenamtlicher (G1Q05)")+
coord_flip()
```
```{r}
create_dot_plot <- function(data, x_var, y_var) {
tmp <- data %>%
count({{ x_var }}, {{ y_var }}) %>%
drop_na({{ x_var }}, {{ y_var }})
x_var_pos <- which(attributes(survey)$names == enexpr(x_var))
x_var_lab <- attributes(survey)$variable.labels[x_var_pos] %>%
str_replace(pattern = "\\?.+$", replacement = "?")
y_var_pos <- which(attributes(survey)$names == enexpr(y_var))
y_var_lab <- attributes(survey)$variable.labels[y_var_pos] %>%
str_replace(pattern = "\\?.+$", replacement = "?")
# plot
ggplot(tmp) +
aes(x = {{ x_var }},
y = {{ y_var }},
size = n,
label = n) +
geom_point() +
labs(caption = glue::glue("{enexpr(x_var)}: {x_var_lab} \n {enexpr(y_var)}: {y_var_lab}")) +
scale_fill_viridis_c() +
theme_minimal()
}
create_dot_plot(survey, G1Q04, G1Q05)
```
# Hypothesen
1. Grundsätzlich
Gibt es signifikante Zusammenhänge zwischen
- G1Q04 Anzahl Hauptamtlicher
- G1Q05 Anzahl Ehrenamtlicher
- G5Q04 Bereich (Sport/ Bidung etc)
Und allen anderen Fragen.
```{r}
tmp <- survey_raw %>%
count(G1Q05, G1Q04) %>%
drop_na(G1Q05, G1Q04)
ggplot(tmp) +
aes(x = G1Q05, y = G1Q04, fill = n) +
geom_tile(size = 1.2) +
labs(y = "Anzahl Hauptamtlicher", x = "Anzahl Ehrenamtlicher") +
scale_fill_viridis_c()+
theme_minimal()
```
```{r}
ggplot(tmp) +
aes(x = G1Q05, y = G1Q04, size = n) +
geom_point() +
labs(y = "Anzahl Hauptamtlicher", x = "Anzahl Ehrenamtlicher") +
scale_fill_viridis_c()+
theme_minimal()
p <- survey_raw %>%
count(G4Q02, G1Q04) %>%
drop_na() %>%
ggplot() +
aes(x = G4Q02, y = G1Q04, size = n) +
geom_point() +
labs(y = "Anzahl Hauptamtlicher", x = "Nutzung") +
coord_flip()+
theme_light()
p
```
```{r}
survey_raw %>%
select(G4Q02, G1Q04) %>%
drop_na() %>%
janitor::tabyl(G4Q02, G1Q04) %>%
janitor::adorn_totals() %>%
janitor::adorn_percentages() %>%
janitor::adorn_pct_formatting()
```
Erklärungsansaetze für Ergebnisse:
- Sampling Bias in der Umfrage
-
## Anzahl ehrenamtliche
```{r}
survey_raw %>%
count(G4Q02) %>%
drop_na() %>%
ggplot(aes(x = G4Q02, y = n))+
geom_col()+
coord_flip()
survey_raw %>%
count(G4Q02, G1Q05) %>%
drop_na() %>%
ggplot() +
aes(x = G4Q02, y = G1Q05, size = n) +
geom_point() +
labs(y = "Anzahl Ehrenamtlicher", x = "Nutzung") +
coord_flip()+
theme_minimal()
survey_raw %>%
select(G4Q02, G1Q05) %>%
drop_na() %>%
janitor::tabyl(G4Q02, G1Q05) %>%
janitor::adorn_totals() %>%
janitor::adorn_percentages(denominator = "col") %>%
janitor::adorn_pct_formatting()
```
Chi-Square Test, um zu sehen, ob zw. den zwei kategorialen Variablen ein signifikanter Zusammenhang besteht:
```{r}
chisq.test(survey$G4Q02, survey$G1Q05)
```
Werden Cluster sichtbar?
2. Für welche Organisationen ist SKA interessant?
Hypothesen:
1. Große Organisationen mit vielen Hauptamtlichen und eigenen IT Abteilungen haben kein Interessen an Open Source Lösungen sondern entscheiden sich für bekannte, teure propritäre Tools
2. Organisationen mit eigenen IT Abteilungen haben Wissen und Kompetenz selbst Open Source Lösungen aufzusetzen (also Zugang) und nutzen sie somit häufiger.
G2Q02 Wer kümmert sich um eure digitale Infrastruktur
G1Q04 Wie viele hauptamtlich Mitarbeitende hat deine Organisation?
In Korrelation zu
Bisherige Erfahrung mit Open Source (G4Q02) oder der Wichtigkeit bestimmter Eigenschaften des Tools (G03Q03 und G03Q03b)

343
01-quarto-interactive.html 100644
View File

File diff suppressed because one or more lines are too long

99
01-quarto-interactive.qmd 100644
View File

@ -0,0 +1,99 @@
---
title: "Untitled"
format: html
---
# R: Import Data
```{r warning=FALSE, message=FALSE}
library(tidyverse)
# install.packages("here)
```
```{r}
data <- readr::read_rds(here::here("data", "processed", "survey_with_labels.rds"))
```
```{r include=FALSE}
head(data)
```
## R: Transpose Data for OJS
```{r}
data_ojs <- data %>% transpose()
```
# Exploration
## R: Expose Data to JS
```{r}
ojs_define(data = data_ojs)
ojs_define(varnames = names(data))
ojs_define(qlabels = attributes(data)$variable.labels)
```
# R + OJS: Interaction
## OJS: Dropdown
```{ojs}
viewof varname_selected = Inputs.select(varnames,
{label: "Filter nach:"}
)
```
```{ojs}
viewof filter_val = Inputs.select(varnames,
{label: "Filter nach:"}
)
```
## OJS: Table
```{ojs}
viewof tableData = Inputs.table(
data,
{
sort: varname_selected, required: false
}
)
```
## MAIN: Dynamic ggplot
```{ojs}
//| echo: false
viewof var_x = Inputs.select(varnames,
{label: "X Variable"}
)
```
```{ojs}
//| echo: false
viewof var_y = Inputs.select(varnames,
{label: "Y Variable"}
)
```
```{ojs}
//| echo: false
chart = Plot.plot({
inset: 8,
grid: true,
marks: [
Plot.dot(data,
Plot.group({r: "count", fill: "count"}, {x: var_x, y: var_y})
)
],
color: {
type: "linear",
range: ["steelblue", "orange"] // uses d3.interpolateRgb
},
r: {
range: [0, 20]
},
})
```

13
bedarfsanalyse.Rproj 100644
View File

@ -0,0 +1,13 @@
Version: 1.0
RestoreWorkspace: Default
SaveWorkspace: Default
AlwaysSaveHistory: Default
EnableCodeIndexing: Yes
UseSpacesForTab: Yes
NumSpacesForTab: 2
Encoding: UTF-8
RnwWeave: Sweave
LaTeX: pdfLaTeX

BIN
data/processed/survey_with_labels.rds 100644
View File

Binary file not shown.

75
limesurvey_survey_227824.txt → data/raw/limesurvey_survey_227824.txt
View File

@ -1,78 +1,5 @@
id related_id class type/scale name relevance text help language validation mandatory encrypted other default same_default allowed_filetypes alphasort answer_width answer_width_bycolumn array_filter array_filter_exclude array_filter_style assessment_value category_separator choice_input_columns choice_title commented_checkbox commented_checkbox_auto cssclass date_format date_max date_min display_columns display_rows display_type dropdown_dates dropdown_dates_minute_step dropdown_dates_month_style dropdown_prefix dropdown_prepostfix dropdown_separators dropdown_size dualscale_headerA dualscale_headerB em_validation_q em_validation_q_tip em_validation_sq em_validation_sq_tip equals_num_value equation exclude_all_others exclude_all_others_auto hidden hide_tip input_boxes input_size label_input_columns location_city location_country location_defaultcoordinates location_mapheight location_mapservice location_mapwidth location_mapzoom location_nodefaultfromip location_postal location_state max_answers max_filesize max_num_of_files max_num_value max_num_value_n max_subquestions maximum_chars min_answers min_num_of_files min_num_value min_num_value_n multiflexible_checkbox multiflexible_max multiflexible_min multiflexible_step num_value_int_only numbers_only other_comment_mandatory other_numbers_only other_replace_text page_break parent_order placeholder prefix printable_help public_statistics random_group random_order rank_title repeat_headings reverse samechoiceheight samelistheight scale_export show_comment show_grand_total show_title show_totals showpopups slider_accuracy slider_custom_handle slider_default slider_default_set slider_handle slider_layout slider_max slider_middlestart slider_min slider_orientation slider_rating slider_reset slider_reversed slider_separator slider_showminmax statistics_graphtype statistics_showgraph statistics_showmap suffix text_input_columns text_input_width time_limit time_limit_action time_limit_countdown_message time_limit_disable_next time_limit_disable_prev time_limit_message time_limit_message_delay time_limit_message_style time_limit_timer_style time_limit_warning time_limit_warning_2 time_limit_warning_2_display_time time_limit_warning_2_message time_limit_warning_2_style time_limit_warning_display_time time_limit_warning_message time_limit_warning_style use_dropdown value_range_allows_missing
S sid 227824
S gsid 1
S admin inherit
S adminemail inherit
S anonymized N
S format I
S savetimings N
S template inherit
S language de-informal
S additional_languages
S datestamp N
S usecookie I
S allowregister I
S allowsave I
S autonumber_start 24
S autoredirect I
S allowprev Y
S printanswers I
S ipaddr N
S ipanonymize N
S refurl N
S showsurveypolicynotice 0
S publicstatistics I
S publicgraphs I
S listpublic I
S htmlemail I
S sendconfirmation I
S tokenanswerspersistence I
S assessments I
S usecaptcha E
S usetokens N
S bounce_email inherit
S emailresponseto inherit
S emailnotificationto inherit
S tokenlength -1
S showxquestions I
S showgroupinfo I
S shownoanswer I
S showqnumcode I
S bounceprocessing N
S showwelcome I
S showprogress I
S questionindex -1
S navigationdelay -1
S nokeyboard I
S alloweditaftercompletion I
S googleanalyticsstyle
S googleanalyticsapikey
S tokenencryptionoptions "{ ""enabled"":""Y"",""columns"":{ ""firstname"":""N"",""lastname"":""N"",""email"":""N"" } }"
SL surveyls_survey_id 227824 de-informal
SL surveyls_language de-informal de-informal
SL surveyls_title "Digitale Zusammenarbeit im Ehrenamts- und Engagementsektor" de-informal
SL surveyls_description "<p> </p><p><img alt="""" src=""/upload/surveys/227824/images/DSEE%20Newsletter%20Bild_Zeichenfl%C3%A4che%201-04.png"" style=""width: 300px; height: 300px;"" /></p>" de-informal
SL surveyls_welcometext "<p style=""margin-left:80px; text-align:start""> </p><p style=""margin-left:80px; text-align:start""><span style=""font-size:medium""><span style=""font-family:&quot;Times New Roman&quot;, serif""><span style=""color:#000000""><span style=""font-style:normal""><span style=""font-weight:400""><span style=""white-space:normal""><span style=""text-decoration:none""><span style=""font-family:Calibri, sans-serif""><span style=""color:black"">Vielen Dank für deine Teilnahme an unserer Umfrage zu Digitaler Zusammenarbeit im Ehrenamts- und Engagement Sektor. Die Studie wird durchgeführt von dem Verein Local-IT e.V. und gefördert von der Deutschen Stiftung für Ehrenamt und Engagement.</span></span></span></span></span></span></span></span></span></p><p style=""margin-left:80px; text-align:start""><span style=""font-size:medium""><span style=""font-family:&quot;Times New Roman&quot;, serif""><span style=""color:#000000""><span style=""font-style:normal""><span style=""font-weight:400""><span style=""white-space:normal""><span style=""text-decoration:none""><span style=""font-family:Calibri, sans-serif""><span style=""color:black"">Nach zwei Jahren Covid-bedingter, erzwungener Erkundung der digitalen Möglichkeiten der Zusammenarbeit, wollen wir resümieren: Was konnten Vereine oder ehrenamtlich Engagierte mitnehmen aus dieser Zeit? Welche digitale Tools werden auch weiter genutzt? Was klappt gut, was könnte besser oder anders gelöst werden?</span></span></span></span></span></span></span></span></span></p><p style=""margin-left:80px; text-align:start""><span style=""font-size:medium""><span style=""font-family:&quot;Times New Roman&quot;, serif""><span style=""color:#000000""><span style=""font-style:normal""><span style=""font-weight:400""><span style=""white-space:normal""><span style=""text-decoration:none""><span style=""font-family:Calibri, sans-serif""><span style=""color:black"">Die Umfrage wird ca. 10 bis 15 Minuten dauern.</span></span></span></span></span></span></span></span></span></p><p style=""margin-left:80px; text-align:start""> </p><p style=""margin-left:80px; text-align:start""><span style=""font-size:medium""><span style=""font-family:&quot;Times New Roman&quot;, serif""><span style=""color:#000000""><span style=""font-style:normal""><span style=""font-weight:400""><span style=""white-space:normal""><span style=""text-decoration:none""><strong><span style=""font-family:Calibri, sans-serif""><span style=""color:black""><span style=""font-weight:normal"">Datenschutzhinweise:</span></span></span></strong></span></span></span></span></span></span></span></p><p style=""margin-left:80px; text-align:start""><span style=""font-size:medium""><span style=""font-family:&quot;Times New Roman&quot;, serif""><span style=""color:#000000""><span style=""font-style:normal""><span style=""font-weight:400""><span style=""white-space:normal""><span style=""text-decoration:none""><span style=""font-family:Calibri, sans-serif""><span style=""color:black"">Wir, Local-IT e.V., sind die für die Durchführung dieser Studie verantwortliche Stelle. Wir werden die Informationen, die du uns zur Verfügung stellst, nur zu Forschungszwecken verwenden.</span></span></span></span></span></span></span></span></span></p><p style=""margin-left:80px; text-align:start""><span style=""font-size:medium""><span style=""font-family:&quot;Times New Roman&quot;, serif""><span style=""color:#000000""><span style=""font-style:normal""><span style=""font-weight:400""><span style=""white-space:normal""><span style=""text-decoration:none""><span style=""font-family:Calibri, sans-serif""><span style=""color:black"">Deine Teilnahme ist freiwillig und du kannst die Teilnahme jederzeit beenden.</span></span> <span style=""font-family:Calibri, sans-serif""><span style=""color:black"">Diese Daten werden anonym erfasst.</span></span> <span style=""font-family:Calibri, sans-serif""><span style=""color:black"">Die Ergebnisse der Studie werden, wenn überhaupt, nur in zusammengefasster Form an Dritte übermittelt.</span></span> <span style=""font-family:Calibri, sans-serif""><span style=""color:black"">Wir raten dir davon ab, personenbezogene Daten (wie Name, E-Mail-Adresse oder Telefonnummer) im Kommentarfeld zu hinterlassen. </span></span></span></span></span></span></span></span></span></p><p style=""margin-left:80px; text-align:start""> </p>" de-informal
SL surveyls_endtext "<p style=""text-align:start""><span style=""font-size:medium""><span style=""font-family:Calibri, sans-serif""><span style=""color:#000000""><span style=""font-style:normal""><span style=""font-weight:400""><span style=""white-space:normal""><span style=""text-decoration:none"">Vielen Dank für deine Teilnahme!</span></span></span></span></span></span></span></p>" de-informal
SL surveyls_policy_notice de-informal
SL surveyls_policy_notice_label de-informal
SL surveyls_url de-informal
SL surveyls_urldescription de-informal
SL surveyls_email_invite_subj "Einladung zur einer Umfrage" de-informal
SL surveyls_email_invite "Hallo {FIRSTNAME},<br /><br />Hiermit möchten wir dich zu einer Umfrage einladen.<br /><br />Der Titel der Umfrage ist <br />'{SURVEYNAME}'<br /><br />'{SURVEYDESCRIPTION}'<br /><br />Um an dieser Umfrage teilzunehmen, klicke bitte auf den unten stehenden Link.<br /><br />Mit freundlichen Grüßen,<br /><br />{ADMINNAME} ({ADMINEMAIL})<br /><br />----------------------------------------------<br />Klicke hier um die Umfrage zu starten:<br />{SURVEYURL}<br /><br />Wenn Du an dieser Umfrage nicht teilnehmen und keine weiteren Erinnerungen erhalten möchtest, klicke bitte auf den folgenden Link:<br />{OPTOUTURL}<br /><br />Wenn Du geblockt bist, jedoch wieder teilnehmen und weitere Einladungen erhalten möchtest, klicken bitte auf den folgenden Link:<br />{OPTINURL}" de-informal
SL surveyls_email_remind_subj "Erinnerung an die Teilnahme an einer Umfrage" de-informal
SL surveyls_email_remind "Hallo {FIRSTNAME},<br /><br />Vor kurzem haben wir Dich zu einer Umfrage eingeladen.<br /><br />Zu unserem Bedauern haben wir bemerkt, dass Du die Umfrage noch nicht ausgefüllt hast. Wir möchten Dir mitteilen, dass die Umfrage noch aktiv ist und würden uns freuen, wenn Du teilnehmen könntest.<br /><br />Der Titel der Umfrage ist <br />'{SURVEYNAME}'<br /><br />'{SURVEYDESCRIPTION}'<br /><br />Um an dieser Umfrage teilzunehmen, klicke bitte auf den unten stehenden Link.<br /><br /> Mit freundlichen Grüßen,<br /><br />{ADMINNAME} ({ADMINEMAIL})<br /><br />----------------------------------------------<br />Klicken Du hier um die Umfrage zu starten:<br />{SURVEYURL}<br /><br />Wenn Du an dieser Umfrage nicht teilnehmen und keine weiteren Erinnerungen erhalten möchtest, klicke bitte auf den folgenden Link:<br />{OPTOUTURL}" de-informal
SL surveyls_email_register_subj "Registrierungsbestätigung für Teilnahmeumfrage" de-informal
SL surveyls_email_register "Hallo {FIRSTNAME},<br /><br />Du (oder jemand, der Deine E-Mail benutzt hat) hat sich für eine Umfrage mit dem Titel {SURVEYNAME} angemeldet.<br /><br />Um an dieser Umfrage teilzunehmen, klicke bitte auf den folgenden Link.nn{SURVEYURL}<br /><br />Wenn Du irgendwelche Fragen zu dieser Umfrage hast oder wenn Du Dich _nicht_ für diese Umfrage angemeldet hast und Du glaubst, dass Dir diese E-Mail irrtümlicherweise zugeschickt worden ist, kontaktiere bitte {ADMINNAME} unter {ADMINEMAIL}." de-informal
SL surveyls_email_confirm_subj "Bestätigung für die Teilnahme an unserer Umfrage" de-informal
SL surveyls_email_confirm "Hallo {FIRSTNAME}, <br /><br />Vielen Dank für die Teilnahme an der Umfrage mit dem Titel {SURVEYNAME}. Deine Antworten wurden bei uns gespeichert.<br /><br />Wenn du irgendwelche Fragen zu dieser E-Mail hast, kontaktiere bitte {ADMINNAME} unter {ADMINEMAIL}.<br /><br />Mit freundlichen Grüßen,<br /><br />{ADMINNAME}" de-informal
SL surveyls_dateformat 1 de-informal
SL email_admin_notification_subj "Antwortabsendung für Umfrage {SURVEYNAME}" de-informal
SL email_admin_notification "Hallo,<br /><br />Eine neue Antwort wurde für die Umfrage '{SURVEYNAME}' abgegeben.<br /><br />Klicke auf den folgenden Link um den Antwortdatensatz anzusehen:<br />{VIEWRESPONSEURL}<br /><br />Klicke auf den folgenden Link um den Antwortdatensatz zu bearbeiten:<br />{EDITRESPONSEURL}<br /><br />Um die Statistik zu sehen, klicke hier:<br />{STATISTICSURL}" de-informal
SL email_admin_responses_subj "Antwortabsendung für Umfrage {SURVEYNAME} mit Ergebnissen" de-informal
SL email_admin_responses "Hallo,<br /><br />Eine neue Antwort wurde für die Umfrage '{SURVEYNAME}' abgegeben.<br /><br />Klicke auf den folgenden Link um den Antwortdatensatz anzusehen:<br />{VIEWRESPONSEURL}<br /><br />Klicke auf den folgenden Link um den Antwortdatensatz zu bearbeiten:<br />{EDITRESPONSEURL}<br /><br />Um die Statistik zu sehen, klicke hier:<br />{STATISTICSURL}<br /><br /><br />Die folgenden Antworten wurden vom Teilnehmer gegeben:<br />{ANSWERTABLE}" de-informal
SL surveyls_numberformat 1 de-informal
1 G 1 "Meine Organisation" 1 "Zunächst ein paar Fragen um deine Organisation, in der es in dieser Studie gehen soll besser einordnen zu können:" de-informal
G 1 "Meine Organisation" 1 "Zunächst ein paar Fragen um deine Organisation, in der es in dieser Studie gehen soll besser einordnen zu können:" de-informal
45 Q L G1Q01 1 "<strong>Hat deine Organisation eine anerkannte Gemeinnützigkeit?</strong>" de-informal N N N 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0
45 A 0 AO01 Ja de-informal 0
45 A 0 AO02 "Ich glaube schon" de-informal 0

0
survey_227824_R_data_file-2022-08-13.csv → data/raw/survey_227824_R_data_file-2022-08-13.csv
View File

4
survey_227824_R_syntax_file-2022-08-13.R → data/raw/survey_227824_R_syntax_file-2022-08-13.R
View File

@ -1,4 +1,4 @@
data <- read.csv("survey_227824_R_data_file.csv", quote = "'\"", na.strings=c("", "\"\""), stringsAsFactors=FALSE, fileEncoding="UTF-8-BOM")
data <- read.csv(here::here("data", "raw", "survey_227824_R_data_file-2022-08-13.csv"), quote = "'\"", na.strings=c("", "\"\""), stringsAsFactors=FALSE, fileEncoding="UTF-8-BOM")
# LimeSurvey Field type: F
@ -1020,3 +1020,5 @@ 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"
readr::write_rds(data, here::here("data", "processed", "survey_with_labels.rds"))