标签：10 15 14 Day9 rep pch 打卡 col cex
# 第九课 配色
colors() #查看颜色，共有657种
x<-1:26
y<-1:26
d<-merge(x,y)
View(d) #merge这是一个函数，可见总共有676行，下面去除前657行，与系统颜色匹配
d<-d[1:657,]
View(d)
plot(d$x,d$y,col=colors(),cex=3)
plot(d$x,d$y,col=colors(),cex=3,pch=15)
#给每个颜色加上下标以便引用
#用循环
for(i in 1:26){
for (j in 1:26) {
text(i,j,labels = i+(j-1)*26,cex=0.5)
}
}
#接下来引用带有编号的颜色怎么引用呢，先来画个图看看，并且使用26号颜色填充
plot(1:10,col=colors()[26],pch=15,cex=3)
#调色板
##一下有三种R中的调色
rainbow()
heat.colors()
terrain.colors()
topo.colors()
rep(1,10) #这个函数表示生成10个1
plot(1:10,rep(1,10),col=rainbow(10),pch=15,cex=5)
plot(1:10,rep(1,10),col=rainbow(10,alpha = 0.5),pch=15,cex=5)#akpha表示将颜色变得透明
plot(1:10,rep(1,10),col=heat.colors(10),pch=15,cex=5)
plot(1:10,rep(1,10),col=terrain.colors(10),pch=15,cex=5)
plot(1:10,rep(1,10),col=topo.colors(10),pch=15,cex=5)
plot(1:10,rep(1,10),col=cm.colors(10),pch=15,cex=5)
#注意看以上三个函数得到的不同颜色
##下面讲扩展颜色的方法
###首先介绍一个函数
colorRampPalette(c('yellow','red'))#这个会返回一个函数，下面的方法可以引用50个数
colorRampPalette(c('yellow','red'))(50)#得到五十个十六进制的数
col1<-colorRampPalette(c('yellow','red'))(50)
plot(1:50,col=col1,pch=16,cex=2)#可得到从黄色到红色的渐变
mtcars
plot(mtcars$wt,mtcars$disp,col=col1,pch=16,cex=2)
#我们希望wt越大，颜色越深
rm(mtcars)
mtcars
mtcars<-mtcars[order(mtcars$wt),]
mtcars
plot(mtcars$wt,mtcars$disp,pch=16,cex=2,col=col1) #这样就可以用深浅表示大小了
#配色方案
install.packages('RColorBrewer')
library('RColorBrewer')
display.brewer.all()##可见有三块配色方案
brewer.pal(3,'Accent')#用于查看accent中的三种颜色
col2<-brewer.pal(3,'Accent')
plot(1:3,rep(1,3),col=col2,pch=15,cex=3)
install.packages('colorspace')
library(colorspace)
hcl_palettes(plot = T)
#调用
qualitative_hcl(8,'warm')#调用wram里面的8中颜色
col3<-qualitative_hcl(8,'warm')
plot(1:8,rep(1,8),col=col3,pch=16,cex=3)
col4<-sequential_hcl(8,'Grays')
plot(1:8,rep(1,8),col=col4,pch=16,cex=3)#这样就会显示渐变的效果
col4<-diverge_hcl(8,'Blue-Red')
plot(1:8,rep(1,8),col=col4,pch=16,cex=3)# 这样可以生成蓝-红对比色
# 作业9 ---------------------------------------------------------------------
#1、
install.packages('RColorBrewer')
library('RColorBrewer')
display.brewer.all()##可见有三块配色方案
col1<-brewer.pal(10,'Set3')
plot(1:10,rep(1,10),col=col1,pch=15,cex=3)
#2、
col2<-colorRampPalette(col1)(30)
plot(1:30,rep(1,30),col=col2,pch=15,cex=1.5)
#3、
col3<-colorRampPalette(c('gray','red'))(30)
plot(1:30,rep(2,30),col=col3,pch=15,cex=1.5)
col3<-colorRampPalette(col1)(30)
#4、
mtcars
mtcars<-mtcars[order(mtcars$hp),]
col4<-colorRampPalette(c('yellow','red'))(50)
plot(mtcars$wt,mtcars$disp,col=col4,pch=16,cex=2)
标签：10,15,14,Day9,rep,pch,打卡,col,cex 来源： https://www.cnblogs.com/chayibaishanlqy/p/11601411.html
本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享； 2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关； 3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关； 4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除； 5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。