Solution
Subhanbasha answered on
Nov 07 2021
---
title: "Univariate Graphs"
output: pdf_document
---
```{r message=FALSE, warning=FALSE}
# Installing Required packages
# install.packages("ggplot2")
# install.packages("DescTools")
# Loading required packages
li
ary( DescTools)
li
ary(ggplot2)
# reading a data
Covid <- read.csv("covid data.csv", header = TRUE)
```
```{r}
# checking structure of the data
str(Covid)
# selecting some of the rows
Covid_data <- subset(Covid,select = c("PHYS1A", "PHYS1B", "PHYS1C", "PHYS1D", "PHYS1F"))
```
```{r}
# changing the data into numerical
Covid_data$Fever <- ifelse(Covid_data$PHYS1A=="(2) No",2,ifelse(Covid_data$PHYS1A=="(1) Yes",1,ifelse(Covid_data$PHYS1A=="(77) Not sure",77,98)))
Covid_data$Chills <- ifelse(Covid_data$PHYS1B=="(2) No",2,ifelse(Covid_data$PHYS1B=="(1) Yes",1,ifelse(Covid_data$PHYS1B=="(77) Not sure",77,98)))
Covid_data$Runny_Nose <- ifelse(Covid_data$PHYS1C=="(2) No",2,ifelse(Covid_data$PHYS1C=="(1) Yes",1,ifelse(Covid_data$PHYS1C=="(77) Not sure",77,98)))
Covid_data$Congestion <- ifelse(Covid_data$PHYS1D=="(2) No",2,ifelse(Covid_data$PHYS1D=="(1) Yes",1,ifelse(Covid_data$PHYS1D=="(77) Not sure",77,98)))
Covid_data$Cough <-...