Geom_text в штучной упаковке с ggplot2

Я разрабатываю графику с помощью ggplot2, в которой мне нужно наложить текст поверх других графических элементов. В зависимости от цвета элементов, лежащих в основе текста, его может быть трудно читать. Есть ли способ нарисовать geom_text в ограничивающей рамке с полупрозрачным фоном?

Я могу сделать это с помощью plotrix:

library(plotrix)
Labels <- c("Alabama", "Alaska", "Arizona", "Arkansas")
SampleFrame <- data.frame(X = 1:10, Y = 1:10)
TextFrame <- data.frame(X = 4:7, Y = 4:7, LAB = Labels)
### plotrix ###
plot(SampleFrame, pch = 20, cex = 20)
boxed.labels(TextFrame$X, TextFrame$Y, TextFrame$LAB,
 bg = "#ffffff99", border = FALSE,
 xpad = 3/2, ypad = 3/2)

Но я не знаю, как добиться аналогичных результатов с помощью ggplot2:

### ggplot2 ###
library(ggplot2)
Plot <- ggplot(data = SampleFrame,
 aes(x = X, y = Y)) + geom_point(size = 20)
Plot <- Plot + geom_text(data = TextFrame,
 aes(x = X, y = Y, label = LAB))
print(Plot)

Поскольку Вы можете видеть, что черные текстовые метки невозможно понять, где они перекрывают черные geom_points на заднем плане.