title: Adjusting rugplot in ggplot2
body: <p>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):</p>
  
  <pre><code>sitc8 &lt;- 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())
  </code></pre>
  
  <p><a href="https://i.stack.imgur.com/HtwtQ.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/HtwtQ.png" alt="enter image description here"></a></p>
  
  <p>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. </p>
  
  <p>Is this possible?</p>