## SOURCE("fBasics.12B-PlotFunctions")
## tsPlot -
xmpBasics("\nStart: European Stock Markets > ")
# Show multiple plot:
par(mfrow = c(1, 1), cex = 0.7)
data(DowJones30)
DowJones.ts = as.timeSeries(DowJones30)[, c("CAT", "GE", "IBM", "JPM", )]
tsPlot(DowJones.ts)
title(main = "CAT - GE - IBM - JPM")
## histPlot -
xmpBasics("\nNext: Histogram Plot of Normal Random Numbers > ")
DowJones.ret = returnSeries(DowJones.ts)
par(mfrow = c(2, 2), cex = 0.7)
histPlot(x = DowJones.ret)
## densityPlot -
xmpBasics("\nNext: Density Plot of Normal Random Numbers > ")
densityPlot(x = DowJones.ret)
## circlesPlot -
xmpBasics("\nNext: 3D Circles Plot of Normal Random Numbers > ")
par(mfrow = c(1, 1), cex = 0.7)
circlesPlot(x = rnorm(50), y = rnorm(50), size = abs(rnorm(50)),
main = "Circles Plot")
## perspPlot -
xmpBasics("\nNext: Perspective Plot > ")
par(mfrow = c(1, 1))
x = y = seq(-10, 10, length = 51)
f = function(x, y) { r = sqrt(x^2+y^2); 10 * sin(r)/r }
z = outer(x, y, f)
perspPlot(x, y, z)
title(main = "Perspective Plot", line = -3)
## characterTable -
xmpBasics("\nNext: Print the Copyright Sign > ")
cat("\251 \n")
## characterTable -
xmpBasics("\nNext: Display Character Table for Symbol Font > ")
characterTable(5)
## colorTable -
xmpBasics("\nNext: Display Table of Plot Colors > ")
colorTable()
## plotcharacter Table -
xmpBasics("\nNext: Display Table of Plot Characters > ")
plotcharacterTable()
Run the code above in your browser using DataLab