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:
Cortex
Cognition
BrainBehImm = Brain, Behaviour and Immunology
SciRep = Scientific Reports
Con&Cog = Consciousness & Cognition
BioPsy = Biological Psychology
Cog&Emo = Cognition & Emotion
PsyNeuro = Psychoneuroendocrinology
AffSci = Affective Science
CogProc = Cognitive Processing
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)