| Adrià Vilanova Martínez | c2d9f31 | 2023-04-23 11:59:30 +0200 | [diff] [blame] | 1 | library(ggplot2) |
| 2 | library(svglite) |
| 3 | |
| 4 | data <- data.frame( |
| 5 | T = c(160, 170, 180, 190, 200), |
| 6 | UR = c(5.202, 5.15625, 5.08, 5.04333333333333, 4.905), |
| 7 | UncUR = c(0.034, 0.029, 0.047, 0.053, 0.104) |
| 8 | ) |
| 9 | |
| 10 | pplot <- ggplot(data, aes(x = T, y = UR)) + |
| 11 | geom_point() + |
| 12 | geom_errorbar(aes(ymin = UR - UncUR, ymax = UR + UncUR), width = 2) + |
| 13 | geom_errorbarh(aes(xmin = T - 3, xmax = T + 3)) + |
| 14 | xlab("T (ºC)") + |
| 15 | ylab(bquote(Mitjana~U[R]~(V))) + |
| 16 | theme(legend.position = "none", text = element_text(family = "Montserrat")) |
| 17 | ggsave('output/mean_ur_vs_t.svg', pplot, width = 6.6, height = 3.75, bg = "transparent") |