Отрегулируйте расстояние между горизонтальной легендой и заголовком графика ggplotly - PullRequest
Новая
       109

Отрегулируйте расстояние между горизонтальной легендой и заголовком графика ggplotly

0 голосов
/ 28 мая 2020

Я создал следующий график в ggplot 

  library(ggplot2)
  library(plotly)

Dataframe создан ниже 

 DF<-data.frame("Sl_no"=1:30)
 DF$Name<-c("A", "B")

Далее Мы создаем график с помощью ggplot и графически 

    plot1<-ggplot(data = DF,mapping =aes(x = Sl_no, y = Sl_no, fill= Name))+theme_bw()+scale_fill_manual("Legend", values = c("A" = "red", "B" = "blue")) + theme(legend.position="top")+geom_bar(position="dodge", stat="identity")+geom_text(aes(label=paste0(Sl_no)),vjust = 1, position = position_dodge(0.5),check_overlap = TRUE)+labs(x = "\nCount", y= "\nFrequency") +labs(title= 'Title_Chart' )+ theme(axis.title.x = element_text(size=14, face="bold", colour = "black"),axis.title.y = element_text(size=14, face="bold", colour = "black"),plot.title = element_text(hjust = 0.5, vjust = 2)) 


    plot1<-ggplotly(plot1,  dynamicTicks = T) %>% layout(legend = list(orientation = "h", y = 1.1, 
     x=0.5))
      plot1

На этой диаграмме заголовок диаграммы перекрывает горизонтальную легенду. Можно ли отрегулировать положение заголовка диаграммы так, чтобы он отодвигался от легенды, сохраняя при этом текущее положение легенды. Я прошу кого-нибудь провести меня сюда

...