Когда я добавляю Anotation к ggplot в «блокноте kaggle», я получаю огромный пробел над графиком, как я могу это исправить - PullRequest
Новая
       7

Когда я добавляю Anotation к ggplot в «блокноте kaggle», я получаю огромный пробел над графиком, как я могу это исправить

0 голосов
/ 04 июня 2018

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

У меня не было этой проблемы, когда я запускал ее в R-studio, вероятно, я предполагаю, что эта проблема возникает в ноутбуке. Я хотел бы знать, что вызвалои как я могу решить эту проблему?

Примечание: ранее я добавил ссылку на свое ядро ​​в этом посте, после редактирования этого вопроса ссылка не видна, поэтому я удалил ссылку на ссылку ядра.

Код, вызвавший проблему, 

 #City pickup point subset
city_p <- filter(uber,Pickup.point=='City')
#add anotations
my_text_city <- "Concern Area"
my_grob_city = grid.text(my_text_city, x=.32,  y=.91, gp=gpar(col="black", fontsize=7, fontface="bold",alpha=0.7))
#plot
(city_hourly_alldays <- ggplot(city_p,aes(x=factor(request_hour),fill=Status))+geom_bar(position = 'dodge')+facet_wrap(~request_date,nrow=5)+annotation_custom(my_grob_city))

1 Ответ

0 голосов
/ 05 июня 2018

Ваше «пустое пространство» - это фактически нарисованный вами grid.text: по умолчанию, когда вы создаете grid.text, даже если вы присваиваете его такой переменной, как вы, она все равно рисуется.Вот почему у вас есть только текст "Концерн Площадь" в середине нигде.

Вы можете избавиться от него, добавив аргумент draw = F к вашему первоначальному вызову grid.text.

Это должно дать вам то, что вы ищете: 

# City pickup point subset
city_p <- filter(uber,Pickup.point=='City')

# Create annotations object
my_text_city <- "Concern Area"
my_grob_city <- grid.text(my_text_city, x=.32,  y=.91,
    gp=gpar(col="black", fontsize=7, fontface="bold",alpha=0.7), 
    draw = F)

# Plot
ggplot(city_p,aes(x=factor(request_hour), fill=Status))+
    geom_bar(position = 'dodge')+
    facet_wrap(~request_date, nrow =5)+
    annotation_custom(my_grob_city)

Я создал вилку вашего ноутбука , чтобы показать, что это не просто что-то напуганноес Jupyter.

Надеюсь, это поможет!:)

...