R ggplot中的分组问题

我正试图在R中绘制一个“意大利面”图，但在geom_线和分组工作方面遇到了问题

我在四分位数（var指数）上评估3种语言的属性值。我想要一条线来连接索引点上的每种语言

library(tidyverse)
index<-c(rep(1,3), rep(2,3), rep(3,3), rep(4,3))
index<-as.factor(index)
lang<-c(rep(0:2,4))
lang<-as.factor(lang)
prop <-c(0.05294181,0.09880240, 0.03294893, 0.04698709, 0.07608696, 
0.04072398,0.08637001, 0.08136483, 0.06635071, 0.16041207, 0.17213115,
0.11872146)
graph<-data.frame(index,lang,prop)

ggplot(data=graph, aes(x=index, y=prop), group=lang, shape=lang) +
  geom_point(shape=factor(lang), show.legend = TRUE)+geom_line()

库（tidyverse）
索引需要在
aes
中调用
组
：

ggplot(data = graph, aes(x = index, y = prop, group = lang, shape = lang)) +
  geom_point() + geom_line()