library(plotly) library(\'scales\')
df <- df %>% filter(!is.na(repeatrate))
df<- df%>% select(aht, 72hr Repeat Rate=repeatrate, npd, <
72hr Repeat Rate