luisDVA

library(ggplot2)
library(dplyr)

# datos internos que vienen con ggplot2
animals <-
  msleep %>% slice_max(sleep_rem, n = 30) %>% # seleccionando top 30
  ggplot(aes(x = forcats::fct_reorder(name, sleep_total), y = sleep_total, label = name)) +
  geom_bar(stat = "identity") + xlab("") +
  geom_text(nudge_y = 2, hjust = 0) +
  theme(

luisDVA

## %######################################################%##
#                                                          #
####   Understanding a regular expression - your turn   ####
#                                                          #
## %######################################################%##

# Write regular expressions to match:
# Test with stringr, regexplain, or a web-based regex tester

# "cute, cuuute, cuuuuuute, and cuuuuuuuuute"

luisDVA

## %######################################################%##
#                                                          #
####        Regex for data cleaning - your turn         ####
#                                                          #
## %######################################################%##

# 1. Download CRAN package descriptions
# 2. Select Package name, author, description, and all variables that end in 'ports'
# 3. Filter rows for packages with names that:
#    - end in plot

luisDVA

## %######################################################%##
#                                                          #
####          Missing, implicit, or misplaced           ####
####           grouping variables - your turn           ####
#                                                          #
## %######################################################%##

# Load the `primates2017` dataset bundled with 📦 `unheadr`
# Create a new column that groups the different species by taxonomic family.
# In biology, taxonomic families all end in the suffix "_DAE_"

luisDVA

## %######################################################%##
#                                                          #
####               Duplicates - your turn               ####
#                                                          #
## %######################################################%##

# Load the messy Age of Empires units dataset bundled with `unheadr` (AOEunits_raw)
# Keep only units of Type "Cavalry"
# Identify duplicated records across all variables
# Remove duplicated records across all variables

luisDVA

## %######################################################%##
#                                                          #
####         Useful dplyr functions - your turn         ####
#                                                          #
## %######################################################%##


# Load the mammal sleep data bundled with ggplot2
# Select "name" and "conservation" columns and those that include the string 'sleep' in their name
# Create a new column that contains the values of 'sleep_total' multiplied by 3

luisDVA

## %######################################################%##
#                                                          #
####   Working with columns with 'across' - Your Turn   ####
#                                                          #
## %######################################################%##

# Load the midwest data bundled with ggplot2
# Keep only rows for Ohio (OH)
# Subset the 'county' column and all columns that match the string 'pop' (hint: use a selection helper)
# Square-root transform all numeric variables

luisDVA

## %######################################################%##
#                                                          #
####           Coalesce and Fill - Your Turn            ####
#                                                          #
## %######################################################%##

# Load the fish landings data 'fish-landings.csv'
# Fill the 'Fish' and 'Lake' columns
# Reorder the numeric variables ('Comission reported total' first)
# create a new column, coalescing the three numeric variables

luisDVA

## %######################################################%##
#                                                          #
####             Pivoting Data - Your Turn              ####
#                                                          #
## %######################################################%##

# Load the dog ranks data ("dogranks_your.csv")
# Pivot the data (wide to long and back to wide)

# load packages -----------------------------------------------------------

luisDVA

## %######################################################%##
#                                                          #
####            Putting everything together             ####
####        Chained data cleaning demonstration         ####
#                                                          #
## %######################################################%##


# Load the raw Age of Empires units dataset from csv (aoe_raw.csv)
# Identify and fix common issues that make these data unusable