Olá Veja se lhe agrada library(reshape2) library(ggplot2) taxa = read.table("clipboard",header=TRUE,dec=",") taxa.m = melt(taxa, id=1, variable.name='Local', value.name='valor') ggplot(taxa.m, aes(factor(Ano), valor, group=Local, color=Local)) + theme_bw() + ylab('legenda y') + xlab('legenda x') + geom_line() + geom_point(aes(shape=Local), size=2) saudações