# qqplot messwerte ---------
output$qqplot_valid_data <- renderPlot({
ostit$valid_data %>%
ggplot() +
stat_qq(aes(sample = Messwert), dparams = c(ostit$sample_mean, ostit$sample_sd)) +
geom_abline(slope = 1, intercept = 0) +
coord_fixed(ratio = 1) +
xlab(paste("Theoretische Quantile der Normalverteilung (",round(ostit$sample_mean,2), " / ", round(ostit$sample_sd,2),")")) +
ylab("Quantile der Stichprobe") +
ggtitle("Nur ausgewählte Messdaten")
})
output$qqplot_raw_data <- renderPlot({
ostit$raw_data %>%
ggplot() +
stat_qq(aes(sample = Messwert), dparams = c(ostit$sample_mean, ostit$sample_sd)) +
xlab(paste("Theoretische Quantile der Normalverteilung (",round(ostit$sample_mean,2), " / ", round(ostit$sample_sd,2),")")) +
geom_abline(slope = 1, intercept = 0) +
coord_fixed(ratio = 1) +
ylab("Quantile der Stichprobe") +
ggtitle("Alle Messdaten")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.