Skip to main content
2 de 2
Acrescentado código.
Rui Barradas
  • 19mil
  • 2
  • 14
  • 28

O código da pergunta está a falhar porque não tem color, shape e linetype em aes(). O ggplot atribui os valores dos elementos estéticos (aesthetics) consoante os valores das variáveis, o que torna tudo mais f+acil e com experiência, intuitivo.

Neste caso vou usar a base mtcars e mapear a variável am às aes pedidas. Depois os valores podem ser modificados com as scale_*.

O theme final serve para prolongar as linhas um pouco mais para os lados.

library(ggplot2)
library(dplyr)

mtcars %>%
  mutate(am = factor(am, labels = c("manual", "automatic"))) %>%
  ggplot(aes(hp, disp, colour = am, shape = am, linetype = am)) +
  geom_point() +
  geom_line() +
  scale_color_manual(values = c("red", "black")) +
  scale_shape_manual(values = c(15, 19)) +
  scale_linetype_manual(values = c("solid", "dashed")) +
  theme_bw() +
  theme(legend.key.width = unit(1, 'cm'))

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
)

inserir a descrição da imagem aqui

Rui Barradas
  • 19mil
  • 2
  • 14
  • 28