Adding text labels over barplot with ggplotly in R

Question

I have the following dataframe in R

  DF_1<-data.frame("ID"=c("A_1", "A_2"), 'Sum'= c(2500,12500), "RR"= 
 c(95,95),  "CC"= c(50,50), "nn"=c(4,4), "DP"= c(12.5,100))

I have created the following barplot with text written in the barplot as follows

 p2<-ggplot(data = DF_1, mapping = aes(x = ID, y = DP, 
 fill=str_wrap(ID,10))) + geom_bar(stat = 'identity', width = .35, position 
 = "dodge")+  geom_text(aes(label=RR) , position = position_dodge(0.9),vjust 
  = 2,check_overlap = TRUE)+geom_text(aes(label=CC) , position =  postion_dodge(0.9),vjust = 4,check_overlap = TRUE)+  geom_text(aes(label=nn) , position = position_dodge(0.9),vjust =  6,check_overlap = TRUE)+ labs(fill = "LEGEND")+labs(x = "XLabels", y= "DPP")+theme(legend.key.height = unit( 2 ,"cm"))+theme(axis.text.x=element_blank())+ggtitle("DPPCHART")+ theme(plot.title = element_text(hjust = 0.5))

In the plot so generated the three text labels are generated clearly on the barplot. The next step is to make dynamic ticks work

p<-ggplotly(p, dynamicticks=T)

Now the three text labels overlap each other.

Is there a way to retain the text labels separately when using ggplotly.

score 1 · Accepted Answer · answered Oct 30 '19 at 17:08

You can use HTML directly inside the labels like this to remove the overlap:

library(stringr)
library(ggplot2)
library(plotly)

DF_1 <- data.frame("ID"=c("A_1", "A_2"), 'Sum'= c(2500,12500), 
          "RR"= c(95,95),  "CC"= c(50,50), "nn"=c(4,4), "DP"= c(12.5,100))

p <- ggplot(data = DF_1, mapping = aes(x = ID, y = DP,fill=str_wrap(ID,10))) + 
        geom_bar(stat = 'identity', width = .35, position = "dodge") +  
        geom_text(aes(label=paste0(RR, "<br>", CC, "<br>", nn)) , 
              position = position_dodge(0.9), vjust = 2, check_overlap = TRUE) + 
        labs(fill = "LEGEND") + labs(x = "XLabels", y= "DPP") + 
        theme(legend.key.height = unit( 2 ,"cm")) +
        theme(axis.text.x=element_blank()) +
        ggtitle("DPPCHART") + 
        theme(plot.title = element_text(hjust = 0.5)) +
        scale_y_continuous(limits = c(0,110))

ggplotly(p)  # can use with or without dynamicTicks=TRUE

Output is:

Neat. Works beautifully. Thank you. – Raghavan vmvs Oct 31 '19 at 03:06 — Raghavan vmvs, Oct 31 '19 at 03:06

Adding text labels over barplot with ggplotly in R

1 Answers1