Hi R-listers,
I am trying to make a trellis boxplot with the HSuccess (y-axis) in each
Rayos (beach sections) (x-axis), for each Aeventexhumed (A, B, C) - nesting
event. I am not able to do so and keep receiving:
Error in eval(expr, envir, enclos) : object 'Rayos' not found
Please advise,
Jean
require(plyr)
resp <- read.csv("ABC Arribada R File Dec 12 Jean Jang.csv")
envir <- read.csv("Responses Environ. Arribada Dec. 12.csv")
resp <- resp[!is.na(resp$Aeventexhumed), ]
resp$QuadratEvent <- paste(resp$QuadratID, resp$Aeventexhumed, sep="")
resp$QuadratEvent <- as.character(resp$QuadratEvent)
envir <- envir[!is.na(envir$Aeventexhumed), ]
envir$QuadratEvent <- paste(envir$QuadratID, envir$Aeventexhumed, sep="")
envir$QuadratEvent <- as.character(envir$QuadratEvent)
ExDate <- Sector <- Quadrat <- Aeventexhumed <- NULL
ST1 <- ST2 <- ST3 <- ST4 <- ST0 <- NULL
Shells <- Hatchlings <- MaxHatch <- DeadHatch <- NULL
Oldeggs <- TotalEggs <- QuadratEvent <- NULL
for (q in unique(as.character(resp$QuadratEvent))) {
s <- resp[as.character(resp$QuadratEvent) == q, ]
ExDate <- c(ExDate, as.character(s$ExDate[1]))
Sector <- c(Sector, as.character(s$Sector[1]))
Quadrat <- c(Quadrat, as.character(s$Quadrat[1]))
Aeventexhumed <- as.character(c(Aeventexhumed,
as.character(s$Aeventexhumed[1])))
QuadratEvent<- c(QuadratEvent, q)
ST1 <- c(ST1, sum(s$ST1, na.rm=TRUE))
ST2 <- c(ST2, sum(s$ST2, na.rm=TRUE))
ST3 <- c(ST3, sum(s$ST3, na.rm=TRUE))
ST4 <- c(ST4, sum(s$ST4, na.rm=TRUE))
ST0 <- c(ST0, sum(s$ST0, na.rm=TRUE))
Shells <- c(Shells, sum(s$Shells, na.rm=TRUE))
Hatchlings <- c(Hatchlings, sum(s$Hatchlings, na.rm=TRUE))
MaxHatch <- c(MaxHatch, sum(s$MaxHatch, na.rm=TRUE))
DeadHatch <- c(DeadHatch, sum(s$DeadHatch, na.rm=TRUE))
Oldeggs <- c(Oldeggs, sum(s$Oldeggs, na.rm=TRUE))
TotalEggs <- c(TotalEggs, sum(s$TotalEggs, na.rm=TRUE))
}
responses <- data.frame(QuadratEvent, ExDate, Sector, Quadrat,
Aeventexhumed, ST0, ST1, ST2, ST3, ST4, Shells,
Hatchlings, MaxHatch, DeadHatch, Oldeggs,
TotalEggs, stringsAsFactors=FALSE)
responses$QuadratEvent <- as.character(responses$QuadratEvent)
data.to.analyze <- join(responses, envir, by="QuadratEvent")
data.to.analyze$NotHatched <- data.to.analyze$TotalEggs -
data.to.analyze$MaxHatch
data.to.analyze$Rayos <- paste("Rayos", data.to.analyze$Rayos, sep=".")
HSuccess <- Shells/TotalEggs
> library(lattice)
> trellis.par.set(col.whitebg())
> bwplot(HSuccess~Rayos|Aeventexhumed)
Error in eval(expr, envir, enclos) : object 'Rayos' not found
--
View this message in context:
http://r.789695.n4.nabble.com/Error-in-eval-expr-envir-enclos-object-Rayos-not-found-tp4630049.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
