Kolm tunnust - igaüks erinevat värvi joonega
# Algandmed: YTalvel=c(1,2,4,4.5,5.2,5.5,8) YSuvel=c(7,6.9,6.5,4,3.5,3,4) YSygis=c(7.5,7.3,7.1,7,7,7.2,8.5) TunnusX=0:6 # Joonistame esimese graafiku ja paneme paika telgede mõõtkava: plot(TunnusX, YTalvel, type="l", col="lightblue1", xlab="X", ylab="Y", main="", xlim=c(0,6), ylim=c(0,9)) # Lisame abijooned grid() # Lisame graafikule kaks täiendavat tunnust lines(TunnusX, YSuvel, col="green3") lines(TunnusX, YSygis, col="gold") # lisame legendi legend(4.3,3, c("Suvi","Sügis","Talv"), col=c("green3","gold","lightblue1"), lty=1) |
|
Pane tähele! Selleks, et legendi jooned joonistatakse, peame lisaks värvidele (col=...) lisama ka märkuse joonetüübi kohta (lty=1)! Värvide nimed, vaata ka seda lehekülge. | |
| |
Teine näide - lihtsalt silmailuks!x=seq(0, 3*pi, 0.05) plot(x,sin(x), col="gray80", type="l", lwd=4) y=cos(x) for (i in 1:(length(x)-1)){ lines(c(x[i],x[i+1]),c(y[i],y[i+1]), col=topo.colors(201)[as.integer(101+y[i]*100)], lwd=5) } |
|
| |
Kolmas näide - Joone nähtavaks tegemine# Algandmed x=rnorm(1000) y=2+2*x+rnorm(1000)*0.6 #Hajuvusgraafiku joonistamine plot(x,y) # Regressioonimudeli hindamine m1=lm(y~x) xuus=seq(-5,5,0.1) yuus=predict(m1,data.frame(x=xuus)) # Regressioonisirge kandmine joonisele # Algul jäme valge joon, # siis kitsas must joon lines(xuus,yuus, col="white", lwd=4) lines(xuus,yuus, col="black", lwd=1) |