iris |> 
  ggplot(aes(x="Sepal.Length", y="Sepal.Width))

iris |> 
  ggplot(aes(x="Sepal.Length", y="Sepal.Width)) +
  geom_point(size=2)

iris |> 
  ggplot(aes(x="Sepal.Length", y="Sepal.Width)) +
  geom_point(size=2) +
  labs(x="がく片の長さ", y="がく片の幅")