ggplot2: stat_smooth создает слишком много доверительных интервалов для фактора

Question

Я планирую взаимодействие с ggplot, используя скрипт прошлого года. В прошлом году это работало нормально, но теперь, когда я установил новую версию ggplot2, у меня, похоже, возникли проблемы. Первые проблемы заключались в том, что классическая тема не могла построить оси X и Y. Мне удалось решить эту проблему, добавив ее в форматирование темы. Но теперь stat_smooth создает три полосы доверия, когда у меня есть двухуровневый фактор. Не уверен, почему это происходит. Это код:

   gp <- ggplot(data=myData, aes(x=Sbfld,y=mem,colour=factor(status))) + geom_point(shape=17, size=8, na.rm=TRUE)
   gp <- gp +
   stat_smooth(method="lm", size=2, na.rm=TRUE) +
scale_y_continuous(breaks=seq(-4, max(mem)*1.1, 0.5)) +
theme_classic(base_size=35) +
theme(legend.position="bottom",
    legend.title=element_blank(),
    legend.text=element_text(size=30, face="bold"),
    legend.key.size=unit(2, "cm"), 
    legend.background = element_rect(colour="black"))+
theme(axis.line.x=element_line(colour="black", size=0.5, linetype="solid"),
    axis.line.y=element_line(colour="black", size=0.5, linetype="solid"),
    axis.title.y=element_text(vjust=1.6, size = 40, face="bold"),
    axis.title.x = element_text(vjust=-0.2, size = 40, face="bold"),
    axis.text.x = element_text(size=25,colour="#333333"),
    axis.text.y = element_text(size=25,colour="#333333"),
    panel.grid.minor=element_blank())

Статус имеет два уровня: положительный и отрицательный, и около 7 пропущенных значений. X и Y непрерывны, и там нет пропущенных значений.

Это вывод: ggplotoutput

Это ошибка в ggplot? Кто-нибудь знает, как это решить?

Спасибо!