GGsave

Quick note on ggsave in ggplot2.

g1 <- ggplot(df1, aes(x = time, y = y)) + 
  geom_point(data = df1, aes(color = color), size = 6) + 
  geom_line() + 
  theme_minimal() +
  theme(panel.grid = element_blank()) + 
  theme(text = element_blank()) + 
  theme(axis.text.y = element_blank(),
        axis.ticks.y = element_blank()) +
  theme(legend.position = "none")


ggsave('one.pdf', g1, width = 6, height = 3)


p <- ggplot(df, aes(x = Time, y = Cohesion, color = ID)) + 
  geom_point() + 
  geom_line() + 
  facet_wrap(~Team, nrow = 1) + 
  theme_minimal() +
  theme(panel.grid = element_blank()) + 
  theme(text = element_text(size = 12)) + 
  theme(axis.text.y = element_blank(),
        axis.ticks.y = element_blank()) + 
  scale_x_discrete(limits = c(1,3,5,7)) + 
  labs(title = "Simulation 1")


ggsave("test.2.pdf",p, width=6, height=2.8)

Bo\(^2\)m = )