ggplot 热图上的图例位置

Question

我正在尝试在热图上设置图例。当我编写以下代码时，图例是垂直设置的：

df <- expand.grid(X1 = 1:10, X2 = 1:10)
df$value <- df$X1 * df$X2

p1 <- ggplot(df, aes(X1, X2)) + geom_tile(aes(fill = value))
p2 <- p1 + geom_point(aes(size = value))

# firs form
p1 + scale_fill_continuous(guide = guide_legend())

我想水平放置图例但保留相同设计的图例。以下代码将水平设置图例。

p1 + scale_fill_continuous(  guide = guide_legend(
                             direction = "horizontal",
                             title.position = "top",
                             label.position = "bottom",
                             label.hjust = 0.5,
                             label.vjust = 1,
                             label.theme = element_text(angle = 90)))

但是，图例的设计不同。颜色之间有空隙

如何获得与垂直放置时相同的图例设计？