如何在散点图中的特定点进行注释

Question

拥有这些数据：

df <- data.frame(var1 = c(2,  4,  9,  3,  1,  6,  5, 10,  8,  7),
                 var2 = c(1,  4,  7, 10,  9,  2,  8,  3,  5,  6),
                 var3 = c(rep("a", 5), rep("b", 5)),
                 var4 = letters[1:10])

并通过 var3 绘制 var1 和 var2

ggplot(data = df, aes(x=var1, y=var2,
                      shape = var3,
                      color = var3)) + geom_point(size=4)

我想通过在var4中添加对应的字符来突出显示特定的点，例如：

• 在df[4,1:2]注解var4中对应的值(df[4,4])
• 在df[3,1:2]注解var4中对应的值(df[3,4])

谢谢！

Answer 1

我认为这样的开始可以吗？

ggplot(data = df, aes(x=var1, y=var2, shape = var3, color = var3)) + 
  geom_point(size=4)+
  geom_text(data=df[3:4,],aes(x=var1,y=var2,label=var4), color='black')

要删除第 3 行和第 4 行的圆圈，请将第一行更改为：

ggplot(data = df[-c(3:4),], aes(x=var1, y=var2, shape = var3, color = var3))

这样好吗？