geom_histogram не предоставляет гистограмму в соответствии с теорией

Question

гистограмма из 120 учеников

Я использовал следующие r коды для создания гистограммы, как показано на рисунке,

ggplot(Book2, aes(x=weight, fill=..count..))+
  geom_histogram(bins=11, binwidth = 5)+
  scale_x_continuous(breaks = seq(45, 100, by = 5),
                     limits = c(45, 100))+
  scale_y_continuous(breaks = seq(0, 30, by = 5),
                     limits = c(0, 30))+
  theme_classic()

график, показанный как rприведены как гистограмма, полученная в R , данные приведены в рис. данные , а их распределение частоты равно

его распределение частоты

Answer 1

Для меня это работает хорошо, и гистограмма, которую я получаю, это это .Используйте код ниже для этого.

Перерывы иногда могут измениться.Укажите его с помощью конкретной команды "breaks" внутри geom_histogram, как вам может понадобиться.

library(ggplot2)
##Creating your data according to the picture
seq<- seq(47,97,5)
repvect<- c(1,4,17,28,25,18,13,6,5,2,1)
weight<-c()

for(i in 1:length(seq)){
  vect<-rep(seq[i], repvect[i])
  weight<-c(vect, weight)
}

Book2<- data.frame(weight) #TRansforming it to a data frame

ggplot(Book2, aes(x=weight, fill=..count..))+
  geom_histogram(bins=11, binwidth = 5)+
  scale_x_continuous(breaks = seq(45, 100, by = 5),
                     limits = c(45, 100))+
  scale_y_continuous(breaks = seq(0, 30, by = 5),
                     limits = c(0, 30))+
  theme_classic()

PD: Помните, что вам нужны данные в формате data.frame для получения гистограммы.

Приветствия!