## tsPlot -
xmpBasics("Start: European Stock Markets > ")
# Show multiple plot:
par(mfrow = c(1, 1), cex = 0.7)
data(EuStockMarkets)
tsPlot(EuStockMarkets, gpars = list(col = c(2:4, 6)), labels = FALSE)
title(main = "European Stock Markets")
## histPlot -
xmpBasics("Next: Histogram Plot of Normal Random Numbers > ")
histPlot(x = rnorm(1000), main = "Histogram Plot")
## densityPlot -
xmpBasics("Next: Density Plot of Normal Random Numbers > ")
densityPlot(x = rnorm(1000), main = "Density Plot")
## circlesPlot -
xmpBasics("Next: 3D Circles Plot of Normal Random Numbers > ")
circlesPlot(x = rnorm(50), y = rnorm(50), size = abs(rnorm(50)),
main = "Circles Plot")
## perspPlot -
xmpBasics("Next: Perspective Plot > ")
par(mfrow = c(1, 1), ps = 11)
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("Next: Print the Copyright Sign > ")
cat("251
")
## characterTable -
xmpBasics("Next: Display Character Table for Symbol Font > ")
characterTable(5)
## colorTable -
xmpBasics("Next: Display Table of Plot Colors > ")
colorTable()
## plotcharacter Table -
xmpBasics("Next: Display Table of Plot Characters > ")
plotcharacterTable()
Run the code above in your browser using DataLab