R , : . :
| Points(x,y) | |
| Lines(x,y) | |
| Text(x,y,labels,) | labels (,); : plot(x,y,type=n); text(x,y,names) |
| Segments(x0,y0,x1,y1) | (x0,y0) (1,1) |
| Arrows(x0,y0,x1,y1, angle=30, code=2) | (0,0), code=2, (x1,y1), code=1 , code=3; angle- ( ) |
| bline (a, b) | b |
| bline (h=y) | |
| bline (v=x) | |
| bline (lm.obj) | ( lm.obj) |
| Rect (x1,y1,x2,y2) | -1,2,1,2 |
| Poligon(x,y) | , |
| Legend(x,y,legend) | , |
| Title() | |
| Axis(side,vect) | (side=1), (2), (3), (4); vect () ( ), |
| Rug(x) | x X |
| Locator(n,type=n,) | (x, y) , n - ; (type = "p") (type = "l"); (type = "n") |
: text (x, y, expression (...)), expression() , TeX.
:
<-text(x,,expression (Uk [37] == over (1, 1+e ^
{-epsilon * (T-theta)}))), c (x, ).
,
substitute () as.expression ();
, R2 ( Rsquared):
<-text (x, , as.expression (substitute (R^2 == r, list (r=Rsquared))))
c (x, y):
R2 = 0.9856298
, :
<-text(x,,as.expression(substitute(R^2== r, list(r=round(Rsquared,3)))))
R2= 0.986
, R :
<-text(x,,as.expression(substitute(italic(R)^2==r,
list(r=round(Rsquared,3)))))
R2 = 0.986
, . ( ). par() , , .
|
|
|
:
> par (bg = "yellow")
. 68 ,
? par
:
| adj | (0 , 0.5 , 1 ) |
| bg | |
| bty | , : "o", "l", "7", "c", "u" "]"( ); bty = "n" |
| cex | |
| col | ; cex : col.axis, col.lab, col.title, col.sub |
| font | , (0: , 1: , 2: , 3: ); cex : font.axis, font.lab, font.title, font.sub |
| las | , (0: , 1:, 2: , 3: ) |
| lty | , (1: , 2: , 3: , 4: , 5: longdash, 6: ), ( "0" "9"), , |
| lwd | , |
| mar | , . c (bottom,left,top,right), - c(5.1,4.1,4.1,2.1) |
| mfcol | c (nr, nc), nr nc , |
| mfrow | , |
| pch | , 1 25, " " |
| ps | , |
| pty | , , "s": , "m": |
| xaxt | xaxt = "n" X , |
| yaxt | yaxt = "n" Y , |
.
1. .. / ....: , 2000.-479.
2. .. / .. . : , 1990.-352.
3. / .. . : , 1991.-400.
4. . : -: , 2001.-752.
5. . /...:,1963.-272.
6. . - / . . : , 1999.-449.
7. E. Paradis. R for begginers/ E. Paradis -2000
