颜色点根据范围R

Question

我正在绘制两个矩阵与对的组合，并希望指定行范围的颜色。我带来的解决方案对我来说似乎很难看。有没有建议直接指定要根据指定颜色着色的行（或/和列）范围？ 提前谢谢！

# C - is combination of two matrices A and B
C <- rbind(A,B)
C_f <- as.factor(c(rep("label1",nrow(A)),rep("label2",nrow(B))))
pairs(C, col=c("red", "blue")[C_f])

# EDIT: added matrix generation as  thelatemail asked
A<-matrix(sample(1:100,rep=T),10,10)
B<-matrix(sample(1:200,rep=T),20,10)
C<-rbind(A,B)

Answer 1

你应该能够做到

  pairs(C, col=c("red", "blue")[rep(1:2, c(nrow(A), nrow(B)))])

并消除第二行（即，不需要C_f）