Code
library(tidyverse)
library(ggrepel)
tibble(skill = c("Coding", "Stats", "Domain"),
x = c(-1, 1, 0),
y = c(1, 1, -1)) |>
ggplot(aes(x = x, y = y, label = skill, color = skill)) +
geom_point(size = 100, alpha = 0.5) +
geom_text(mapping = aes(label = skill),
color = "black",
nudge_x = c(-2, 2, 0),
nudge_y = c(0.5, 0.5, -2)) +
geom_text(x = 0, y = 0, label = "Data Science",
color = "black") +
coord_equal() +
lims(x = c(-4, 4),
y = c(-4, 4)) +
theme_void() +
theme(legend.position = "none")

