base3 <- base2.2 %>%
mutate(mês = month(data),
ano = year(data)) %>%
group_by(mês,ano) %>%
summarise(qt_mosquitos = sum(na.omit(qt_mosquitos)))
saída:
base2.2 <-
structure(list(
nome_local = c("centro de saude", "centro de saude",
"centro de saude", "centro de saude", "centro de saude", "centro de saude",
"centro de saude", "centro de saude", "centro de saude", "centro de saude",
"centro de saude", "centro de saude", "centro de saude", "centro de saude",
"centro de saude", "centro de saude", "ictb", "ictb", "ictb",
"ictb"),
num_aspiração = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2),
ano = c(2021, 2021, 2021, 2021, 2021, 2021, 2021, 2021, 2021, 2021,
2021, 2021, 2021, 2021, 2021, 2021, 2021, 2021, 2021, 2021),
mês = c("fev", "fev", "fev", "fev",
"fev", "fev", "fev", "fev", "fev", "fev", "fev", "fev", "fev",
"fev", "fev", "fev", "mai", "mai", "mai", "mai"),
data = structure(c(1614211200, 1614211200, 1614211200, 1614211200,
1614211200, 1614211200, 1614211200, 1614211200,
1614211200, 1614211200, 1614211200, 1614211200,
1614211200, 1614211200, 1614211200, 1614211200,
1620259200, 1620259200, 1620259200, 1620259200),
tzone = "UTC", class = c("POSIXct", "POSIXt")),
semana = c(4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 18, 18, 18, 18),
amb_aspiração = c("intra", "intra", "intra",
"intra", "intra", "intra", "intra", "intra", "peri", "peri",
"peri", "peri", "peri", "peri", "peri", "peri", "intra",
"intra", "intra", "intra"),
aspiração_pos = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0),
num_mosquitos = c(9, 9, 9, 9, 9, 9, 9, 9, 18, 18, 18, 18, 18,
18, 18, 18, 0, 0, 0, 0),
coordx = c(679518, 679518, 679518, 679518, 679518,
679518, 679518, 679518, 679543, 679543, 679543, 679543, 679543,
679543, 679543, 679543, 679922, 679922, 679922, 679922),
coordy = c(7468991, 7468991, 7468991, 7468991, 7468991, 7468991,
7468991, 7468991, 7469022, 7469022, 7469022, 7469022, 7469022,
7469022, 7469022, 7469022, 7469005, 7469005, 7469005, 7469005),
especies = c("aeg_F", "aeg_M", "albo_F", "albo_M", "scap_F",
"scap_M", "culex_F", "culex_M", "aeg_F", "aeg_M", "albo_F",
"albo_M", "scap_F", "scap_M", "culex_F", "culex_M", "aeg_F",
"aeg_M", "albo_F", "albo_M"),
qt_mosquitos = c(1, 5, 2, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 4, 14, 0, 0, 0, 0),
genero = c("Fêmea", "Macho", "Fêmea", "Macho", "Fêmea", "Macho", "Fêmea",
"Macho", "Fêmea", "Macho", "Fêmea", "Macho", "Fêmea", "Macho",
"Fêmea", "Macho", "Fêmea", "Macho", "Fêmea", "Macho"),
especiessep = c("Aegypti", "Aegypti", "Albopictus", "Albopictus",
"Scapularis", "Scapularis", "Culex", "Culex", "Aegypti",
"Aegypti", "Albopictus", "Albopictus", "Scapularis",
"Scapularis", "Culex", "Culex", "Aegypti",
"Aegypti", "Albopictus", "Albopictus")),
row.names = c(NA, -20L), class = c("tbl_df", "tbl", "data.frame"))
eu queria fazer com que o gráfico fosse descontínuo à medida que os NA's aparecem, mas eu não consigo somar sem tirar os NA's. Se há algum NA e eu somo, esta aparece como "NA" mesmo que haja outros valores.
dput
) e veja como fazer uma pergunta reproduzível em R. Assim, as pessoas que desejarem te ajudar conseguirão fazer isto da melhor maneira possível.dput(base2.2)
ou, se a base for muito grande, dedput(head(base2.2, 20))
? Outra coisa, não usena.omit
emsum
, a forma correta ésum(qt_mosquitos, na.rm = TRUE)
.