如何在 ggplot2 中重新创建此图？

Question

这是我的数据和原图：

z <- dbinom(0:6, size=6, p=0.512)
names(z) <- as.character(0:6)
barplot(z, space=0, ylab="Probability", col = "firebrick", las = 1, xlab = "Number of boys")

我需要在 ggplot2 中重新创建相同的情节，但我正在努力使它看起来有点相似。任何帮助将不胜感激。

Answer 1

如果你想添加一些轴和背景的自定义：

z=as.data.frame(z)
colnames(z)=c("Probability")
z$`Number of boys`=rownames(z)
my_theme= list(theme_bw(),
               theme(panel.border=element_blank(), 
                     panel.grid.major=element_blank(),
                     panel.grid.minor=element_blank(),axis.ticks.x = element_blank(),axis.line.x=element_blank()))
ggplot(z, aes(`Number of boys`,Probability)) +              
  geom_bar(stat = "identity",width = 1,color="black",fill="firebrick")+
  my_theme +
  annotate(x=0,xend=0,y=0, yend=0.4, colour="black", lwd=0.75, geom="segment")

Answer 2

基于您的代码构建：

library(ggplot2)
ggplot(data.frame(z = z, num_boys = names(z)), aes(x = num_boys, y = z)) +
        geom_bar(stat = "identity", fill = "firebrick", col = "black", width = 1) +
        labs(y = "Probability", x = "Number of boys") +
        ggthemes::theme_base()

注意：我使用 ggthemes::theme_base() 使情节看起来像原始代码生成的基本情节。

如何在 ggplot2 中重新创建此图？

How to recreate this plot in ggplot2?

r

histogram

ggplot2