将唯一列值覆盖为ggplot2中的geom_point

Question

以下是我正在处理的数据集的摘录。

Name    Value   ID  Total
   A      10    1   3
   A      11    2   3
   A      10    3   3
   B      10    1   4
   B      11    2   4
   B      11    3   4
   B      11    4   4

我想要做的是在y轴上的x轴Name上为ID的所有Values绘制11;我希望覆盖Total，以便在解释图表时，可以查看每个名称组的项目数。这可以使用Name变量中的组长度或使用Total来实现。这是我做的和所需的输出样本。

mydf <- read.csv("./test1.csv", header = T)
x <- ggplot(mydf, aes(Name, ID))+ geom_point(data = subset(mydf, Value==11), size=3, colour="tomato3")+  scale_y_continuous(name="Class ID", limits=c(1,4),breaks=seq(1,4, by=1))
y <- x+ xlab("Class")+theme_bw()
z <- y+scale_x_discrete(limits = c("A","B", "C")) 

（A，3）和（B，4）处的三个橙色星号是手动文本注释，我想用短线或圆圈替换以指示项目的总数。

感谢您的帮助。