White fill in ggplot2

Question

Я не мог понять, как получить белую заливку для этого графика ggplot2.

set.seed(12345) 
Row <- rep(x = 1:4, times = 3) 
Col <- rep(x = 1:3, each = 4) 
Trt <- c("A", "B", "A", "C", "D", "B", "C", "D", "A", "C", "B", "B") 
Y <- rnorm(n = 12, mean = 0, sd = 1) 
Y2 <- paste(Trt, round(Y, 3), sep = "=") 
Y3 <- rep(x = 1, times = 12) 

dat <- data.frame(Row, Col, Trt, Y, Y2, Y3) 

library(ggplot2) 

p <- ggplot(data = dat, aes(x = Row, y = Col)) + 
     geom_tile(aes(fill = Y3, colour = "white"), colour = "black") + 
     geom_text(aes(label = Trt, colour = Trt), vjust = -1) + 
     geom_text(aes(label = round(Y, 3), colour = Trt), vjust = 1)+ 
     labs(x = NULL,y = NULL) + 
     opts(axis.ticks = theme_blank(), axis.text.x = theme_blank(), axis.text.y = theme_blank()) + 
     opts(legend.position="none") 

p 

Благодарим за помощь.

Answer 1

Я считаю, что вы хотите geom_tile(colour='black', fill='white').