ggplot未添加图例。我错过了什么？对R来说非常陌生

我正在用ggplot绘制三个样本，但它没有为样本添加图例。它没有吐出任何错误信息，所以我不确定哪里出了问题。我真的需要一些指导

我尝试手动为图例的每个示例声明颜色，但绘图上仍然没有图例

df<-data.frame(samples$V1, samples$V2, samples$V3, samples$V4, samples$V5, samples$V6, samples$V7)


CG_methplot <- ggplot(df, aes(x=samples$V1,))+
  scale_x_continuous(breaks=number_ticks(10))+
  xlab("bins")+
  ylab("mean CG methylation")+
  geom_point(aes(y=samples$V2), size=3, colour='#009933')+
  geom_point(aes(y=samples$V3), size=3, colour='#FF0000')+
  geom_point(aes(y=samples$V4), size=3, colour='#0033FF')+
  scale_color_manual(values=c("samples1"="009933", "sample2"="FF0000", "sample3" ="0033FF"))
CG_methplot

library（重塑2）
熔化的
库（重塑2）
您能否通过向问题添加
dput（head（df））
的输出来提供数据样本？简单的回答是，您希望使用
melt
from
restrape2
然后只需调用
geom_point
即可绘图！感谢您的帮助：）您可以通过在问题中添加
dput（head（df））
的输出来提供您的数据样本吗？简单的回答是，您希望使用
melt
from
restrape2
然后只需调用
geom_point
即可绘图！谢谢你的帮助：）现在工作！！非常感谢您的帮助。作为补充，如果我只想绘制前三个或最后三个样本，该怎么办？我会使用哪种语法？像这样的东西？？p@user1995839将您提供给
ggplot
ie
ggplot（熔化[1:3]，aes（x=V1，y=value，color=variable））的数据子集
立即工作！！非常感谢您的帮助。作为补充，如果我只想绘制前三个或最后三个样本，该怎么办？我会使用哪种语法？像这样的东西？？p@user1995839将您提供给
ggplot
ie
ggplot（熔化[1:3，]，aes（x=V1，y=value，color=variable））的数据子集
samples.V1 samples.V2 samples.V3 samples.V4 samples.V5 samples.V6 samples.V7
1          1   0.033636   0.027857   0.028830   0.029836   0.024457   0.024930
2          2   0.032094   0.029620   0.028005   0.028294   0.026220   0.024105
3          3   0.032011   0.027212   0.029728   0.028211   0.023812   0.025828
4          4   0.030857   0.029833   0.028907   0.027057   0.026433   0.025007
5          5   0.028480   0.028080   0.028553   0.024680   0.024680   0.024653
6          6   0.029445   0.027099   0.029346   0.025645   0.023699   0.025446

library(reshape2)
melted <- melt(df, id.vars = "V1")

p <- ggplot(melted, aes(x = V1, y = value, colour = variable))
p + geom_point()