Отметьте выброс в параллельном координатном графике с помощью ggparcoord

Question

Я пытаюсь выделить точку выброса данных в параллельном координатном графике. Вот как выглядит мой фрейм данных:

Используя этот код ниже,

library(devtools)
install_version("MMST", version = "0.6-1.1", repos = "http://cran.us.r-project.org")
MMST.out(dest.folder = '.',datasets='bodyfat')
ggparcoord(data = bodyfat, alphaLines = 0.2)

Вот как выглядит мой сюжет:

Я хочу пометить одну из выпадающих линий (как видно на графике выше) другим цветом. Как мне добиться этого с помощью ggplot2?

Answer 1

Как упоминалось в комментариях выше, я извлек выбросы из данных в ggparcoord и нанес их на график отдельно. Вот новый код сейчас:

library(devtools)
install_version("MMST", version = "0.6-1.1", repos = "http://cran.us.r-project.org")
MMST.out(dest.folder = '.',datasets='bodyfat')
a=ggparcoord(data = bodyfat, alphaLines = 0.2)
out1=which.max(a$data[a$data$variable=='hip',]$value)
out2=which.max(a$data[a$data$variable=='ankle',]$value)
df1=a$data[a$data$.ID==out1,]
df2=a$data[a$data$.ID==out2,]
a + geom_line(data = df1 ,aes(y=value), color='red', alpha=0.5) +
geom_line(data = df2 ,aes(y=value), color='blue', alpha=0.5)

И вот как выглядит результат:

PCP с выделенными выбросами

Спасибо за помощь.