Forcefully color NAs when `aes(color=NULL)` or `aes(...), ..., color="salmon")` is provided and `remove_nas=F`

[matiasandina]

I believe that something like this:

ggplot(wombats, aes(x=frame, behaviour=behaviour, y=wombat)) + geom_ethogram(remove_nas = F)

Should return this

But the NAs should be forcefully colored in gray. Maybe this is one of the things that could be handled by setup_data #8 ?

[matiasandina]

I think we can do this here

https://github.com/matiasandina/ggethos/blob/2fd669c63afb056003e24623bf26a5e9781fda12/R/ggethos.R#L108-L110

Something like

if (remove_nas) {
  ...
}
else{
data <- mutate(data, colour=ifelse(is.na(colour), "gray50", colour))
}