# Dicas básica #03
# Carregue os pacotes que iremos usar
library(readxl)
library(writexl)

# Indique, entre as aspas, o endereço onde se encontra o arquivo de dados
setwd("C:/Users/Usuário/Desktop")

# Carregue o arquivo de dados
dados <- read_excel("dicas03.xlsx")

# Uma forma de visualizar e editar os dados do data frame
edit(dados)

# Formas para calcular estatísticas descritivas de grupos de dados

# Usando a função tapply
# Formato 01
medias <- tapply(dados$cc, dados$solo, mean)

medias

# Formato 02 - Combinado fatores de um data frame
medias <- tapply(dados$cc, 
                 list(dados$solo, dados$prof), 
                 mean)

medias

# Usando agreggate
# Formato 01
medias <- aggregate(ds ~ solo, 
                    data = dados, 
                    FUN = mean)

medias
# Formato 02
medias <- aggregate(ds ~ solo + prof, 
                    data = dados, 
                    FUN = mean)

medias

# Formato 03
medias <- aggregate(cbind(cc, ds) ~ solo + prof, 
                    data = dados, 
                    FUN = mean)

medias

# Formato 04
medias <- aggregate(x = dados$ds, 
                    by = list(dados$solo, dados$prof), 
                    FUN = mean)

medias

# Podemos exportar estes data frame usando writexl
write_xlsx(medias, "medias.xlsx")