Publications by Alexis Marcolini
Publish Document
Import your data data <- read_excel("../00_data/MyData.xlsx") Chapter 15 Create a factor Modify factor order Make two bar charts here - one before ordering another after # Transform data: calculate average male athletes by state State_cd_by_ef_male_count <- data %>% group_by(state_cd) %>% summarise( avg_ef_male_count = mea...
292 sym 3 img
Publish Document
Import your data data <- read_excel("../00_data/MyData.xlsx") Chapter 14 Tools Detect matches data$state_cd ## [1] "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" ## [15] "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" ## [29] "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL"...
111 sym
Publish Document
Import data flights ## # A tibble: 336,776 × 19 ## year month day dep_time sched_dep_time dep_delay arr_time sched_arr_time ## <int> <int> <int> <int> <int> <dbl> <int> <int> ## 1 2013 1 1 517 515 2 830 819 ## 2 2013 1 1 533 529 ...
377 sym
Document
Import your data data <- read_excel("../00_data/MyData.xlsx") Chapter 14 Tools Detect matches data$state_cd ## [1] "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" ## [15] "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" ## [29] "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL" "AL"...
111 sym
Publish Document
Introduction Questions Variation ggplot(data = data) + geom_bar(mapping = aes(x = sports)) data %>% count(sports) ## # A tibble: 31 × 2 ## sports n ## <chr> <int> ## 1 All Track Combined 3599 ## 2 Archery 39 ## 3 Basketball 9443 ## 4 Beach Volleyball 61 ## 5 Bowling ...
287 sym R (2387 sym/20 pcs) 14 img
Document
Introduction nycflights13 Keys Mutating joins Inner join x <- tribble( ~key, ~val_x, 1, "x1", 2, "x2", 3, "x3" ) y <- tribble( ~key, ~val_y, 1, "y1", 2, "y2", 4, "y3" ) inner_join(x, y) ## Joining with `by = join_by(key)` ## # A tibble: 2 × 3 ## key val_x val_y ## <dbl> <chr> <chr> ## 1 ...
205 sym Python (5398 sym/43 pcs)
Document
Tidy data Pivoting long to wide form table4a_long <- table4a %>% pivot_longer(cols = c(`1999`, `2000`), names_to = "year", values_to = "cases") wide to long form table4a_long %>% pivot_wider(names_from = year, values_from = cases) ## # A tibble: 3 × 3 ## country `1999` `2...
180 sym Python (2782 sym/16 pcs)
Document
Introduction Questions Variation ggplot(data = data) + geom_bar(mapping = aes(x = sports)) data %>% count(sports) ## # A tibble: 38 × 2 ## sports n ## <chr> <int> ## 1 All Track Combined 4870 ## 2 Archery 1557 ## 3 Badminton 1554 ## 4 Baseball 8644 ## 5 Basketba...
263 sym 3 img
Publish Document
Import your data data <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2022/2022-03-29/sports.csv') ## Rows: 132327 Columns: 28 ## ── Column specification ────────────────────────────────────────────────�...
163 sym Python (2231 sym/8 pcs)
Publish Document
Import your data data <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2022/2022-03-29/sports.csv') ## Rows: 132327 Columns: 28 ## ── Column specification ────────────────────────────────────────────────�...
172 sym Python (6446 sym/17 pcs)