Edição
Aqui vai o código completo para resolver o problema da pergunta.
Este tipo de problema geralmente está relacionado à reformatação dos dados. O formato deve ser longo e os dados estão em formato largo. Veja esta postagem sobre como reformatar os dados do formato largo para o longo.
library(ggplot2)
library(ggpubr)
library(dplyr)
library(tidyr)
#data.frame do grafico 1
dados <- read.table(text =
"Mes local1 captura1 local2 captura2 eixo
Out 36 0.02 17 0 0
Nov 36 0.02 17 0 0
Dez 36 10 17 10 10
Jan 36 10 17 10 0
", header = TRUE)
longo1 <- dados %>%
select(-local2) %>%
mutate(Mes = ordered(Mes, levels = c("Out", "Nov", "Dez", "Jan"))) %>%
filter(Mes < "Dez") %>%
pivot_longer(
cols = starts_with("captura"),
names_to = "captura"
) %>%
mutate(captura = ifelse(captura == "captura1", "ADULTO", "LARVA"))
dados <- read.table(text =
"Mes local1 captura1 local2 captura2 eixo
11.10 19 0 19 46 0
Out 19 5 19 23 0
04.11 19 8 19 18 0
Nov 19 18 19 5 0
Dez 19 10 19 10 10
Jan 19 10 19 10 0
", header = TRUE)
longo2 <- dados %>%
select(-local2) %>%
mutate(Mes = ordered(Mes, levels = c("11.10", "Out", "04.11", "Nov", "Dez", "Jan"))) %>%
filter(Mes < "Dez") %>%
pivot_longer(
cols = starts_with("captura"),
names_to = "captura"
) %>%
mutate(captura = ifelse(captura == "captura1", "ADULTO", "LARVA"))
Agora os gráficos.
Em primeiro lugar vou definir um theme
comum, para simplificar o código que se seguirá.
theme_larvas_adultos <- function(){
theme_grey() + #replace elements we want to change
theme(
legend.position=c("right"),
plot.subtitle = element_text(face = "bold", size = 12),
axis.line = element_line(colour = "black", size = 1),
axis.text.x = element_text(face = "bold", colour = "black", size = 10),
axis.text.y = element_text(face = "bold", colour = "black", size = 13),
panel.background = element_rect(fill = NA) ,
panel.grid.major = element_line(colour = "gray89") ,
panel.ontop = FALSE
)
}
E traçar um gráfico de cada vez.
g_point1 <- ggplot(longo1, aes(Mes, value, colour = captura, group = captura)) +
geom_line(aes(linetype = captura), size = 1.5) +
geom_point(aes(size = captura, shape = captura)) +
scale_y_continuous(breaks = 0:5, limits = c(0, 5))+
scale_colour_manual(values = c("red", "black")) +
scale_linetype_manual(values = c("solid", "dashed")) +
scale_shape_manual(values = c(15, 19)) +
scale_size_manual(values = c(4, 3)) +
labs(x = "Período", y = "", title = "Evolução de larvas e adultos", subtitle = "Zona 36") +
theme_larvas_adultos()
g_point2 <- ggplot(longo2, aes(Mes, value, colour = captura, group = captura)) +
geom_line(aes(linetype = captura), size = 1.5) +
geom_point(aes(size = captura, shape = captura)) +
scale_colour_manual(values = c("red", "black")) +
scale_linetype_manual(values = c("solid", "dashed")) +
scale_shape_manual(values = c(15, 19)) +
scale_size_manual(values = c(4, 3)) +
labs(x = "Período", y = "", title = "Evolução de larvas e adultos", subtitle = "Zona 19") +
theme_larvas_adultos()
ggarrange(
g_point1, g_point2,
ncol = 2, align = "v",
legend = "right",
common.legend = TRUE
)