R - Manipulação de Dados

dataManipulation.R

#Manipulação de dados

install.packages('dplyr')
library('dplyr')

head(starwars)

#Mutate
s2 <- mutate(starwars,
             imc = mass / ((height / 100) ^ 2) )


load("~/Aula/BrFlights2.RData")

BrFlights2 = mutate(BrFlights2,
         Partida.Atraso = difftime(Partida.Real,Partida.Prevista, units = "mins"),
         Chegada.Atraso = difftime(Chegada.Real,Chegada.Prevista, units = "mins"),
         DistanciaEuclidiana = sqrt(((LatDest - LatOrig)^2) + ((LongDest - LongDest)^2)),
         TempoViagem.Real = difftime(Chegada.Real,Partida.Real, units = "hours"))


#Pipe
starwars %>% head (.)
#ou head(starwars)


#Filters
starwars %>%
  filter(species == "Droid")

starwars %>%
  filter(species == "Droid") %>%
  View()

BrFlights2 %>% filter(Companhia.Aerea == "AZUL") %>% View()


#SELECT
starwars %>%
  select(name, ends_with("color"))

#Sequencia de colunas
starwars %>%
  mutate(name, imc = mass / ((height / 100) ^ 2)) %>%
  select(name:mass, imc)

#Reordenar linhas
starwars %>% arrange(desc(mass))

#Agregações
starwars %>%
group_by(species) %>%
summarise(
j = n())

starwars %>%
group_by(species) %>%
summarise(
j = n(),
mass = mean(mass, na.rm = TRUE)
) %>%
filter(j > 1)