Graafikule tekstide lisamine


Olemasolevale graafikule saab täiendavat teksti lisada käsuga text(x,y, tekst) abil. Täiendavate parameetritena võib muuta näiteks teksti suurust (normaalsuurus cex=1, cex=2 teeb 2 korda suuremad tähed jne); teksti värvi (col="red" lisamisel muutub tekst punaseks); teksti fonti kahel moel (font=3 on kaldkiri, vfont=c("script","plain") võtab kasutusele vabakäefondi). Lisaks saab muuta teksti joondamist lisaparameetri adj=c(xsuund, ysuund) abil, kirjutada valemeid ja kreeka tähti kasutades abistavat funktsiooni expression().

Esimene näide - teksti joondamine

tekstile lisaparameetri adj=c(..., ...) lisamisel saame kontrollida teksti joondamist. Valides adj=c(0, 1) kirjutatakse tekst punktist (x,y) paremale ja alla; adj=c(1, 1) korral kirjutatakse tekst samast punktist vasakule ja alla; adj=c(0.5, 1) korral paigutatakse tekst tsentreeritult soovitud punkti alla jne. 

# Algandmed
x=c(3,4,4.2,4.3,5,6,8)
y=c(3,2,2.8,4,3.2,2.9,7)
plot(x,y,pch=21, col="limegreen", bg="greenyellow", 
                 cex=1.2, xlim=c(0,10), ylim=c(0,10))

text(8,7, "eriline \n punkt", adj=c(0,0), 
                         cex=1.2, col="red")
text(8,7, "Anne-Mari \n tulemus", adj=c(1,0.5))
   
 
 		 

Teine näide - erinevaid kirjastiile

Erinevaid kirjastiile saab valida font= ja vfont= argumentide abil. Viimasel juhul, vfont= argumenti kasutades võetakse tarvitusele nn. Hershey fondid, mille tarvitamisel võib esineda teatud piiranguid. Proovi R-is ka käsku
demo(Hershey)
Mõningaid näitekombinatsioone demonstreerib alljärgnev programm: 

par(mar=c(0,0,0,0))
plot(NA,NA, xlab="", ylab="", main="", xaxt="n", 
           yaxt="n", xlim=c(0,10), ylim=c(0,10), bty="n")

text(2.5, 9,"Maks")
text(2.5, 8.3,'text(1,1,"Maks")',  cex=0.8)

text(2.5, 7,"Maks", cex=0.75)
text(2.5, 6.3,'text(1,1,"Maks", cex=0.75)',  cex=0.8)

text(2.5, 5,"Maks", cex=1.4)
text(2.5, 4.3,'text(1,1,"Maks", cex=1.4)',  cex=0.8)

text(2.5, 3,"Maks", font=2)
text(2.5, 2.3,'text(1,1,"Maks", font=2)',  cex=0.8)

text(2.5, 1,"Maks", font=3)
text(2.5, 0.3,'text(1,1,"Maks", font=3)',  cex=0.8)

text(7.5, 9,"Maks", font=4)
text(7.5, 8.3,'text(1,1,"Maks", font=4)',  cex=0.8)

text(7.5, 7,"Maks", font=2, col="red")
text(7.5, 6.3,'text(1,1,"Maks", \n font=2, col="red")', 
						 cex=0.8)

text(7.5, 5,"Maks", vfont=c("script","bold"))
text(7.5, 4.3,'text(1,1,"Maks", \n vfont=c("script","bold"))',  
						 cex=0.8)

text(7.5, 3,"Maks", vfont=c("gothic english", "plain"))
text(7.5, 2.3,
	'text(1,1,"Maks", \n  vfont=c("gothic english", "plain"))',  
						 cex=0.8)

text(7.5, 1,"\\LE Maks", vfont=c("serif symbol","plain"))
text(7.5, 0.3,
	'text(1,1,"\\LE Maks", \n vfont=c("serif symbol","plain"))',  
						 cex=0.8)
Vaata lisaks fontidest ja nende kasutamisest siit. 		   
 
 		 

Tekstide lisamine joonise telgedele või väljapoole joonistusala

Tekste saab lisada väljapoole joonistusala kahel moel. Üks võimalus on kasutada text-funktsiooni lisaargumenti xpd=NA, näiteks text(1,100, "tere", xpd=NA). selline tekst ilmub nähtavale ka siis, kui ta sattub väljapoole joonistusala (näiteks telgede või pealkirja juurde saab sellisel moel kirju lisada). Teine võimalus on kasutada spetsiaalset funktsiooni mtext, mis ongi mõeldud teksti lisamiseks joonise äärtele. mtext funktsiooni põhiargumendid on järgmised:
mtext(, , ).
Joonise äärte numbrid on:
1 - alumine serv (pildi all)
2 - vasakpoolne külg (y-telg)
3 - joonise kohal, pealkirja piirkond
4 - joonisest paremale jääv serv.

Näide: 

# Algandmed

Mehed=c(32012, 33436, 49985, 54436, 50013, 46842, 
	46481, 43018, 47275, 44554, 41446, 30717, 
	33478, 27144, 22274, 12846, 5454, 3285)
Naised=c(30163, 31671, 47494, 52292, 48118, 46252, 
	 47311, 45694, 51741, 51012, 49685, 38993, 
	 46476, 42164, 40402, 31861, 17066, 12513)
Vanus=c("0-4", "5-9", "10-14", "15-19", "20-24", "25-29", 
	"30-34", "35-39", "40-44", "45-49", "50-54", "55-59", 
	"60-64", "65-69", "70-74", "75-79", "80-84", "85+")

# Teeme joonise

abi=barplot(rbind(Mehed,Naised),
beside=TRUE, ylab="inimeste arv", ylim=c(0, 60000),
legend.text=TRUE, main="Eesti rahvastik vanuse ja soo järgi",
col=c("Green4","Green2"))

axis(side=1, at=abi[1,]+0.5, label=Vanus, las=3) 

#  Lisame kirja joonise pealkirja alla: ------
mtext("1. jaanuaril 2003, ESA andmetel", 3, 0)
mtext("Y-telg", 2, 2, col="red")
#  ------------------------------------------
   
 
 		 

Valemite lisamine

R võimaldab jooniste pealkirjades, telgedel kui ka hiljem lisatud kommentaarides kasutada valemeid. valemite lisamiseks saab kasutada funktsiooni expression(). Näiteid võib R-is vaadata käsu demo(plotmath) abil, abiinfot pärida käsuga ?plotmath.
Näide: 

par(mar=c(4,5,5,1))
x=seq(0,10,0.1)
y=sin(x)+sqrt(x)
plot(x,y, main=expression(f(x)==sin(x)+sqrt(x)), 
	xlab="x", ylab=expression(f(tilde(x))), type="l")

text(4.2,1, expression(paste("Hea hinnang ",hat(theta))))

mtext(expression(sin(x[alpha]) %~~% sqrt(1-cos(x[beta])^2,2)))
   
 
 		 

Teksti pööramine

Kirjutatavat teksti on võimalik pöörata kasutades srt=... argumenti. Pööramiseks tuleb R-ile ette anda teksti nurk kraadides. On olukordi, kus töötavad vaid valikud srt=90, srt=180, srt=270 ja srt=360.
Näide: 

abi=seq(0, 2*pi, 0.4)
x=sin(abi)
y=cos(abi)

par(mar=c(1,1,1,1))
plot(x,y, xlab="", ylab="", xaxt="n", yaxt="n", main="")

for (i in 1:length(abi))
text(x[i],y[i], "Tere", adj=c(0,1), 
	srt=(-abi*360/(2*pi)-90)[i], cex=2, 
	col=heat.colors(16)[i])
   


Vaata lisaks: