Создайте облако слов, содержащихся в определенном изображении

Question

Я только что попытался создать облако слов, содержащееся в Африканском континенте , используя wordcloud2, но не смог увидеть слова на изображении.

library(wordcloud2)

cloud <- data.frame(
  word = c(
  "Atlantic",
  "Coho",
  "Rainbow",
  "Arctic",
  "Chinook",
  "Danube",
  "Grayling"
),
freq = c(
  6,
  7,
  9,
  10,
  3,
  9,
  2
))
wordcloud2(data = cloud,
       figPath = "africa3.png"
       )

UPDATE

Я как-то понял это, но слова не очень хорошо вписываются в изображение . Кто-то может улучшить следующий код:

myFun <- function(n = 5000) {
      a <- do.call(paste0, replicate(5, sample(LETTERS, n, TRUE), FALSE))
      paste0(a, sprintf("%04d", sample(9999, n, TRUE)), sample(LETTERS, n, TRUE))
    }

    cloud <- data.frame(
      word =  myFun(100),
      freq = sample(30, size = 100, replace = TRUE))

    wordcloud2(data = cloud, figPath = "africa4.png",color = "skyblue",shuffle = F, size = 0.5, ellipticity = 1.5)