Я бы хотел создать интерактивную диаграмму на основе созданной мной трубы dplyr.Я не совсем уверен, выполнимо ли это, но было бы довольно удивительно, если бы это работало.Вот кодМне бы хотелось иметь выпадающее меню, где я могу отфильтровать rxid на основе доступных уникальных опций (закомментировано).Я хотел бы избежать блеска, если это возможно, но я думаю, можно использовать блеск, если это необходимо.
drugname <- c('cipro', 'moxi','tazo')
lhoabx %>%
#filter (rxid %in% 'drugname' ) %>% (drop down menu here?)
group_by (locationid, month) %>%
summarise (totaldot = sum(as.numeric(dot))) %>%
right_join(pdays.summary, by = c('locationid', 'month')) %>%
mutate (totaldot = case_when( is.na(totaldot) ~ 0
,TRUE ~ totaldot )) %>%
mutate(dot1000 = totaldot/totalpdays * 1000) %>%
ggplot (., aes(x = month, y = dot1000)) +
geom_line(aes(linetype = locationid))