使用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"))