| 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") |