R语言ggplot2作图时好玩的配色包~使用泰勒斯威夫特专辑的封面颜色

install.packages(c("tayloRswift"))

library(ggplot2)
library(tayloRswift)
colnames(iris)

p1<-ggplot(iris,aes(x=Sepal.Length,y=Sepal.Width))+
  geom_point(aes(color=Species),size=5)+
  theme_bw()+
  scale_color_taylor(palette = "lover")

p2<-ggplot(iris,aes(x=Sepal.Length,y=Sepal.Width))+
  geom_point(aes(color=Petal.Length),size=5)+
  theme_bw()+
  scale_color_taylor(palette = "Red",
                     discrete = F,
                     guide="none")

library(patchwork)
p1+p2