library(plotly)

## Loading required package: ggplot2

## 
## 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

stats <- read.csv("./Data/data-master/data-master/csv/stats.csv")
plot <- plot_ly(x=stats$date, y=stats$vaccination.administered.todate, type="scatter", mode="lines") %>% layout(title = "Number of Covid-19 administered vaccines in Slovenia - first dose", xaxis=list(title="date"), yaxis = list(title="number of administered vaccines"))