library(ggplot2)
library(hrbrthemes)

mk <- data.frame(tema=paste0("G", as.character(c(1:6, 1:6))), 
                   Book = c(rep("Mankiw1998", 6), rep("Mankiw2021", 6)),
                   freq = c(61,0,213,0,1,23, 89,0,199,0,8,27))

grafmk <- ggplot(mk, aes(freq, tema)) +
  geom_point(aes(color = Book), size = 3) +
  geom_line(aes(group = tema), color="azure4", linetype = "dashed") +
  theme_minimal() +
  xlab("Frequency") +
  ylab("Group") +
  xlim(0,700) +
  scale_color_manual(values=c("#1e71a8", "#F4D03F"))

kr <- data.frame(tema=paste0("G", as.character(c(1:6, 1:6))), 
                 Book = c(rep("Krugman2007", 6), rep("Krugman2020", 6)),
                 freq = c(26,0,50,0,6,0, 71,0,695,0,34,22))

grafkr <- ggplot(kr, aes(freq, tema)) +
  geom_point(aes(color = Book), size = 3) +
  geom_line(aes(group = tema), color="azure4", linetype = "dashed") +
  theme_minimal() +
  xlab("Frequency") +
  ylab("Group") +
  xlim(0,700) + 
  scale_color_manual(values=c("#618c5c", "#f7ba5b"))

library(patchwork)

grafmk / grafkr