illustation stockage

deluge/deluge.R

@@ -6,11 +6,11 @@ pappsodata <- data.frame(annee=rep(2001:2022,2),
                      pappso=c(0.1, 0.1, 0.1, 0.1)
                      )
 
-espace_dd <- c(c(0.1, 0.3, 0.4, 0.7),rep(0, 18))
+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),rep(0, 18))
+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("dd", 22), rep("pappso", 22))
+pappsodata$type <- c(rep("disques durs", 22), rep("PAPPSO", 22))
 
 pappsodata$espace <- c(espace_dd,espace_pappso)
 
@@ -18,11 +18,92 @@ pappsodata$espace <- c(espace_dd,espace_pappso)
 library(ggplot2)
 
 
-plt <-ggplot(data=pappsodata, aes(x=annee, y=espace, colour = factor(type), shape = factor(type))) +
+plt <-ggplot(data=pappsodata, 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)