ggplot中分组的麻烦

Question

我正在尝试在R中绘制“意大利面”图，并且无法使用geom_line并使分组正常工作

我正在评估四分位数（var index）的3种语言的prop valu。我想用一条线在索引点上连接每种语言

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()

我希望该行通过索引连接语言，但是我得到的是在索引点内连接语言的线。我希望有人能够找出问题所在，并能够让我知道我要去哪里。

Answer 1

group的美感需要在aes内调用：

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