Botanical Fruit List

list <- read_csv("https://github.com/crystaliquezada/week3transformations/raw/main/Fruits%20-%20Sheet1.csv", show_col_types = FALSE)

new_list <- list%>% 
  mutate (Fruit_Name = c("bell pepper", "bilberry", "blackberry", "blood orange", 
                    "blueberry", "cantaloupe", "chili pepper", "cloudberry", 
                    "elderberry", "lime", "lychee", "mulberry", 
                    "olive", "salal berry")) %>% 
  mutate(Kind = c("Botanical", "Fruit", "Fruit", "Fruit", "Bruit", 
                  "Bruit", "Botanical", "Fruit", "Fruit", "Fruit", 
                  "Fruit", "Fruit","Fruit", "Fruit"))

new_list %>% 
  select(Fruit_Name)

## # A tibble: 14 × 1
##    Fruit_Name  
##    <chr>       
##  1 bell pepper 
##  2 bilberry    
##  3 blackberry  
##  4 blood orange
##  5 blueberry   
##  6 cantaloupe  
##  7 chili pepper
##  8 cloudberry  
##  9 elderberry  
## 10 lime        
## 11 lychee      
## 12 mulberry    
## 13 olive       
## 14 salal berry