Как я могу пропустить ввод отсутствующих значений из легенды, переопределив легенду?

Question

Я уже несколько недель борюсь с тем, чтобы сделать этот точечный график идеальным. Я исправил много других проблем с двумя легендами, но теперь у меня возникла новая проблема, которую я не могу решить, а именно эта дополнительная запись легенды для отсутствующих значений.

Как мне переопределить запись легенды, чтобы удалить ее? Или измените мой код, чтобы у меня было только 5 переменных во второй легенде?

Кроме того, есть ли способ изменить порядок оси y, чтобы сделать график c более эстетичным?

Вот мой код:

#### Preferences Graphics ######
##################################################

library(tidyverse)
library(ggplot2)

OrNes <-read.csv('NEW2_BodyPref.csv', header = TRUE)    


names(OrNes)


theme_dotplot <- theme_bw(14) +
  theme(axis.text.y = element_text(size = 10.0), 
        axis.ticks.y = element_blank(),
        axis.title.x = element_text(size = 14.0), 
        panel.grid.major.x = element_blank(),
        panel.grid.major.y = element_line(size = 0.5),
        panel.grid.minor.x = element_blank())

BodySize <- OrNes %>%
  filter(!is.na(`Mo`)) %>%
  sample_n(25) %>%
  gather(key = "Class", value = "Mean", "De", "In", 
         "Mo", "Null_Un", "Ma")

BodySize

BodySize$outlier <- BodySize$Mean > 0.4

Trial <- ggplot(BodySize, na.omit = T, aes(Mean, `ï..Latin`, fct_reorder2(`ï..Latin`, Class=="Mo", 
Mean, .desc = TRUE), black=Class, shape = Class)) +
  geom_point() +  ggtitle("Preferences") + ylab("Species") + xlab("Manly's Alpha (a)") +
  theme_dotplot + geom_vline(aes(xintercept = Intercept, linetype = Intercept_names), key_glyph = 
draw_key_path) +
  scale_linetype(name = "Alpha Preference Thresholds") 


print (Trial)    # Plot graph

Trial <- ggplot(BodySize, na.omit = T, aes(Mean, `ï..Latin`, fct_reorder2(`ï..Latin`, Class=="Mo", 
Mean, .desc = TRUE), black=Class, shape = Class)) +
  geom_point() +  ggtitle("Preferences") + ylab("Tree Species") + xlab("Manly's Alpha (a)") +
  theme_dotplot + geom_vline(aes(xintercept = Intercept, linetype = Intercept_names), key_glyph = 
draw_key_path) +
  scale_linetype(name = "Alpha Preference Thresholds") + facet_grid(~ outlier, scale = "free_x", 
space = "free_x") +
  guides(fill=guide_legend(title="Alpha preference thresholds")) +
  theme(axis.text = element_text(face = "italic"),
        strip.text = element_blank(),
        strip.background = element_blank())

print (Trial)    # Plot graph

Это сюжет, который я получаю. Проблема в легенде "Пороговые значения предпочтений альфа"