用Geom_Tile顯示概率？

Question

我想根據給定的概率隨機填寫一個20x20的網格。例如，如果給我67％的概率，我想用藍色填充隨機的268個方格，並讓其他部分空着。

任何人都可以幫助我嗎？欣賞它！

謝謝

Answer 1

想通了！

win.prob <- .67 
heatmap <- matrix(ifelse(runif(400, min = 0, max = 1)<=win.prob,1,0), nrow = 20) 
heatmap.m <- melt(heatmap) %>% mutate("Majority" =  ifelse(value>0.5,"Democratic","Republican")) 


library(reshape) 

ggplot(heatmap.m, aes(x = X1, y = X2,fill=Majority)) + 
    geom_tile(color = "black") + 
    theme_void() + 
    scale_fill_manual(values=c("Democratic" = "blue","Republican"="red"))