search for: seamount

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...

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 <-...

...Can you guys please advise how I can achieve this. I used locater() to obtain coordinates for below the Comp.1 axis. Using these coordinates 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.c...

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 17 Atlantis 1217 Shallow 0.0305 0.1250 0.0740 0.2295 24.524 -32.71450 57.29733 18 Atlantis 1217 Deep 0.1660 0.3560 0.0734 0.595...