R Notebook

data_v<-read_excel(file.choose(),sheet = 2)

P<-data_v %>% mutate(resta=`46`-`41`,abs=abs(resta),change=(abs*100)/`41`) %>%
  mutate(change2=ifelse(resta<0,change*-1,change))%>% 
  mutate(polarity=ifelse(change2>=0,"positive","negative")) %>% 
  ggplot(aes(x=fct_reorder(output_type,change2), y=change2,colour=polarity)) +
    geom_segment(aes(xend=output_type, yend=0)) +
    geom_point(size=1) +
  xlab("")+ylab("%")+ggtitle("% Change From Week 41 To Week 46")+
    coord_flip() +
     theme_light()+theme(legend.position='none',plot.title = element_text(hjust = 0.5)) 
  

ggplotly(P)

X<-data_v %>% mutate(resta=`46`-`41`,abs=abs(resta),change=(abs*100)/`41`) %>%
  mutate(change2=ifelse(resta<0,change*-1,change))%>% 
  mutate(polarity=ifelse(change2>=0,"positive","negative")) %>% 
  ggplot(aes(x=fct_reorder(output_type,resta), y=resta,colour=polarity)) +
    geom_segment(aes(xend=output_type, yend=0)) +
    geom_point(size=1) +
  xlab("")+ylab("%")+ggtitle("Increase or decrease in % points from Week 41 to Week 46")+
    coord_flip() +
     theme_light()+theme(legend.position='none',plot.title = element_text(hjust = 0.5))

ggplotly(X)

NA