Help with line graph

Hi

Struggling to get this correct today. There is 6 seamounts and I would
like
each seamount to be a different line colour.

The part of data set looks like this

  Seamount Group.1     Depthm        NO3     SiO4       PO4        NO2
1 Atlantis   Below 177.257182 4.90729821 4.402966 0.4059566 0.06988687
2 Atlantis    Fmax  59.687077 0.91698665 3.275964 0.3092102 0.08840281
3 Atlantis    Deep  50.612571 0.07528409 2.941385 0.1900287 0.05543472
4 Atlantis Shallow  25.467875 0.54261259 2.604665 0.2801735 0.07639043
5 Atlantis Surface   4.429333 0.63933469 3.897832 0.2377492 0.08753721
6   Sapmer   Below 176.621000 3.39728310 4.481637 0.2970078 0.14552190
7   Sapmer    Fmax  30.986270 0.82713310 3.324292 0.2625740 0.15888890
8   Sapmer Shallow  21.623250 0.47957940 2.370052 0.2627357 0.10683190
9   Sapmer Surface   4.872000 0.80187680 2.643195 0.2581714 0.16521010

The code that I am using looks like this. It makes to different colour
points but line is

setwd("C:\\Users\\Tinus\\Documents\\NMMU\\R\\Seamounts")
All <- read.csv("Book1.csv")

# Column headers
colnames(All)

# Get the unique seamounts
as.character(unique(All$Seamount))
sm <- as.character(unique(All$Seamount))

# Use a loop to loop through each of the seamounts
for( i in sm[1:2]) {
 NO3 <- All[i%in%sm,4]
 Depth <- -All[i%in%sm,3]
plot(NO3, Depth,pch=1,col = 1:2) #plot
lines(NO3, Depth,pch=1,col = 1:2) #plot
}

Thanks for helping me.

Regards,
Tinus

--
M.J. Sonnekus
PhD Candidate (The Phytoplankton of the southern Agulhas Current Large
Marine Ecosystem (ACLME))
Department of Botany
South Campus
Nelson Mandela Metropolitan University
PO Box 77000
Port Elizabeth
South Africa
6031

Cell: 082 080 9638
E-mail: tsonnekus at gmail.com

	[[alternative HTML version deleted]]