在 R 中使用 ggplotly 在条形图上添加文本标签

Question

我在 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))

我创建了以下条形图，条形图中的文本如下所示

 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))

在如此生成的图中，条形图上清楚地生成了三个文本标签。下一步是使动态报价生效

p<-ggplotly(p, dynamicticks=T)

现在三个文本标签相互重叠。

有没有办法在使用 ggplotly 时单独保留文本标签。

Answer 1

您可以像这样直接在标签内使用 HTML 来移除重叠：

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

输出为：

在 R 中使用 ggplotly 在条形图上添加文本标签

Adding text labels over barplot with ggplotly in R

r

ggplot2

shiny

ggplotly