R Modify Fill & Border Colors of ggplot2 Scatterplot (Example Code)

data(iris)                     # Loading iris data
head(iris)
#   Sepal.Length Sepal.Width Petal.Length Petal.Width Species
# 1          5.1         3.5          1.4         0.2  setosa
# 2          4.9         3.0          1.4         0.2  setosa
# 3          4.7         3.2          1.3         0.2  setosa
# 4          4.6         3.1          1.5         0.2  setosa
# 5          5.0         3.6          1.4         0.2  setosa
# 6          5.4         3.9          1.7         0.4  setosa

data(iris) # Loading iris data head(iris) # Sepal.Length Sepal.Width Petal.Length Petal.Width Species # 1 5.1 3.5 1.4 0.2 setosa # 2 4.9 3.0 1.4 0.2 setosa # 3 4.7 3.2 1.3 0.2 setosa # 4 4.6 3.1 1.5 0.2 setosa # 5 5.0 3.6 1.4 0.2 setosa # 6 5.4 3.9 1.7 0.4 setosa

install.packages("ggplot2")    # Install & load ggplot2 package
library("ggplot2")

install.packages("ggplot2") # Install & load ggplot2 package library("ggplot2")

my_plot <- ggplot(iris,        # Creating ggplot2 graphic
              aes(x = Sepal.Length,
                  y = Sepal.Width,
                  color = Species,
                  fill = Species)) +
  geom_point(size = 3,
             shape = 21,
             stroke = 1)
my_plot                        # Drawing ggplot2 graphic

my_plot <- ggplot(iris, # Creating ggplot2 graphic aes(x = Sepal.Length, y = Sepal.Width, color = Species, fill = Species)) + geom_point(size = 3, shape = 21, stroke = 1) my_plot # Drawing ggplot2 graphic

my_plot +                      # Modifying fill & border colors
  scale_fill_manual(values = c("setosa" = "white",
                               "versicolor" = "orange",
                               "virginica" = "purple")) +
  scale_color_manual(values = c("setosa" = "red",
                                "versicolor" = "black",
                                "virginica" = "yellow"))

my_plot + # Modifying fill & border colors scale_fill_manual(values = c("setosa" = "white", "versicolor" = "orange", "virginica" = "purple")) + scale_color_manual(values = c("setosa" = "red", "versicolor" = "black", "virginica" = "yellow"))