{ggplot2} 集計済みデータのヴァイオリンプロット

データがこのようにすでに集計された状態で与えられたときに、複数カテゴリ間で分布を比較したい。

  value A B
111322223331

ヴァイオリンプロットが使えることがわかった。

library(cowplot)library(tidyr)
data <-data.frame(value =1:3,
                   A =1:3,
                   B =3:1)
data2 <-data %>% gather(category,count,-value)
ggplot(data2, aes(x =category, y = value, violinwidth=count/max(count)))+ 
  stat_identity(geom="violin")

geom_violin を使っても描画されるんだけど、なんか警告がでる。