在 ggplot 中作为一堆正方形的条形图

Question

我正在尝试获取一个条形图，其中每个条形图由一堆正方形组成，以便更容易计算每个条形图上的观察值。这是一个最小的例子

library(ggplot2)
d = data.frame(p = rbinom(20,10,.3))   
d %>% ggplot(aes(x=p))+geom_bar(fill="white",color="black",position="stack",alpha=.5)+
      theme_void()

这给出了类似的东西：

基本上，我希望在条形图的每个单元都有水平分隔线。

Answer 1

这种方法很有用：

library(ggplot2)
library(dplyr)
#Data
d = data.frame(p = rbinom(20,10,.3))   
#Plot
d %>%  
  group_by(p) %>%
  mutate(col=row_number()) %>%
  ggplot(aes(x=p,fill=factor(col)))+
  geom_bar(position="stack",alpha=.5,color='black')+
  theme_void()+
  scale_fill_manual(values=rep('white',5))+
  theme(legend.position = 'none')

输出：

在 ggplot 中作为一堆正方形的条形图

Bar as pile of squares in ggplot

r

ggplot2

geom-bar