自定义ggmap（）图例背景

Question

在下面的代码中，是否可以使图例背景半透明？我无法将alpha值传递给element_rect()或legend.background中的legend.box.background来执行此操作。例如，tm_layout()包中的tmap可以使用参数legend.bg.color = "white"和legend.bg.alpha = 0.5执行此操作。

suppressMessages(library(ggmap))
data(crime)
houston.map <- get_map(location = geocode("Houston"),
                       zoom = 14,
                       maptype = "satellite")
ggmap(houston.map, extent = "device", legend = "topleft") +
  geom_point(aes(x = lon, y = lat, color = offense), data = crime) +
  theme(legend.background = element_rect(fill = alpha("white", 0.7)),
        legend.key = element_rect(color = NA, fill = NA))

更新：感谢jazzurro，我更新了代码以在alpha()中传递element_rect(),，附图就是它的外观。这回答了我的问题。