Adding a second line to a graph

[amcmulle]

I have three columns of data

1. Sample, which provides details of whether the data was collected in the lab labelled L or in the review labelled R
2. Year, which contains the year in which the leaf is sampled
3. SD, which includes the stomatal density measured on the leaf

I am trying to add one line of SD over time of L samples and a second line of SD over time of R samples. Here is the code that I am trying to use but it is not working:

library(ggplot2)
ggplot(mydata4, aes(x=Year)) +
geom_line(aes(y=SD$Sample$L, color="Black")) +
geom_line(aes(y=SD$Sample$R, color="Grey")) +
labs(color="Legend text")

I would greatly appreciate any help anyone can offer. Thank you in advance.

[amcmulle]

The problem has been solved now, I used the following code.

p = ggplot() +
geom_smooth(data = mydata4, aes(x = Year, y = SD), color = "black") +
geom_smooth(data = mydata5, aes(x = Year, y = SD), color = "grey") +
xlab('Year') +
ylab('Stomatal Density (per mm squared)')

print(p)

[andresrcs]

There is a more elegant solution mapping the color aesthetic to the Sample variable, I'm going to give you an example using a built-in data frame (since you haven't provided sample data).

library(ggplot2)
    
    ggplot(data = iris, aes(x = Sepal.Length, y = Sepal.Width, color = Species)) +
        geom_smooth() +
        scale_color_manual(values = c("setoda" = "gray", "versicolor" = "black", "virginica" = "blue"))
#> `geom_smooth()` using method = 'loess' and formula 'y ~ x'

^{Created on 2021-03-07 by the reprex package (v1.0.0.9002)}

If you need more specific help, please provide a proper REPRoducible EXample (reprex) illustrating your issue.