白色填写ggplot2

Question

I could not figure out how to get the white fill for this ggplot2 graph.

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

Thanks for your help.

Answer 1

我相信你想要geom_tile(colour='black', fill='white') 。