ggplot(total) +
  geom_segment( aes(x=x, xend=x, y=0, yend=val), color="grey") +
  geom_point( aes(x=x, y=val, color=grp), size=3 ) +
  coord_flip()+
  facet_wrap(~grp, ncol=1, scale="free_y")

structure(list(x = c("LANCET", "QUARTERLY JOURNAL OF ECONOMICS",
"WORLD DEVELOPMENT", "JOURNAL OF DEVELOPMENT ECONOMICS", "WORLD BANK ECONOMIC REVIEW",
"WORLD BANK RESEARCH OBSERVER", "JOURNAL OF DEVELOPMENT ECONOMICS",
"PLOS ONE", "WORLD BANK ECONOMIC REVIEW", "WORLD DEVELOPMENT",
"LANCET", "AMERICAN ECONOMIC REVIEW", "AGRICULTURAL ECONOMICS",
"AIDS", "CLIMATIC CHANGE", "ECONOMICS LETTERS", "HEALTH POLICY",
"HUMAN RESOURCES FOR HEALTH", "JOURNAL OF DEVELOPMENT STUDIES",
"JOURNAL OF AFRICAN ECONOMIES", "APPLIED ECONOMICS LETTERS",
"REVIEW OF FAITH & INTERNATIONAL AFFAIRS", "JOURNAL OF INTERNATIONAL DEVELOPMENT",
"WORLD DEVELOPMENT"), val = c(19L, 15L, 13L, 11L, 8L, 6L, 6L,
6L, 5L, 5L, 4L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 9L, 7L, 6L, 6L, 5L,
5L), grp = c("4", "4", "4", "4", "4", "4", "3", "3", "3", "3",
"3", "3", "2", "2", "2", "2", "2", "2", "1", "1", "1", "1", "1",
"1")), row.names = c(NA, -24L), class = "data.frame")