circular_plot_camptrap.R

sp_by_hour <- data%>% mutate_at(vars(Species),factor)%>%
  group_by(Station,Species,.drop=FALSE)%>%
  mutate(hora=hour(DateTimeOriginal))%>%
  filter(Species=='fox'|Species=='people')

sp_by_hour_plot <- ggplot(sp_by_hour, aes(x =hora, fill = Species)) + 
  geom_bar(width = .95) + 
  coord_polar(start = 0) +
  theme_minimal() +
  scale_fill_manual(values = alpha(c("blue", "red"), .5)) + 
  scale_x_continuous("", limits = c(0,24), breaks = seq(0,24), labels = seq(0,24))+
  scale_y_continuous("Detecciones por hora (log)",trans="log10")+
  labs(fill = "",size=50)+
  theme(text = element_text(size = 20))