2012-06-23 8 views
0

이 ggplot2 그래프에 흰색 채우기를 얻는 방법을 알 수 없습니다.흰색 채우기 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 

도움 주셔서 감사합니다.

답변

2

나는 당신이 원하는 것이라고 믿습니다 geom_tile(colour='black', fill='white').