R草稿

R草稿

colors()

a<-1:26
b<-1:26
d<-merge(a,b)
d<-d[1:657]
par(mfrow=c(1,1))
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)
  }
}

plot(1:10,col=colors()[26],pch=15,cex=4)

#调色板
rainbow()
heat.colors()
terrain.colors()
topo.colors()
plot(1:10,rep(1,10),col=rainbow(10,alpha = 0.5),pch=15,cex=5)
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)

#扩展颜色
col1<-colorRampPalette(c('yellow','blue'))(50)
plot(1:50,col=col1,pch=16,cex=2)

mtcars<-mtcars[order(mtcars$wt),]
plot(mtcars$wt,mtcars$disp,col=col1,pch=16,cex=2)

#配色方案
library(RColorBrewer)
display.brewer.all()
col2<-brewer.pal(8,'Accent')
plot(1:8,rep(1,8),col=col2,pch=16,cex=2)

library(colorspace)
hcl_palettes(plot = T)
col3<-qualitative_hcl(8,'Warm')
plot(1:8,rep(1,8),col=col3,pch=16,cex=3)

col3<-sequential_hcl(8,'Grays')
col3<-diverge_hcl(8,'Blue-Red')