# Pacotes necessários
library(readxl)
library(knitr) # para exibir como tabela
library(dplyr)
# Ler os dados da planilha
dados <- read_excel("Trabalho final Emerson.xlsx", sheet = "Planilha1")
# Mostrar os primeiros registros da tabela (ou use `dados` para tudo)
kable(head(dados,), caption = "Amostra dos dados da planilha")| Tratamento | Planta | Trifolio | Foliolo | Avaliador | Dia | Severidade |
|---|---|---|---|---|---|---|
| Isolado 1 | 1 | 1 | 1 | A | 14 | 0 |
| Isolado 1 | 1 | 1 | 2 | A | 14 | 0 |
| Isolado 1 | 1 | 1 | 3 | A | 14 | 0 |
| Isolado 1 | 2 | 1 | 1 | A | 14 | 1 |
| Isolado 1 | 2 | 1 | 2 | A | 14 | 1 |
| Isolado 1 | 2 | 1 | 3 | A | 14 | 1 |