Import data

# csv file


# excel file
data <- read_excel("data/myData.xlsx", skip = 1)
data
## # A tibble: 1,187 × 19
##    cheese    url   milk  country region family type  fat_content calcium_content
##    <chr>     <chr> <chr> <chr>   <chr>  <chr>  <chr> <chr>       <chr>          
##  1 Aarewass… http… cow   Switze… NA     NA     semi… NA          NA             
##  2 Abbaye d… http… sheep France  Pays … NA     semi… NA          NA             
##  3 Abbaye d… http… cow   France  NA     NA     semi… 40-46%      NA             
##  4 Abbaye d… http… cow   France  Burgu… NA     semi… NA          NA             
##  5 Abbaye d… http… cow   France  Savoie NA     soft… NA          NA             
##  6 Abbaye d… http… cow   France  provi… NA     semi… NA          NA             
##  7 Abbaye d… http… cow   France  Nord-… NA     semi… 50%         NA             
##  8 Abbot’s … http… cow   Englan… North… Chedd… semi… NA          NA             
##  9 Abertam   http… sheep Czech … Karlo… NA     hard… 45%         NA             
## 10 Abondance http… cow   France  NA     NA     semi… NA          NA             
## # ℹ 1,177 more rows
## # ℹ 10 more variables: texture <chr>, rind <chr>, color <chr>, flavor <chr>,
## #   aroma <chr>, vegetarian <chr>, vegan <chr>, synonyms <chr>,
## #   alt_spellings <chr>, producers <chr>

Plot data

data %>%
    
    ggplot(aes(milk)) +
    geom_bar() +
    coord_flip()