Collaborators

If we see further is by standing on the shoulders of giants...and if we do good research is by collaborating with great people. 

Here, you can see the co-authors of my published works throughtout the years.

Notice: the x-axis shows the year of publication and the y-axis shows the person I have published with. The text inside each box shows the journal of publication: 

R code to make the plot above

library(ggplot2)

library(scales)

library(lubridate)

library(dplyr)

library(ggrepel)

################################################################################

################################################################################

# Create plot showing co-authors by year

# For this plot, check: https://www.molecularecologist.com/2019/01/03/simple-gantt-charts-in-r-with-ggplot2-and-the-tidyverse/


setwd("your folder")


rm(list = ls())

library("tidyverse")

library(readxl)


gantt = read_excel("gantt.xlsx", col_names = TRUE)


acts <- c("Marcello Costantini","Daniele Migliorati","Dennis Proffitt",

          "Veronica Weser","Francesca Ferri","Ettore Ambrosini",

          "Ruben T. Azevedo", "Manos Tsakiris", "Mariana Von Mohr",

          "Klaudia Ambroziak", "Valerio Villani", "Daniele Di Lernia",

          "Irena Arslanova", "Alex Galvez-Pol", "James Kilner", "Bahador Bahrami",

          "Giulia Esposito",

          "Sara Garofalo", "Dario Menicagli", "Jamie Moffatt")


els <- c('BrainBehImm', 'SciRep', 'Con&Cog',

         'BioPsy', 'Cog&Emo', 'Cortex', 'PsyNeuro', 'Cognition',

         'AffSci', 'CogProc')


head(gantt)


g.gantt <- gather(gantt, "state", "date", 4:5) %>%

  mutate(date = as.Date(date, "%Y.%m.%d"), 

         CoAuthor=factor(CoAuthor, acts[length(acts):1]), Journal=factor(Journal, els))

start_dates <- g.gantt %>% filter(state == "Start")


#############################################################################

# PLOT

p = ggplot(g.gantt, aes(date, CoAuthor, color = Journal, group = Item)) +

  geom_line(size = 10) +

  geom_text(data = start_dates, aes(label = Journal), hjust = 0, vjust = 1.5, size = 2.5,

            color = "black") +

  scale_x_date(date_breaks = "1 year", date_labels = "%Y") +

  labs(x = "Year", y = NULL, title = "Co-Authors Timeine") +

  theme(axis.text = element_text(size = 8, face = "bold"))+

  guides(color = FALSE)


p <- p + ggtitle("Co-Authors Timeline") + theme(plot.title = element_text(hjust = 0.5))


# Save as full-screen image

png("project_timeline.png", width = 3500, height = 2500, units = "px", res = 300)

print(p)

dev.off()


print(p)