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

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e fornea cdigo mnimo reproduzvel.