Вы можете использовать функцию expand.grid()
для размещения координат в равномерно распределенной сетке. Вот пример с некоторыми фиктивными данными:
library(ggplot2)
df <- data.frame(
Country = LETTERS[1:12],
Women = sample(12)
)
grid <- expand.grid(x = 1:4, y = 1:3)
df <- cbind(df, grid)
ggplot(df, aes(x, y * 2)) +
geom_text(aes(label = Women)) +
geom_text(aes(label = Country), nudge_y = -1) +
geom_text(aes(label = "\u2640"), size = 15, nudge_y = -0.075) +
theme_void()
Created on 2020-07-13 by the пакет REPEX (v0.3.0)
Вероятно, вам придется немного поиграть с подталкивания в вашем реальном сюжете. Они были выбраны только для иллюстрации.