r - 自定义 ggmap() 图例背景

Question

在下面的代码中，是否可以使图例背景半透明？我无法将alpha值传递给element_rect()inlegend.background或legend.box.background执行此操作。例如，tm_layout()in tmappackage 可以使用参数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(),图片就是它的外观。这回答了我的问题。