-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathsecond_axis.R
executable file
·50 lines (38 loc) · 1.33 KB
/
second_axis.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
d <- data.frame(name=c("zhao","qian","sun","li"),weight=c(62,58,79,60),height=c(178,169,180,173))
x <- d$name
y1 <- d$weight
y2 <- d$height
###########
### plotrix
###########
#png("2y_1.png")
library(plotrix)
xpos <- 1:4
twoord.plot(xpos,y1,xpos,y2,xlim=c(0,5),lylim=c(0,100),rylim=c(100,190), lcol=4,rcol=2,xlab="name",ylab="Weight (kg)",rylab="Height (cm)",type=c("bar","b"),xticklab=x,halfwidth=0.2)
#dev.off()
###########
## TeachingDemos
###########
#png("2y_2.png")
library(TeachingDemos)
par(mar=c(5,5,4,5)+0.1)
bar <- barplot(y1,ylim=c(0,100),ylab="Weight (kg)",col="blue",col.axis="blue",col.lab="blue")
updateusr(1:2,range(0,100),1:2,range(100,190))
lines(bar,y2,type="b",col="red")
axis(4,col="red",col.ticks="red",col.axis="red")
mtext("Heigth (cm)",side=4,line=3,col="red")
mtext(x,side=1,line=1,at=bar,col="black")
#dev.off()
########
## no package
########
#png("2y_3.png")
par(mar=c(5,5,4,5)+0.1)
bar <- barplot(y1,xlim=c(0,5),ylim=c(0,100),ylab="Weight (kg)",col="blue",col.axis="blue",col.lab="blue")
mtext(x,side=1,line=1,at=bar,col="black")
mtext("Name",side=1,line=3,col="black")
par(new=T)
plot(bar,y2,axes=F,xlim=c(0,5),ylim=c(100,190),xlab="",ylab="",col="red",type="b")
axis(4,col="red",col.ticks="red",col.axis="red")
mtext("Heigth (cm)",side=4,line=3,col="red")
#dev.off()