将geom_路径和geom_文本添加到同一ggplot会在r中生成错误

我正在同一ggplot中绘制geom_路径对象和geom_文本对象，但遇到以下问题：

#load the data frames
df1 <- data.frame(x=c(32, 42, 52), y=c(15, 20, 25), grp=c(1, 2, 2), site=c("A", "B", "C"))
df1$grp = factor(df1$grp)
colnames(df1)[3] = "Group"

df2 <- data.frame(x=c(32, 42, 52), y=c(15, 20, 25))

#create basic plot with site name coloured by group 
p = ggplot(df1, aes(x=x, y=y, label=site))
p = p + geom_text(aes(colour=factor(Group)), size=4)
p = p + coord_fixed()

#I try adding a path
p = p + geom_path(data=df2, aes(x=x, y=y)) 

#加载数据帧
df1主ggplot调用中的每一个美学都会在随后的每一个几何图形中出现。解决方案是移动
label=site
或通过将其设置为
NULL
在
geom\u路径中取消映射它。
主
ggplot
调用中的每一个美学都会在随后的
geom\u
中出现。我想我应该补充一点，解决方案是要么移动
label=site
，要么通过将其设置为NULL在
geom_path
中将其取消映射。谢谢。我加上了标签电话，效果很好。也许把你的评论移到一个答案上来，这样我就可以接受了？
ggplot(df1, aes(x, y)) + 
geom_text(aes(label = site, colour = factor(Group)), size = 4) +
coord_fixed() + geom_path(df2, aes(x, y))