r - ggplot2: 動的な凡例のタイトル

Question

私のコードでは、凡例のタイトルが自動的に生成されました (X1、X2、...)。X# の代わりにどのように作成すればよいでしょうか。n は sapply 関数で指定された場所で "N = #" と表示されます。

library(ggplot2)
library(reshape2)

PlotBinom <- function(p) {
  x <- c(0:500)
  df <- sapply(seq(50,500,by=50), function(n) dbinom(x,n,p))
  df <- data.frame(x,df)
  melted.df <- melt(df,id.vars='x')

  plot <- ggplot(melted.df,aes(x=x,y=value,colour=variable)) + geom_line() 

  print(plot)
}

PlotBinom(0.6)
PlotBinom(0.2)

また、凡例のシンボルを線から完全な色付きのブロックに変更するにはどうすればよいですか? 現在の状態は次のとおりです。