TEMPERATURA

Qual foi o Verão mais quente de João Pessoa?

A critério de simplificação foi considerado verão os meses de janeiro, fevereiro e março. Pode-se utilizar uma vizualização com boxplots nesse intervalo durante os anos como pode ser observado no Gráfico 1.

medias <- subset(clima, cidade=="João Pessoa" & (mes=="1" | mes=="2" | mes=="3")) %>% 
    group_by(ano) %>% 
    summarise(tmedia = mean(tmedia), .groups="drop")

subset(clima, cidade=="João Pessoa" & (mes=="1" | mes=="2" | mes=="3")) %>%
    ggplot() +
    aes(x=0, y=tmedia) +
    ggtitle("Gráfico 1 - Temperaturas Médias dos Verões de João Pessoa") +
    theme(plot.title = element_text(hjust = 0.5)) +
    geom_boxplot(fill="lightblue") +
    stat_summary(fun=mean, geom="point", size=3) +
    geom_text(data=medias, aes(label=sprintf("%0.1f", tmedia)), size=2.5,
              vjust=-0.5) +
    facet_grid(~ano) +
    labs(x=NULL, y="Temperatura Média (ºC)") +
    theme(axis.text.x=element_blank())

De forma bem clara se destaca o verão de 1998, com uma incrível temperatura média de 29,5, a maior das analisadas e com uma variação de temperatura durante os 3 meses muito próximo dessa média e com topo acima dos 30 graus.

CHUVA

Qual foi o São João de Campina Grande mais chuvoso?

Mais uma vez utilizando da análise de boxplots através do tempo, podemos observar a precipitação dos meses de junho na cidade de Campina Grande no Gráfico 2.

medias <- subset(clima, cidade=="Campina Grande" & mes=="6") %>% 
    group_by(ano) %>% 
    summarise(chuva = mean(chuva), .groups="drop")

subset(clima, cidade=="Campina Grande" & mes=="6") %>%
    ggplot() +
    aes(x=0, y=chuva) +
    ggtitle("Gráfico 2 - Precipitação dos meses de São João de Campina Grande") +
    theme(plot.title = element_text(hjust = 0.5)) +
    geom_boxplot(fill="lightblue") +
    stat_summary(fun=mean, geom="point", size=3) +
    geom_text(data=medias, aes(label=sprintf("%0.1f", chuva)), size=2.5,
              vjust=-0.5) +
    facet_grid(~ano) +
    labs(x=NULL, y="Precipitação Média (mm)") +
    theme(axis.text.x=element_blank())

Dessa vez não ficou tão claro qual ano teve o mês de junho mais chuvoso, pois apesar do ano de 2012 ter tido uma semana com precipitação superior aos 100mm, também teve semanas sem quase precipitação. Até por isso sua média está muito próxima do ano de 2005, que inclusive tem uma média maior, entretanto, pouco ultrapassa o nível dos 50mm durantes as semanas. Para tentar clarificar um pouco mais o cenário, pode-se tentar somar o total de precipitação desses meses em específico na tentativa de encontrar algum com mais volume de chuva, como pode ser observado na Tabela 1.

selecao <- subset(clima, cidade=="Campina Grande" & mes=="6" & (ano=="2005" | ano=="2012"))
meses_chuvosos = melt(selecao, id.vars = c("ano", "chuva", "semana")) %>%
    group_by(ano) %>% 
    summarise(sum = sum(chuva), .groups="drop")

kable(meses_chuvosos, caption = "Tabela 1 - Comparação do acumulado de chuva no São João de Campina Grande nos anos de 2005 e 2012.")%>%kable_styling()
Tabela 1 - Comparação do acumulado de chuva no São João de Campina Grande nos anos de 2005 e 2012.
ano sum
2005 1069.5
2012 1065.5

Como pode ser observado na tabela, apesar do volume de chuva em 2005 ter superado o valor de 2012, mas tecnicamente eles são muito parecidos e portanto esses dois anos foram os mais chuvosos para o São João de Campina Grande dentro do período estudado.