[R] Legend

[Sundar Dorai-Raj]

Mark Miller wrote:
> I use the following to plot two graphs over each other and then insert a 
> legend, but the two items in the legend both come up the same colour
> 
> x = seq(0,30,0.01)
> plot(ecdf(complete), do.point=FALSE, main = 'Cummlative Plot of Monday IATs 
> for Data and\n Fitted PDF over Entire 15 Weeks')
> lines(x, pexp(x,0.415694806),col="red")
> legend(x=5,y=0.2 , legend=c("Data Set","Fitted PDF"),col=c("black","red"))
> 
> Many thanks
> Mark Miller
> 

Hi, Mark,

You want to use "text.col" in legend instead of "col":

set.seed(1)
z <- rexp(30, 0.415694806)
x <- seq(0, 30, 0.1)
plot(ecdf(z), do.point = FALSE)
lines(x, pexp(x, 0.415694806), col="red")
legend(x = 5, y = 0.2, legend = c("Data Set", "Fitted PDF"),
        text.col = c("black", "red"))

--sundar