Durante el ensayo se tuvieron temperaturas promedio de 18 °C, máxima de 41 °C y mínima de 0 °C (Figura E.1; CESAVE - SIAFESON (2024)).
1library(readxl)
2library(ggplot2)
library(gganimate)
library(magick)
3datos = read_excel("./resultados/Temperaturas.xlsx")
4temperaturas <- datos[datos$Variable != 'Precipitación', ]
5temperaturas$Variable <- as.factor(temperaturas$Variable)
temperaturas$Variable <- factor(temperaturas$Variable,
levels = c("Temperatura_máxima",
"Temperatura_mínima",
6 "Temperatura_promedio"))
g = temperaturas |>
7 ggplot(aes(x = Fecha, y = Valor, fill = Variable, color = Variable)) +
8 geom_line(size=1.2)+
9 #geom_smooth(method = loess)+
geom_point(size=1.2)+ theme(panel.background = element_rect(fill="#FFFFFF00"),
plot.background = element_rect(fill="#FFFFFF00", color=NA),
legend.background = element_rect(fill="#FFFFFF00"),
legend.box.background = element_rect(fill="#FFFFFF00"),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
axis.line = element_line(linewidth = 0.7, colour = "#00ba34ff"),
axis.ticks = element_line(colour = "#00ba34ff"),
legend.title = element_blank(),
legend.text = element_text(colour = "#0d85ffff"),
legend.position = "bottom",
legend.key = element_rect(colour = "#FFFFFF00"),
axis.text = element_text(colour = "#0d85ffff"),
axis.title.y = element_text(colour = "#0d85ffff",size = rel(1.2), angle = 90),
axis.title.x = element_text(colour = "#0d85ffff",size = rel(1.2))
)+
10 scale_color_brewer(palette = "Set1")+
scale_fill_brewer(palette = "Set1")+
11 xlab("Fecha")+
ylab("Temperatura (°C)")+
coord_cartesian(
ylim = c(0,50),
12 expand = FALSE)+
transition_reveal(Fecha)+
shadow_mark(exclude_layer = 2)+
view_follow(fixed_y = TRUE)+
shadow_wake(wake_length = 0.1)
#animate(g, nframes=120, fps=60, width=800, height=500, duration = 5, end_pause = 5)
#anim_save("./images/temperaturas.gif")- 1
- Cargar librería necesaria para trabajar con archivos de excel.
- 2
- Cargar librería necesaria para realizar graficos.
- 3
- Cargamos archivos de excel y guardamos su contenido en un objeto llamado “datos”.
- 4
- Nuestro archivo contiene datos de temperatura máxima, mínima, y promedio, y la precipitación. Este codigo filtra los datos de precitación.
- 5
- Declaramos la columna variable como factor.
- 6
- Cambiamos el orden de los factores.
- 7
- Creamos un grafico en el que asignamos el eje x a la columna Fecha, y el eje y a la columna Valor. Los parámetros fill y color los asignamos a los valores de la columna factor (Variable, en este caso).
- 8
- geom_line() sirve para crear un gráfico de linea.
- 9
- geom_smooth sirve para…
- 10
- . . .
- 11
- . . .
- 12
- . . .
Las aplicaciones de herbicidas se realizaron dentro de la ventana de aplicación recomendada (Figura E.2; CESAVE - SIAFESON (2024)).
