# Petróleo Brasileiro S.A. - Petrobras (PBR) -NYSE
# http://finance.yahoo.com

petrobras = read.csv("petrobras.csv",header=TRUE)

n = nrow(petrobras)
ind = trunc(seq(1,n,length=10))

par(mfrow=c(2,2))

plot(petrobras[,4]/1000000,xlab="Day",ylab="Volume (in millions)",axes=FALSE,type="l")
axis(2);box();axis(1,at=ind,lab=petrobras[ind,1])

plot(petrobras[,5],xlab="Day",ylab="Price",axes=FALSE,type="l")
axis(2);box();axis(1,at=ind,lab=petrobras[ind,1])

plot(petrobras[,6],xlab="Day",ylab="Range",axes=FALSE,type="l")
axis(2);box();axis(1,at=ind,lab=petrobras[ind,1])

plot(petrobras[,7],xlab="Day",ylab="Return",axes=FALSE,type="l")
axis(2);box();axis(1,at=ind,lab=petrobras[ind,1])