Caderno FIP-606

Published

September 5, 2026

Início

Sejam bem-vindos ao meu web site

SOBRE MIM

Olá! sou José Enrique Espitia López, sou Engenheiro em inovação agricola sustentavel pelo Instituto Tecnologico e Roque (México). Master Sciense em Fitotecnia pela Universidade Federal de Viçosa e atualmente doutorando no Programa de Pós-Graduação em FItopatologia atuando na Unidade de Controle Biologico

SOBRE A DISCIPLINA

A disciplina FIP-606 Análise e Visualização de Dados me permitiu compreender, explorar e interpretar diferentes conjuntos de dados de forma crítica e informada. Aprendi a organizar, limpar e separar dados para análises, reconhecendo os diferentes tipos de variáveis e suas características. Desenvolvi a capacidade de aplicar métodos estatísticos descritívos e inferenciais como testes de normalidade, correlação, regressão e ANOVA, afim de identificar padrões, tendências e relações entre as variáveis observadas. Tive ensinamentos sobre como comunicar os resultados de maneira clara, como na plotagem de gráficos, tabelas e outras visualizações adequadas para todos os tipos de informação. Neste site espero mostra um pouco do que aprendi ao longo do semestre.

AGRADECIMENTO

Agradeço ao Professor Emerson Del Ponte e ao monitor da disciplina Ricardo Gomes Tomáz por todos os ensinamentos passados. Tenho certeza de que tudo o que eu aprendi será muito útil para minha formação acadêmica.

Usaremos a função gsheet2tbl() do pacote [gsheet] para carregar os dados no ambiente

library(gsheet)
cr <- gsheet2tbl("https://docs.google.com/spreadsheets/d/1bq2N19DcZdtax2fQW9OHSGMR0X2__Z9T/edit?gid=1871397229#gid=1871397229")

Visualiza os dados

Usaremos a função datatable()

#install.packages("DT") #para tabela interativa
library(DT)
datatable(cr)

Graficos

library(tidyverse)

cr|>
  ggplot(aes(lon, lat)) +
  geom_point()

library(rnaturalearth)
library(rnaturalearthhires)
library(remotes)
remotes::install_github("ropensci/rnaturalearthhires")

* checking for file 'C:\Users\USUARIO\AppData\Local\Temp\RtmpiSegu8\remotes279045ac2ea5\ropensci-rnaturalearthhires-e4736f6/DESCRIPTION' ... OK
* preparing 'rnaturalearthhires':
* checking DESCRIPTION meta-information ... OK
* checking for LF line-endings in source and make files and shell scripts
* checking for empty or unneeded directories
* building 'rnaturalearthhires_1.0.0.9000.tar.gz'

ETH <- ne_states(country = "Ethiopia",
                 returnclass = "sf")

library(tidyverse)
library(ggspatial)

ETH|>
ggplot()+
  geom_sf(fill = "white") +
  geom_point(data= cr, aes(lon, lat, color= inc)) +
  scale_color_viridis_c()+
  theme_minimal()+
  theme(legend.position = "bottom")+
  annotation_scale(location = "tl") +
  annotation_north_arrow(location = "br", which_north = "true")+
  labs(title = "ferrugem do café na Etiópia",
       x = "longitude", y = "latitude",
       subtitle = "levanta",
       caption = "Fonye: Del Ponte et al. (2025)",
       color = "incidencia (%)")

ggsave("mapa_ethiopia.png", bg = "white", width = 10)