Sampling_plot_name    bin
cam44                 Cerdocyon thous
cam51                 Cerdocyon thous
cam51                 Mazama gouazoupira
cam51                 Mazama gouazoupira
cam51                 Dasypus novemcintus
cam7                  Cerdocyon thous
cam21                 Hydrochoerus hydrochaeris
cam14                 Cerdocyon thous
cam14                 Cerdocyon thous
cam14                 Cerdocyon thous
cam22                 Cerdocyon thous

nspeciesveg <- length(unique(mydata$bin))
cams <- unique(mydata$Sampling_plot_name)
vegmat<-matrix(NA,length(cams),nspeciesveg,dimnames = list(cams,
unique(mydata$bin)))
for (i in 1:nspeciesveg){
index<-which(mydata$bin==unique(mydata$bin)[i])
site <- sort(unique(mydata$Sampling_plot_name[index]))
colum <- sort(unique(mydata$bin[index]))
vegmat[site,colum]<-table(mydata$Sampling_plot_name[index])
}