data<-c(1, 2, 3, 4, 10, 2, 30, 42, 31, 50, 80, 76, 90, 87, 21, 43, 65, 76, 32, 12, 34, 54)
data(WorldPhones)
줄기잎 그림
graphics::stem
aplpack::stem.leaf
stem(x, scale=1, width=80, atom=1e-08)
x: Numeric vector
scale: Length of the plot
width: Width of the plot
atom: tolerance parameter
stem(data)
The decimal point is 1 digit(s) to the right of the |
0 | 1223402
2 | 10124
4 | 2304
6 | 566
8 | 070
stem(data, scale=2)
The decimal point is 1 digit(s) to the right of the |
0 | 12234
1 | 02
2 | 1
3 | 0124
4 | 23
5 | 04
6 | 5
7 | 66
8 | 07
9 | 0
aplpack::stem.leaf
aplpack::stem.leaf.backback
library(aplpack)
stem.leaf(data)
1 | 2: represents 12
leaf unit: 1
n: 22
5 0 | 12234
7 1 | 02
8 2 | 1
(4) 3 | 0124
10 4 | 23
8 5 | 04
6 6 | 5
5 7 | 66
3 8 | 07
1 9 | 0
stem.leaf(data, data2, back.to.back=T)
saves as image
windows(width=4, height=5)
plot.new()
out<-capture.output(stem(data, scale=2))
text(0, 1, paste(out, collapse="\n"), adj=c(0, 1))
얼굴 그림
aplpack::faces
faces(WorldPhones)
effect of variables:
modified item Var
"height of face " "N.Amer"
"width of face " "Europe"
"structure of face" "Asia"
"height of mouth " "S.Amer"
"width of mouth " "Oceania"
"smiling " "Africa"
"height of eyes " "Mid.Amer"
"width of eyes " "N.Amer"
"height of hair " "Europe"
"width of hair " "Asia"
"style of hair " "S.Amer"
"height of nose " "Oceania"
"width of nose " "Africa"
"width of ear " "Mid.Amer"
"height of ear " "N.Amer"
별그림
aplpack::stars
stars(WorldPhones)
