My code is:
plot(series,xlab="Tempo",ylab="Participação em %",ylim=c(10,55),type="s") grid()
which yields:
