Conf-JRES-April-Pappso/deluge/deluge.R

111 lines
3.7 KiB
R

# Inserting data
pappsodata <- data.frame(annee=rep(2001:2022,2),
dd=c(0.1, 0.3, 0.4, 0.7),
pappso=c(0.1, 0.1, 0.1, 0.1)
)
espace_dd <- c(c(0.1, 0.3, 0.4, 0.7),c(0.8,0.9,1,1.2,1.8,2), c(2.5,3,3.5,4,4.5,5), c(7,8,9,10,12,14))
espace_pappso <- c(c(0.1, 0.1, 0.1, 0.1),c(0.3,0.6,1,1.5,2,2.3), c(2.6,3.5,5,6.5,8,9), c(12,15,20,30,40,50))
pappsodata$type <- c(rep("disques durs", 22), rep("PAPPSO", 22))
pappsodata$espace <- c(espace_dd,espace_pappso)
# Bar Plot
library(ggplot2)
plt <-ggplot(data=pappsodata[which(pappsodata$type == "PAPPSO"),], aes(x=annee, y=espace, colour = type, shape = type)) +
geom_line() +
geom_point() +
labs(x = "Années", y = "To",color = "Stockage", shape = "Stockage") +
geom_label(aes(x = 2005, y = 5, label = "LTQ"),
hjust = +1.3,
vjust = 0.2,
colour = "#FAAB18",
label.size = NA,
family="Helvetica",
size = 6) +
geom_curve(aes(x = 2004, y = 5, xend = 2005, yend = 0.31),
colour = "#FAAB18",
size=0.5,
curvature = -0.2,
arrow = arrow(length = unit(0.03, "npc"))) +
geom_label(aes(x = 2007, y = 7, label = "Orbitrap"),
hjust = +0.5,
vjust = 0.2,
colour = "#FAAB18",
label.size = NA,
family="Helvetica",
size = 6) +
geom_curve(aes(x = 2007, y = 7, xend = 2007, yend = 1),
colour = "#FAAB18",
size=0.5,
curvature = -0.2,
arrow = arrow(length = unit(0.03, "npc"))) +
geom_label(aes(x = 2008, y = 10, label = "LTQ-XL"),
hjust = +0.5,
vjust = 0.2,
colour = "#FAAB18",
label.size = NA,
family="Helvetica",
size = 6) +
geom_curve(aes(x = 2008, y = 10, xend = 2008, yend = 1.5),
colour = "#FAAB18",
size=0.5,
curvature = -0.2,
arrow = arrow(length = unit(0.03, "npc"))) +
geom_label(aes(x = 2011, y = 13, label = "Q-Exactive"),
hjust = +0.5,
vjust = 0.2,
colour = "#FAAB18",
label.size = NA,
family="Helvetica",
size = 6) +
geom_curve(aes(x = 2011, y = 13, xend = 2011, yend = 2.4),
colour = "#FAAB18",
size=0.5,
curvature = -0.2,
arrow = arrow(length = unit(0.03, "npc"))) +
geom_label(aes(x = 2015, y = 18, label = "Lumos"),
hjust = +0.5,
vjust = -0.1,
colour = "#FAAB18",
label.size = NA,
family="Helvetica",
size = 6) +
geom_curve(aes(x = 2015, y = 18, xend = 2015, yend = 8),
colour = "#FAAB18",
size=0.5,
curvature = -0.2,
arrow = arrow(length = unit(0.03, "npc"))) +
geom_label(aes(x = 2020, y = 30, label = "timsTOF pro"),
hjust = +1.2,
vjust = -0.1,
colour = "#FAAB18",
label.size = NA,
family="Helvetica",
size = 6) +
geom_curve(aes(x = 2018, y = 30, xend = 2019, yend = 20),
colour = "#FAAB18",
size=0.5,
curvature = -0.2,
arrow = arrow(length = unit(0.03, "npc"))) +
geom_label(aes(x = 2008, y = 45, label = "Instruments"),
hjust = +1.2,
vjust = -0.1,
colour = "#FAAB18",
label.size = NA,
family="Helvetica",
size = 6) +
theme_classic()
plt
ggsave("deluge.png", width = 8, height = 5)