Pěkný článek, ovšem graf s vícero čarami bych nejspíše nedělal pomocí lines(), ale pomocí par(new=TRUE) a pak, třeba cyklem přes řádky
plot(prietoky[i,], pch=i, type="b").
Ještě elegantnější alternativa je, tuším,
apply(prietoky,plot(type="b"),1), ovšem teď nevím, jak bych si řekl o různé znaky, tj. o parametr "pch".