根据范围R的颜色点

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

# 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)

#C-是两个矩阵A和B的组合
你应该能够做到这一点

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

并消除第二行（即不需要
C\u f
）
您应该可以这样做

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

并消除第二行（即，不需要
C\u f
）
您可以使用
dput
或使用
matrix
函数调用添加一些示例
A
和
B
数据吗？否则，我们都在猜测这将如何工作。请使用
dput
或使用
矩阵
函数调用添加一些示例
A
和
B
数据，好吗？否则，我们都在猜测这将如何运作。有没有办法通过直接提供范围来实现这一点？（顺便说一句，谢谢这个解决方案非常有效）。@chupvl——试试这个：
col=c（'red'，'blue'）[match（cúf，c（'label1'，'label2'））]
@chupvl，你直接提供范围是什么意思？例如，我有一个矩阵不是由2个或多个矩阵组合而来的，我想说红色的颜色行1:10，蓝色的行10:67，所有其他的都是灰色的。有没有办法直接提供范围？（顺便说一句，谢谢这个解决方案非常有效）。@chupvl——试试这个：
col=c（'red'，'blue'）[match（cúf，c（'label1'，'label2'））]
@chupvl，你直接提供范围是什么意思？例如，我有一个矩阵不是由2个或多个矩阵组合而来的，我想说红色的颜色行1:10，蓝色的行10:67，其他的都是灰色的。