Adjusting rugplot in ggplot2

Below is the code for a graph I am making for an article I am working on. The plot showed the predicted probabilities along a range of values in my data set. Along the x-axis is a rug plot that shows the distribution of trade share values (I provided the code and an image of the graph):

sitc8 <- ggplot() + geom_line(data=plotdat8, aes(x = lagsitc8100, y = PredictedProbabilityMean), size = 2, color="blue") + 
  geom_ribbon(data=plotdat8, aes(x = lagsitc8100, ymin = lowersd, ymax = uppersd),
              fill = "grey50", alpha=.5) +
  ylim(c(-0.75, 1.5)) + 
  geom_hline(yintercept=0) +
  geom_rug(data=multi.sanctions.bust8.full@frame, aes(x=lagsitc8100), col="black", size=1.0, sides="b") + 
  xlab("SITC 8 Trade Share") + 
  ylab("Probability of Sanctions Busting") + 
  theme(panel.grid.major = element_line(colour = "gray", linetype = "dotted"), panel.grid.minor = 
  element_blank(), panel.background = element_blank())

My question is: is it possible to change the color of the lines of the rugplot of trade share in which the event I am modeling occurs? In other words, I would like to add red lines or red dots along those values of trade share when my event = 1.

Is this possible?