如何在R中绘制多个条件的图？答案

【问题标题】：How to draw plots for multiple conditions in R?如何在R中绘制多个条件的图？
【发布时间】：2021-05-31 19:04:56
【问题描述】：

我是 R 工作室的新手，我正在尝试为具有多个条件的特定问题绘制条形图。问题是：

生产商保证一种特殊豌豆品种的发芽率为 50%。一位园丁买了 50 颗豌豆种子。计算概率：

所有的种子都会发芽，
最多会发芽 5 颗种子，
至少 4 颗种子会发芽。
等等……

现在，如何为这些绘制条形图？我目前有这个解决方案：

xP50 <- c(0:50)
prob1 <- dbinom(xP50,50,0.5)
tab1 <- data.frame(value = xP50, probability = prob1)
barplot(tab1$probability)

对于第二个，我有：

xP5 <- c(0:50)
prob2 <- dbinom(xP5,50,0.5)
tab2 <- data.frame(value = xP5, probability = prob2)
barplot(tab2$probability)

这是实现条形图的正确方法吗？我做得对吗？

谢谢。

【问题讨论】：

标签： r plot statistics probability

【解决方案1】：

prob=dbinom(50, 50, .5)
barplot(c(prob, 1-prob), names.arg=c("Sprout", "Not Sprout"), main="All 50 Seeds")

prob=pbinom(5, 50, .5)
barplot(c(prob, 1-prob), names.arg=c("Sprout", "Not Sprout"), main="At Most 5 Seeds")

prob=pbinom(3, 50, .5, lower.tail=FALSE)
barplot(c(prob, 1-prob), names.arg=c("Sprout", "Not Sprout"), main="At Least 4 Seeds")

xP50 <- c(0:50)
prob1 <- dbinom(xP50,50,0.5)
tab1 <- data.frame(x = xP50, probability = prob1)
library(ggplot2)
ggplot(tab1) + geom_histogram(aes(x, probability), stat="identity") + ggtitle("Probability of x pea seeds being germinable")

【讨论】：