# Algandmed: x=1:100 y=10+2*x+0.5*x*x # Põhigraafik, muudame joonist ümbritseva kasti helesiniseks (fg=), # kirjutame telgedel olevad numbrid punasega (col.axis=), # telgede tähistused teeme tumerohelises toonis (col.lab=), # joonise pealkirja teeme aga lillaks (col.main=). plot(x,y, type="l", main="Koledais värvides pilt", col="black", fg="lightblue", col.axis="red", col.lab="darkgreen", col.main="purple") # Lisame graafikule täiendavad jooned lines(x,y*1.1, col="pink") lines(x,y*0.95, col="pink") lines(x,y*1.2, col="red") lines(x,y*0.9, col="red") # Lisame graafikule tumesinise viitejoonestiku grid(col="darkblue") # Kirjutame graafikul tühjaks jäänud kohta # määrdunud kollase värviga teksti: text(30,3500,"Mõttetu koht", col="yellow4") |
par(mfrow=c(4,1), # Neli graafikut korraga mar=c(3,3,1,1) # Vähendame graafiku ümber jäetavat tühja ruumi ) x=c(4,5,6,9); names(x)=c("A","B","C","D") barplot(x, col=terrain.colors(4), main="graafik 1") barplot(x, col=terrain.colors(10), main="graafik 2") barplot(x, col=terrain.colors(2), main="graafik 3") barplot(x, col=terrain.colors(10)[5:8], main="graafik 4") # Järgnevalt taastame graafikaakna parameetrid: par(mfrow=c(1,1), mar=c(5,4,4,2)+0.1) |
Näide 1barplot(rep(c(3,5,4,6),5)+seq(0,2, length=20), col=varvid(c("gold", "darkred", "blue"), 20) ) | |
Näide 2# Graafik rahvusülikooli aastapäevale pühendatud konverentsilt:barplot(3+rbinom(20,30,0.30), col=varvid(c("blue", "black","antiquewhite"), 20), main="Rahvusülikooli aastapäev") | |
Näide 3Esineja kostüümis esineb 4 värvi: kahte tooni punast, roosat ja oraanzi:par(mfrow=c(2,1), mar=c(1,3,1,1)) barplot(3+rbinom(9,30,0.30), col=varvid(c("darkred", "red3","pink", "orange"), 9)) pie( c(5,7,8), col=varvid(c("darkred", "red3","pink", "orange"), 3)) | |
Näide 4Aga kuidas lisada oma kakukesele sädelust ja sära?par(mfrow=c(1,1)) pie(rep(1,1000), col=varvid(c("darkred","red4","red2","red", "gold","red1","red2", "red4", "darkred"),1000), labels=NA, border=NA) | |
Näide 5Väsinud silma rõõmustavaid mustreidpar(mfrow=c(17,1), mar=c(0,0,0,0)) for (i in 2:18){ barplot(rep(10,i), col=varvid(c("darkred", "blue", "green", "gold"), i)) } |