Я пытался воссоздать заговор из "Экономиста", который работал очень хорошо. Единственное, что не сработало, это то, что хотя я использовал следующий код, точки данных не являются кружками.
pl <- ggplot(df, aes(x=CPI, y=HDI, color = Region)) +
geom_point(size = 4, shape = 1) +
theme_economist_white()

Я надеюсь, что кто-то здесь может мне помочь.