R ggplot切面包裹错误分类的观察

Question

我的图形在没有构面的情况下可以正常运行，并且在有构面的情况下运行，但是至少对一个人进行了错误的分类/包装。我只是注意到它，因为它是如此离群。其他所有功能似乎均正常运行。如果没有facet_wrap，则最左上角的点为“典型”（通过查看数据框即可确认这一点）。使用facet_wrap，这一点现在带有“阅读困难”。 facet_grid也是如此。我要在两个图之间进行更改的所有操作是在此处删除代码的最后一行。我通常不问R，但是这很奇怪。有什么想法吗？

ggplot(x, aes(x$split1_FC, x$split2_FC, color = dys)) +
    geom_point(aes(colour = dys), size = 2) +
    geom_smooth(method = lm, se = F, color = 'black') +
    labs(x = 'Split 1', y = 'Split 2', title = paste('Reliability 
         of', component, 'split by', split)) +
    scale_color_discrete(name="Diagnosis") +
    theme_linedraw() +
    facet_wrap(x$dys)