Note:
Total number of survey records: 3,100
Total number of boaters (including all group members for each survey): 6,534
Total number of watercraft: 3,242
Motorized watercraft: 3,012 (92.9% of total watercraft)
Non-motorized watercraft: 230 (7.09% of total watercraft)
Average watercraft per survey: 1.05
Number of surveys conducted where organisms or debris were detected: 557 (18% of total surveys)
Number of surveys conducted where one or more invasive species were detected: 170 (5.48% of total surveys)
Number of reported invasive species detections: 190
Tips:
## [1] "prevent <- data\nprevent$variable <- rep(1, nrow(data))\nprevent <- prevent[,c(\"PreventTaken\",\"variable\")]\nprevent <- separate_rows(prevent, PreventTaken, sep = \",\")\nprevent$PreventTaken[prevent$PreventTaken == \" Inspected\"] <- \"Inspected\"\nprevent_tab <- data.frame(with(prevent, ftable(PreventTaken,variable)))\nprevent_tab <- prevent_tab[order(prevent_tab$Freq, decreasing = TRUE),]\nprevent_tab <- prevent_tab[nchar(as.character(prevent_tab$PreventTaken)) > 0,]\nprevent_tab$variable <- NULL"