R：平均等级分的可视化作为（排序的）小提琴情节

Question

我想可视化的数据帧中的图像以下：

grade number 
    A  2 
    B  6 
    C  1 
    D  0 
    E  1 

的想法是具有在x的等级轴表示作为类别和在y轴上接受相应等级的学生的数量。

我的任务不是将它们显示为折线图中的点，而是将它们显示为类似于小提琴情节的类别上方的厚度。这实际上是关于它的纯粹视觉效果。

我试过ggplot2的小提琴，但是它总是取y轴数列的值。但是Y轴应该只有一个维度：密度图旋转的等级。

我会很高兴如果有人提示我应该如何重组我的数据，或者如果我完全误解我的方法。

嗯，是的：在顶部，我想显示成绩点平均值作为一个小栏。

非常感谢您抽出宝贵时间。我确信解决方案非常明显，但我只是看不到它。

Answer 1

正如@Gregor所说的那样，只有5个序数值的平滑密度估计（这就是小提琴情节）是不合适的。即使你有上/下的成绩，你仍然可能会更好地与酒吧或线条。请参阅下面的几个选项：

library(ggplot2) 

# Fake data 
dat = data.frame(grades=LETTERS[c(1:4,6)], 
       count=c(5,12,11,5,3), stringsAsFactors=FALSE) 

# Reusable plot elements 
thm = list(theme_bw(), 
      scale_y_continuous(limits=c(0,max(dat$count)), breaks=seq(0,20,2)), 
      labs(x="Grade", y="Count")) 

ggplot(dat, aes(grades, count)) + 
    geom_bar(stat="identity", fill=hcl(240,100,50)) + 
    geom_text(aes(y=0.5*count, label=paste0(count, " (", sprintf("%1.1f", count/sum(count)*100),"%)")), 
      colour="white", size=3) + 
    thm 

ggplot(dat, aes(grades, count)) + 
    geom_line(aes(group=1),alpha=0.4) + 
    geom_point() + 
    thm 

ggplot(dat, aes(x=as.numeric(factor(grades)))) + 
    geom_ribbon(aes(ymin=0, ymax=count), fill="grey80") + 
    geom_text(aes(y=count, label=paste0(sprintf("%1.1f", count/sum(count)*100),"%")), size=3) + 
    scale_x_continuous(labels=LETTERS[c(1:4,6)]) + 
    thm