-----Original Message-----
From: rmh at temple.edu
Sent: Mon, 24 Sep 2012 19:00:09 -0400
To: elaine.kuo.tw at gmail.com
Subject: Re: [R] boxplot of different colors
## I would do this in lattice using the panel.bwplot.intermediate.hh
## function from the HH package.
## install.packages("HH") ## if necessary
library(HH)
dataN <- data.frame(GE_distance=rnorm(260),
Diet_B=factor(rep(1:13, each=20)))
Diet.colors <- c("forestgreen", "darkgreen","chocolate1","darkorange2",
"sienna2","red2","firebrick3","saddlebrown","coral4",
"chocolate4","darkblue","navy","grey38")
bwplot(GE_distance ~ Diet_B, data=dataN,
xlab=list("Diet of Breeding Ground", cex = 1.4),
ylab = list(
"Distance between Centers of B and NB Range (1000 km)",
cex = 1.4),
panel=panel.bwplot.intermediate.hh,
col=Diet.colors,
pch=rep("|",13))
On Mon, Sep 24, 2012 at 6:23 PM, Elaine Kuo <elaine.kuo.tw at gmail.com>
wrote:
Hello,
I am making a boxplot of 13 boxes.
I tried to color the box using 13 colors but failed.
Only red and brown were displayed.
Green, blue, and grey disappeared.
Please kindly advise modification after checking the code below.
Thank you in advance.
Elaine
R code
# data input
dataN
<-read.csv("H:/a_mig_distance_B_NB/R_data/Mig_bird_586_20120925.csv",header=T,
row.names=1)
dim(dataN)
dataN[1,]
str(dataN)
# graph
par(mai=c(1,1.03,0.4,0.4))
obs.group<-dataN$Diet_B
par(new=T)
boxplot(GE_distance~Diet_B, data=dataN,xlab="Diet of Breeding
Ground",ylab="",
yaxt="n",type="p",
pch=1,lwd=0.95,
cex.lab=1.4, cex.axis=1.2,
font.axis=2,
cex=1.5,
las=1,
bty="l",
col=c("forestgreen",
"darkgreen","chocolate1","darkorange2","sienna2",
"red2","firebrick3",
"saddlebrown","coral4","chocolate4","darkblue","navy","grey38")[obs.group]))
op = par(mar = c(5,5,4,2) + 0.1)
title(ylab = "Distance between Centers of B and NB Range (1000 km)",
cex.lab = 1.4,line = 3)
axis(side=2,yaxp=c(0,20000,4),cex.lab=1.4, cex.axis=1.2,font.axis=2,
las=1)
[[alternative HTML version deleted]]