如何在r中创建颜色矢量？

Question

我导入了这样的图像：

importedImage <- readPNG(fileName)

然后我把它变成了一个数据帧：

originalImage <- data.frame(
  x = rep(1:dimensions[2], each = dimensions[1]),
  y = rep(dimensions[1]:1),
  value = as.vector(importedImage))

好吧，所以我用这样的灰色绘图：

image_ggplot <- ggplot(originalImage, aes(x = x, y = y))
image_ggplot <- image_ggplot + geom_point(colour = gray(originalImage$value))
image_ggplot <- image_ggplot + labs(title = as.character(fileName))
image_ggplot <- image_ggplot + xlab("x") + scale_size("identity")
image_ggplot <- image_ggplot + ylab("y")

但是因为我正在处理群集，所以我创建了一个颜色调色板，我希望将其中一个调整为另一个。如何创建一个向量，例如我用gray（）做的？我尝试了绘图，但其他颜色阻挡了图像基础。