Displaying 2 results from an estimated 2 matches for "body_weight".
2013 Jan 08
4
error in a abline loop
...al4","chocolate4","darkblue","navy","grey38")[i],lwd=2)
}"
Please kindly advise how to modify the code.
Thank you.
The code
data <-read.csv("H:/skincolor.csv",header=T)
# graph
par(mai=c(1.03,1.03,0.4,0.4))
plot(data$body_weight, data$body_length,
xaxp=c(0,200,4),
yaxp=c(0,200,4),
type="p",
pch=1,lwd=1.0,
cex.lab=1.4, cex.axis=1.2,
font.axis=2,
cex=1.5,
las=1,
bty="l",col=c("yellow","chocolate1","darkorange2",
"red3","saddl...
2013 Jan 12
0
two-group comparison in boxplot
...dataN$sex)
dim(dataN)
dataN[1,]
str(dataN)
sex.colors <- c("darkblue","red2")
sex.code <- c("Boy", "Girl")
levels(dataN$sex) <- sex.code
# graph
par(mai=c(1,1.03,0.4,0.4))
par(new=T)
bwplot(body_length~body_weight, data=dataN,
xlab=list("Body weight", cex = 1.4),
ylab=list("Body length",cex = 1.4),
xaxt="n",
yaxt="n",type="p",
lwd=1.5,
cex.lab=1.4, cex.axis=1.2,
font.axis=2,
cex=1.5,
las=1,
bty="l",...