export plots to pdf

[jonasmolsbeck]

@fynn-oldenburg @PhilippSL @WlanNergady Könnte ihr den Code updaten, dann stehen die Grafiken als pdf-Datei zurverfügung. Hier die erneuerte Version eures Codes:

## visualize
data.vis <- data %>% 
  mutate(
    Mathe = as.ordered(Mathe),
    Programmieren = as.ordered(Programmieren),
  ) %>% 
  select(
    c(Studienfach, Mathe, Programmieren, MatheLK)
  )

levels(data.vis$MatheLK) = c("Mathe-LK", "kein Mathe-LK")
p1 <- data.vis %>% 
  visualize_categorical(id.1 = "Studienfach", id.2 = "MatheLK",
                        title = "Interessen nach Studienfach und Mathe-LK",
                        x.title = "Interesse", y.title = "Anzahl" 
  )

p2 <- data.vis %>%
  select(Studienfach, Mathe, Programmieren) %>% 
  visualize_categorical(id.1 = "Studienfach",
                        title = "Interessen nach Studienfach",
                        x.title = "Interesse", y.title = "Anzahl" 
  )

pdf("analysis/data-overview.pdf")
print(p1)
print(p2)
dev.off()

[jonasmolsbeck]

nennt es besser pdf("analysis/Interessen-Uebersicht.pdf"), sind ja nicht die gesamten Daten

[WlanNergady]

Hab's geändert, müsste nur noch gemergt werden