Сохраните цитату ggplot2 при конвертации в сюжет - PullRequest
Новая
       16

Сохраните цитату ggplot2 при конвертации в сюжет

0 голосов
/ 03 марта 2019

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

Вот код, который воспроизводит ошибку: 

Names = c("eggs","milk","bread","I need to make some names longer")
Kilos = c("1","2","3","4")
df= as.data.frame(cbind(Names,Kilos))


plot_citation = "I need to include the citation for my data in the plot itself. 
Some of the citations are long, so they
take up
several lines."


TestGGPlot = ggplot(df,aes(y = Kilos, x = Names, fill = Names))+
geom_bar(stat = "identity")+
scale_fill_manual(values = c("#ABCABC","#ABCABC","#ABCABC","#ABCABC"))+
theme(legend.position = "none")+
coord_flip()+
xlab("Names")+
ylab("Kilos")+

theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank(),panel.background = element_blank(),axis.ticks.y=element_blank())+ 

 labs(caption = plot_citation,vjust=1,hjust=1)+
 theme(plot.caption=element_text(hjust=0))



TestGGPlot



TestPlotly = ggplotly(TestGGPlot)
TestPlotly

Ggplot выглядит следующим образом: ggplot, выглядит хорошо

График на графике выглядит так: График на графике.Обратите внимание на отсутствующую цитату и метку оси y, смещенную вправо.

Я включил цитаты в графические графы, подгоняя домен к графикам и добавляя аннотации под ними, но я не смогзаставить это работать здесь.Я не знаю, ведут ли себя графики, созданные с помощью функции "ggplotly", иначе, чем обычные сюжетные графики, или я просто не совсем понимаю синтаксис графиков.

Спасибо всем!

...