Мой вопрос тесно связан сR: Пользовательская легенда для многослойного ggplot и кЛегенда формата для нескольких слоев ggplot2 а именно: я хочу создавать собственные легенды для многослойного сюжета. Однако есть небольшая разница: в исходных вопросах желаемый эффект заключался в том, чтобы отделить два разных метода группирования:fill а такжеcolor и именно поэтому можно было использовать два разныхscale_XXX функции. В моем случае я создаю график, который содержит точки (один слой) и линии (второй слой). Оба слоя различаются по цвету:

x <- seq(0, 10, .1)
y <- sin(x)
lbl <- ifelse(y > 0, 'positive', 'non-positive')
data.one <- data.frame(x=x, y=y, lbl=lbl)

data.two <- data.frame(x=c(0, 10, 0, 10), y=c(-0.5, -0.5, 0.5, 0.5), classification=c('low', 'low', 'high', 'high'))
plt <- ggplot(data.one) + geom_point(aes(x, y, color=lbl)) + scale_color_discrete(name='one', guide='legend')
plt <- plt + geom_line(data=data.two, aes(x, y, color=classification)) + scale_color_discrete(name='two', guide='legend')
print(plt)

Вот результат:

Я хочу разделить условные обозначения на точки и линии, чтобы условные обозначения выглядели так:

Я не мог найти способ принять подход упомянутых вопросов к моей ситуации. Есть идеи?