Shiny app not plotting correctly with 1 value of attribute

[EmilyLongGlasgow]

I'm having an issue correctly plotting networks when the alters all share the same value (e.g., each alter scores 1 on the attribute, rather than some scoring 0 and some scoring 1). For example, in the attached image, 0 should be yellow, and 1 should be red. But when an ego only has alters with scores of 0, it assigns that as red. I've tried setting the variable as a factor, and that doesn't work.

pilot$alter$support_mh <- as.factor(pilot$alter$support_mh)