astsa (version 2.3)

astsa.col: astsa color palette with transparency or a color wheel

Description

The script does one of two things. [1] Easily modify the opacity level of the astsa colors. [2] Create a color wheel of a chosen number of colors from a base color.

Usage

astsa.col(col=1, alpha=1, wheel=FALSE, pie=FALSE, num, sat=NULL, val=NULL, ...)

Value

[1] a color vector using the astsa color palette at the chosen transparency level

- OR -

[2] a color wheel of a chosen number num of colors from a base color

Arguments

col

Either

1. a numerical vector representing the colors to change transparency level -OR-

2. a color used as a base for a wheel (if a vector, the first color is chosen)

- see Examples

alpha

factor in [0, 1] setting the opacity of all colors. Smaller values are more transparent.

wheel

if TRUE, produces a color wheel of num colors from a base color.

pie

if TRUE, produces a pie chart of the chosen colors.

num

an integer specifying the number of desired colors in the wheel. If missing, the user is prompted to enter a number.

sat

factor in [0, 1] setting the 'saturation' (intensity) of the colors. If NULL, the saturation from the base color is used.

val

factor in [0, 1] setting the 'value' (brightness) of the colors. If NULL, the value from the base color is used.

...

other graphical parameters for the pie chart; see pie.

Author

D.S.Stoffer

Details

The astsa color palette is attached when the package is attached. The colors follow the R pattern of shades of: (1) black, (2) red, (3) green, (4) blue, (5) cyan, (6) magenta, (7) gold, (8) gray. The opacity of these colors can be changed easily using this script. Values are recycled, e.g., col=9 is the same as col=1.

Additionally, a color wheel can be generated by specifying a base color and inputting the number of desired colors. Using hsv, the script moves the 'hue' around the circle in equal steps holding 'saturation' and 'value' constant. This may be overridden by entering an alternate 'saturation' or 'value'.

In either application, a pie chart can be displayed to help in choosing the desired color scheme.

References

You can find demonstrations of astsa capabilities at FUN WITH ASTSA.

The most recent version of the package can be found at https://github.com/nickpoison/astsa/.

In addition, the News and ChangeLog files are at https://github.com/nickpoison/astsa/blob/master/NEWS.md.

The webpages for the texts and some help on using R for time series analysis can be found at https://nickpoison.github.io/.

Examples

# View the astsa palette
astsa.col(1:8, pie=TRUE)
legend('topright', legend=astsa.col(1:8), fill=1:8, title='Hex Color Code')

# Plotting 2 series that touch (but in a nice way)
tsplot(cbind(gtemp_land, gtemp_ocean), col=astsa.col(c(4,2), .5), lwd=2, spaghetti=TRUE, 
     type='o', pch=20, ylab="Temperature Deviations", addLegend=TRUE, location='topleft',
     legend=c("Land Only", "Ocean Only"), gg=TRUE)  

# The hsv values for Dodgerblue3 (or astsa color 4)?
rgb2hsv(col2rgb(4))


# Wheels of fortune
vanna = par(no.readonly = TRUE)
par(mar=rep(0, 4))
layout( matrix(c(1,3,2,3), 2) )
astsa.col(4, wheel=TRUE, num=8, pie=TRUE)
astsa.col(4, wheel=TRUE, num=8, pie=TRUE, sat=.6, val=.9)
astsa.col(2, wheel=TRUE, num=100, pie=TRUE, border=FALSE, labels=NA)


# I'd like to solve the puzzle
par(vanna)  # reset graphic device
x = replicate(6, sarima.sim(ar=c(1.5,-.75), n=120))
tsplot(x, spag=TRUE, col=astsa.col(4, alpha=.7, wheel=TRUE, num=6), lwd=12)