山寨版 Color Checker 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
#### 颜色
colours<-c("#735244", "#c29682", "#627a9d", "#576c43", "#8580b1", "#67bdaa", "#d67e2c", "#505ba6",
 "#c15a63", "#5e3c6c", "#9dbc40", "#e0a32e", "#383d96", "#469449", "#af363c", "#e7c71f",
 "#bb5695", "#0885a1", "#f3f3f2", "#c8c8c8", "#a0a0a0", "#7a7a79", "#555555", "#343434")
#### xy矩阵
x =1:24
y =1:24
dim(x)<-c(4, 6)
dim(y)<-c(4, 6)
x1 =2
y1 =-2
for(i in1:6){
  for(j in1:4){
      x[j, i]<-x1 +i*(13.5+2)
      y[j, i]<-y1 -j*(13.5+2)
  }
}
#### 定义颜色块出现的位置
x2 <-x -13.5
y2 <-y -13.5
### pdf(file ="color.checkerNaNyk.pdf", width =4, height = 3,colormodel="cmyk")
#pdf(file = "color.checker.rgb.pdf", width =4.2,height = 3)
par(bg ='black', mar =c(0,0,.8,0))
plot(1, xlim=c(5, 94), ylim =c(-77, -18),pch ="")
cols <-colours
k =1
for(i in1:4){
  for(j in1:6){
      rect(x[i,j],y[i,j],x2[i,j],y2[i,j],col= cols[k])
      k =k +1
  }
}
mtext("Colour Checker in RGB",side =3, line=.01, col="white",cex =0.6)
#dev.off()
#pdf(file ="color.checker.CMYK.pdf", width =4.2, height =3,colormodel="cmyk")
par(bg ='black', mar =c(0,0,.8,0))
plot(1, xlim=c(5, 94), ylim =c(-77, -18),pch ="")
cols <-colours
k =1
for(i in1:4){
  for(j in1:6){
      rect(x[i,j],y[i,j],x2[i,j],y2[i,j],col= cols[k])
      k =k +1
  }
}
mtext("Colour Checker in CMYK",side =3, line=.01, col="white",cex =0.6)
#dev.off()