search for: seamounts

Hi All, I have a data set wit three size classes (pico, nano and micro) and 12 different sites (Seamounts). I want to produce a table with the mean and standard deviation values for each site. Seamount Pico Nano Micro Total_Ch 1 Off_Mount 1 0.0691 0.24200 0.00100 0.31210 2 Off_Mount 1 0.0938 0.00521 0.02060 0.11961 3 Off_Mount 1 0.1130 0.20000 0.06620 0.37920 4 Off_Mount 1 0.0864 0...

Hi All, I'm using the following code to produce some stacked bar graphs. *setwd("C:\\Users\\Tinus\\Documents\\NMMU\\R\\Seamounts")* *SChla <- read.csv("SM_Chla_data.csv")* * * *#Extract mean values from data file* * * *Coral <- SChla[185:223,] #Reduce SChla to Coral only* *coral <- with(Coral , aggregate(cbind(Pico, Nano, Micro), list(Depth),FUN=mean))* *rownames(coral) <- coral[,1] * *coral <-...

...the legend disappears. Below is the code for the PCA and legend. Thanks in advance for the help. Regards Tinus r.cols <- rainbow(length(unique(SEData$Seamount))) pca1 <- princomp(SEData3, scores=TRUE, cor=TRUE) biplot(pca1, var.axes= TRUE, xlabs=rep("",nrow(SEData3)),main="Seamounts PCA") rrr <- apply(pca1$scores[,1:2],2, range) par(usr=as.vector(rrr)) points(pca1$scores[,1:2], col=r.cols , pch=20) legend(-8, 2.95, sm, col = r.cols, text.col = "black", lty = NULL, pch = 20,horiz = F,) -- M.J. Sonnekus PhD Candidate (The Phytoplankton of the southern Agulha...

Hi All, I am trying to reproduce this using R instead. [image: Full-size image (38 K)] I tried using the following code *SChla <- read.csv("SM_Chla_data.csv")* *Atlantis <- SChla[16:66,]* *head(Atlantis)* * * Seamount Station Depth Pico Nano Micro Total_Ch dbar Latitude Longitud 16 Atlantis 1217 Surface 0.0639 0.1560 0.0398 0.2597 2.082 -32.71450 57.29733