Brian McKay’s Flu Analysis Data: Exploration

Let’s Begin with some Data Exploration

But first let’s load some packages…

library(gtsummary)

#Uighur

library(here)

here() starts at C:/GitHub/MADA/kimberlyperez-MADA-portfolio

library(dplyr)


Attaching package: 'dplyr'

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

    filter, lag

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

    intersect, setdiff, setequal, union

library(tidyverse)

── Attaching packages
───────────────────────────────────────
tidyverse 1.3.2 ──

✔ ggplot2 3.4.0     ✔ purrr   1.0.1
✔ tibble  3.1.8     ✔ stringr 1.5.0
✔ tidyr   1.3.0     ✔ forcats 0.5.2
✔ readr   2.1.4

Warning: package 'tidyr' was built under R version 4.2.3

── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()

library(ggplot2)

And Load the Data…

flu<-readRDS(here("fluanalysis","processed_data", "SympAct_cleaned.rds")) #Loading in the data

glimpse(flu) #Looking at the Data

Rows: 730
Columns: 32
$ SwollenLymphNodes <fct> Yes, Yes, Yes, Yes, Yes, No, No, No, Yes, No, Yes, Y…
$ ChestCongestion   <fct> No, Yes, Yes, Yes, No, No, No, Yes, Yes, Yes, Yes, Y…
$ ChillsSweats      <fct> No, No, Yes, Yes, Yes, Yes, Yes, Yes, Yes, No, Yes, …
$ NasalCongestion   <fct> No, Yes, Yes, Yes, No, No, No, Yes, Yes, Yes, Yes, Y…
$ CoughYN           <fct> Yes, Yes, No, Yes, No, Yes, Yes, Yes, Yes, Yes, No, …
$ Sneeze            <fct> No, No, Yes, Yes, No, Yes, No, Yes, No, No, No, No, …
$ Fatigue           <fct> Yes, Yes, Yes, Yes, Yes, Yes, Yes, Yes, Yes, Yes, Ye…
$ SubjectiveFever   <fct> Yes, Yes, Yes, Yes, Yes, Yes, Yes, Yes, Yes, No, Yes…
$ Headache          <fct> Yes, Yes, Yes, Yes, Yes, Yes, No, Yes, Yes, Yes, Yes…
$ Weakness          <fct> Mild, Severe, Severe, Severe, Moderate, Moderate, Mi…
$ WeaknessYN        <fct> Yes, Yes, Yes, Yes, Yes, Yes, Yes, Yes, Yes, Yes, Ye…
$ CoughIntensity    <fct> Severe, Severe, Mild, Moderate, None, Moderate, Seve…
$ CoughYN2          <fct> Yes, Yes, Yes, Yes, No, Yes, Yes, Yes, Yes, Yes, Yes…
$ Myalgia           <fct> Mild, Severe, Severe, Severe, Mild, Moderate, Mild, …
$ MyalgiaYN         <fct> Yes, Yes, Yes, Yes, Yes, Yes, Yes, Yes, Yes, Yes, Ye…
$ RunnyNose         <fct> No, No, Yes, Yes, No, No, Yes, Yes, Yes, Yes, No, No…
$ AbPain            <fct> No, No, Yes, No, No, No, No, No, No, No, Yes, Yes, N…
$ ChestPain         <fct> No, No, Yes, No, No, Yes, Yes, No, No, No, No, Yes, …
$ Diarrhea          <fct> No, No, No, No, No, Yes, No, No, No, No, No, No, No,…
$ EyePn             <fct> No, No, No, No, Yes, No, No, No, No, No, Yes, No, Ye…
$ Insomnia          <fct> No, No, Yes, Yes, Yes, No, No, Yes, Yes, Yes, Yes, Y…
$ ItchyEye          <fct> No, No, No, No, No, No, No, No, No, No, No, No, Yes,…
$ Nausea            <fct> No, No, Yes, Yes, Yes, Yes, No, No, Yes, Yes, Yes, Y…
$ EarPn             <fct> No, Yes, No, Yes, No, No, No, No, No, No, No, Yes, Y…
$ Hearing           <fct> No, Yes, No, No, No, No, No, No, No, No, No, No, No,…
$ Pharyngitis       <fct> Yes, Yes, Yes, Yes, Yes, Yes, Yes, No, No, No, Yes, …
$ Breathless        <fct> No, No, Yes, No, No, Yes, No, No, No, Yes, No, Yes, …
$ ToothPn           <fct> No, No, Yes, No, No, No, No, No, Yes, No, No, Yes, N…
$ Vision            <fct> No, No, No, No, No, No, No, No, No, No, No, No, No, …
$ Vomit             <fct> No, No, No, No, No, No, Yes, No, No, No, Yes, Yes, N…
$ Wheeze            <fct> No, No, No, Yes, No, Yes, No, No, No, No, No, Yes, N…
$ BodyTemp          <dbl> 98.3, 100.4, 100.8, 98.8, 100.5, 98.4, 102.5, 98.4, …

Let’s Begin Data Exploration by Creating Summary Tables

Here I will create summary statistic tables starting with the dataset as a whole and then the important variables

fulldat<- tbl_summary(flu) #Prefer gtsummary to create summary tables over rstatix so i use the tbl_summary function for the whole dataset
fulldat

Characteristic	N = 730¹
Swollen Lymph Nodes	312 (43%)
Chest Congestion	407 (56%)
Chills/Sweats	600 (82%)
Nasal Congestion	563 (77%)
Cough	655 (90%)
Sneeze	391 (54%)
Fatigue	666 (91%)
Subjective Fever	500 (68%)
Headache	615 (84%)
Weakness
None	49 (6.7%)
Mild	223 (31%)
Moderate	338 (46%)
Severe	120 (16%)
Weakness	681 (93%)
Cough Severity
None	47 (6.4%)
Mild	154 (21%)
Moderate	357 (49%)
Severe	172 (24%)
CoughYN2	683 (94%)
Myalgia
None	79 (11%)
Mild	213 (29%)
Moderate	325 (45%)
Severe	113 (15%)
Myalgia	651 (89%)
Runny Nose	519 (71%)
Abdominal Pain	91 (12%)
Chest Pain	233 (32%)
Diarrhea	99 (14%)
Eye Pain	113 (15%)
Sleeplessness	415 (57%)
Itchy Eyes	179 (25%)
Nausea	255 (35%)
Ear Pain	162 (22%)
Loss of Hearing	30 (4.1%)
Sore Throat	611 (84%)
Breathlessness	294 (40%)
Tooth Pain	165 (23%)
Blurred Vision	19 (2.6%)
Vomiting	78 (11%)
Wheezing	220 (30%)
BodyTemp	98.50 (98.20, 99.30)
¹ n (%); Median (IQR)

#NOTE for KP: Use flextable for customization epiRhandbook

Summary Tables for Body Temperature

summary (flu$BodyTemp) #Quick and basic overview

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  97.20   98.20   98.50   98.94   99.30  103.10

bodtemp<- flu %>% tbl_summary(BodyTemp) #Breaking things down a bit more- interesting when broken down by temp group 
bodtemp

Characteristic	97.2, N = 2¹	97.3, N = 1¹	97.4, N = 7¹	97.5, N = 9¹	97.6, N = 7¹	97.7, N = 14¹	97.8, N = 23¹	97.9, N = 29¹	98, N = 30¹	98.1, N = 46¹	98.2, N = 50¹	98.3, N = 62¹	98.4, N = 40¹	98.5, N = 53¹	98.6, N = 27¹	98.7, N = 35¹	98.8, N = 24¹	98.9, N = 23¹	99, N = 25¹	99.1, N = 15¹	99.2, N = 20¹	99.3, N = 18¹	99.4, N = 11¹	99.5, N = 14¹	99.6, N = 6¹	99.7, N = 11¹	99.8, N = 6¹	99.9, N = 10¹	100, N = 7¹	100.1, N = 7¹	100.2, N = 8¹	100.3, N = 5¹	100.4, N = 7¹	100.5, N = 5¹	100.6, N = 4¹	100.8, N = 2¹	100.9, N = 9¹	101, N = 2¹	101.1, N = 3¹	101.2, N = 4¹	101.3, N = 1¹	101.5, N = 2¹	101.6, N = 2¹	101.7, N = 3¹	101.8, N = 4¹	101.9, N = 6¹	102, N = 2¹	102.1, N = 2¹	102.2, N = 3¹	102.4, N = 2¹	102.5, N = 2¹	102.6, N = 3¹	102.7, N = 2¹	102.8, N = 5¹	102.9, N = 1¹	103, N = 7¹	103.1, N = 2¹
Swollen Lymph Nodes	2 (100%)	1 (100%)	3 (43%)	4 (44%)	2 (29%)	7 (50%)	9 (39%)	16 (55%)	14 (47%)	19 (41%)	22 (44%)	25 (40%)	18 (45%)	29 (55%)	9 (33%)	10 (29%)	11 (46%)	10 (43%)	8 (32%)	9 (60%)	11 (55%)	6 (33%)	7 (64%)	3 (21%)	1 (17%)	5 (45%)	2 (33%)	3 (30%)	2 (29%)	5 (71%)	2 (25%)	3 (60%)	2 (29%)	3 (60%)	1 (25%)	1 (50%)	4 (44%)	1 (50%)	1 (33%)	2 (50%)	0 (0%)	1 (50%)	0 (0%)	1 (33%)	0 (0%)	3 (50%)	0 (0%)	1 (50%)	1 (33%)	2 (100%)	1 (50%)	1 (33%)	1 (50%)	3 (60%)	0 (0%)	3 (43%)	1 (50%)
Chest Congestion	1 (50%)	1 (100%)	5 (71%)	6 (67%)	2 (29%)	10 (71%)	10 (43%)	13 (45%)	18 (60%)	22 (48%)	23 (46%)	35 (56%)	22 (55%)	28 (53%)	13 (48%)	19 (54%)	13 (54%)	16 (70%)	15 (60%)	11 (73%)	11 (55%)	9 (50%)	5 (45%)	9 (64%)	2 (33%)	7 (64%)	6 (100%)	6 (60%)	5 (71%)	6 (86%)	2 (25%)	5 (100%)	5 (71%)	2 (40%)	4 (100%)	2 (100%)	7 (78%)	2 (100%)	3 (100%)	2 (50%)	0 (0%)	0 (0%)	2 (100%)	2 (67%)	1 (25%)	3 (50%)	1 (50%)	0 (0%)	1 (33%)	2 (100%)	1 (50%)	1 (33%)	1 (50%)	2 (40%)	1 (100%)	6 (86%)	0 (0%)
Chills/Sweats	2 (100%)	0 (0%)	4 (57%)	7 (78%)	6 (86%)	9 (64%)	17 (74%)	18 (62%)	23 (77%)	27 (59%)	40 (80%)	46 (74%)	36 (90%)	47 (89%)	26 (96%)	32 (91%)	23 (96%)	21 (91%)	23 (92%)	14 (93%)	16 (80%)	13 (72%)	10 (91%)	13 (93%)	5 (83%)	11 (100%)	5 (83%)	8 (80%)	7 (100%)	7 (100%)	7 (88%)	4 (80%)	4 (57%)	5 (100%)	2 (50%)	1 (50%)	9 (100%)	2 (100%)	3 (100%)	3 (75%)	1 (100%)	1 (50%)	2 (100%)	3 (100%)	2 (50%)	5 (83%)	2 (100%)	2 (100%)	3 (100%)	1 (50%)	2 (100%)	3 (100%)	2 (100%)	5 (100%)	1 (100%)	7 (100%)	2 (100%)
Nasal Congestion	2 (100%)	1 (100%)	7 (100%)	9 (100%)	5 (71%)	13 (93%)	20 (87%)	20 (69%)	23 (77%)	34 (74%)	37 (74%)	51 (82%)	31 (78%)	46 (87%)	23 (85%)	24 (69%)	20 (83%)	16 (70%)	17 (68%)	14 (93%)	15 (75%)	12 (67%)	10 (91%)	9 (64%)	4 (67%)	9 (82%)	6 (100%)	6 (60%)	5 (71%)	6 (86%)	7 (88%)	4 (80%)	4 (57%)	4 (80%)	4 (100%)	1 (50%)	7 (78%)	2 (100%)	3 (100%)	3 (75%)	0 (0%)	2 (100%)	1 (50%)	3 (100%)	1 (25%)	4 (67%)	1 (50%)	1 (50%)	1 (33%)	1 (50%)	1 (50%)	2 (67%)	1 (50%)	2 (40%)	1 (100%)	7 (100%)	0 (0%)
Cough	2 (100%)	1 (100%)	7 (100%)	8 (89%)	6 (86%)	13 (93%)	17 (74%)	25 (86%)	27 (90%)	40 (87%)	42 (84%)	56 (90%)	37 (92%)	50 (94%)	22 (81%)	28 (80%)	22 (92%)	22 (96%)	21 (84%)	14 (93%)	18 (90%)	17 (94%)	11 (100%)	13 (93%)	5 (83%)	11 (100%)	6 (100%)	9 (90%)	7 (100%)	7 (100%)	7 (88%)	5 (100%)	7 (100%)	4 (80%)	4 (100%)	1 (50%)	9 (100%)	2 (100%)	3 (100%)	4 (100%)	1 (100%)	2 (100%)	2 (100%)	3 (100%)	3 (75%)	6 (100%)	2 (100%)	1 (50%)	3 (100%)	2 (100%)	2 (100%)	3 (100%)	2 (100%)	3 (60%)	1 (100%)	7 (100%)	2 (100%)
Sneeze	1 (50%)	1 (100%)	5 (71%)	6 (67%)	4 (57%)	11 (79%)	15 (65%)	12 (41%)	20 (67%)	23 (50%)	29 (58%)	35 (56%)	26 (65%)	35 (66%)	16 (59%)	22 (63%)	14 (58%)	8 (35%)	12 (48%)	9 (60%)	7 (35%)	11 (61%)	3 (27%)	6 (43%)	1 (17%)	6 (55%)	5 (83%)	2 (20%)	4 (57%)	3 (43%)	6 (75%)	4 (80%)	2 (29%)	2 (40%)	2 (50%)	1 (50%)	4 (44%)	1 (50%)	2 (67%)	0 (0%)	0 (0%)	2 (100%)	1 (50%)	2 (67%)	0 (0%)	3 (50%)	1 (50%)	1 (50%)	0 (0%)	0 (0%)	0 (0%)	1 (33%)	1 (50%)	0 (0%)	0 (0%)	3 (43%)	0 (0%)
Fatigue	2 (100%)	1 (100%)	6 (86%)	9 (100%)	6 (86%)	11 (79%)	23 (100%)	24 (83%)	25 (83%)	39 (85%)	41 (82%)	56 (90%)	37 (92%)	51 (96%)	25 (93%)	35 (100%)	23 (96%)	21 (91%)	23 (92%)	14 (93%)	18 (90%)	15 (83%)	10 (91%)	11 (79%)	6 (100%)	11 (100%)	5 (83%)	10 (100%)	7 (100%)	7 (100%)	8 (100%)	5 (100%)	7 (100%)	4 (80%)	3 (75%)	2 (100%)	9 (100%)	1 (50%)	3 (100%)	4 (100%)	1 (100%)	2 (100%)	2 (100%)	3 (100%)	4 (100%)	6 (100%)	2 (100%)	2 (100%)	3 (100%)	1 (50%)	2 (100%)	3 (100%)	2 (100%)	5 (100%)	1 (100%)	7 (100%)	2 (100%)
Subjective Fever	1 (50%)	0 (0%)	3 (43%)	2 (22%)	3 (43%)	9 (64%)	14 (61%)	14 (48%)	19 (63%)	21 (46%)	29 (58%)	39 (63%)	34 (85%)	40 (75%)	16 (59%)	27 (77%)	20 (83%)	17 (74%)	17 (68%)	11 (73%)	13 (65%)	12 (67%)	11 (100%)	9 (64%)	5 (83%)	8 (73%)	3 (50%)	6 (60%)	5 (71%)	6 (86%)	7 (88%)	3 (60%)	7 (100%)	5 (100%)	2 (50%)	2 (100%)	9 (100%)	2 (100%)	3 (100%)	3 (75%)	1 (100%)	2 (100%)	2 (100%)	2 (67%)	3 (75%)	5 (83%)	2 (100%)	2 (100%)	3 (100%)	1 (50%)	2 (100%)	2 (67%)	2 (100%)	5 (100%)	1 (100%)	6 (86%)	2 (100%)
Headache	2 (100%)	1 (100%)	4 (57%)	7 (78%)	6 (86%)	13 (93%)	20 (87%)	23 (79%)	24 (80%)	37 (80%)	39 (78%)	50 (81%)	35 (88%)	47 (89%)	22 (81%)	30 (86%)	21 (88%)	16 (70%)	23 (92%)	12 (80%)	19 (95%)	17 (94%)	10 (91%)	13 (93%)	6 (100%)	7 (64%)	5 (83%)	8 (80%)	6 (86%)	7 (100%)	8 (100%)	5 (100%)	7 (100%)	4 (80%)	4 (100%)	2 (100%)	8 (89%)	2 (100%)	3 (100%)	2 (50%)	1 (100%)	2 (100%)	2 (100%)	3 (100%)	4 (100%)	3 (50%)	1 (50%)	2 (100%)	3 (100%)	1 (50%)	1 (50%)	2 (67%)	1 (50%)	5 (100%)	1 (100%)	7 (100%)	1 (50%)
Weakness
None	1 (50%)	0 (0%)	0 (0%)	3 (33%)	0 (0%)	3 (21%)	1 (4.3%)	4 (14%)	3 (10%)	2 (4.3%)	5 (10%)	5 (8.1%)	1 (2.5%)	2 (3.8%)	1 (3.7%)	2 (5.7%)	0 (0%)	4 (17%)	2 (8.0%)	0 (0%)	0 (0%)	1 (5.6%)	1 (9.1%)	2 (14%)	0 (0%)	1 (9.1%)	0 (0%)	0 (0%)	0 (0%)	1 (14%)	1 (12%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	1 (50%)	0 (0%)	1 (50%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	1 (50%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)
Mild	0 (0%)	0 (0%)	1 (14%)	3 (33%)	3 (43%)	4 (29%)	6 (26%)	10 (34%)	12 (40%)	16 (35%)	20 (40%)	19 (31%)	15 (38%)	18 (34%)	7 (26%)	15 (43%)	3 (12%)	5 (22%)	8 (32%)	5 (33%)	4 (20%)	5 (28%)	3 (27%)	3 (21%)	3 (50%)	1 (9.1%)	1 (17%)	4 (40%)	4 (57%)	0 (0%)	0 (0%)	0 (0%)	1 (14%)	3 (60%)	1 (25%)	0 (0%)	2 (22%)	0 (0%)	2 (67%)	0 (0%)	0 (0%)	0 (0%)	1 (50%)	1 (33%)	1 (25%)	2 (33%)	0 (0%)	2 (100%)	1 (33%)	0 (0%)	1 (50%)	1 (33%)	1 (50%)	2 (40%)	1 (100%)	1 (14%)	1 (50%)
Moderate	1 (50%)	1 (100%)	5 (71%)	3 (33%)	1 (14%)	4 (29%)	11 (48%)	12 (41%)	15 (50%)	25 (54%)	20 (40%)	32 (52%)	15 (38%)	24 (45%)	14 (52%)	11 (31%)	13 (54%)	13 (57%)	9 (36%)	9 (60%)	9 (45%)	11 (61%)	7 (64%)	5 (36%)	2 (33%)	7 (64%)	4 (67%)	6 (60%)	3 (43%)	3 (43%)	5 (62%)	4 (80%)	2 (29%)	1 (20%)	2 (50%)	0 (0%)	6 (67%)	1 (50%)	0 (0%)	4 (100%)	0 (0%)	2 (100%)	1 (50%)	0 (0%)	1 (25%)	1 (17%)	2 (100%)	0 (0%)	2 (67%)	0 (0%)	1 (50%)	1 (33%)	1 (50%)	2 (40%)	0 (0%)	3 (43%)	1 (50%)
Severe	0 (0%)	0 (0%)	1 (14%)	0 (0%)	3 (43%)	3 (21%)	5 (22%)	3 (10%)	0 (0%)	3 (6.5%)	5 (10%)	6 (9.7%)	9 (22%)	9 (17%)	5 (19%)	7 (20%)	8 (33%)	1 (4.3%)	6 (24%)	1 (6.7%)	7 (35%)	1 (5.6%)	0 (0%)	4 (29%)	1 (17%)	2 (18%)	1 (17%)	0 (0%)	0 (0%)	3 (43%)	2 (25%)	1 (20%)	4 (57%)	1 (20%)	1 (25%)	1 (50%)	1 (11%)	0 (0%)	1 (33%)	0 (0%)	1 (100%)	0 (0%)	0 (0%)	2 (67%)	2 (50%)	3 (50%)	0 (0%)	0 (0%)	0 (0%)	1 (50%)	0 (0%)	1 (33%)	0 (0%)	1 (20%)	0 (0%)	3 (43%)	0 (0%)
Weakness	1 (50%)	1 (100%)	7 (100%)	6 (67%)	7 (100%)	11 (79%)	22 (96%)	25 (86%)	27 (90%)	44 (96%)	45 (90%)	57 (92%)	39 (98%)	51 (96%)	26 (96%)	33 (94%)	24 (100%)	19 (83%)	23 (92%)	15 (100%)	20 (100%)	17 (94%)	10 (91%)	12 (86%)	6 (100%)	10 (91%)	6 (100%)	10 (100%)	7 (100%)	6 (86%)	7 (88%)	5 (100%)	7 (100%)	5 (100%)	4 (100%)	1 (50%)	9 (100%)	1 (50%)	3 (100%)	4 (100%)	1 (100%)	2 (100%)	2 (100%)	3 (100%)	4 (100%)	6 (100%)	2 (100%)	2 (100%)	3 (100%)	1 (50%)	2 (100%)	3 (100%)	2 (100%)	5 (100%)	1 (100%)	7 (100%)	2 (100%)
Cough Severity
None	0 (0%)	0 (0%)	0 (0%)	1 (11%)	0 (0%)	1 (7.1%)	5 (22%)	3 (10%)	3 (10%)	5 (11%)	3 (6.0%)	4 (6.5%)	2 (5.0%)	1 (1.9%)	1 (3.7%)	5 (14%)	0 (0%)	1 (4.3%)	2 (8.0%)	1 (6.7%)	2 (10%)	1 (5.6%)	0 (0%)	1 (7.1%)	0 (0%)	0 (0%)	0 (0%)	1 (10%)	0 (0%)	0 (0%)	1 (12%)	0 (0%)	0 (0%)	1 (20%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	2 (40%)	0 (0%)	0 (0%)	0 (0%)
Mild	0 (0%)	0 (0%)	2 (29%)	4 (44%)	3 (43%)	2 (14%)	5 (22%)	8 (28%)	7 (23%)	11 (24%)	11 (22%)	9 (15%)	6 (15%)	12 (23%)	7 (26%)	8 (23%)	8 (33%)	2 (8.7%)	5 (20%)	4 (27%)	6 (30%)	2 (11%)	2 (18%)	0 (0%)	0 (0%)	0 (0%)	1 (17%)	1 (10%)	1 (14%)	1 (14%)	0 (0%)	0 (0%)	0 (0%)	1 (20%)	1 (25%)	1 (50%)	3 (33%)	0 (0%)	0 (0%)	1 (25%)	1 (100%)	1 (50%)	1 (50%)	2 (67%)	3 (75%)	2 (33%)	1 (50%)	1 (50%)	1 (33%)	0 (0%)	0 (0%)	1 (33%)	0 (0%)	1 (20%)	0 (0%)	3 (43%)	1 (50%)
Moderate	2 (100%)	1 (100%)	4 (57%)	2 (22%)	3 (43%)	6 (43%)	7 (30%)	10 (34%)	13 (43%)	19 (41%)	28 (56%)	38 (61%)	23 (57%)	28 (53%)	13 (48%)	12 (34%)	9 (38%)	17 (74%)	15 (60%)	6 (40%)	9 (45%)	9 (50%)	6 (55%)	9 (64%)	3 (50%)	7 (64%)	4 (67%)	6 (60%)	2 (29%)	5 (71%)	5 (62%)	4 (80%)	3 (43%)	3 (60%)	2 (50%)	0 (0%)	2 (22%)	1 (50%)	0 (0%)	1 (25%)	0 (0%)	1 (50%)	0 (0%)	1 (33%)	1 (25%)	1 (17%)	0 (0%)	1 (50%)	2 (67%)	2 (100%)	1 (50%)	2 (67%)	1 (50%)	2 (40%)	1 (100%)	3 (43%)	1 (50%)
Severe	0 (0%)	0 (0%)	1 (14%)	2 (22%)	1 (14%)	5 (36%)	6 (26%)	8 (28%)	7 (23%)	11 (24%)	8 (16%)	11 (18%)	9 (22%)	12 (23%)	6 (22%)	10 (29%)	7 (29%)	3 (13%)	3 (12%)	4 (27%)	3 (15%)	6 (33%)	3 (27%)	4 (29%)	3 (50%)	4 (36%)	1 (17%)	2 (20%)	4 (57%)	1 (14%)	2 (25%)	1 (20%)	4 (57%)	0 (0%)	1 (25%)	1 (50%)	4 (44%)	1 (50%)	3 (100%)	2 (50%)	0 (0%)	0 (0%)	1 (50%)	0 (0%)	0 (0%)	3 (50%)	1 (50%)	0 (0%)	0 (0%)	0 (0%)	1 (50%)	0 (0%)	1 (50%)	0 (0%)	0 (0%)	1 (14%)	0 (0%)
CoughYN2	2 (100%)	1 (100%)	7 (100%)	8 (89%)	7 (100%)	13 (93%)	18 (78%)	26 (90%)	27 (90%)	41 (89%)	47 (94%)	58 (94%)	38 (95%)	52 (98%)	26 (96%)	30 (86%)	24 (100%)	22 (96%)	23 (92%)	14 (93%)	18 (90%)	17 (94%)	11 (100%)	13 (93%)	6 (100%)	11 (100%)	6 (100%)	9 (90%)	7 (100%)	7 (100%)	7 (88%)	5 (100%)	7 (100%)	4 (80%)	4 (100%)	2 (100%)	9 (100%)	2 (100%)	3 (100%)	4 (100%)	1 (100%)	2 (100%)	2 (100%)	3 (100%)	4 (100%)	6 (100%)	2 (100%)	2 (100%)	3 (100%)	2 (100%)	2 (100%)	3 (100%)	2 (100%)	3 (60%)	1 (100%)	7 (100%)	2 (100%)
Myalgia
None	1 (50%)	0 (0%)	2 (29%)	2 (22%)	1 (14%)	3 (21%)	1 (4.3%)	6 (21%)	4 (13%)	9 (20%)	8 (16%)	8 (13%)	3 (7.5%)	5 (9.4%)	0 (0%)	4 (11%)	1 (4.2%)	2 (8.7%)	0 (0%)	2 (13%)	1 (5.0%)	1 (5.6%)	1 (9.1%)	2 (14%)	0 (0%)	0 (0%)	1 (17%)	0 (0%)	1 (14%)	1 (14%)	0 (0%)	0 (0%)	2 (29%)	2 (40%)	0 (0%)	0 (0%)	2 (22%)	0 (0%)	0 (0%)	1 (25%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	1 (50%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	1 (100%)	0 (0%)	0 (0%)
Mild	0 (0%)	0 (0%)	1 (14%)	3 (33%)	0 (0%)	4 (29%)	6 (26%)	9 (31%)	12 (40%)	12 (26%)	16 (32%)	21 (34%)	13 (32%)	15 (28%)	8 (30%)	9 (26%)	2 (8.3%)	6 (26%)	11 (44%)	5 (33%)	3 (15%)	7 (39%)	4 (36%)	4 (29%)	3 (50%)	1 (9.1%)	1 (17%)	5 (50%)	3 (43%)	0 (0%)	1 (12%)	2 (40%)	0 (0%)	2 (40%)	0 (0%)	1 (50%)	2 (22%)	1 (50%)	2 (67%)	1 (25%)	0 (0%)	1 (50%)	0 (0%)	1 (33%)	0 (0%)	2 (33%)	1 (50%)	1 (50%)	1 (33%)	0 (0%)	1 (50%)	2 (67%)	2 (100%)	1 (20%)	0 (0%)	4 (57%)	0 (0%)
Moderate	1 (50%)	1 (100%)	2 (29%)	4 (44%)	4 (57%)	5 (36%)	13 (57%)	11 (38%)	13 (43%)	21 (46%)	20 (40%)	30 (48%)	16 (40%)	28 (53%)	9 (33%)	13 (37%)	14 (58%)	14 (61%)	7 (28%)	7 (47%)	7 (35%)	9 (50%)	5 (45%)	4 (29%)	3 (50%)	10 (91%)	2 (33%)	2 (20%)	3 (43%)	4 (57%)	5 (62%)	2 (40%)	3 (43%)	1 (20%)	3 (75%)	0 (0%)	4 (44%)	1 (50%)	0 (0%)	2 (50%)	0 (0%)	1 (50%)	2 (100%)	2 (67%)	3 (75%)	1 (17%)	1 (50%)	1 (50%)	2 (67%)	0 (0%)	0 (0%)	1 (33%)	0 (0%)	3 (60%)	0 (0%)	3 (43%)	2 (100%)
Severe	0 (0%)	0 (0%)	2 (29%)	0 (0%)	2 (29%)	2 (14%)	3 (13%)	3 (10%)	1 (3.3%)	4 (8.7%)	6 (12%)	3 (4.8%)	8 (20%)	5 (9.4%)	10 (37%)	9 (26%)	7 (29%)	1 (4.3%)	7 (28%)	1 (6.7%)	9 (45%)	1 (5.6%)	1 (9.1%)	4 (29%)	0 (0%)	0 (0%)	2 (33%)	3 (30%)	0 (0%)	2 (29%)	2 (25%)	1 (20%)	2 (29%)	0 (0%)	1 (25%)	1 (50%)	1 (11%)	0 (0%)	1 (33%)	0 (0%)	1 (100%)	0 (0%)	0 (0%)	0 (0%)	1 (25%)	3 (50%)	0 (0%)	0 (0%)	0 (0%)	1 (50%)	1 (50%)	0 (0%)	0 (0%)	1 (20%)	0 (0%)	0 (0%)	0 (0%)
Myalgia	1 (50%)	1 (100%)	5 (71%)	7 (78%)	6 (86%)	11 (79%)	22 (96%)	23 (79%)	26 (87%)	37 (80%)	42 (84%)	54 (87%)	37 (92%)	48 (91%)	27 (100%)	31 (89%)	23 (96%)	21 (91%)	25 (100%)	13 (87%)	19 (95%)	17 (94%)	10 (91%)	12 (86%)	6 (100%)	11 (100%)	5 (83%)	10 (100%)	6 (86%)	6 (86%)	8 (100%)	5 (100%)	5 (71%)	3 (60%)	4 (100%)	2 (100%)	7 (78%)	2 (100%)	3 (100%)	3 (75%)	1 (100%)	2 (100%)	2 (100%)	3 (100%)	4 (100%)	6 (100%)	2 (100%)	2 (100%)	3 (100%)	1 (50%)	2 (100%)	3 (100%)	2 (100%)	5 (100%)	0 (0%)	7 (100%)	2 (100%)
Runny Nose	1 (50%)	1 (100%)	7 (100%)	7 (78%)	4 (57%)	12 (86%)	14 (61%)	20 (69%)	23 (77%)	33 (72%)	43 (86%)	46 (74%)	30 (75%)	43 (81%)	21 (78%)	25 (71%)	15 (62%)	15 (65%)	18 (72%)	11 (73%)	13 (65%)	12 (67%)	7 (64%)	8 (57%)	2 (33%)	7 (64%)	5 (83%)	5 (50%)	5 (71%)	5 (71%)	4 (50%)	5 (100%)	3 (43%)	4 (80%)	4 (100%)	1 (50%)	5 (56%)	2 (100%)	2 (67%)	3 (75%)	0 (0%)	2 (100%)	1 (50%)	3 (100%)	2 (50%)	2 (33%)	0 (0%)	1 (50%)	2 (67%)	1 (50%)	1 (50%)	2 (67%)	2 (100%)	2 (40%)	1 (100%)	6 (86%)	0 (0%)
Abdominal Pain	1 (50%)	0 (0%)	1 (14%)	1 (11%)	0 (0%)	3 (21%)	2 (8.7%)	2 (6.9%)	6 (20%)	4 (8.7%)	6 (12%)	6 (9.7%)	3 (7.5%)	4 (7.5%)	5 (19%)	6 (17%)	5 (21%)	3 (13%)	2 (8.0%)	0 (0%)	4 (20%)	1 (5.6%)	1 (9.1%)	2 (14%)	0 (0%)	1 (9.1%)	1 (17%)	2 (20%)	2 (29%)	0 (0%)	1 (12%)	0 (0%)	2 (29%)	1 (20%)	0 (0%)	1 (50%)	2 (22%)	0 (0%)	1 (33%)	1 (25%)	1 (100%)	0 (0%)	0 (0%)	0 (0%)	1 (25%)	1 (17%)	0 (0%)	0 (0%)	0 (0%)	1 (50%)	1 (50%)	1 (33%)	0 (0%)	0 (0%)	0 (0%)	2 (29%)	0 (0%)
Chest Pain	1 (50%)	1 (100%)	0 (0%)	1 (11%)	2 (29%)	6 (43%)	9 (39%)	6 (21%)	8 (27%)	12 (26%)	14 (28%)	14 (23%)	17 (42%)	19 (36%)	7 (26%)	12 (34%)	7 (29%)	7 (30%)	9 (36%)	4 (27%)	7 (35%)	6 (33%)	2 (18%)	4 (29%)	2 (33%)	4 (36%)	2 (33%)	5 (50%)	3 (43%)	2 (29%)	3 (38%)	5 (100%)	3 (43%)	2 (40%)	2 (50%)	1 (50%)	3 (33%)	2 (100%)	1 (33%)	4 (100%)	0 (0%)	0 (0%)	0 (0%)	1 (33%)	1 (25%)	4 (67%)	1 (50%)	1 (50%)	0 (0%)	2 (100%)	2 (100%)	0 (0%)	1 (50%)	0 (0%)	0 (0%)	1 (14%)	0 (0%)
Diarrhea	1 (50%)	0 (0%)	3 (43%)	2 (22%)	0 (0%)	2 (14%)	4 (17%)	3 (10%)	3 (10%)	5 (11%)	9 (18%)	11 (18%)	4 (10%)	7 (13%)	1 (3.7%)	9 (26%)	2 (8.3%)	2 (8.7%)	4 (16%)	2 (13%)	1 (5.0%)	2 (11%)	1 (9.1%)	2 (14%)	2 (33%)	2 (18%)	1 (17%)	1 (10%)	1 (14%)	1 (14%)	2 (25%)	0 (0%)	0 (0%)	0 (0%)	1 (25%)	0 (0%)	0 (0%)	0 (0%)	1 (33%)	0 (0%)	1 (100%)	1 (50%)	1 (50%)	0 (0%)	0 (0%)	0 (0%)	1 (50%)	0 (0%)	0 (0%)	1 (50%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	2 (29%)	0 (0%)
Eye Pain	0 (0%)	1 (100%)	1 (14%)	3 (33%)	1 (14%)	3 (21%)	3 (13%)	4 (14%)	3 (10%)	6 (13%)	8 (16%)	6 (9.7%)	4 (10%)	7 (13%)	4 (15%)	6 (17%)	7 (29%)	6 (26%)	2 (8.0%)	1 (6.7%)	3 (15%)	2 (11%)	4 (36%)	2 (14%)	0 (0%)	1 (9.1%)	3 (50%)	0 (0%)	3 (43%)	0 (0%)	2 (25%)	0 (0%)	1 (14%)	1 (20%)	0 (0%)	1 (50%)	2 (22%)	1 (50%)	3 (100%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	1 (33%)	0 (0%)	0 (0%)	1 (50%)	1 (50%)	1 (33%)	1 (50%)	0 (0%)	0 (0%)	0 (0%)	1 (20%)	1 (100%)	1 (14%)	0 (0%)
Sleeplessness	0 (0%)	0 (0%)	2 (29%)	4 (44%)	3 (43%)	9 (64%)	13 (57%)	17 (59%)	18 (60%)	22 (48%)	28 (56%)	40 (65%)	22 (55%)	33 (62%)	15 (56%)	18 (51%)	20 (83%)	13 (57%)	19 (76%)	5 (33%)	11 (55%)	9 (50%)	4 (36%)	6 (43%)	4 (67%)	6 (55%)	4 (67%)	5 (50%)	5 (71%)	2 (29%)	6 (75%)	4 (80%)	5 (71%)	4 (80%)	2 (50%)	2 (100%)	3 (33%)	0 (0%)	2 (67%)	2 (50%)	1 (100%)	1 (50%)	0 (0%)	2 (67%)	1 (25%)	6 (100%)	1 (50%)	1 (50%)	1 (33%)	1 (50%)	1 (50%)	2 (67%)	2 (100%)	3 (60%)	0 (0%)	4 (57%)	1 (50%)
Itchy Eyes	0 (0%)	0 (0%)	1 (14%)	4 (44%)	2 (29%)	5 (36%)	7 (30%)	7 (24%)	6 (20%)	8 (17%)	13 (26%)	16 (26%)	8 (20%)	14 (26%)	6 (22%)	8 (23%)	9 (38%)	7 (30%)	5 (20%)	3 (20%)	6 (30%)	4 (22%)	5 (45%)	3 (21%)	0 (0%)	4 (36%)	3 (50%)	1 (10%)	2 (29%)	2 (29%)	2 (25%)	0 (0%)	2 (29%)	1 (20%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	2 (67%)	0 (0%)	0 (0%)	1 (50%)	1 (50%)	1 (33%)	0 (0%)	2 (33%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	1 (33%)	1 (50%)	3 (60%)	1 (100%)	2 (29%)	0 (0%)
Nausea	0 (0%)	0 (0%)	5 (71%)	2 (22%)	2 (29%)	1 (7.1%)	11 (48%)	4 (14%)	11 (37%)	18 (39%)	18 (36%)	18 (29%)	9 (22%)	20 (38%)	13 (48%)	15 (43%)	13 (54%)	7 (30%)	8 (32%)	4 (27%)	9 (45%)	6 (33%)	2 (18%)	5 (36%)	2 (33%)	4 (36%)	1 (17%)	5 (50%)	2 (29%)	3 (43%)	3 (38%)	3 (60%)	2 (29%)	3 (60%)	0 (0%)	2 (100%)	3 (33%)	2 (100%)	1 (33%)	1 (25%)	1 (100%)	1 (50%)	0 (0%)	0 (0%)	1 (25%)	4 (67%)	1 (50%)	0 (0%)	0 (0%)	1 (50%)	0 (0%)	0 (0%)	0 (0%)	2 (40%)	0 (0%)	6 (86%)	0 (0%)
Ear Pain	0 (0%)	0 (0%)	2 (29%)	1 (11%)	2 (29%)	5 (36%)	7 (30%)	8 (28%)	7 (23%)	8 (17%)	7 (14%)	8 (13%)	10 (25%)	13 (25%)	3 (11%)	4 (11%)	9 (38%)	3 (13%)	6 (24%)	3 (20%)	5 (25%)	5 (28%)	0 (0%)	6 (43%)	1 (17%)	3 (27%)	3 (50%)	3 (30%)	1 (14%)	4 (57%)	3 (38%)	2 (40%)	2 (29%)	1 (20%)	1 (25%)	0 (0%)	3 (33%)	1 (50%)	1 (33%)	1 (25%)	0 (0%)	1 (50%)	0 (0%)	0 (0%)	1 (25%)	2 (33%)	0 (0%)	0 (0%)	1 (33%)	1 (50%)	0 (0%)	2 (67%)	1 (50%)	0 (0%)	0 (0%)	1 (14%)	0 (0%)
Loss of Hearing	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	2 (14%)	1 (4.3%)	0 (0%)	0 (0%)	0 (0%)	3 (6.0%)	0 (0%)	1 (2.5%)	2 (3.8%)	2 (7.4%)	1 (2.9%)	1 (4.2%)	3 (13%)	1 (4.0%)	4 (27%)	0 (0%)	1 (5.6%)	0 (0%)	2 (14%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	2 (25%)	0 (0%)	2 (29%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	1 (25%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	1 (50%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)
Sore Throat	1 (50%)	1 (100%)	4 (57%)	8 (89%)	6 (86%)	11 (79%)	19 (83%)	25 (86%)	24 (80%)	39 (85%)	42 (84%)	49 (79%)	34 (85%)	44 (83%)	20 (74%)	25 (71%)	22 (92%)	20 (87%)	21 (84%)	14 (93%)	18 (90%)	14 (78%)	10 (91%)	10 (71%)	6 (100%)	9 (82%)	4 (67%)	9 (90%)	5 (71%)	7 (100%)	7 (88%)	5 (100%)	7 (100%)	4 (80%)	4 (100%)	2 (100%)	8 (89%)	2 (100%)	3 (100%)	4 (100%)	0 (0%)	2 (100%)	2 (100%)	3 (100%)	3 (75%)	6 (100%)	1 (50%)	2 (100%)	1 (33%)	2 (100%)	2 (100%)	3 (100%)	2 (100%)	5 (100%)	1 (100%)	7 (100%)	2 (100%)
Breathlessness	2 (100%)	0 (0%)	1 (14%)	4 (44%)	3 (43%)	6 (43%)	16 (70%)	10 (34%)	9 (30%)	17 (37%)	19 (38%)	19 (31%)	12 (30%)	22 (42%)	11 (41%)	10 (29%)	12 (50%)	10 (43%)	11 (44%)	8 (53%)	10 (50%)	6 (33%)	6 (55%)	4 (29%)	3 (50%)	3 (27%)	4 (67%)	4 (40%)	4 (57%)	4 (57%)	3 (38%)	2 (40%)	3 (43%)	3 (60%)	1 (25%)	1 (50%)	5 (56%)	2 (100%)	1 (33%)	2 (50%)	0 (0%)	1 (50%)	1 (50%)	1 (33%)	0 (0%)	5 (83%)	1 (50%)	1 (50%)	0 (0%)	2 (100%)	1 (50%)	0 (0%)	1 (50%)	3 (60%)	1 (100%)	2 (29%)	1 (50%)
Tooth Pain	1 (50%)	0 (0%)	1 (14%)	2 (22%)	1 (14%)	4 (29%)	1 (4.3%)	7 (24%)	5 (17%)	11 (24%)	12 (24%)	12 (19%)	9 (22%)	15 (28%)	7 (26%)	8 (23%)	10 (42%)	2 (8.7%)	5 (20%)	4 (27%)	6 (30%)	4 (22%)	3 (27%)	4 (29%)	2 (33%)	2 (18%)	2 (33%)	2 (20%)	1 (14%)	4 (57%)	1 (12%)	1 (20%)	0 (0%)	1 (20%)	0 (0%)	1 (50%)	2 (22%)	0 (0%)	3 (100%)	1 (25%)	0 (0%)	1 (50%)	1 (50%)	1 (33%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	1 (50%)	0 (0%)	0 (0%)	1 (50%)	1 (20%)	0 (0%)	2 (29%)	0 (0%)
Blurred Vision	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	1 (7.1%)	4 (17%)	0 (0%)	2 (6.7%)	0 (0%)	1 (2.0%)	2 (3.2%)	0 (0%)	3 (5.7%)	0 (0%)	2 (5.7%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	1 (5.6%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	1 (20%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	1 (50%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	1 (50%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)
Vomiting	0 (0%)	0 (0%)	1 (14%)	0 (0%)	0 (0%)	1 (7.1%)	3 (13%)	3 (10%)	3 (10%)	3 (6.5%)	4 (8.0%)	9 (15%)	2 (5.0%)	4 (7.5%)	3 (11%)	4 (11%)	4 (17%)	2 (8.7%)	4 (16%)	0 (0%)	4 (20%)	1 (5.6%)	0 (0%)	2 (14%)	0 (0%)	2 (18%)	1 (17%)	1 (10%)	2 (29%)	0 (0%)	2 (25%)	0 (0%)	1 (14%)	0 (0%)	0 (0%)	0 (0%)	2 (22%)	0 (0%)	1 (33%)	1 (25%)	1 (100%)	0 (0%)	0 (0%)	0 (0%)	1 (25%)	2 (33%)	0 (0%)	0 (0%)	0 (0%)	0 (0%)	1 (50%)	0 (0%)	0 (0%)	1 (20%)	0 (0%)	1 (14%)	1 (50%)
Wheezing	1 (50%)	0 (0%)	1 (14%)	1 (11%)	1 (14%)	6 (43%)	10 (43%)	8 (28%)	6 (20%)	12 (26%)	11 (22%)	18 (29%)	13 (32%)	21 (40%)	5 (19%)	12 (34%)	8 (33%)	9 (39%)	6 (24%)	4 (27%)	5 (25%)	7 (39%)	2 (18%)	4 (29%)	3 (50%)	3 (27%)	2 (33%)	1 (10%)	4 (57%)	4 (57%)	4 (50%)	1 (20%)	2 (29%)	1 (20%)	3 (75%)	0 (0%)	1 (11%)	1 (50%)	2 (67%)	2 (50%)	0 (0%)	2 (100%)	1 (50%)	1 (33%)	0 (0%)	4 (67%)	1 (50%)	0 (0%)	0 (0%)	1 (50%)	1 (50%)	0 (0%)	1 (50%)	1 (20%)	1 (100%)	1 (14%)	0 (0%)
¹ n (%)

Summary Tables for Nausea

summary (flu$Nausea) #Quick and basic overview

 No Yes 
475 255

naus<- flu %>% tbl_summary(Nausea) #Breaking things down a bit more
naus

Characteristic	No, N = 475¹	Yes, N = 255¹
Swollen Lymph Nodes	200 (42%)	112 (44%)
Chest Congestion	246 (52%)	161 (63%)
Chills/Sweats	372 (78%)	228 (89%)
Nasal Congestion	355 (75%)	208 (82%)
Cough	429 (90%)	226 (89%)
Sneeze	242 (51%)	149 (58%)
Fatigue	424 (89%)	242 (95%)
Subjective Fever	309 (65%)	191 (75%)
Headache	387 (81%)	228 (89%)
Weakness
None	39 (8.2%)	10 (3.9%)
Mild	172 (36%)	51 (20%)
Moderate	210 (44%)	128 (50%)
Severe	54 (11%)	66 (26%)
Weakness	436 (92%)	245 (96%)
Cough Severity
None	30 (6.3%)	17 (6.7%)
Mild	99 (21%)	55 (22%)
Moderate	232 (49%)	125 (49%)
Severe	114 (24%)	58 (23%)
CoughYN2	445 (94%)	238 (93%)
Myalgia
None	63 (13%)	16 (6.3%)
Mild	159 (33%)	54 (21%)
Moderate	198 (42%)	127 (50%)
Severe	55 (12%)	58 (23%)
Myalgia	412 (87%)	239 (94%)
Runny Nose	336 (71%)	183 (72%)
Abdominal Pain	31 (6.5%)	60 (24%)
Chest Pain	135 (28%)	98 (38%)
Diarrhea	40 (8.4%)	59 (23%)
Eye Pain	71 (15%)	42 (16%)
Sleeplessness	260 (55%)	155 (61%)
Itchy Eyes	107 (23%)	72 (28%)
Ear Pain	96 (20%)	66 (26%)
Loss of Hearing	17 (3.6%)	13 (5.1%)
Sore Throat	395 (83%)	216 (85%)
Breathlessness	164 (35%)	130 (51%)
Tooth Pain	88 (19%)	77 (30%)
Blurred Vision	9 (1.9%)	10 (3.9%)
Vomiting	14 (2.9%)	64 (25%)
Wheezing	137 (29%)	83 (33%)
BodyTemp	98.50 (98.20, 99.30)	98.60 (98.20, 99.30)
¹ n (%); Median (IQR)

Histogram/Density Plot for our Continuous Variable- Body Temperature

#Basic histogram
cv<- ggplot(flu, aes(x=BodyTemp)) +geom_histogram() #Basic histogram

#Updated histogram
cvup<- flu %>%
  ggplot(aes(x=BodyTemp)) +     geom_histogram(binwidth=0.5, fill="#F08080",color= "#FAF0E6", alpha=0.9) +
  ggtitle("Body Temperature Histogram") +
  xlab("Body Temperature (in *F)") +
  ylab("Number of Individuals")
  
cvup

cvd<- flu %>% #Density plot
  ggplot(aes(x=BodyTemp)) +   
  geom_density(fill="#808000",color= "#FAF0E6",
  alpha=0.9) +
  ggtitle("Body Temperature Histogram") +
  xlab("Body Temperature (in *F)") +
  ylab("Number of Individuals")

cvd

Predictor Variables and Continuous Outcome of Interest

#Subjective Fever and Body Temperature
pvoi0<-flu %>%
  ggplot()+geom_boxplot(aes(
                        x=SubjectiveFever,
                        y=BodyTemp)) + labs(x="Subjective Fever", y="Body Temperature (in *F)", title="Subjective Fever and Body Temperature")

pvoi0

#Swollen Lymph Nodes and Body Temperature
pvoi1<-flu %>%
  ggplot()+geom_boxplot(aes(
                        x=SwollenLymphNodes,
                        y=BodyTemp)) + labs(x="Swollen Lymph Nodes Present", y="Body Temperature (in *F)", title="Swollen Lymph Nodes and Body Temperature")

pvoi1

#Myalgia and Body Temperature 
pvoi2<-flu %>%
  ggplot()+geom_boxplot(aes(
                        x=Myalgia,
                        y=BodyTemp)) + labs(x="Severity of Myalgia", y="Body Temperature (in *F)", title="Myalgia and Body Temperature")

pvoi2

# Pharyngitis and Body Temperature
pvoi3<-flu %>%
  ggplot()+geom_boxplot(aes(
                        x=Pharyngitis,
                        y=BodyTemp)) + labs(x="Pharyngitis", y="Body Temperature (in *F)", title="Pharyngitis and Body Temperature")

pvoi3

#Diarrhea and Body Temperature
pvoi4<-flu %>%
  ggplot()+geom_boxplot(aes(
                        x=Diarrhea,
                        y=BodyTemp)) + labs(x="Diarrhea", y="Body Temperature (in *F)", title="Diarrhea and Body Temperature")

pvoi4

Given the chosen predictor variables, it seems as those who experience the selected predictor variables (e.g., swollen lymph nodes) had slightly lower or similar mean body temperatures. Those with myalgia and subjective fever had higher body temperatures. Thus, for this exercise, I will select subjective temperature as a predictor variable for body temperature.

Predictor Variables and Categorical Outcome of Interest

#Myalgia and Nausea 
pvoi5<-flu %>%
  ggplot()+geom_count(aes(
                        x=Nausea,
                        y=Myalgia)) + labs(x="Nausea", y="Myalgia", title="Myalgia and Nausea")

pvoi5

# Diarrhea and Nausea
pvoi6<-flu %>%
  ggplot()+geom_count(aes(
                        x=Nausea,
                        y=Diarrhea)) + labs(x="Nausea", y="Diarrhea", title="Diarrhea and Nausea")

pvoi6

# Swollen Lymph Nodes and Nausea
pvoi7<-flu %>%
  ggplot()+geom_count(aes(
                        x=Nausea,
                        y=SwollenLymphNodes)) + labs(x="Nausea", y="Swollen Lymph Nodes", title="Swollen Lymph Nodes and Nausea")

pvoi7

# Cough Intensity and Nausea
pvoi8<-flu %>%
  ggplot()+geom_count(aes(
                        x=Nausea,
                        y=CoughIntensity)) + labs(x="Nausea", y="Cough Intensity", title="Cough Intensity and Nausea")

pvoi8

#Subjective Fever and Nauesea
pvoi10<-flu %>%
  ggplot()+geom_count(aes(
                        x=Nausea,
                        y=SubjectiveFever)) + labs(x="Nausea", y="Subjective Fever", title="Subjective Fever and Nausea")

pvoi10

Given the chosen predictor variables, it seems as though there was no significant positive relationship with the selected predictor variables (e.g., swollen lymph nodes) and the categorical outcome of interest.