Redefine Hidden colony [minor]

DataCleaningScripts/get_counts.R

@@ -3,15 +3,15 @@ species <- read.csv("SiteandMethods/species_list.csv")
 counts <- read.csv("Counts/maxcounts.csv")
 under40 <- read.csv("Counts/maxcounts_under40.csv")
 
-
-
-
+colonies$aka[which(colonies$colony=="hidden")] = "Hidden North, L-28, Hidden, L-28 Hidden, 58, 163"
+counts$group_id[which(counts$colony=="58")] = 57
+counts$colony[which(counts$colony=="58")] = "hidden"
 
 colonies <- colonies %>% dplyr::arrange(colony)
 write.table(colonies, "SiteandMethods/colonies.csv", row.names = FALSE, col.names = TRUE, 
             na = "", sep = ",", quote = c(7,8))
 
-counts <- counts %>% dplyr::arrange()
+counts <- counts %>% dplyr::arrange(colony,year)
 write.table(counts, "Counts/maxcounts.csv", row.names = FALSE, na = "", sep = ",", quote = 9)
 
 under40 <- under40 %>% dplyr::arrange()

SiteandMethods/colonies.csv

@@ -119,7 +119,6 @@
 483,483,3,3as,25.798333,-80.762667,"Unknown","483"
 3693,485,3,3as,25.92521,-80.77935,"485","485"
 3694,487,3,3as,25.93637897,-80.78195798,"487, 1361","487"
-58,58,3,3as,25.77328,-80.833385,"163","58"
 3766,610,3,3as,25.76339099,-80.81530002,"","610"
 3668,63,1,1,26.61685605,-80.30663269,"6","63"
 2383,6th_bridge,3,3ase,26.12376586,-80.54149724,"6th Bridge,6th bridge","6th Bridge"
@@ -191,8 +190,7 @@
 1634,hera,3,3as,25.93993152,-80.62295623,"Starter Melaleuca,starter_melaleuca","Hera"
 426,heron_alley,3,3b,25.7967808,-80.56185465,"3b mud canal e,3b mud canal w,Heron alley,3B SH mud canal,Heron Alley,3B mud canal east,Heron alley3,East Central Ag canal,N-S canal 3B,West Cent. Ag,West Ag Canal,HERON ALLEY","Heron Alley"
 1768,hestia,3,3b,25.95900748,-80.47898995,"Hestia","Hestia"
-57,hidden,3,3as,25.77761133,-80.83851862,"Hidden","Hidden"
-56,hidden_north,3,3as,25.775225,-80.839925,"Hidden North","Hidden North"
+57,hidden,3,3as,25.77761133,-80.83851862,"Hidden North, L-28, Hidden, L-28 Hidden, 58, 163","Hidden"
 2276,holiday_park,3,3ase,26.10033061,-80.45482421,"Holiday Park","Holiday Park"
 1773,horus,3,3as,25.96035998,-80.57207845,"L-67,l67,L67,L-67 (Horus),Horus","Horus"
 2180,house_camp,3,3as,26.0651367,-80.7266819,"house camp","House Camp"
@@ -209,7 +207,6 @@
 2117,kidlow,3,3as,26.04029845,-80.59991604,"KIDLOW,Kidlow","Kidlow"
 2114,kinich,3,3ase,26.0424178,-80.50309107,"KINICH,Kinich,Enlil","Kinich"
 2677,l31_south,enp,inlandenp,25.375,-80.575,"S end of L-31","L31 South"
-514,l_28,3,3as,25.79879183,-80.84299876,"L-28,Hidden,L-28 Hidden","L 28"
 3747,little_a,3,3as,25.77414881,-80.70215184,"littlea_littled","Little A"
 174,little_d,3,3as,25.77116443,-80.69301213,"Little D","Little D"
 3251,lost,1,1,26.4736665,-80.25175,"Lox 93-095,Lost","Lost"
@@ -244,7 +241,7 @@
 3737,otter_creek,enp,coastalenp,25.467803,-80.937717,"Otter Creek","Otter Creek"
 2859,outer_lox111_south,1,1,26.51725,-80.26375,"Lox 111 ?, Outer Lox111 South, Lox 11, 3455","Outer Lox111 South"
 2085,outside_cypress,3,3as,26.03997468,-80.82900501,"outside cypress","Outside Cypress"
-2681,paurotis_pond,enp,inlandenp,25.262722,-80.81211033,"Paurotis Pond","Paurotis Pond"
+2681,paurotis_pond,enp,inlandenp,25.281571,-80.801252,"Paurotis Pond","Paurotis Pond"
 1523,pocket,3,3b,25.92341386,-80.51857941,"pocket,NA,Pocket","Pocket"
 1867,pocket_willow,3,3b,25.97521772,-80.52689009,"Pocket willow,Pocket Willow","Pocket Willow"
 2664,preserve_pond_apple,other,bigcypress,25.675167,-80.931167,"Preserve pond apple","Preserve Pond Apple"