Как построить ненулевые элементы матрицы, используя levelplot

Question

У меня есть фрейм данных, как это:

>x
      r      z   rho
1  2.90 -11.20 0.000
2  2.90 -11.15 0.000
3  2.90 -11.10 0.000
4  2.90 -11.05 0.000
5  2.95 -11.45 0.000
6  2.95 -11.40 0.000
7  2.95 -11.35 0.000
8  2.95 -11.30 0.000
9  2.95 -11.25 0.000
10 2.95 -11.20 0.002
11 2.95 -11.15 0.004
12 2.95 -11.10 0.002
13 2.95 -11.05 0.006
14 3.00 -11.45 0.010
15 3.00 -11.40 0.000
16 3.00 -11.35 0.001

>y
  r      z        rho
1  2.90 -11.20 0.01666389
2  2.90 -11.15 0.01666389
3  2.90 -11.10 0.01666389
4  2.90 -11.05 0.01666389
5  2.95 -11.45 0.03332778
6  2.95 -11.40 0.00000000
7  2.95 -11.35 0.00000000
8  2.95 -11.30 0.00000000
9  2.95 -11.25 0.00000000
10 2.95 -11.20 0.00000000
11 2.95 -11.15 0.00000000
12 2.95 -11.10 0.00000000
13 2.95 -11.05 0.00000000
14 3.00 -11.45 0.00000000
15 3.00 -11.40 0.00000000
16 3.00 -11.35 0.00000000

Количество строк составляет 241401. Так что это в основном матрица. r и z можно представить как x и y, а rho сообщает вам значение этой конкретной строки, столбец. Я хочу построить это с помощью levelplot. Прямо сейчас я использую что-то вроде этого:

library(RColorBrewer)
library(latticeExtra)
library(lattice)
x <- read.table("fakedata.txt",header=FALSE) 
y <- read.table("fake2.txt",header=FALSE)
colnames(x) <- c("r","z","rho")
colnames(y) <- c("r","z","rho") 
levelplot(y$rho ~ y$r + y$z) 
levelplot(x$rho ~ x$r + x$z)

графики для х и у: тем не менее, я хочу иметь розовый цвет для всех квадратов, которые на графике x имеют такой же цвет, и синий цвет для всех квадратов, на которых график y имеет такие же цвета на одном и том же графике.

Какие-либо предложения?