Work progress on A. tridentata plots

Work progress

Focal plants

read_xlsx('./A_tridentata/Data/TridentataMasterData.xlsx', 
          'FocalSagebrush') %>%
  group_by(plot) %>%
  summarise(Count = n() ) %>%
  pander("Seems all 25 plots have had data for 20 focal plants collected.")

Seems all 25 plots have had data for 20 focal plants collected.

plot	Count
801	20
802	20
803	20
805	20
806	20
807	20
809	20
810	20
811	20
812	20
813	20
814	20
815	20
816	20
817	20
818	20
819	20
820	20
821	20
822	20
823	20
824	20
825	20
826	20
827	20

Plot-level surveys

read_xlsx('./A_tridentata/Data/TridentataMasterData.xlsx', 
          'PlotLevelSagebrush') %>%
  mutate(plot = plot + 800) %>%
  group_by(plot) %>%
  summarise(Count = n(), 
            `Height (mean ± S.E.)` = paste0(round(mean(height), 0), ' ± ', 
                                            round(sd(height)/sqrt(n()), 1))) %>%
  pander('Seems also all 25 plots have had plot-level sagebrush inventoried.')

Seems also all 25 plots have had plot-level sagebrush inventoried.

plot	Count	Height (mean ± S.E.)
801	334	65 ± 1.1
802	499	61 ± 0.9
803	242	75 ± 1.3
805	100	69 ± 2
806	259	59 ± 1.3
807	70	67 ± 2.7
809	184	69 ± 1.6
810	211	77 ± 1.1
811	211	69 ± 1.3
812	292	65 ± 1.2
813	401	66 ± 1.1
814	175	64 ± 1.5
815	335	65 ± 1.1
816	179	70 ± 1.2
817	130	66 ± 1.7
818	126	67 ± 1.8
819	412	61 ± 1
820	98	66 ± 1.8
821	370	56 ± 0.9
822	270	65 ± 1.3
823	293	62 ± 1.3
824	240	61 ± 1.2
825	297	60 ± 1.1
826	366	62 ± 1.1
827	366	69 ± 1.2

Plant community composition

read_xlsx('./A_tridentata/Data/TridentataMasterData.xlsx', 
          'CommunityComp') %>%
  group_by(Plot, Transect) %>%
  summarise(Count = n() , .groups = 'drop') %>%
  mutate(Plot = Plot + 800, 
         Transect = paste('Transect ', Transect)) %>%
  pivot_wider(names_from = Transect, 
              values_from = Count) %>%
  pander("Furthermore it seems that DFW did LPI measurements on each of the 25 plots as well; data are number of points per transect recorded per plot.")

Furthermore it seems that DFW did LPI measurements on each of the 25 plots as well; data are number of points per transect recorded per plot.

Plot	Transect 1	Transect 2
801	51	51
802	51	51
803	51	51
805	51	51
806	51	51
807	51	51
809	51	51
810	51	51
811	51	51
812	51	51
813	51	51
814	51	51
815	51	51
816	51	51
817	51	51
818	51	51
819	51	51
820	51	51
821	51	51
822	51	51
823	51	51
824	51	51
825	51	51
826	51	51
827	51	51