назначить пользовательские цвета пузырьковой диаграмме из именованного списка в ggplot2

Question

Ниже приведены некоторые примеры кода ( пользовательские цвета пузырькового графика ggplot ), чтобы назначить цвета из именованного списка для пузырькового графика, но безрезультатно.Попытка эмулировать функцию country_colors из пакета gapminder. Цвета не соответствуют названному списку, который я предоставляю.

 df <- data.frame(
      author = c("Atrhur", "Chloe", "Ernest", "Christian",
                 "Beth", "Wilson"),
      revenue = c(13796557L, 898702L, 15049136L, 28821608L, 44409616L, 21912235L),
      sold = c(492L, 62L, 548L, 38L, 182L, 879L)
    )

    mycolors <- structure(c("#7F3B08", "#833D07", "#873F07", "#8B4107", "#8F4407", 
                "#934407"), .Names = c("Atrhur", "Chloe", "Ernest", "Christian", 
                                       "Beth", "Wilson"))

    p <-
      ggplot(
        data = df,
        aes(
          x = revenue,
          y = sold,
          label = author
        )
      ) +
      geom_point(aes(size = revenue, alpha = 0.75, fill = author)) +
      scale_size_continuous(range = c(2, 20)) +
      geom_text_repel(segment.color = "gray") +
      theme(legend.position = "none") +
      scale_fill_manual(values = mycolors)
    p