Dygraphs

library(dygraphs)
library(readxl)
library(zoo)

## 
## Attaching package: 'zoo'

## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric

bor <- read_excel("C:/Users/amgaa/Desktop/sudalgaa/bor.xlsx",   sheet = "utlagat")
aa<-read.zoo(bor)
hiam<-cbind(aa$niislel,aa$malchin)
dygraph(hiam) %>% dyRangeSelector()