R中有没有办法在不将数据从宽格式转换为长格式的情况下绘制分组的点图？

Question

我正在使用一个看起来像：

df = data_frame(
A=c(sample(0:2,size=50,replace=TRUE)),
A1=c(sample(0:50,size=50,replace=TRUE)),
A2=c(sample(0:50,size=50,replace=TRUE)))

我正在尝试生成A1和A1的分组点图，例如

： “ alt =”分组图”>

为了产生此功能，我使用以下代码将数据从宽格式转换为长格式，然后

library(reshape2)
df2 <- melt(df, id.vars=c("A"))

我正在尝试工作出去如何绘制等效图而不转换格式。我当前的代码是：

library(ggplot2)
ggplot(df,aes(x=as.factor(A)))+
    xlab("A") + 
    ylab("Score") +
    geom_dotplot (aes(y=A1), binaxis="y",binwidth=1, stackdir = "center",fill="#5ec962",colour="#5ec962") + 
    stat_summary(aes(y=A1),fun = median, fun.min = median, fun.max = median, geom = "crossbar", width = 0.2,colour="#5ec962") +
    geom_dotplot (aes(y=A2), binaxis="y",binwidth=1, stackdir = "center",fill="#3b528b",colour="#3b528b") + 
    stat_summary(aes(y=A2),fun = median, fun.min = median, fun.max = median, geom = "crossbar", width = 0.2,colour="#3b528b") +
    theme_classic()

这两个组彼此之间的顶部是：

是否有一种产生的方法像第一组一样的图形，而没有转换格式？我打算查看多次比较，理想情况下将不继续进行转换。

谢谢。