Switch the color palette to JIS colors

Description

nippon.palette switches the color palette to the Japanese Industrial Standard (JIS) color palette, replacing with the corresponding color in the default palette.

Usage

nippon.palette()

Details

JIS common color names (JIS Z 8102:2001) were defined by JIS as 269 colors. These colors are different from usual color in computers. For example, red is #BE0032 in JIS color but #FF0000 in usual.

Value

an optional character vector

Note

Use 'palette("default")' to restore the default color palette.

Author(s)

Susumu Tanimura

References

JIS Z 8102:2001 (Names of non-luminous object colours) K. Seino and I. Shimamori. Shikimeijiten. Tokyo:Sinkigensha, 2005.

Examples

op <- par(mfrow=c(1,2))
palette("default")
n <- print(palette())
pie(rep(1,8),col=1:8,label=n)
nippon.palette()
pie(rep(1,8),col=1:8,label=n)
palette("default")
par(op)

Results

R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(Nippon)
Loading required package: maptools
Loading required package: sp
Checking rgeos availability: TRUE
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/Nippon/nippon.palette.Rd_%03d_medium.png", width=480, height=480)
> ### Name: nippon.palette
> ### Title: Switch the color palette to JIS colors
> ### Aliases: nippon.palette
> ### Keywords: Japanese color
> 
> ### ** Examples
> 
> op <- par(mfrow=c(1,2))
> palette("default")
> n <- print(palette())
[1] "black"   "red"     "green3"  "blue"    "cyan"    "magenta" "yellow" 
[8] "gray"   
> pie(rep(1,8),col=1:8,label=n)
> nippon.palette()
> pie(rep(1,8),col=1:8,label=n)
> palette("default")
> par(op)
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>