require(readxl)
## Loading required package: readxl
require(RCurl)
## Loading required package: RCurl
## Warning: package 'RCurl' was built under R version 4.0.5
require(tidyverse)
## Loading required package: tidyverse
## Warning: package 'tidyverse' was built under R version 4.0.5
## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --
## v ggplot2 3.3.5     v purrr   0.3.4
## v tibble  3.1.4     v dplyr   1.0.7
## v tidyr   1.1.3     v stringr 1.4.0
## v readr   2.0.1     v forcats 0.5.1
## Warning: package 'ggplot2' was built under R version 4.0.5
## Warning: package 'tibble' was built under R version 4.0.5
## Warning: package 'tidyr' was built under R version 4.0.5
## Warning: package 'readr' was built under R version 4.0.5
## Warning: package 'dplyr' was built under R version 4.0.5
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x tidyr::complete() masks RCurl::complete()
## x dplyr::filter()   masks stats::filter()
## x dplyr::lag()      masks stats::lag()
require(plotly)
## Loading required package: plotly
## Warning: package 'plotly' was built under R version 4.0.5
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout

Introduction

 The COVID-19 pandemic has led to a dramatic loss of human life worldwide and presents an unprecedented challenge to public health, food systems and the world of work. Here, below visualized Covid-19 new cases day by day data with help of `plotly (Package)`.

##Data soruce Source of the data https://ourworldindata.org/. Data retrived from Our world in data website and upload in my Github for further analysis and visualization. Credits will go to corrosponding website and author.

urlfile="https://raw.githubusercontent.com/SaravanarajK-Stat/India_Covid_OWID/main/Indi_COVID_19_OWIN.csv"
mydata<-read_csv(url(urlfile))
## Rows: 592 Columns: 64
## -- Column specification --------------------------------------------------------
## Delimiter: ","
## chr   (5): iso_code, continent, location, Month, tests_units
## dbl  (47): Year, total_cases, new_cases, new_cases_smoothed, total_deaths, n...
## lgl  (11): icu_patients, icu_patients_per_million, hosp_patients, hosp_patie...
## date  (1): date
## 
## i Use `spec()` to retrieve the full column specification for this data.
## i Specify the column types or set `show_col_types = FALSE` to quiet this message.

Covid data in 2021 August (India)

 Every week monday new cases has been less compare to other days (One month of observation Aug,2021). The bar graph shown below...
plot1<-mydata %>% 
  filter(date>="2021-08-01" & date<="2021-08-31") %>% 
  ggplot(aes(date, new_cases))+
  geom_bar(stat="identity")+
  labs(title="Covid-19 new cases in August 2021 (India)", x="Date", y="Number of new cases")+
  theme_classic()
ggplotly(plot1)

Covid data in India

 From beginning India data also observed for futher analysis. First wave and second wave displayed clearly... 
plot2<-mydata %>% 
  ggplot(aes(date, new_cases))+
  geom_bar(stat = "identity")+
  ylim(0,450000)+
  labs(title="Covid-19 new cases in India from Jan,2020 to Aug,2021", x="Date", y="Number of new cases")+
  theme_minimal()
ggplotly(plot2)

Conclusion

From the above graph, it is clear that second wave is very high number of new cases compare to first wave.