?PROMPT(Give the name of your plotting device)
option(echo=1)	# test of graphics
prefix("plot.")
$Random.seed_c(57,0,3,0,0,0,49,16,0,0,0,0)	# to initialize at same spot
x_rnorm(20); y_rnorm(20)
plot(x,y,xlab="X-Label",main="A Main Title",sub="Sub Title")
plot(x,type="h")	#high-density plot
plot(abs(x),abs(y),type="b",pch=".",lty=2,log="xy")	# log axes, plotting dots, dotted lines
points(abs(x),abs(y),mark=8)	# overplot with marks
abline(0,1)
abline(h=1:4)
series_ts(x,1958,12)
ser2_ts(y,1957,4)
plot(series)
tsplot(series,ser2);logo
tspoints(ser2,pch="#")	# overplot
par(mfrow=c(2,2),oma=c(0,0,2,0))
plot(x,y,pch="o"); abline(rbiwt(x,y))
plot(x,y,type="l")
frame;frame	# should skip lower left corner
plot(x,y,type="b",pch="X")
mtext("Three different type parameters",outer=TRUE,side=3,line=.5,cex=1.5)
par mfrow=c(1,1),oma=rep(0,4)	# back to normal
plot(x,y,type="n");text(x,y,seq(x))	# identifiers for points
identify(x,y,encode(seq(x)))	# test to see if identifiers match
lines(rd_rdpen(),lty=3)	# draw figure with graphic input
pie(abs(x),main="A Pie Chart",encode("Slice",seq(x)))
hist(x,angle=45,inside=FALSE)	# shaded histogram
plot(density(x),type="l",main="Empirical Density Estimate")	# density plot
points(x,x*0,pch="o")	# with 1-dim scatter plot
qqplot(x,y)
qqnorm(x)
matplot(cbind(x,rev(x)),y,pch="AB")
abline(h=y,lty=2)	# each line goes through 2 points!
pardump("axp","usr")
usa(states=FALSE); box(5)
vvv_c(".CE 10","This is a test",
".C 2","of the code for","constructing",".L 1.75",".C 3",".B 5","Vu-Graphs")
vu(vvv)
bmat_matrix(runif(20),4,5)
bmat_apply(bmat,2,"cumsum")	# add up cols to make divided bar heights
bmat[,2]<- -bmat[,2]	# negate a column
barplot(bmat,lines=3:6,angle=seq(20,80,20),names=encode(
"Bar",1:5),main="Bar graph")
plclust(hclust(dist(bmat)))	# dendrogram
barplot(bmat,col=3:6,names=encode("Bar",1:5),main="Filled Bar Graph",
legend=encode("Group",1:4))
for(i in seq(-8,8,2)) plot(x*10^i,y*10^(i+1))
