luisDVA

#Package load

library(dplyr)
library(reshape2)
library(ggplot2)
library(devtools)
install_github('timcdlucas/palettetown')
library(palettetown)

# read the data directly from the repo

luisDVA

# Dependencies

if(!require(party)){
  install.packages("party")
  library(party)
}
if(!require(dplyr)){
  install.packages("dplyr")
  library(dplyr)
}

luisDVA

# custom barplot function to alter the appearance of terminal nodes
# modified from code provided by Achim Zeileis to the R-help mailing list 
# source the function and assign it as a grapcon_generator object
node_barplot2 <- function(ctreeobj,
                          col = "black",
                          fill = c("red", "white"),
                          beside = NULL,
                          ymax = NULL,
                          ylines = NULL,
                          widths = 1,

luisDVA

# mapping conservation research

#load libraries
library(geosphere)
library(dplyr)
library(StandardizeText)
library(ggmap)
library(maps)
library(rvest)
library(rworldmap)

luisDVA

library(ggplot2)
library(dplyr)
library(gridExtra)
library(rphylopic)

MammalDisc <- read.csv(file = "https://raw.githubusercontent.com/luisDVA/codeluis/master/mammalDiscoveries.csv",stringsAsFactors = FALSE)

# plot search results by order for all orders
ggplot(MammalDisc,aes(results,reorder(sp,descYear)))+
  geom_point() + theme_minimal() + theme(axis.text.y = element_blank())+

luisDVA

# point overlap, LDVA
# load 
library(sp)
library(dplyr)
library(ggplot2)
library(ggmap)
library(fields)
library(cowplot)
library(rgbif)
library(gridExtra)

luisDVA

library(ggplot2)

dat <- data.frame(x=rnorm(20,4,2),y=rnorm(20,3,2))

theme_Eiffel65 <- function(base_size = 12, base_family = "") { 
  # modification to theme_grey  
  theme_grey(base_size = base_size, base_family = base_family) %+replace% 
    theme( 
      axis.text         = element_text(size = rel(0.8),colour = "blue"), 
      axis.title        = element_text(colour = "blue"),

luisDVA

# crear tabla de datos
ventas <- data.frame(vend = LETTERS[sample(15,replace=F)],
                     artsVend = sample(9:70, 15, replace = T),
                     totalv = sample(300:7900, 15, replace=T))

# cargar paquetes adicionales (instalar primero si es necesario)
library(ggplot2)
devtools::install_github("hrbrmstr/ggalt")
devtools::install_github("hrbrmstr/hrbrthemes")
library(ggalt)

luisDVA

# define function
# this code is just for fun and I do not have rights to the images on dogtime.com I just like dogs

ggpup <- function(ggplotObject){

# required packages 
  require(dplyr)
  require(jpeg)
  require(grid)
  require(gridExtra)

luisDVA

# expanding a series, consecutive values
# by Filipe Chichorro, modified for vectors
expandSeries <- function(strStartEnd){
  
  words<-strsplit(strStartEnd, " ")
  
  if (length(words[[1]])== 1) return(strStartEnd)
   
  else