Skip to content
0

1 hidden cell

Be(e) Friendly

Insufficient data for non-native bees

Given only 2.8% of instances captured non-native bees and less than 5% of those instances involved observing a non-native bee on a particular plant species, the data does not provide sufficient evidence to support a determination of the preferences of non-native bees.

The most Prolific Sample

One of the most abundant samples in the data produced the following insights

  1. Halictus poeyi/ligatus was observed across most plants in this sample, sighted on 4 out of 5 plant species.
  2. More than half of the bee species in this sample were attracted to Cichorium intybus.
  3. Four out of the seven bee species in this sample were observed on only one species of plant.
  4. Origanum vulgare was the only plant species in this sample to attract less than two bee species.
# Identify most prolific sample_id
data %>% filter(plant_species != 'None') %>% 
group_by(sample_id) %>% summarize(num=n()) %>% 
arrange(desc(num)) %>% head(1)
#17473
# Extract plant_species x bee_species combinations from sample 17473
p2 <- data %>% filter(sample_id == '17473') %>% 
group_by(plant_species) %>% 
summarize(plant_species, bees_num, bee_species) %>% suppressWarnings() %>% suppressMessages() %>%
unique() %>%
ggplot(., aes(x = reorder(plant_species, bees_num))) + 
	geom_point(aes(y = reorder(bee_species, bees_num), color = bee_species, size = bees_num)) +
	theme_classic() +
	guides(color = 'none') +
	labs(title = 'Number of Observations by Bee Species and Plant Species',
		 y = 'Bee Species',
		 x = 'Plant Species',
		 size = 'Bees') +
	theme(axis.text.x = element_text(angle = 90)) +
	scale_size_binned(range = c(0,25))

p2

Top 3 Plant Species to Attract Native Bees

To Native Plots

  1. Rudbeckia hirta
  2. Chamaecrista fasciculata
  3. Helenium flexuosum

To Non-Native Plots

  1. Leucanthemum vulgare
  2. Daucus carota
  3. Cichorium intybus
1 hidden cell
data %>% filter(nonnative_bee == 1) %>% nrow()
# There won't be enough evidence to support non-native bees liking any particular plant. Only 35/1250 rows are non-native bees, and 33 of those prefer plant_species: 'None'.

p <- data %>%
group_by(plant_species, native_or_non) %>%
summarize(native_likes = sum(nonnative_bee==0), nonnative_likes = sum(nonnative_bee==1)) %>% suppressMessages() %>% 
filter(plant_species != 'None') %>%
ggplot(., aes(x = reorder(plant_species, native_likes))) +
	geom_col(aes(y = native_likes,fill = factor(native_or_non, levels = c('native','non-native')))) +
	coord_flip() +
	theme_classic() + 
	labs(title = 'Best Plant Species to Attract Native Bees',
		 x = 'Plant Species',
		 y = 'Number of Native Bees Observed',
		 fill = 'Plot Type') +
	scale_fill_manual(values = c('yellow','black'))

ggplotly(p)