Primatology Journal Impact Factors

Inspired by a post over on Conservation Bytes, I decided to plot the impact factors of various primatology journals from 1999 to 2012 using ggplot2. Data are from the ISI Web of Knowledge. Impact factors are problematic, but used enough in assessment to warrant a quick graph.

Click to see or download a big PDF. Data download link and R code after the plot.

You can download the data from here and below is the R code snippet.


library(ggplot2)
library(RColorBrewer)

dat = read.table("impact_factors_1999-2012.txt", header=TRUE)

dat2 = melt(dat, id=c("Journal"))
names(dat2) = c("Journal", "Year", "Impact_Factor")
dat2$Year = as.numeric(substring(dat2$Year, 2, 5))

pal = brewer.pal(7, name="Dark3")

ggplot(data=dat2, aes(x=Year, y=Impact_Factor, group=Journal, color=Journal)) +
	theme(legend.background = element_rect(colour = "black"), 
		panel.background = element_rect(fill = "white"), 
		panel.border = element_rect(fill=NA, colour = "black", size=1),
		axis.text = element_text(colour = "#666666"),
		legend.key = element_rect(fill = "white"),
		legend.position = c(.15,.85)) +
	geom_line(aes(group = Journal)) +
	scale_color_manual(values=pal) +
	geom_point() +
	scale_x_continuous(breaks=seq(1999, 2012, 1)) +
	ylim(0,4.2) +
	ylab("Impact Factor") +
	ggtitle("Impact Factor of Primatology / Physical Anthropology Journals")