library(ggplot2) spadek <- subset(Data, Imiê=='PAULINA' | Imiê=='KAROLINA'| Imiê=='ANNA'| Imiê=='KATARZYNA') ggplot(data=spadek, aes(x=Rok, y=Tys, group=Imiê, colour=Imiê)) + geom_line() + geom_point()+ scale_x_continuous(limits = c(1994,2013), breaks = c(1994,1999,2004,2009,2013)) wzrost <- subset(Data, Imiê=='HANNA' | Imiê=='LENA'| Imiê=='AMELIA') ggplot(data=wzrost, aes(x=Rok, y=Tys, group=Imiê, colour=Imiê)) + geom_line() + geom_point()+ scale_x_continuous(limits = c(2000,2013), breaks = c(2001,2004,2007,2010,2013)) popu <- subset(Data, Imiê=='JULIA'| Imiê=='WIKTORIA'| Imiê=='ZUZANNA') ggplot(data=popu, aes(x=Rok, y=Tys, group=Imiê, colour=Imiê)) + geom_line() + geom_point()+ scale_x_continuous(limits = c(1994,2013), breaks = c(1994,1999,2004,2009,2013))