comeback: A repository from seebruck

Data

cb <- structure(list(Time = 1:99, Red = c(1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 5L, 6L, 7L, 8L, 8L, 9L, 10L, 11L, 11L, 11L, 11L, 11L, 12L, 12L, 12L, 12L, 13L, 13L, 13L, 14L, 15L, 16L, 16L, 17L, 17L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 19L, 20L, 21L, 21L, 22L, 23L, 24L, 25L, 25L, 26L, 27L, 27L, 27L, 28L, 29L, 29L, 29L, 30L, 30L, 31L, 32L, 32L, 32L, 33L, 34L, 34L, 35L, 36L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 43L, 44L, 45L, 45L, 46L, 46L, 47L, 48L, 49L, 50L), Blue = c(0L, 0L, 1L, 2L, 3L, 4L, 5L, 5L, 6L, 6L, 7L, 8L, 9L, 10L, 10L, 10L, 10L, 10L, 11L, 11L, 11L, 11L, 12L, 13L, 14L, 15L, 15L, 16L, 17L, 18L, 18L, 19L, 20L, 20L, 20L, 20L, 21L, 21L, 22L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 35L, 35L, 35L, 36L, 36L, 36L, 36L, 36L, 37L, 37L, 37L, 38L, 39L, 39L, 39L, 40L, 41L, 41L, 42L, 42L, 42L, 43L, 44L, 44L, 44L, 45L, 45L, 45L, 46L, 46L, 46L, 46L, 46L, 46L, 46L, 46L, 47L, 47L, 47L, 48L, 48L, 49L, 49L, 49L, 49L, 49L), Diff = c(1L, 2L, 1L, 0L, -1L, -2L, -3L, -2L, -3L, -2L, -3L, -4L, -5L, -6L, -5L, -4L, -3L, -2L, -3L, -2L, -1L, 0L, -1L, -2L, -3L, -4L, -3L, -4L, -5L, -6L, -5L, -6L, -7L, -6L, -5L, -4L, -5L, -4L, -5L, -4L, -5L, -6L, -7L, -8L, -9L, -10L, -11L, -12L, -13L, -14L, -15L, -16L, -17L, -16L, -15L, -14L, -15L, -14L, -13L, -12L, -11L, -12L, -11L, -10L, -11L, -12L, -11L, -10L, -11L, -12L, -11L, -12L, -11L, -10L, -11L, -12L, -11L, -10L, -11L, -10L, -9L, -10L, -9L, -8L, -7L, -6L, -5L, -4L, -3L, -4L, -3L, -2L, -3L, -2L, -3L, -2L, -1L, 0L, 1L), PctRed = c(0.02, 0.04, 0.04, 0.04, 0.04, 0.04, 0.04, 0.06, 0.06, 0.08, 0.08, 0.08, 0.08, 0.08, 0.1, 0.12, 0.14, 0.16, 0.16, 0.18, 0.2, 0.22, 0.22, 0.22, 0.22, 0.22, 0.24, 0.24, 0.24, 0.24, 0.26, 0.26, 0.26, 0.28, 0.3, 0.32, 0.32, 0.34, 0.34, 0.36, 0.36, 0.36, 0.36, 0.36, 0.36, 0.36, 0.36, 0.36, 0.36, 0.36, 0.36, 0.36, 0.36, 0.38, 0.4, 0.42, 0.42, 0.44, 0.46, 0.48, 0.5, 0.5, 0.52, 0.54, 0.54, 0.54, 0.56, 0.58, 0.58, 0.58, 0.6, 0.6, 0.62, 0.64, 0.64, 0.64, 0.66, 0.68, 0.68, 0.7, 0.72, 0.72, 0.74, 0.76, 0.78, 0.8, 0.82, 0.84, 0.86, 0.86, 0.88, 0.9, 0.9, 0.92, 0.92, 0.94, 0.96, 0.98, 1), PctBlu = c(0, 0, 0.02, 0.04, 0.06, 0.08, 0.1, 0.1, 0.12, 0.12, 0.14, 0.16, 0.18, 0.2, 0.2, 0.2, 0.2, 0.2, 0.22, 0.22, 0.22, 0.22, 0.24, 0.26, 0.28, 0.3, 0.3, 0.32, 0.34, 0.36, 0.36, 0.38, 0.4, 0.4, 0.4, 0.4, 0.42, 0.42, 0.44, 0.44, 0.46, 0.48, 0.5, 0.52, 0.54, 0.56, 0.58, 0.6, 0.62, 0.64, 0.66, 0.68, 0.7, 0.7, 0.7, 0.7, 0.72, 0.72, 0.72, 0.72, 0.72, 0.74, 0.74, 0.74, 0.76, 0.78, 0.78, 0.78, 0.8, 0.82, 0.82, 0.84, 0.84, 0.84, 0.86, 0.88, 0.88, 0.88, 0.9, 0.9, 0.9, 0.92, 0.92, 0.92, 0.92, 0.92, 0.92, 0.92, 0.92, 0.94, 0.94, 0.94, 0.96, 0.96, 0.98, 0.98, 0.98, 0.98, 0.98), pos = c(TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE)), row.names = c(NA, -99L), class = "data.frame")
#    
bc <- structure(list(Time = c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L, 60L, 61L, 62L, 63L, 64L, 65L, 66L, 67L, 68L, 69L, 70L, 71L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 80L, 81L, 82L, 83L, 84L, 85L, 86L, 87L, 88L, 89L, 90L, 91L, 92L, 93L, 94L, 95L, 96L, 97L, 98L, 99L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L, 60L, 61L, 62L, 63L, 64L, 65L, 66L, 67L, 68L, 69L, 70L, 71L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 80L, 81L, 82L, 83L, 84L, 85L, 86L, 87L, 88L, 89L, 90L, 91L, 92L, 93L, 94L, 95L, 96L, 97L, 98L, 99L), Team = structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("Blue", "Red"), class = "factor"), Score = c(1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 5L, 6L, 7L, 8L, 8L, 9L, 10L, 11L, 11L, 11L, 11L, 11L, 12L, 12L, 12L, 12L, 13L, 13L, 13L, 14L, 15L, 16L, 16L, 17L, 17L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 19L, 20L, 21L, 21L, 22L, 23L, 24L, 25L, 25L, 26L, 27L, 27L, 27L, 28L, 29L, 29L, 29L, 30L, 30L, 31L, 32L, 32L, 32L, 33L, 34L, 34L, 35L, 36L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 43L, 44L, 45L, 45L, 46L, 46L, 47L, 48L, 49L, 50L, 0L, 0L, 1L, 2L, 3L, 4L, 5L, 5L, 6L, 6L, 7L, 8L, 9L, 10L, 10L, 10L, 10L, 10L, 11L, 11L, 11L, 11L, 12L, 13L, 14L, 15L, 15L, 16L, 17L, 18L, 18L, 19L, 20L, 20L, 20L, 20L, 21L, 21L, 22L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 35L, 35L, 35L, 36L, 36L, 36L, 36L, 36L, 37L, 37L, 37L, 38L, 39L, 39L, 39L, 40L, 41L, 41L, 42L, 42L, 42L, 43L, 44L, 44L, 44L, 45L, 45L, 45L, 46L, 46L, 46L, 46L, 46L, 46L, 46L, 46L, 47L, 47L, 47L, 48L, 48L, 49L, 49L, 49L, 49L, 49L), Total = c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L, 60L, 61L, 62L, 63L, 64L, 65L, 66L, 67L, 68L, 69L, 70L, 71L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 80L, 81L, 82L, 83L, 84L, 85L, 86L, 87L, 88L, 89L, 90L, 91L, 92L, 93L, 94L, 95L, 96L, 97L, 98L, 99L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L, 60L, 61L, 62L, 63L, 64L, 65L, 66L, 67L, 68L, 69L, 70L, 71L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 80L, 81L, 82L, 83L, 84L, 85L, 86L, 87L, 88L, 89L, 90L, 91L, 92L, 93L, 94L, 95L, 96L, 97L, 98L, 99L), PctCom = c(0.02, 0.04, 0.04, 0.04, 0.04, 0.04, 0.04, 0.06, 0.06, 0.08, 0.08, 0.08, 0.08, 0.08, 0.1, 0.12, 0.14, 0.16, 0.16, 0.18, 0.2, 0.22, 0.22, 0.22, 0.22, 0.22, 0.24, 0.24, 0.24, 0.24, 0.26, 0.26, 0.26, 0.28, 0.3, 0.32, 0.32, 0.34, 0.34, 0.36, 0.36, 0.36, 0.36, 0.36, 0.36, 0.36, 0.36, 0.36, 0.36, 0.36, 0.36, 0.36, 0.36, 0.38, 0.4, 0.42, 0.42, 0.44, 0.46, 0.48, 0.5, 0.5, 0.52, 0.54, 0.54, 0.54, 0.56, 0.58, 0.58, 0.58, 0.6, 0.6, 0.62, 0.64, 0.64, 0.64, 0.66, 0.68, 0.68, 0.7, 0.72, 0.72, 0.74, 0.76, 0.78, 0.8, 0.82, 0.84, 0.86, 0.86, 0.88, 0.9, 0.9, 0.92, 0.92, 0.94, 0.96, 0.98, 1, 0, 0, 0.02, 0.04, 0.06, 0.08, 0.1, 0.1, 0.12, 0.12, 0.14, 0.16, 0.18, 0.2, 0.2, 0.2, 0.2, 0.2, 0.22, 0.22, 0.22, 0.22, 0.24, 0.26, 0.28, 0.3, 0.3, 0.32, 0.34, 0.36, 0.36, 0.38, 0.4, 0.4, 0.4, 0.4, 0.42, 0.42, 0.44, 0.44, 0.46, 0.48, 0.5, 0.52, 0.54, 0.56, 0.58, 0.6, 0.62, 0.64, 0.66, 0.68, 0.7, 0.7, 0.7, 0.7, 0.72, 0.72, 0.72, 0.72, 0.72, 0.74, 0.74, 0.74, 0.76, 0.78, 0.78, 0.78, 0.8, 0.82, 0.82, 0.84, 0.84, 0.84, 0.86, 0.88, 0.88, 0.88, 0.9, 0.9, 0.9, 0.92, 0.92, 0.92, 0.92, 0.92, 0.92, 0.92, 0.92, 0.94, 0.94, 0.94, 0.96, 0.96, 0.98, 0.98, 0.98, 0.98, 0.98)), class = "data.frame", row.names = c(NA, -198L))
#

Variable Creation

cb$pos <- cb$Diff >= 0

Plots

library(ggplot2)

ggplot(cb, aes(x = PctRed, y = Diff, fill = pos)) +
  geom_bar(stat = "identity", position = "identity") +
  scale_fill_manual(values = c("firebrick1", "forestgreen"), guide = FALSE)

ggplot(bc, aes(x = Time, y = Score, color = Team)) +
  geom_line(size = 1) +
  scale_color_manual(values = c("blue", "red"), guide = FALSE)

seebruck/comeback