# install.packages("dplyr")
library(dplyr)
					
# teste select - selecionar colunas (projeção)
temperaturas <- select(df_clima_consolidado, 
                       cidade, history.observations.tempm, 
                       history.observations.tempi)
head(temperaturas)
head(select(df_clima_consolidado, estado:hora))
head(select(df_clima_consolidado, starts_with("history")))

# teste filter - selecionar linhas (seleção)
filter(df_clima_consolidado, posicao == 10000)
head(filter(df_clima_consolidado, 
            estado == "CA", 
            cidade == "Sacramento"))

head(filter(df_clima_consolidado, estado %in% c("FL", "TX")))

# Operador %>%
df_clima_consolidado  %>% 
  filter(posicao == 10000) %>% 
  select(estado:hora)

# teste order - ordenar linhas (ordenação)
df_clima_consolidado  %>% 
	filter(estado %in% c("FL", "TX")) %>% 
	select(estado:hora, posicao) %>% 
	arrange(cidade) %>% 
	head

# teste summarise - agregação
df_clima_consolidado %>% 
	summarise(media_temperaturas = 
	            mean(as.numeric(history.observations.tempm)))

# Mais funções de agregação
df_clima_consolidado %>% 
  summarise(temp_media = mean(as.numeric(history.observations.tempm)),
  temp_max = max(as.numeric(history.observations.tempm)),
  temp_min = min(as.numeric(history.observations.tempm)),
  quantas = n())