R语言ggplot2包 生成灰色 #设置新罗马字体 #设置彩色

  scale_fill_manual(values = c("black", "white", "gray50", "gray70", "gray90"))

  scale_fill_manual(values = c("#C77CFF","#00BFC4","#F8766D", "#7CAE00" ))

#设置新罗马字体
windowsFonts(A=windowsFont("Times New Roman"),
             B=windowsFont("Arial"))

#读取数据
mydata <- read.csv(file.choose())