在基本图形中强制使用一致的颜色？

Question

我正在尝试做一个简单的聚类示例，但想知道是否有一种很好的方法可以使颜色对齐。

data = data.frame(iris$Petal.Length, iris$Petal.Width)
iris.kmeans <- kmeans(data, 3)

par(mfrow = c(1,2))
plot(x=iris$Petal.Length, y=iris$Petal.Width, col=iris.kmeans$cluster)
plot(x=iris$Petal.Length, y=iris$Petal.Width, col=iris$Species)

输出有效，但是给我的颜色方案没有对齐：

有没有一种方法可以强制这两个图具有相同的颜色方案？