Hi Tinus, Given your read.csv commands, the names of the seamounts will be read as factors, so col=as.numeric(All$Seamount) should get you started.
Jim > 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: tsonne...@gmail.com > > [[alternative HTML version deleted]] > > ______________________________________________ > 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. > ______________________________________________ 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.