Module 6: Apply 5

Import data

# excel file
fires <- read_excel("myData.xlsx")
data

Apply the following dplyr verbs to your data

Filter rows

filter(fires, Numeric_Class == 3)

Arrange rows

arrange(fires, desc(DAMAGE_COSTS))

Select columns

select(fires, YEAR:ACRES_BURNED) 
select(fires, contains("ACRES"))

Add columns

mutate(fires,
       gain = DAMAGE_COSTS/ACRES_BURNED) %>%
    
    # Select YEAR, NUMBER_FIRES, ACRES_BURNED, DAMAGE_COSTS, and gain
    select(YEAR:DAMAGE_COSTS, gain)

Summarize by groups

# average number of fires
summarise(fires, amount = mean(NUMBER_FIRES, na.rm = TRUE))

fires %>%
    group_by(Numeric_Class) %>%
    summarise(count = n()) %>%
    ungroup()