当我在“kaggle notebook”中向 ggplot 添加注释时，我在图表上方得到一个巨大的空白，我该如何解决这个问题

Question

我在 kaggle 中运行的内核有问题，我使用 ggplot 绘制的图上方出现巨大的空白。我怀疑这是因为我在图中添加了注释。

当我在 R-studio 中运行这个问题时，我没有遇到这个问题，可能我猜这个问题发生在 notebook.I 我很想知道是什么导致了这个问题以及我如何解决这个问题问题？

注意：早些时候我在这个 post 中将 link 添加到我的内核，post 编辑这个问题 link 不可见，因此我删除了参考到内核 link.

导致问题的代码，

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

Answer 1

你的"empty space"实际上是你的grid.text被绘制：默认情况下，当你创建一个grid.text时，即使你像你一样将它分配给一个变量，它仍然是画。这就是为什么您只有文本 "Concern Area" 在不知名的地方。

您可以通过在初始 grid.text 调用中添加参数 draw = F 来摆脱它。

这应该能满足您的需求：

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

我已经 created a fork of your notebook 证明这不仅仅是 Jupyter 的时髦。

希望对您有所帮助！ :)

当我在“kaggle notebook”中向 ggplot 添加注释时，我在图表上方得到一个巨大的空白，我该如何解决这个问题

When I add Anotation to the ggplot in a 'kaggle's notebook' I get a huge whitespace above graph, how can I fix that

r

kaggle