transfer analysis from github repo

01-quarto-interactive.qmd

@@ -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]
+  },
+})
+```