Esimene näide - punktid ja joonedLegendi lisatakse punktid, kui kuskil käsus esineb parameeter pch= (punkti kuju määrav parameeter). Punkti joone värvi saab muuta käsuga col=, seest teistvärvi punkti korral saab punkti sisemuse värvi muuta käsuga pt.gb=. Punkti suurust legendis saab muuta käsuga pt.cex=.Joone tüüpi saab muuta parameetriga lty=, joone värvi col= parameetriga. Punkt joonistatakse joone peale, kui merge=TRUE ja jooned ja punktid hoitakse eraldi, kui merge=FALSE.
# Algandmete tekitamine
x=runif(100)
y=1+3*x-4*x^2+4*x^3+rnorm(100)*0.3
x2=runif(100)
y2=1.2+4*x2-4*x2^2+4*x2^3+rnorm(100)*0.3
# Joonistame hajuvusgraafikud
plot(x,y, ylim=c(0,6), pch=21, col="slateblue2",
bg="aliceblue", cex=1.5, lwd=2, xlab="",
ylab="")
points(x2,y2, pch=c(21,21), col="red", bg="thistle1",
cex=1.5)
# Hindame regressioonimudelid
m1=lm(y~poly(x,2))
m2=lm(y2~poly(x2,2))
# Joonistame regressioonikõverad graafikule
xabi=seq(0,1,0.01)
y1abi=predict(m1, data.frame(x=xabi))
y2abi=predict(m2, data.frame(x2=xabi))
lines(xabi, y1abi, col="slateblue2", lwd=2)
lines(xabi, y2abi, col="red", lwd=2)
# 1. legend - ainult punktid
legend(0,6, legend=c("poisid","tüdrukud"),
pch=21, col=c("slateblue2", "red"),
pt.bg=c("aliceblue","thistle1"),
pt.cex=2, pt.lwd=c(2,1))
# 2. legend - jooned, ilma legendi ümbritseva
# kastita (bty="n").
legend(0.7,1.5, legend=c("poisid","tüdrukud"),
title="jooned", lwd=2, col=c("slateblue2","red"),
bty="n")
# 3. legend - osaliselt joonisest väljas (par(xpd=NA));
# Legendi kasti sisemus toonitud halliks (bg="gray96")
par(xpd=NA)
legend(0.8,6.5, legend=c("poisid","tüdrukud"),
lwd=2, col=c("slateblue2","red"),
pch=21, pt.bg=c("aliceblue","thistle1"),
pt.cex=2, pt.lwd=c(2,1), bg="gray96")
|
|
| | |
Teine näide - Värvitud pinnad legendisVärviga kastike ilmub legendi, kui on lisatud parameeter fill=c("värv1","värv2", ... ).
# Teeme legendi jaoks üles paremale ruumi
par(mar=c(0,2,4,8))
x=c(3,5,10,8)
# Joonistame kakukese.
# Tavaliste märgendite asemel kirjutame seekord protsendid.
pie(x, col=c("gold","gold3","indianred", "yellow"),
labels=paste(round(100*x/sum(x)),"%"))
# Legendi joonistame osaliselt väljapoole "joonistusala",
# seepärast ka par(xpd=NA).
par(xpd=NA)
# Sobiva koha leidmiseks võid eeltööde ajal
# kasutada axis(1) ja axis(2) käske,
# samuti võib tarvitada legend(locator(1), ... )
legend(0.75,1.2,
c("hamburgerid","mootoriõli","hanesuled","edasikindlustus"),
fill=c("gold","gold3","indianred", "yellow"),
title="Osakaalud", bg="seashell")
# Lisame tiitli. Kuna legend oli otsapidi
# joonistusalast väljas, kasutame teksti
# joonise keskele saamiseks outer=TRUE parameetrit.
# Ilma selleta tuleks tiitel ringi kohale, mitte
# aga kogu joonise keskele.
title("Kakuke", outer=TRUE, line=-2)
Normaalselt pole ringdiagrammile sellist legendi vaja - vaata järgmist
näidet.
|
|
| | |
Viirutatud pinnad legendispinnad viirutatakse, kui antakse parameeter density=. Võib lisada ka viirutusnurka (kraadides) määrava parameetri angle=. Viirutamiseks kasutatavate joonte värvi saab muuta käsuga fill=.
# Algandmete genereerimine
n=55
grupp=rep(1:3, n)
x=rbinom(n*3, 3, p=c(0.1, 0.4, 0.5)[grupp])
# Joonistame graafiku
barplot(table(grupp,x), beside=TRUE,
density=c(10, 30, 15), angle=c(30, 120, 60),
names=c("Tallinn","Tartu","Ida-Viru","Kihnu"),
col=c("black","black","gray75"))
legend("topright", c("rikkad","keskklass","vaesed"),
density=c(10, 30, 15), angle=c(30, 120, 60),
fill=c("black","black","gray75"), inset=0.05,
cex=1.3)
Vaata täiendavaid näiteid barplot - käsu tarvis, kus legend automaatselt tekitatakse:
barplot - näide.
|
|