Create a scatter plot between multiple variables

Create a scatter plot between flavanoids and phenols. Have the point color and shape reflect the wine origin.

given:

wineurl <- paste("https://archive.ics.uci.edu/ml/",
             "machine-learning-databases/wine/wine.data", sep = "")
wine <- as_tibble(read.csv(file = wineurl, header = FALSE))``
colnames(wine) <- c("origin", "alcohol", "acid", 
                       "ash", "alcalinity", "magnesium", 
                       "phenols", "flavanoids", "nonflavanoid",
                       "proanthocyanins","color.int", "hue",
                       "od", "proline")

wine <- wine %>% 
  mutate(origin = factor(origin))