babynames

library(ggplot2);library(babynames);library(dplyr);library(tidyr);library(reshape2)
babynames <- babynames
james <- babynames %>%
  filter(name=="James")
jamesplot <- ggplot(james, aes(year, n)) + geom_line(aes(color=sex))
jamesplot

count <- data.frame(james$n, james$prop, james$year)
countmelt <- melt(count, id.vars="james.year")
jamesplot2 <- ggplot(data=countmelt, aes(x=james.year,y=value)) + geom_line(aes(color=variable))
jamesplot2