使用R为同时翻转1000次的10枚硬币创建直方图

我是R的新手，正在做一个统计类的项目

我必须为10次同时投币1000次创建一个柱状图。 这是我的代码，用于生成1000次翻转，并根据作业计算头部的数量

# one coin toss
coin <- c('heads','tails')


tossResult = NULL
# variables to store the counts of number of heads in each toss
heads7 = 0
headsLessOrEquatTo7 = 0
headsLessThat7 = 0
heads7OrMore = 0
headsMoreThan7 = 0
heads3 = 0
heads4 = 0

for (i in 1:1000) {
    # resetting number of heads to 0 before each iteration
    numOfHeads = 0
    tossResult = sample (coin, size = 10, replace = TRUE)
    numOfHeads = sum (tossResult == 'heads')
    hist(numOfHeads)
    if (numOfHeads == 7) {
        heads7 = heads7 + 1
    } 
    if (numOfHeads <= 7) {
       headsLessOrEquatTo7 = headsLessOrEquatTo7 + 1
    } 
    if (numOfHeads < 7) {
        headsLessThat7 = headsLessThat7 + 1
    } 
    if (numOfHeads >= 7) {
        heads7OrMore = heads7OrMore + 1
    } 
    if (numOfHeads > 7) {
        headsMoreThan7 = headsMoreThan7 + 1
    }
}
print (paste0("Exactly 7 Heads:: ", heads7))
print (paste0("7 Heads or fewer:: ", headsLessOrEquatTo7))
print (paste0("Fewer than 7 Heads:: ", headsLessThat7))
print (paste0("7 Heads or more:: ", heads7OrMore))
print (paste0("More than 7 Heads:: ", headsMoreThan7))

#掷硬币一次
硬币（7）{
水头大于7=水头大于7+1
}
}
打印（粘贴0（“正好7个标题：：”，标题7））
打印（粘贴0（“7个头或更少：：”，无头或7））
打印（粘贴0（“少于7个头：：”，无头sthat7））
打印（粘贴0（“7个或更多标题：：”，标题7个或更多））
打印（粘贴0（“超过7个标题：：”，标题超过7））

---

我需要为每个迭代中的头数生成柱状图。非常感谢您的帮助。

您可以创建一个函数来计算一次迭代中的头数

count_heads <- function() {
    tossResult = sample(c('heads','tails'), 10, replace = TRUE)
    sum(tossResult == 'heads')
}

---

您可以创建一个函数来计算一次迭代中的头数

count_heads <- function() {
    tossResult = sample(c('heads','tails'), 10, replace = TRUE)
    sum(tossResult == 'heads')
}

---

澄清一下：您想为1000次翻转中的每一次绘制直方图吗？或者你想要一个总数的直方图？澄清一下：你想要为1000次翻转中的每一次绘制一个直方图？或者你想要一个总数的柱状图？谢谢@Ronak，我会用这个，你能给我推荐一个好地方阅读如何制作多个共享x轴图吗。据我所知，我认为内置直方图不支持多个图。我找到了一个叫做ggplot的东西。对吗？我试图在上面的图中绘制在共享x轴上获得0-10个磁头的概率。是的，

ggplot2

使绘制变得非常简单。您也可以阅读可能有用的方面。谢谢@Ronak，我将使用此工具，您还可以建议我一个好地方阅读如何制作多个共享x轴图。据我所知，我认为内置直方图不支持多个图。我找到了一个叫做ggplot的东西。对吗？我试图在上面的图中绘制在共享x轴上获得0-10个磁头的概率。是的，

ggplot2

使绘制变得非常简单。您还可以阅读可能有用的方面。