dev.new()
str(faithful)
attach(faithful)
boxplot(eruptions,col=“blue”,yilm=c(0,5),
main=list(“一个间歇泉的爆发时间箱线图”,
font=4, col=“red” , cex=2),
sub=list(“数据来源:faithful”,font=4,
col=“blue” , cex=1),
xlab=“爆发时间”,ylab=“num”)
detach(faithful)

dev.new()
str(faithful)
attach(faithful)
boxplot(waiting,col=“blue”,yilm=c(0,100),
main=list(“一个间歇泉的持续时间箱线图”,
font=4, col=“red” , cex=2),
sub=list(“数据来源:faithful”,font=4,
col=“blue” , cex=1),
xlab=“持续时间”,ylab=“num”)
detach(faithful)

dev.new()
attach (faithful)
str (faithful)
plot(eruptions,type=“l”,ylab="",ylim=c(0,100))
lines(waiting,type=“l”,col=“blue”)
detach(faithful)

dev.new()
str(faithful)
attach(faithful)
boxplot(eruptions,col=“violet”,ylim=c(0,5),outline=F)
points(rep(1,3),eruptions[2:4],pch=21,bg=c(“blue”,“red”,“black”),cex=1.5)
detach(faithful)