字母等级直方图

Question

我正在尝试制作成绩的直方图。这是我的变量。

> grade <- factor(c("A","A","A","B","A","A","A","A","B","A","C","B","B","B"))
> numberBook <- c(53,42,40,40,39,34,34,30,28,24,22,21,20,16)

但是当我绘制它时，我收到一条错误消息。

> hist(numberBook~grade)
Error in hist.default(numberBook ~ grade) : 'x' must be numeric

我该怎么办？

Answer 1

我不确定为什么你有多个字母，所以我猜想你想要所有的A，B和Cs。这可能不太对。我使用rep并将成绩计数相加（可能是错误的）重新创建了这样的数据

data <-c(rep("A",(53+42+40+34+34+30+28+22)), rep("B",(39+24+20+16+22)),rep("C",22))  

然后我可以使用barplot绘制数据：

barplot(prop.table(table(data)))

Barplot可能就是你想要的。