search for: d_chlorid

...ot;SMCL" in the Detections vector and supplessed one legend. Warning: For my convenience I am using different data.frame names . library(ggplot2) MyData <-read.csv("http://doylesdartden.com/Stats/TimeSeriesExample.csv", sep=",") MyData$Detections <- ifelse(MyData$D_Chloride ==1, "Detected", "NonDetect") dat1 <-? MyData[, c(1, 3, 4, 6)] dat2 <-? dat1[, c(1,2)] dat2$Detections <-? rep("SMCL", nrow(dat2)) dat$Chloride <-? rep(250, nrow(dat2)) dat3 <-? rbind(dat1, dat2) p <-? ggplot(dat3, aes(Year, Chloride, colour =...

...ou in advance David #Loads the ggplot2 package. library(ggplot2) ##This loads your data from your worksheet MyData <-read.csv("http://doylesdartden.com/Stats/TimeSeriesExample.csv", sep=",") #Sets which are detections and nondetects MyData$Detections <- ifelse(MyData$D_Chloride ==1, "Detected", "NonDetect") #does the plot p <- ggplot(data = MyData, aes(x=Year, y=Chloride , col=Detections)) + geom_point(aes(shape=Detections)) + #sets the detect vs. non-detect colors scale_colour_manual(values=c("black","red")) + #sets...

...ou in advance David #Loads the ggplot2 package. library(ggplot2) ##This loads your data from your worksheet MyData <-read.csv("http://doylesdartden.com/Stats/TimeSeriesExample.csv", sep=",") #Sets which are detections and nondetects MyData$Detections <- ifelse(MyData$D_Chloride ==1, "Detected", "NonDetect") #does the plot p <- ggplot(data = MyData, aes(x=Year, y=Chloride , col=Detections)) + ? geom_point(aes(shape=Detections)) + ? #sets the detect vs. non-detect colors ? scale_colour_manual(values=c("black","red")) + ? #sets...