R中图形要素的颜色
#设置图形要素的颜色（回顾）
#一、用颜色名
#1）Plot函数中，使用col=参数来决定要素的颜色
#2）如果指不定plot type，颜色加在散点上，如果指定了plot type,例如line，则颜色加在线上
#3)其它函数，例如柱形图：barplot()和直方图：histogram()也使用col=参数影响颜色
#二、使用数值表达颜色
#n为当前调色板上的颜色值
#缺省调色板下，1：红色；2：绿色；0：背景颜色
#palette()函数观看当前调色板
palette()
col=n
#改变缺省调色板
palette(c("red","blue","green","orange"))
palette()
#恢复成原来缺省的样子
palette("default")
palette()
#三、十六进制表达的颜色
#"#"-表示十六进制数；“AC"--前两组表示红色；”55“--表示绿色；”00“--表示蓝色；”BB“--alpha(透明度)
plot(rnorm(1000),col="#AC5500BB")
#函数rgb（）可以根据输入颜色的亮度，透明度帮组转换成对应的十六进制颜色字符串
#颜色值从0-1；0--最暗的；1--最亮的
rgb(0.5,0.5,0.5,0.5)
#自动产生颜色函数heat.colors
heat.colors(5)
#直观的调色板控制宝RColorBrewer
#加载RColorBrewer包
library(RColorBrewer)
#显示所有的颜色
display.brewer.all()
#用包里的调色板来代替当前的调色板
#YlOrRd黄色画红色--红黄色系；7--指定调色板有7种颜色
brewer.pal(7,"YlOrRd")
display.brewer.pal(7,"YlOrRd")
sales<-read.csv("G:\\R_workspace\\sales.csv")
#这里用颜色表示不同的样本，(要求颜色数和样本数要相等,我自己验证好像不一样也可以，可以重复利用有定义的颜色)
barplot(as.matrix(sales[,2:4]),beside=T,legend=sales$City,
col=c("red","blue","green","orange","pink"),border="white")
#一下两种方式都可以
barplot(as.matrix(sales[,2:4]),legend=sales$City,
col=c("red","blue","green"),border="white")
barplot(as.matrix(sales[,2:4]),legend=sales$City,
col=c("red","blue","green","orange","pink"),border="white")
#利用heat.colors()自动生成颜色
barplot(as.matrix(sales[,2:4]),beside=T,legend=sales$City,
col=heat.colors(length(sales$City)),border="white")
#除了heat.colors()以外，还有可以产生颜色的
#---rainbow()
barplot(as.matrix(sales[,2:4]),beside=T,legend=sales$City,
col=rainbow(length(sales$City)),border="white")
#--terrain.colors()--也可以产生颜色(这种方式产生的颜色比较素净，表现不强烈)
barplot(as.matrix(sales[,2:4]),beside=T,legend=sales$City,
col=terrain.colors(length(sales$City)),border="white")
#--cm.colors()--(这种方式产生的颜色比较素净，表现不强烈)
barplot(as.matrix(sales[,2:4]),beside=T,legend=sales$City,
col=cm.colors(length(sales$City)),border="white")
#--topo.colors()--(这种方式产生的颜色比较鲜明)
barplot(as.matrix(sales[,2:4]),beside=T,legend=sales$City,
col=topo.colors(length(sales$City)),border="white")
#设置背景颜色
#par()的作用知道画板被关闭
#par--parameter--设置画图参数的语句--当前画板的控制语句
#par中指定的颜色是全局的，但是如果plot中也指定了，就以plot中指定的颜色为准
#par的有效使用范围是当前画板上，如果想使这个设置失效有两种办法
#---1：用新的par覆盖它
#---2:直接关掉画板
par(bg="gray")
plot(rnorm(100))
#只设置坐标系内的背景颜色
plot(rnorm(100),type="n")
#x的值就是图中大矩形的四个顶点的坐标
x<-par("usr")
#对四个顶点坐标所表示的区域进行背景颜色的设置
rect(x[1],x[3],x[2],x[4],col="lightgray")
#再在背景上标出散点
points(rnorm(1000))
#设置标题、坐标轴标号等颜色
#col.axis="blue"---设置坐标轴刻度颜色
#col.lab="red"---设置横纵坐标轴标题颜色
#col.main="darkblue"--设置标题颜色
plot(rnorm(100),main="Plot Title",col.axis="blue",col.lab="red",col.main="darkblue")
#使用par()设置
par(col.axis="black",col.lab="#444444",col.main="darkblue")
plot(rnorm(100),main="Plot")
#使用title（）函数
#---可以覆盖缺省的标题设置
#可以用于设置图画参数
title("Sales Figures for 2010",col.main="blue")
title(xlab="Month",ylab="Sales",col.lab="red")
title(xlab="X axis",col.lab="green")
title(ylab="Y axis",col.lab="blue")