R语言绘制不同颜色的羽毛图

library(ggplot2)

ggplot(df,aes(Date,Value))+
  geom_bar(stat = "identity", width = 10,colour="black",size=0.25,fill="#3BC8EB")+
  scale_x_continuous(breaks=seq(0,360,30))+
  scale_y_continuous(breaks=seq(0,115,30),limits=c(-30,115))+
  coord_polar(theta = "x",start=0) +
  theme_light()+
  theme( panel.background = element_blank(),
         panel.grid.major = element_line(colour = "grey80",size=.25),
         axis.text.y = element_text(size = 11,colour="black"),
         axis.line.y = element_line(size=0.25),
         axis.text.x=element_text(size = 11,colour="black"))

ggplot(df,aes(Date,Value))+
  geom_bar(stat = "identity", width = 10,colour="black",size=0.25,fill="#9ACD32")+
  scale_x_continuous(breaks=seq(0,360,30))+
  scale_y_continuous(breaks=seq(0,115,30),limits=c(-30,115))+
  coord_polar(theta = "x",start=0) +
  theme_light()+
  theme( panel.background = element_blank(),
         panel.grid.major = element_line(colour = "grey80",size=.25),
         axis.text.y = element_text(size = 11,colour="black"),
         axis.line.y = element_line(size=0.25),
         axis.text.x=element_text(size = 11,colour="black"))

ggplot(df,aes(Date,Value))+
  geom_bar(stat = "identity", width = 10,colour="black",size=0.25,fill="#E0FFFF")+
  scale_x_continuous(breaks=seq(0,360,30))+
  scale_y_continuous(breaks=seq(0,115,30),limits=c(-30,115))+
  coord_polar(theta = "x",start=0) +
  theme_light()+
  theme( panel.background = element_blank(),
         panel.grid.major = element_line(colour = "grey80",size=.25),
         axis.text.y = element_text(size = 11,colour="black"),
         axis.line.y = element_line(size=0.25),
         axis.text.x=element_text(size = 11,colour="black"))

ggplot(df,aes(Date,Value))+
  geom_bar(stat = "identity", width = 10,colour="black",size=0.25,fill="#FAFAD2")+
  scale_x_continuous(breaks=seq(0,360,30))+
  scale_y_continuous(breaks=seq(0,115,30),limits=c(-30,115))+
  coord_polar(theta = "x",start=0) +
  theme_light()+
  theme( panel.background = element_blank(),
         panel.grid.major = element_line(colour = "grey80",size=.25),
         axis.text.y = element_text(size = 11,colour="black"),
         axis.line.y = element_line(size=0.25),
         axis.text.x=element_text(size = 11,colour="black"))

ggplot(df,aes(Date,Value))+
  geom_bar(stat = "identity", width = 10,colour="black",size=0.25,fill="#90EE90")+
  scale_x_continuous(breaks=seq(0,360,30))+
  scale_y_continuous(breaks=seq(0,115,30),limits=c(-30,115))+
  coord_polar(theta = "x",start=0) +
  theme_light()+
  theme( panel.background = element_blank(),
         panel.grid.major = element_line(colour = "grey80",size=.25),
         axis.text.y = element_text(size = 11,colour="black"),
         axis.line.y = element_line(size=0.25),
         axis.text.x=element_text(size = 11,colour="black"))

ggplot(df,aes(Date,Value))+
  geom_bar(stat = "identity", width = 10,colour="black",size=0.25,fill="#FFB6C1")+
  scale_x_continuous(breaks=seq(0,360,30))+
  scale_y_continuous(breaks=seq(0,115,30),limits=c(-30,115))+
  coord_polar(theta = "x",start=0) +
  theme_light()+
  theme( panel.background = element_blank(),
         panel.grid.major = element_line(colour = "grey80",size=.25),
         axis.text.y = element_text(size = 11,colour="black"),
         axis.line.y = element_line(size=0.25),
         axis.text.x=element_text(size = 11,colour="black"))

ggplot(df,aes(Date,Value))+
  geom_bar(stat = "identity", width = 10,colour="black",size=0.25,fill="#FFA07A")+
  scale_x_continuous(breaks=seq(0,360,30))+
  scale_y_continuous(breaks=seq(0,115,30),limits=c(-30,115))+
  coord_polar(theta = "x",start=0) +
  theme_light()+
  theme( panel.background = element_blank(),
         panel.grid.major = element_line(colour = "grey80",size=.25),
         axis.text.y = element_text(size = 11,colour="black"),
         axis.line.y = element_line(size=0.25),
         axis.text.x=element_text(size = 11,colour="black"))

ggplot(df,aes(Date,Value))+
  geom_bar(stat = "identity", width = 10,colour="black",size=0.25,fill="#20B2AA")+
  scale_x_continuous(breaks=seq(0,360,30))+
  scale_y_continuous(breaks=seq(0,115,30),limits=c(-30,115))+
  coord_polar(theta = "x",start=0) +
  theme_light()+
  theme( panel.background = element_blank(),
         panel.grid.major = element_line(colour = "grey80",size=.25),
         axis.text.y = element_text(size = 11,colour="black"),
         axis.line.y = element_line(size=0.25),
         axis.text.x=element_text(size = 11,colour="black"))

参考文献：https://blog.csdn.net/m0_38127487/article/details/127945751?spm=1001.2014.3001.5501

开发工具:RStudio和Alt+A快捷截屏工具