What graph type in R can be used to show rankings by filling in circles

Here's an attempt cleaning up theme options.

df = df%>%
  mutate(
    score = round(Of.5)
  ) %>%
  select(Type, Skill, score)

df = df %>%
  expand(nesting(Type, Skill), score = 1:5) %>%
  left_join(mutate(df, achieved = TRUE)) %>%
  group_by(Type, Skill) %>%
  mutate(achieved = lag(cumsum(coalesce(achieved, FALSE)) < 1, default = TRUE))

ggplot(df, aes(x = score, y = Skill, color = achieved)) +
  geom_point(size = 2) +
  facet_grid(rows = vars(Type), scales = "free") +
  labs(x = "", y = "") +
  scale_x_continuous(expand = expansion(add = 0.5)) +
  scale_color_manual(values = c("gray90", "gray20"), guide = "none") +
  ggthemes::theme_tufte(base_family = "Arial Black") +
  theme(
    axis.text.x = element_blank(),
    axis.ticks = element_blank(),
    strip.background = element_rect(fill = "gray90", color = NA)
  )

I'd add commentary that a lot of what makes the original appealing is its simplicity. Stick to integer scores. Don't overdo it adding too many categories. And your current data is so low variance to be boring--if you give yourself nothing but 4s and 5s, there's not a lot of information there.

You can first create a grid of points, then colour the point based on whether grid position is lower than the score. Example below is for the 10-point scale, as the 5 point scale aren't integers and don't translate to bullets very well.

library(ggplot2)

# df <- structure(...) # omitted for brevity

# For every skill, place 10 bullets
grid <- expand.grid(skill_id = seq_along(df$Skill), bullets = 1:10)

# Match skill name and score from original data
grid$score <- df$Of.10[grid$skill_id]
grid$skill <- df$Skill[grid$skill_id]

ggplot(grid, aes(factor(bullets), skill)) +
  geom_point(aes(colour = bullets <= score), size = 3) +
  scale_colour_manual(values = c("grey70", "grey30"),
                      guide = "none")

Something like this:

library(ggplot)

ggplot(df, aes(x=Skill, y=Type))+
  geom_point(aes(size=Of.10))+
  coord_flip()

Great Ideas. Here is what I came up with.

    datAnal_skills$Type<-factor(datAnal_skills$Type,levels=c("Programming","Analytics","Personal"))
#
ggplot(datAnal_skills, aes(x = Of.10, y = reorder(Skill,Of.10))) +
  geom_point(size = 3) +  # Use a larger dot
  facet_wrap(~Type,scales = "free_y")+
  xlim(c(0,10))+
  ylab("")+
  xlab("")+
  theme_bw() +
  theme(
    axis.text.x=element_blank(),
    panel.grid.major.x = element_blank(),
    panel.grid.minor.x = element_blank(),
    panel.grid.major.y = element_line(colour = "grey60", linetype = "dashed")
  )