knitr::opts_chunk$set(echo = FALSE)
library(plotly)

## Loading required package: ggplot2

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

library(ggplot2)
rodent <- read.csv("~/Desktop/Data_science/Data products/rodent.csv", na.strings=c("", "NA"))
rodent$species_id <- as.factor(rodent$species_id)
rodent$sex <- as.factor(rodent$sex)
rodent$genus <- as.factor(rodent$genus)
rodent$species <- as.factor(rodent$species)
rodent$taxa <- as.factor(rodent$taxa)
rodent$plot_type <- as.factor(rodent$plot_type)
rodent <- na.omit(rodent)
Dipodomys <- subset(rodent, genus == "Dipodomys")

Dipodomys merriami

Dipodomys merriami