This is the best I could do at creating a reproducible example using datapasta. R was throwing a number of errors when attempting to use the tibble pkg and reprex.
Plot photo here: https://github.com/blhodinka/RHelp/issues/2#issue-676519863
data.frame(
stringsAsFactors = FALSE,
Date = c("14-03-20","14-03-20",
"14-03-20","14-03-20","14-03-20","16-03-20","16-03-20",
"16-03-20","16-03-20","16-03-20","18-03-20","18-03-20",
"18-03-20","18-03-20","18-03-20","20-03-20","20-03-20",
"20-03-20","20-03-20","20-03-20","22-03-20",
"22-03-20","22-03-20","22-03-20","22-03-20","24-03-20",
"24-03-20","24-03-20","24-03-20","24-03-20","26-03-20",
"26-03-20","26-03-20","26-03-20","26-03-20","28-03-20",
"28-03-20","28-03-20","28-03-20","28-03-20"),
Time = c("0:00:30","0:00:30","0:02:30",
"0:02:30","0:04:30","0:00:30","0:00:30","0:02:30",
"0:02:30","0:04:30","0:00:30","0:00:30","0:02:30",
"0:02:30","0:04:30","0:00:30","0:00:30","0:02:30",
"0:02:30","0:04:30","0:00:30","0:00:30","0:02:30",
"0:02:30","0:04:30","0:00:30","0:00:30","0:02:30",
"0:02:30","0:04:30","0:00:30","0:00:30","0:02:30","0:02:30",
"0:04:30","0:00:30","0:00:30","0:02:30","0:02:30",
"0:04:30"),
Treatment = c("CTRL","WT","CTRL","WT",
"CTRL","CTRL","WT","CTRL","WT","CTRL","CTRL","WT",
"CTRL","WT","CTRL","CTRL","WT","CTRL","WT","CTRL",
"CTRL","WT","CTRL","WT","CTRL","CTRL","WT","CTRL",
"WT","CTRL","CTRL","WT","CTRL","WT","CTRL","CTRL",
"WT","CTRL","WT","CTRL"),
Perched = c(4L,2L,1L,1L,3L,4L,5L,1L,
4L,0L,3L,1L,1L,3L,4L,3L,4L,2L,5L,2L,3L,0L,
1L,2L,3L,2L,1L,4L,5L,3L,1L,0L,2L,0L,3L,0L,
1L,5L,0L,3L),
date_time = c("2020-03-14 00:00:30",
"2020-03-14 00:00:30","2020-03-14 00:02:30",
"2020-03-14 00:02:30","2020-03-14 00:04:30","2020-03-16 00:00:30",
"2020-03-16 00:00:30","2020-03-16 00:02:30",
"2020-03-16 00:02:30","2020-03-16 00:04:30","2020-03-18 00:00:30",
"2020-03-18 00:00:30","2020-03-18 00:02:30",
"2020-03-18 00:02:30","2020-03-18 00:04:30","2020-03-20 00:00:30",
"2020-03-20 00:00:30","2020-03-20 00:02:30",
"2020-03-20 00:02:30","2020-03-20 00:04:30","2020-03-22 00:00:30",
"2020-03-22 00:00:30","2020-03-22 00:02:30",
"2020-03-22 00:02:30","2020-03-22 00:04:30","2020-03-24 00:00:30",
"2020-03-24 00:00:30","2020-03-24 00:02:30",
"2020-03-24 00:02:30","2020-03-24 00:04:30","2020-03-26 00:00:30",
"2020-03-26 00:00:30","2020-03-26 00:02:30",
"2020-03-26 00:02:30","2020-03-26 00:04:30","2020-03-28 00:00:30",
"2020-03-28 00:00:30","2020-03-28 00:02:30",
"2020-03-28 00:02:30","2020-03-28 00:04:30")
)
> ggplot(zf.behav, aes(date_time, Perched, color=Treatment)) +
+ geom_line() + geom_point() +
+ scale_x_datetime(breaks = "2 days", date_labels = "%m/%d")