# 
# Joonte lisamine - Muud trikid
#
# Viimati muudetud - 28. august 2005
# Koostanud: Märt Möls
#


# Millega png-pilte vaadata
vaataja="C:\\Program Files\\Mozilla Firefox\\firefox.exe"

# Kuhu pildfailid salvestada
tee="F:\\kursus\\R\\temp\\lisamine\\"

algus=function(pilt, xs, ys){
assign("teenimi", paste(tee,pilt,sep=""), env=.GlobalEnv)
assign("teenimi2", paste('"',vaataja,'" ',tee,pilt,sep=""), env=.GlobalEnv)
png(filename = teenimi, width = xs, height = ys, pointsize = 12, bg = "white")
}

# ---------------------------------------------------
#
# 	Esimene pilt -- Graafik väljub pildilt
#
# ---------------------------------------------------

algus("pilt60.png", 400, 300)

par(mar=c(2,2,3.5,1.5))
Konkurent=c(115,100, 90, 100, 75,60)
Meie=c(25, 40, 80, 90, 100, 150)
Aasta=2000:2005
plot(Aasta, Konkurent, type="l", bty="u", ylim=c(0,120), yaxs="i", xaxs="i", main="Muud trikid", xlim=c(2000,2005))

par(xpd=NA)
lines(Aasta,Meie, lwd=4)
lines(c(2000,2004.25, NA, 2004.55,2005),c(120,120,NA,120,120))

text(2001,20, "Meie", cex=1.2)
text(2004.25,60, "Nemad")

dev.off()
system(teenimi2)



# ---------------------------------------------------
#
# 	Teine pilt -- punktid ja jooned koos
#
# ---------------------------------------------------

algus("pilt61.png", 400, 300)

x1=c(10,12, 15,14, 18, 24)
x2=c(14, 15, 19, 14.5, 12, 16)
aasta=2000:2005
plot(aasta, x1, type="b", col="green4", lwd=2, pch=21, ylim=c(0,25), bg="green", cex=1.5, ylab="tunnus Y")
lines(aasta, x2, type="b", col="slateblue3", lwd=2, pch=22, bg="slategray1", cex=1.5)
grid(col="limegreen")

dev.off()
system(teenimi2)