Lab moderna: add Franck-Hertz experiment
Change-Id: I8bcd498618d60d2ddbcdade6d789b8a310b6c0cd
diff --git a/quad12/labmoderna/franckhertz/r/main2.r b/quad12/labmoderna/franckhertz/r/main2.r
new file mode 100644
index 0000000..58f778e
--- /dev/null
+++ b/quad12/labmoderna/franckhertz/r/main2.r
@@ -0,0 +1,17 @@
+library(ggplot2)
+library(svglite)
+
+data <- data.frame(
+ T = c(160, 170, 180, 190, 200),
+ UR = c(5.202, 5.15625, 5.08, 5.04333333333333, 4.905),
+ UncUR = c(0.034, 0.029, 0.047, 0.053, 0.104)
+)
+
+pplot <- ggplot(data, aes(x = T, y = UR)) +
+ geom_point() +
+ geom_errorbar(aes(ymin = UR - UncUR, ymax = UR + UncUR), width = 2) +
+ geom_errorbarh(aes(xmin = T - 3, xmax = T + 3)) +
+ xlab("T (ºC)") +
+ ylab(bquote(Mitjana~U[R]~(V))) +
+ theme(legend.position = "none", text = element_text(family = "Montserrat"))
+ggsave('output/mean_ur_vs_t.svg', pplot, width = 6.6, height = 3.75, bg = "transparent")