Week 4: Apply 3

Import data

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

## # A tibble: 120 × 25
##    Column1 series baker     star_baker technical_winner technical_top3
##      <dbl>  <dbl> <chr>          <dbl>            <dbl>          <dbl>
##  1       1      1 Annetha            0                0              1
##  2       2      1 David              0                0              1
##  3       3      1 Edd                0                2              4
##  4       4      1 Jasminder          0                0              2
##  5       5      1 Jonathan           0                1              1
##  6       6      1 Lea                0                0              0
##  7       7      1 Louise             0                0              0
##  8       8      1 Mark               0                0              0
##  9       9      1 Miranda            0                2              4
## 10      10      1 Ruth               0                0              2
## # ℹ 110 more rows
## # ℹ 19 more variables: technical_bottom <dbl>, technical_highest <chr>,
## #   technical_lowest <chr>, technical_median <chr>, series_winner <dbl>,
## #   series_runner_up <dbl>, total_episodes_appeared <dbl>,
## #   first_date_appeared <chr>, last_date_appeared <chr>, first_date_us <chr>,
## #   last_date_us <chr>, percent_episodes_appeared <dbl>,
## #   percent_technical_top3 <dbl>, baker_full <chr>, age <dbl>, …

Plot prices

data %>%
    
    ggplot(aes(technical_winner)) +
    geom_bar()