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