Hot and Bothered: The interactive effects of heat and pathogens on Bombus impatiens

Author

Maya Frey, Micah Lohr, and Tali Szulanksi

Introduction

Bees are important pollinators that are at risk due to climate change. Larger species of bee such as the native common Eastern bumblebee, Bombus impatiens, are particularly vulnerable to population loss due to climate change. While heat is, of course, a stressor to our pollinators; there are many stressors at work. Another major stressor for B. impatiens is Crithidia bombi, a gut pathogen that reduces bees’ ability to forage and reproduce - and therefore their ability to pollinate. The research collected for this study focuses on the interactive effects between C. bombi infections and heat stressors on B. impatiens. The data has major implications for pollinator health, which in turn has major implications on our ability to continue eating agricultural products as the climate continues changing. As part of this project, we took behavioral data from the microcolonies– boxes with 10 bees each– over the course of around five months. To get this information, we took a “snapshot” of the microcolony in an attempt to get the behavior of each bee in around 2 seconds. We recorded the date, time of day, temperature of the room, infection status of the colony, and the following behaviors: feeding on 30% sucrose, incubating the brood, moving, remaining stationary, and fanning.

In this project, we will focus on these stressors’ effect on measurable behavioral outputs, namely feeding, incubating, and fanning behavior. We also looked at discrepancy in observed fanning behavior by observers. This is interesting because collecting behavioral data can quickly become subjective, and fanning behavior is particularly challenging to accurately measure. Fanning behavior typically occurs when a bee becomes overheated and attempts to cool down by fanning their wings very rapidly. Looking at the biology involved led us to generate the following three hypotheses that we proceeded to test and analyze.

Hypotheses

1.) We hypothesized that temperature and infection status have an interactive effect on incubating behavior by our replicate bees. Bees incubate their brood to keep it warm enough to survive, and as temperatures increase this becomes less necessary since the ambient temperature is warm enough for the brood. Additionally, as the temperature nears the bees thermal tolerance limits, they allocate their energy to immediate survival over maintaining the brood. We also expect infection status to have an effect on the behavior of the bees, as it may change their tolerance to high temperatures and what activities they allocate their energy towards.

H0: There is no effect of infection status and temp on incubating behavior, and no interactive effect of the two on behavior. 

HA: There is an interactive effect of infection status and temp on incubating behavior.

2.) We further hypothesize that there is a difference in mean fanning behavior based on the observer. Since we are humans, there are likely differences in how each of us recorded the behavior. We chose to examine fanning in particular because it is a more difficult behavior to discern when you’re staring at bees through a plastic box in a dark room– their wings are small, and they move very quickly when fanning. It can be difficult to determine whether the wings are folded against their backs, or moving so fast you are not able to see them. 

H0: There is no difference in mean fanning behavior based on the observer.

HA: There is a difference in mean fanning behavior based on the observer. 

3.) Finally, we hypothesize that there is an interactive effect of infection status and temperature on feeding behavior. Past research has already indicated that infection with Crithidia bombi has sublethal effects on bumblebees, such as reduced foraging behavior and a shorter lifespan. Furthermore, heat stress at temperatures near or above their critical thermal limit will likely impact what the bees choose to allocate their energy towards. Thus, it might be possible that infection and heat stress together will impact feeding if the stress has a metabolic cost. We think that this could go either way in terms of feeding: they could feed more to accommodate for the increased energy needed to thermoregulate and fight infection, or they could feed less if they succumb to these stressors. 

H0: There is no effect of infection status and temp on feeding behavior, and no interactive effect of the two on behavior. 

HA: There is an interactive effect of infection status and temp on feeding behavior.

Statistical Analysis

Data Collection

Each data point represents a 2 second “snapshot” of bee behavior. We recorded the counts of bees exhibiting behavior in the categories of moving, feeding, stationary, incubating, and fanning. Bee colonies were in rooms with temperatures of 23°C, 30°C, 34°C, 37°C, and 40°C, and colonies as a whole were either infected or uninfected. In this report, we look at both uninfected and infected bees in rooms at every temperature, but only look at the feeding, incubating, and fanning behaviors. Feeding was identified as bees standing on the sucrose wick with their tongue clearly on the wick. Incubating as identified as bees standing stationary on the brood. Fanning was identified as bees moving wings quickly without flying.

Data Processing

After loading in the data, we dropped all of the NAs from the dataset. We also mutated one variable, observer_initials, to combine the data from “JM” and “JLM” because they are the same observer that just recorded their name differently. 

Since the incubation and feeding data were count data and did not reflect the proportion of bees alive at the time of data collection, we converted our incubation and feeding variables to the proportion of live bees exhibiting that behavior in each microcolony. Three feeding proportions were over 1 and we removed these observations as the data were likely recorded incorrectly.  We also converted our infection status to a factor with two levels and temperature to a character. These variables are discrete and not continuous, and we treated them as such in our analysis. 

Statistical Analysis

Hypothesis 1

To assess our first hypothesis, we used an interactive ANOVA with a post-hoc Tukey HSD test to determine the interactive effect of temperature and infection status on incubating behavior. We ran a model check to test the assumptions of this ANOVA. According to this check, we have questionable homogeneity of variance and normality of residuals. We also made a boxplot of the data to assess outliers, and found that there are some; however, we feel it is ecologically to include this data because they represent unusual behavior. Based on our experimental design, we may not be able to ensure independence due to multiple observations of the same replicates; however, the large sample size accounts for this. Since the assumptions are not fully met for this analysis, we should be cautious interpreting our results. This concept applies for all three of our hypotheses as they are all from the same data set and the data was collected in the same way. 

Hypothesis 2

To assess our second hypothesis, we used an ANOVA and a post-hoc Tukey test to determine the effect of the observer on the proportion of bees feeding. We also ran a model check on this ANOVA to test the assumptions for running this type of test. According to this check, the homogeneity of variance and normality of residuals are questionable. We also ran a Levene’s test for the homogeneity of variance, which we did not find significance for, meaning that this assumption is met enough to proceed. We also made a boxplot to assess outliers. Once again, we did find them, but we applied the same rationale as stated above.

Hypothesis 3

To assess our third hypothesis, we used an interactive ANOVA and a post-hoc Tukey test to determine the interactive effect of temperature and infection status on feeding behavior. We ran a model check to test the assumptions of this ANOVA. According to this check, we have good homogeneity of variance, but questionable normality of residuals. We also made a boxplot to assess outliers. Though there were some, we still included them as per the previously stated reasoning.

Results

Data Processing

library (tidyverse)
── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
✔ ggplot2 3.4.0      ✔ purrr   1.0.1 
✔ tibble  3.1.8      ✔ dplyr   1.0.10
✔ tidyr   1.3.0      ✔ stringr 1.5.0 
✔ readr   2.1.3      ✔ forcats 0.5.2 
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
library(ggplot2)
library(lme4)
Loading required package: Matrix

Attaching package: 'Matrix'

The following objects are masked from 'package:tidyr':

    expand, pack, unpack
library(glmmTMB)
Warning in checkDepPackageVersion(dep_pkg = "TMB"): Package version inconsistency detected.
glmmTMB was built with TMB version 1.9.1
Current TMB version is 1.9.2
Please re-install glmmTMB from source or restore original 'TMB' package (see '?reinstalling' for more information)
library(effects)
Loading required package: carData
lattice theme set by effectsTheme()
See ?effectsTheme for details.
library(performance)
library(car)

Attaching package: 'car'

The following object is masked from 'package:dplyr':

    recode

The following object is masked from 'package:purrr':

    some
library(rsample)
library(data.table)

Attaching package: 'data.table'

The following objects are masked from 'package:dplyr':

    between, first, last

The following object is masked from 'package:purrr':

    transpose
library(rstatix)

Attaching package: 'rstatix'

The following object is masked from 'package:stats':

    filter
behavior_23Feb23 <- read.csv("behavior_23Feb23.csv")

behavior <- behavior_23Feb23
drop_na(behavior)
  replicate microcolony date date_withyr  time temp moving feeding stationary
1        28        23A1 2/23     2/23/22 11:08   23      0       0          0
  incubating fanning total_alive observer_initials infected parent
1          2       0           2                EF        0      1
  day_of_experiment
1                 9
                                                                notes drop
1 there were 10 alive bees, something is funny about this data. Drop.    1
behavior <- behavior %>% 
  mutate(observer_initials= if_else(observer_initials=='JM','JLM',observer_initials))

behavior$temp=as.character(behavior$temp)
behavior$infected=as.factor(behavior$infected)

incubatingprop = (behavior$incubating/behavior$total_alive)
behavior<- cbind(behavior,incubatingprop)

fanningprop = (behavior$fanning/behavior$total_alive)
behavior<- cbind(behavior,fanningprop)

behavior<- behavior %>%
  filter(fanningprop<=1)

feedingprop = (behavior$feeding/behavior$total_alive)
behavior<- cbind(behavior,feedingprop)

Hypothesis 1

aov1<- aov(incubatingprop~temp*infected, data=behavior)
df sum of squares mean square F-value p-value
Temperature 4 29.13 7.283 218.98 <2e-16*
Infected 1 5.93 5.925 178.17 <2e-16*
Temperature:Infected 4 3.23 0.808 24.29 <2e-16*
Residuals 1267 42.14 0.033

Table 1. Summary for interactive ANOVA for the effects of temperature and infection status on proportion of bees incubating. * represents significance for an alpha of 0.05.

TukeyHSD(aov1)
  Tukey multiple comparisons of means
    95% family-wise confidence level

Fit: aov(formula = incubatingprop ~ temp * infected, data = behavior)

$temp
             diff        lwr          upr    p adj
30-23 -0.15987824 -0.2012327 -0.118523785 0.000000
34-23 -0.27865383 -0.3239731 -0.233334528 0.000000
37-23 -0.33375397 -0.3734575 -0.294050463 0.000000
40-23 -0.41391575 -0.4584312 -0.369400336 0.000000
34-30 -0.11877560 -0.1665505 -0.071000670 0.000000
37-30 -0.17387573 -0.2163607 -0.131390764 0.000000
40-30 -0.25403751 -0.3010506 -0.207024471 0.000000
37-34 -0.05510013 -0.1014534 -0.008746911 0.010493
40-34 -0.13526192 -0.1857978 -0.084726038 0.000000
40-37 -0.08016178 -0.1257294 -0.034594212 0.000017

$infected
          diff        lwr        upr p adj
1-0 -0.1307346 -0.1508367 -0.1106325     0

$`temp:infected`
                 diff         lwr          upr     p adj
30:0-23:0 -0.18373961 -0.24345091 -0.124028308 0.0000000
34:0-23:0 -0.36919358 -0.45254845 -0.285838702 0.0000000
37:0-23:0 -0.40420988 -0.46247275 -0.345947010 0.0000000
40:0-23:0 -0.50677743 -0.58963384 -0.423921021 0.0000000
23:1-23:0 -0.25804682 -0.32267113 -0.193422513 0.0000000
30:1-23:0 -0.42667980 -0.50230664 -0.351052954 0.0000000
34:1-23:0 -0.38590119 -0.45145125 -0.320351119 0.0000000
37:1-23:0 -0.49169105 -0.56095173 -0.422430363 0.0000000
40:1-23:0 -0.51974283 -0.58378866 -0.455696995 0.0000000
34:0-30:0 -0.18545397 -0.27043809 -0.100469855 0.0000000
37:0-30:0 -0.22047028 -0.28104112 -0.159899433 0.0000000
40:0-30:0 -0.32303782 -0.40753309 -0.238542563 0.0000000
23:1-30:0 -0.07430721 -0.14101977 -0.007594654 0.0155875
30:1-30:0 -0.24294019 -0.32035908 -0.165521304 0.0000000
34:1-30:0 -0.20216158 -0.26977131 -0.134551848 0.0000000
37:1-30:0 -0.30795144 -0.37916455 -0.236738331 0.0000000
40:1-30:0 -0.33600322 -0.40215556 -0.269850872 0.0000000
37:0-34:0 -0.03501630 -0.11898906  0.048956447 0.9487452
40:0-34:0 -0.13758385 -0.24016087 -0.035006832 0.0009498
23:1-34:0  0.11114676  0.02264161  0.199651908 0.0029123
30:1-34:0 -0.05748622 -0.15431741  0.039344974 0.6816973
34:1-34:0 -0.01670761 -0.10589097  0.072475753 0.9998760
37:1-34:0 -0.12249747 -0.21444258 -0.030552360 0.0010725
40:1-34:0 -0.15054925 -0.23863290 -0.062465599 0.0000032
40:0-37:0 -0.10256755 -0.18604552 -0.019089574 0.0040872
23:1-37:0  0.14616306  0.08074373  0.211582392 0.0000000
30:1-37:0 -0.02246992 -0.09877723  0.053837405 0.9953736
34:1-37:0  0.01830870 -0.04802530  0.084642691 0.9971711
37:1-37:0 -0.08748116 -0.15748424 -0.017478093 0.0031469
40:1-37:0 -0.11553294 -0.18038089 -0.050684997 0.0000009
23:1-40:0  0.24873061  0.16069476  0.336766461 0.0000000
30:1-40:0  0.08009763 -0.01630480  0.176500068 0.2031460
34:1-40:0  0.12087624  0.03215859  0.209593893 0.0007104
37:1-40:0  0.01508638 -0.07640707  0.106579839 0.9999578
40:1-40:0 -0.01296539 -0.10057748  0.074646696 0.9999833
30:1-23:1 -0.16863298 -0.24990133 -0.087364619 0.0000000
34:1-23:1 -0.12785437 -0.19984004 -0.055868688 0.0000010
37:1-23:1 -0.23364423 -0.30902439 -0.158264063 0.0000000
40:1-23:1 -0.26169600 -0.33231466 -0.191077346 0.0000000
34:1-30:1  0.04077861 -0.04122783  0.122785050 0.8597166
37:1-30:1 -0.06501125 -0.15001294  0.019990439 0.3122273
40:1-30:1 -0.09306303 -0.17387214 -0.012253913 0.0102089
37:1-34:1 -0.10578986 -0.18196518 -0.029614542 0.0004924
40:1-34:1 -0.13384164 -0.20530845 -0.062374827 0.0000002
40:1-37:1 -0.02805178 -0.10293660  0.046833040 0.9743083

Table 2. Tukey post-hoc results for the ANOVA examining the interactive effect of temperature and infection status on the proportion of incubating bees.

behavior_meanincubating<- behavior %>%
group_by(temp,infected) %>%
drop_na(incubatingprop) %>%
summarize(meaninc = mean(incubatingprop), sd=sd(incubatingprop),n=n(),se=sd/sqrt(n))
`summarise()` has grouped output by 'temp'. You can override using the
`.groups` argument.
pd<- position_dodge(width=0.2)

ggplot(data=behavior_meanincubating, aes(x=temp, y=meaninc, color=infected)) +
  geom_point(position=pd) +
  geom_errorbar(data=behavior_meanincubating, aes(x=temp, ymin=meaninc-se,ymax=meaninc+se),size=0.5,position=pd) +
  theme_bw() + 
  labs(x="Temperature", y="Average Bees Incubating", color="Infected",caption="Figure 1. Average proportion of bees incubating by temperature and infection status. \n Error bars represent the standard error the the mean.") +
  theme(plot.caption=element_text(hjust=0.5)) +
  scale_color_manual(labels=c("No","Yes"), values=c("red","blue"))
Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
ℹ Please use `linewidth` instead.

Hypothesis 2

aov2<- aov(fanningprop~observer_initials, data=behavior)
df sum of squares mean square F-value p-value
Observer 12 1.12 0.09300 2.215 0.0094*
Residuals 1264 53.07 0.04199

Table 3. Summary for the ANOVA for the effect of observer on the proportion of fanning bees. * represents significance for an alpha of 0.05.

TukeyHSD(aov2)
  Tukey multiple comparisons of means
    95% family-wise confidence level

Fit: aov(formula = fanningprop ~ observer_initials, data = behavior)

$observer_initials
                 diff          lwr        upr     p adj
DC-AS    0.0314177380 -0.049708638 0.11254411 0.9873608
EF-AS    0.0083038258 -0.090315238 0.10692289 1.0000000
EM-AS    0.0138482424 -0.077952043 0.10564853 0.9999993
JLM-AS   0.0288634071 -0.087815404 0.14554222 0.9998327
JVW-AS   0.0517680419 -0.115275969 0.21881205 0.9983606
MC-AS    0.0846513254 -0.051288487 0.22059114 0.6874990
MF-AS    0.0541713302 -0.021324984 0.12966764 0.4577282
MF -AS  -0.1042887668 -0.787020711 0.57844318 0.9999992
ML-AS    0.0665745966 -0.002767779 0.13591697 0.0743337
TS-AS    0.0132515558 -0.072121454 0.09862457 0.9999990
TS -AS   0.0068223443 -0.675909600 0.68955429 1.0000000
WR-AS   -0.0917887668 -0.271978902 0.08840137 0.8984187
EF-DC   -0.0231139122 -0.118982720 0.07275490 0.9998724
EM-DC   -0.0175694956 -0.106408682 0.07126969 0.9999850
JLM-DC  -0.0025543309 -0.116918021 0.11180936 1.0000000
JVW-DC   0.0203503039 -0.145084911 0.18578552 0.9999999
MC-DC    0.0532335873 -0.080724396 0.18719157 0.9842707
MF-DC    0.0227535922 -0.049112966 0.09462015 0.9979843
MF -DC  -0.1357065048 -0.818046608 0.54663360 0.9999841
ML-DC    0.0351568585 -0.030214953 0.10052867 0.8571377
TS-DC   -0.0181661822 -0.100346833 0.06401447 0.9999495
TS -DC  -0.0245953937 -0.706935497 0.65774471 1.0000000
WR-DC   -0.1232065048 -0.301906235 0.05549323 0.5258978
EM-EF    0.0055444166 -0.099510959 0.11059979 1.0000000
JLM-EF   0.0205595813 -0.106811076 0.14793024 0.9999985
JVW-EF   0.0434642161 -0.131215608 0.21814404 0.9998222
MC-EF    0.0763474996 -0.068872926 0.22156793 0.8757256
MF-EF    0.0458675044 -0.045286392 0.13702140 0.9062978
MF -EF  -0.1125925926 -0.797232824 0.57204764 0.9999981
ML-EF    0.0582707708 -0.027855326 0.14439687 0.5575904
TS-EF    0.0049477300 -0.094540411 0.10443587 1.0000000
TS -EF  -0.0014814815 -0.686121713 0.68315875 1.0000000
WR-EF   -0.1000925926 -0.287383341 0.08719816 0.8624933
JLM-EM   0.0150151647 -0.107152167 0.13718250 0.9999999
JVW-EM   0.0379197995 -0.133003030 0.20884263 0.9999475
MC-EM    0.0708030830 -0.069875788 0.21148195 0.9061641
MF-EM    0.0403230878 -0.043406271 0.12405245 0.9305268
MF -EM  -0.1181370092 -0.801828328 0.56555431 0.9999967
ML-EM    0.0527263542 -0.025499455 0.13095216 0.5638601
TS-EM   -0.0005966866 -0.093329976 0.09213660 1.0000000
TS -EM  -0.0070258981 -0.690717217 0.67666542 1.0000000
WR-EM   -0.1056370092 -0.289428731 0.07815471 0.7909196
JVW-JLM  0.0229046348 -0.162571148 0.20838042 0.9999999
MC-JLM   0.0557879183 -0.102253840 0.21382968 0.9944223
MF-JLM   0.0253079231 -0.085133274 0.13574912 0.9999257
MF -JLM -0.1331521739 -0.820626153 0.55432181 0.9999881
ML-JLM   0.0377111895 -0.068618156 0.14404053 0.9941784
TS-JLM  -0.0156118513 -0.133026141 0.10180244 0.9999998
TS -JLM -0.0220410628 -0.709515042 0.66543292 1.0000000
WR-JLM  -0.1206521739 -0.318050374 0.07674603 0.7137582
MC-JVW   0.0328832835 -0.165275627 0.23104219 0.9999979
MF-JVW   0.0024032883 -0.160345029 0.16515161 1.0000000
MF -JVW -0.1560568087 -0.853846339 0.54173272 0.9999428
ML-JVW   0.0148065547 -0.145179965 0.17479307 1.0000000
TS-JVW  -0.0385164861 -0.206075049 0.12904208 0.9999232
TS -JVW -0.0449456976 -0.742735228 0.65284383 1.0000000
WR-JVW  -0.1435568087 -0.374329004 0.08721539 0.6889807
MF-MC   -0.0304799952 -0.161105206 0.10014522 0.9999098
MF -MC  -0.1889400922 -0.879943826 0.50206364 0.9995286
ML-MC   -0.0180767288 -0.145244403 0.10909095 0.9999996
TS-MC   -0.0713997696 -0.207971374 0.06517183 0.8800126
TS -MC  -0.0778289811 -0.768832715 0.61317475 1.0000000
WR-MC   -0.1764400922 -0.385800397 0.03292021 0.2046187
MF -MF  -0.1584600970 -0.840153738 0.52323354 0.9999134
ML-MF    0.0124032664 -0.045834850 0.07064138 0.9999663
TS-MF   -0.0409197744 -0.117547863 0.03570831 0.8631493
TS -MF  -0.0473489859 -0.729042627 0.63434466 1.0000000
WR-MF   -0.1459600970 -0.322175301 0.03025511 0.2279560
ML-MF    0.1708633634 -0.510176204 0.85190293 0.9998061
TS-MF    0.1175403226 -0.565317699 0.80039834 0.9999968
TS -MF   0.1111111111 -0.850725380 1.07294760 1.0000000
WR-MF    0.0125000000 -0.688552788 0.71355279 1.0000000
TS-ML   -0.0533230408 -0.123895950 0.01724987 0.3699927
TS -ML  -0.0597522523 -0.740791820 0.62128732 1.0000000
WR-ML   -0.1583633634 -0.332031063 0.01530434 0.1159431
TS -TS  -0.0064292115 -0.689287233 0.67642881 1.0000000
WR-TS   -0.1050403226 -0.285707573 0.07562693 0.7776594
WR-TS   -0.0986111111 -0.799663900 0.60244168 0.9999997

Table 4. Tukey post-hoc results for the ANOVA examining the effect of observer on proportion of bees fanning.

behavior_meanfan<- behavior %>%
group_by(observer_initials) %>%
  drop_na(fanningprop) %>%
summarize(meanfan = mean(fanningprop), sd=sd(fanningprop),n=n(),se=sd/sqrt(n))

behavior_meanfan<- behavior_meanfan[-c(9,12),]

behavior_meanfan$n=as.factor(behavior_meanfan$n)

ggplot(data=behavior_meanfan, aes(x=observer_initials, y=meanfan,color=n)) +
  geom_point(position=pd) +
  geom_errorbar(data=behavior_meanfan, aes(x=observer_initials, ymin=meanfan-se,ymax=meanfan+se),size=0.5,position=pd) +
  theme_bw() + 
  labs(x="Observer", y="Average Bees Fanning",color="Number of Observations",caption="Figure 2. Average proportion of bees fanning recorded by each observer.\n Error bars represent the standard error of the mean.") +
  theme(plot.caption=element_text(hjust=0.5))

Hypothesis 3

aov3<- aov(feedingprop~temp*infected, data=behavior)
Table 5. Summary for interactive ANOVA for the effects of temperature and infection status on proportion of bees feeding. * represents significance at an alpha of 0.05.
df sum of squares mean square F-value p-value
Temperature 4 29.086 7.271 546.174 <2e-16*
Infected 1 0.086 0.086 6.448 0.0112*
Temperature:Infected 4 0.171 0.043 3.212 0.0123*
Residuals 1267 16.868 0.013
TukeyHSD(aov3)
  Tukey multiple comparisons of means
    95% family-wise confidence level

Fit: aov(formula = feedingprop ~ temp * infected, data = behavior)

$temp
             diff          lwr        upr     p adj
30-23 -0.01124301 -0.037408607 0.01492258 0.7664264
34-23  0.03367160  0.004997377 0.06234581 0.0119476
37-23  0.15053276  0.125411748 0.17565378 0.0000000
40-23  0.42403613  0.395870546 0.45220171 0.0000000
34-30  0.04491461  0.014686681 0.07514254 0.0005012
37-30  0.16177577  0.134894887 0.18865666 0.0000000
40-30  0.43527914  0.405533271 0.46502501 0.0000000
37-34  0.11686117  0.087532774 0.14618956 0.0000000
40-34  0.39036453  0.358389711 0.42233936 0.0000000
40-37  0.27350337  0.244672067 0.30233467 0.0000000

$infected
          diff         lwr        upr     p adj
1-0 0.01573653 0.003017633 0.02845543 0.0153505

$`temp:infected`
                  diff          lwr         upr     p adj
30:0-23:0 -0.012440378 -0.050220631  0.02533987 0.9894881
34:0-23:0  0.039174290 -0.013565615  0.09191420 0.3547909
37:0-23:0  0.141121020  0.104257209  0.17798483 0.0000000
40:0-23:0  0.378664618  0.326240100  0.43108914 0.0000000
23:1-23:0  0.001539009 -0.039349779  0.04242780 1.0000000
30:1-23:0 -0.006809062 -0.054659323  0.04104120 0.9999881
34:1-23:0  0.031829871 -0.009644659  0.07330440 0.3073342
37:1-23:0  0.169190762  0.125368468  0.21301306 0.0000000
40:1-23:0  0.446279216  0.405756439  0.48680199 0.0000000
34:0-30:0  0.051614669 -0.002156081  0.10538542 0.0723526
37:0-30:0  0.153561399  0.115237300  0.19188550 0.0000000
40:0-30:0  0.391104996  0.337643552  0.44456644 0.0000000
23:1-30:0  0.013979387 -0.028230670  0.05618945 0.9890454
30:1-30:0  0.005631316 -0.043352798  0.05461543 0.9999981
34:1-30:0  0.044270250  0.001492538  0.08704796 0.0356137
37:1-30:0  0.181631141  0.136573517  0.22668876 0.0000000
40:1-30:0  0.458719594  0.416863992  0.50057520 0.0000000
37:0-34:0  0.101946730  0.048815885  0.15507757 0.0000001
40:0-34:0  0.339490327  0.274588276  0.40439238 0.0000000
23:1-34:0 -0.037635281 -0.093633845  0.01836328 0.5063960
30:1-34:0 -0.045983353 -0.107249930  0.01528323 0.3394831
34:1-34:0 -0.007344419 -0.063772097  0.04908326 0.9999945
37:1-34:0  0.130016472  0.071841395  0.18819155 0.0000000
40:1-34:0  0.407104925  0.351373053  0.46283680 0.0000000
40:0-37:0  0.237543598  0.184725806  0.29036139 0.0000000
23:1-37:0 -0.139582011 -0.180973823 -0.09819020 0.0000000
30:1-37:0 -0.147930083 -0.196210891 -0.09964927 0.0000000
34:1-37:0 -0.109291149 -0.151261683 -0.06732061 0.0000000
37:1-37:0  0.028069742 -0.016222272  0.07236176 0.5931002
40:1-37:0  0.305158195  0.264127908  0.34618848 0.0000000
23:1-40:0 -0.377125609 -0.432827239 -0.32142398 0.0000000
30:1-40:0 -0.385473680 -0.446468975 -0.32447838 0.0000000
34:1-40:0 -0.346834747 -0.402967761 -0.29070173 0.0000000
37:1-40:0 -0.209473855 -0.267363164 -0.15158455 0.0000000
40:1-40:0  0.067614598  0.012181088  0.12304811 0.0045612
30:1-23:1 -0.008348071 -0.059767804  0.04307166 0.9999630
34:1-23:1  0.030290862 -0.015255578  0.07583730 0.5222262
37:1-23:1  0.167651753  0.119957572  0.21534594 0.0000000
40:1-23:1  0.444740207  0.400058701  0.48942171 0.0000000
34:1-30:1  0.038638933 -0.013247795  0.09052566 0.3510220
37:1-30:1  0.175999825  0.122217956  0.22978169 0.0000000
40:1-30:1  0.453088278  0.401959114  0.50421744 0.0000000
37:1-34:1  0.137360891  0.089163602  0.18555818 0.0000000
40:1-34:1  0.414449345  0.369231200  0.45966749 0.0000000
40:1-37:1  0.277088453  0.229707683  0.32446922 0.0000000

Table 6. Tukey post-hoc results for the ANOVA examining the interactive effect of temperature and infection status on the proportion of feeding bees.

behavior_meanfeed<- behavior %>%
group_by(temp,infected) %>%
drop_na(feedingprop) %>%
summarize(meanfeed = mean(feedingprop), sd=sd(feedingprop),n=n(),se=sd/sqrt(n))
`summarise()` has grouped output by 'temp'. You can override using the
`.groups` argument.
ggplot(data=behavior_meanfeed, aes(x=temp, y=meanfeed, color=infected)) +
  geom_point(position=pd) +
  geom_errorbar(data=behavior_meanfeed, aes(x=temp, ymin=meanfeed-se,ymax=meanfeed+se),size=0.5,position=pd) +
  theme_bw() + 
  labs(x="Temperature", y="Average Bees Feeding", color="Infected",caption="Figure 3. Average proportion of bees feeding by temperature and infection status.\n Error bars represent the standard error of the mean.") +
   theme(plot.caption = element_text(hjust = 0.5)) + 
  scale_color_manual(labels=c("No","Yes"), values=c("red","blue"))

Interpretation

Hypothesis 1

For our first hypothesis, we found a significant effect of temperature and infection status on the proportion of bees incubating, and also a significant interactive effect of temperature and infection status. The P-values are all less than 0.05 (Table 1), which indicates that the results we found are not due to chance and are statistically significant. The F-value of the effect of temperature is 219.58, the F-value for infection status is 178.42, and the interactive effect has an F-value of 24.23 (Table 1). The F-values indicate how much more substantial the difference between groups is than the difference within a group, and therefore shows us how different the proportion of bees incubating was across the different temperatures, across infection status, and across the interactive groups of the two. 

In the post-hoc Tukey HSD test, we found that each of the temperatures had significantly different bee incubation behavior from each other (Table 2). Incubation behavior in infected and uninfected colonies was also significantly different from each other (Table 2). These relationships can also be seen in Figure 1. The relationship became more complicated when we looked at the interactive effects of temperature and infection on incubation. Interactive effects in general were significant, however we also found three trends of insignificance. When the lower temperature colony was infected and the higher temperature colony uninfected at 30°C and 34°C, 30°C and 37°C, 34°C and 37°C, 30°C and 40°C, and 37°C and 40°C, incubating behavior was not significantly different (Table 2). A potential explanation for this is infection by the pathogen causing bees at lower temperatures to behave similarly to healthy bees at higher temperatures, perhaps because they are experiencing similar overall levels of stress. At both 34°C and 40°C, the incubation behavior of infected bees and uninfected bees were not significantly different from each other (Table 2). We also found that there was not a significant difference in incubation of uninfected bees at 37°C and 34°C, and infected bees at 34°C and 30°C, 37°C and 30°C, and 40°C and 37°C (Table 2). More research is needed to arrive at potential explanations for the second two trends we found. 

Hypothesis 2

For our second hypothesis, even though the ANOVA is significant (Table 3), we do not have the statistical power to determine where the statistically significant effect is in a post-hoc test. Our sample sizes are inconsistent between observers: while some have over 200 observations, others have below 20. The small sample sizes are likely the reason why although we have a significant p-value, our F-value is close to one, demonstrating that the test’s statistical power is low (Table 3). However, the graph shows that WR may be driving the differences, as their mean and standard error are visually lower than the other observers (Figure 2). Still, we would need a larger sample size of observations from WR to determine if this disparity is due to the small sample size (n = 16) or real differences. 

Hypothesis 3

For our third hypothesis, there is a significant effect of temperature and infection status on the proportion of bees feeding, and there is also a significant interactive effect of temperature and infection status. The P-values are all less than 0.05 (Table 5), which indicates that the results we found are not due to chance and are statistically significant. The F-value of the effect of temperature is 544.745, the F-value for infection status is 5.873, and the interactive effect has an F-value of 3.357 (Table 5). The F-values indicate how much more substantial the difference between groups is than the difference within a group, and therefore shows us how different the proportion of bees feeding was across the different temperatures, across infection status, and across the interactive groups of the two. The effect of infection status and the interactive effect are orders of magnitude smaller than in our first hypothesis ANOVA, but the values still indicate a significant difference. 

In the post-hoc Tukey HSD test, we found that each of the temperatures had significantly different bee feeding behavior from each other except between 23º and 30ºC (Table 6). These are both below the ambient temperature for bumblebees, so it is likely that they were not experiencing any effects of heat stress here. Feeding behavior in infected and uninfected colonies are also significantly different from each other (Table 6). The overall interactive effect of temperature and infection status on feeding behavior was significant; however, we also found some trends that were not statistically significant. At 23, 30, and 37ºC, there was no significant difference in feeding between infected and uninfected bees (Table 6). There is also no difference between infected bees at 23ºC and bees regardless of infection status at 30ºC and 34ºC (Table 6). Overall, the trend appears to be that feeding behavior is not significantly different at lower temperatures; that is, temperatures at 34ºC and lower. At higher temperatures, the interactive effect becomes much more pronounced, likely because these temperatures require much greater thermoregulation. Interestingly, we see the highest average proportion of feeding at 40ºC (Figure 3), which may be due to the increased metabolic cost of thermal regulation at such a high temperature. This could also be due to the lack of a water source for the bees. Further research would be needed to determine the causes of this trend. 

Conclusion

Overall, the results of our analyses indicate that heat stress and infection with C. bombi have an interactive effect on bumblebee fitness. Furthermore, the results also suggest that variables such as observers should be taken into account as a random effect in future analyses. The reduced focus on incubation at higher temperatures suggests that heat and sickness impact reproduction. This is especially compelling when combined with additional reproduction data we have from this experiment, which shows that at higher temperatures such as 37ºC and 40ºC, the bees do not produce any offspring whatsoever. Furthermore, the increased feeding behavior as temperature increases speaks to the metabolic cost of these two stressors on bees. These results are important outside of the context of the experiment. As climate change increases the frequency and magnitude of thermal events, we need to be looking at how pollinators are impacted. This is especially true as pathogens such as C. bombi often experience range shifts due to climate change, enabling them to impact bees in more places and for more of the year.