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

In astsa: Applied Statistical Time Series Analysis

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, ...)

Arguments

col	Either a numerical vector representing the colors to change transparency level -OR- 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.

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.

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

Author(s)

D.S.Stoffer

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)

astsa documentation built on Aug. 21, 2025, 5:47 p.m.