R/MapPredator.r

In pkuhnert/diet: Performs an analysis of diet data using univariate trees

#' MapPredator
#' 
#' @description Internal function used by \code{plot.diet}
#' 
#' @param x x
#' @param LonID LonID
#' @param LatID LatID
#' @param mapxlim mapxlim
#' @param mapylim mapylim
#' @param database database
#' @param PredSpID PredSpID
#' 
#' @importFrom "ggplot2" "ggplot" "ggplot_gtable" "aes_string" "geom_point" "geom_bar"
#' @importFrom "ggplot2" "geom_histogram"

MapPredator <- function(x, LonID, LatID, mapxlim, mapylim, database, PredSpID){
  
  expl2 <- mappoints.data(x[,c(LonID,LatID)], xlim = mapxlim, ylim = mapylim,  
                          database = database)
  XYdata <- x[,c(LonID, LatID)]
  Longitude <- XYdata[,1]
  Latitude <- XYdata[,2]
  df <- data.frame(Longitude, Latitude, x[,PredSpID])
  names(df) <- c("Longitude", "Latitude", "Predator")
#  df <- data.frame(Longitude, Latitude, Predator = x[,PredSpID])
  expl3 <- expl2 + geom_point(data = df, aes_string("Longitude", "Latitude", colour = "Predator")) +
    ggtitle("Distribution of Samples by Predator")
  
  expl3
}