Re: [R] Removing a data subset
Thank Rainer and Jim!!
The end result was:
#Makes a new data set name "MyData_Minus_MW01" that contains all the data
where the Location Column is not equal to MW01 and the comma after that
ensures that all columns are copied into the amended data.frame.
MyData_Minus_MW01 <- MyData[ MyData$Location != "MW01", ]
The final code is as follows:
#Loads ggplot2
library(ggplot2)
#Loads data from internet and names it MyData
MyData <- read.csv( "http://doylesdartden.com/ExampleData.csv;, header =
TRUE, stringsAsFactors = FALSE )
#Makes a new data set name "MyData_Minus_MW01" that contains all the data
where the Location Column is not equal to MW01 and the comma after that
ensures that all columns are copied into the amended data.frame.
MyData_Minus_MW01 <- MyData[ MyData$Location != "MW01", ]
#Sets whic are detections and nondetects
MyData_Minus_MW01$Detections <- ifelse(MyData_Minus_MW01$D_GW_Elv ==1,
"Detected", "NonDetect")
#Removes the NAs
MyData_Minus_MW01WONA <-
MyData_Minus_MW01[!is.na(MyData_Minus_MW01$Detections),
]
#does the plot
p <- ggplot(data = MyData_Minus_MW01WONA, aes(x=Year, y=GW_Elv ,
col=Detections)) +
geom_point(aes(shape=Detections)) +
##sets the colors
scale_colour_manual(values=c("black","red")) + #scale_y_log10() +
#location of the legend
theme(legend.position=c("right")) +
#sets the line color, type and size
geom_line(colour="black", linetype="dotted", size=0.5) +
ylab("Elevation Feet Mean Sea Level")
## does the graph using the Location IDs as the different Locations.
p + facet_grid(Location ~ .)
Thanks again
David
[[alternative HTML version deleted]]
__
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
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.
Re: [R] Removing a data subset
Hi David,
You "just" need to learn how to subset your data.frame, see functions
like ?subset and ?"[", as well as a good guide to understand the subtleties!
Some graphic functions also have a built-in argument to subset within
the function (e.g. argument 'subset' in 'plot.formula'), although the
ggplot() function doesn't seem to have it.
In any case, I would recommend you spend some time learning that aspect,
as you will always need it in one situation or another.
HTH,
Ivan
--
Dr. Ivan Calandra
TraCEr, laboratory for Traceology and Controlled Experiments
MONREPOS Archaeological Research Centre and
Museum for Human Behavioural Evolution
Schloss Monrepos
56567 Neuwied, Germany
+49 (0) 2631 9772-243
https://www.researchgate.net/profile/Ivan_Calandra
On 29/11/2017 22:07, David Doyle wrote:
Say I have a dataset that looks like
LocationYear GW_Elv
MW011999 546.63
MW021999 474.21
MW031999 471.94
MW041999466.80
MW012000545.90
MW022000546.10
The whole dataset is at http://doylesdartden.com/ExampleData.csv
and I use the code below to do the graph but I want to do it without MW01.
How can I remove MW01??
I'm sure I can do it by SubSeting but I can not figure out how to do it.
Thank you
David
--
library(ggplot2)
MyData <- read.csv("http://doylesdartden.com/ExampleData.csv;, header=TRUE,
sep=",")
#Sets whic are detections and nondetects
MyData$Detections <- ifelse(MyData$D_GW_Elv ==1, "Detected", "NonDetect")
#Removes the NAs
MyDataWONA <- MyData[!is.na(MyData$Detections), ]
#does the plot
p <- ggplot(data = MyDataWONA, aes(x=Year, y=GW_Elv , col=Detections)) +
geom_point(aes(shape=Detections)) +
##sets the colors
scale_colour_manual(values=c("black","red")) + #scale_y_log10() +
#location of the legend
theme(legend.position=c("right")) +
#sets the line color, type and size
geom_line(colour="black", linetype="dotted", size=0.5) +
ylab("Elevation Feet Mean Sea Level")
## does the graph using the Location IDs as the different Locations.
p + facet_grid(Location ~ .)
[[alternative HTML version deleted]]
__
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
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 -- To UNSUBSCRIBE and more, see
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.
Re: [R] Removing a data subset
Reading in the data from the file
x <- read.csv( "ExampleData.csv", header = TRUE, stringsAsFactors = FALSE )
Subsetting as you want
x <- x[ x$Location != "MW01", ]
This selects all rows where the value in column 'Location' is not equal to
"MW01". The comma after that ensures that all columns are copied into the
amended data.frame.
Rgds,
Rainer
On Mittwoch, 29. November 2017 15:07:34 +08 David Doyle wrote:
> Say I have a dataset that looks like
>
> LocationYear GW_Elv
> MW011999 546.63
> MW021999 474.21
> MW031999 471.94
> MW041999466.80
> MW012000545.90
> MW022000546.10
>
> The whole dataset is at http://doylesdartden.com/ExampleData.csv
> and I use the code below to do the graph but I want to do it without MW01.
> How can I remove MW01??
>
> I'm sure I can do it by SubSeting but I can not figure out how to do it.
>
> Thank you
> David
>
> --
>
> library(ggplot2)
>
> MyData <- read.csv("http://doylesdartden.com/ExampleData.csv;, header=TRUE,
> sep=",")
>
>
>
> #Sets whic are detections and nondetects
> MyData$Detections <- ifelse(MyData$D_GW_Elv ==1, "Detected", "NonDetect")
>
> #Removes the NAs
> MyDataWONA <- MyData[!is.na(MyData$Detections), ]
>
> #does the plot
> p <- ggplot(data = MyDataWONA, aes(x=Year, y=GW_Elv , col=Detections)) +
> geom_point(aes(shape=Detections)) +
>
> ##sets the colors
> scale_colour_manual(values=c("black","red")) + #scale_y_log10() +
>
> #location of the legend
> theme(legend.position=c("right")) +
>
> #sets the line color, type and size
> geom_line(colour="black", linetype="dotted", size=0.5) +
> ylab("Elevation Feet Mean Sea Level")
>
> ## does the graph using the Location IDs as the different Locations.
> p + facet_grid(Location ~ .)
>
> [[alternative HTML version deleted]]
>
> __
> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> 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 -- To UNSUBSCRIBE and more, see
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.
