如何使用r中的ggplot（）函数在单个绘图中标记多条重叠曲线？

我正在尝试创建一个包含三条曲线的覆盖图。我还尝试将每条曲线显示为不同的颜色，并创建一个表示曲线标签而不是颜色的图例

下面是我的r代码，附件是当前绘图的外观

另外，我注意到我在ggplot（）函数中指定的红色和蓝色在图例中显示不同。在代码中，对于红色规格，图例显示为蓝色，对于蓝色规格，图例显示为红色。我不明白为什么

有人能帮我实现我想要的吗

谢谢

`#重叠试验特性曲线

group_set1 <- extract.group(final_model, '1')
group_set2 <- extract.group(final_model, '2')
group_set3 <- extract.group(final_model, '3')

tcc_plot_Set1 <- plot(group_set1, type='score', which.items = c(1:10,17:55))
tcc_plot_Set2 <- plot(group_set2, type='score', which.items = c(2:7,9:16,74:89))
tcc_plot_Set3 <- plot(group_set3, type='score', which.items = c(1,3:4,8,11:16,90:127))

print(tcc_plot_Set1)
print(tcc_plot_Set2)
print(tcc_plot_Set3)

str(tcc_plot_Set1)
str(tcc_plot_Set2)
str(tcc_plot_Set3)

tcc_plot_Set1$panel.args
tcc_plot_Set2$panel.args
tcc_plot_Set3$panel.args

tcc_plot_Set1_pltdata <- data.frame(lapply(tcc_plot_Set1$panel.args, function(x) do.call(cbind, x)) 
[[1]])
tcc_plot_Set2_pltdata <- data.frame(lapply(tcc_plot_Set2$panel.args, function(x) do.call(cbind, x)) 
[[1]])
tcc_plot_Set3_pltdata <- data.frame(lapply(tcc_plot_Set3$panel.args, function(x) do.call(cbind, x)) 
[[1]])

p <- ggplot(tcc_plot_Set1_pltdata, aes(x, y, colour = "Red")) + geom_line() + ggtitle('TCCs Set 1, 2, 
& 3') + geom_line(data = tcc_plot_Set2_pltdata, aes(x, y, colour = "Green")) + geom_line() + 
geom_line(data = tcc_plot_Set3_pltdata, aes(x, y, colour = "Blue")) +  xlab(expression(theta)) + 
ylab(expression(T(theta)))
p + labs(colour = "Item Sets")

---

group\u set1使用ggplot2的惯用方法是将数据合并到一个“长”数据框中，用一列标记每个观测值所属的序列（或者在您的情况下，您可以使用所需的颜色标记它，然后使用
缩放颜色标识（）。