[英]ggplot2: Dynamic legend title
在我的代码中,我的图例的标题是自动生成的(X1,X2,...)。 我怎么做而不是X#,它说“N =#”,其中n是在我的sapply函数中给出的
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)
另外,如何更改图例符号以从线条变为全彩色块? 现在是这样的:
使用所需标签的向量添加对scale_colour_discrete
的调用...
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()+
scale_colour_discrete( labels= paste( "N =" ,1:length( unique(melted.df$variable) ) ) )
print(plot)
}
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.