ggplot2: поведение цвета цвета geom_ribbon

Question

Я пытаюсь покрасить ленты в ggplot2. При использовании geom_ribbon я могу указать ymin и ymax и цвет заливки. Теперь он окрашивает все, что находится между ymin и ymax, независимо от верхнего предела или нижнего предела.

Пример (модифицированный из Интернета):

library("ggplot2") 
# Generate data (level2 == level1) 
huron <- data.frame(year = 1875:1972, level = as.vector(LakeHuron), level2 = as.vector(LakeHuron)) 

# Change Level2 
huron[1:50,2] <- huron[1:50,2]+100 
huron[50:90,2] <- huron[50:90,2]-100 

h <- ggplot(huron, aes(year)) 

h + 
    geom_ribbon(aes(ymin = level, ymax = level2), fill = "grey80") + 
    geom_line(aes(y = level)) + geom_line(aes(y=level2)) 

приведет к этой диаграмме:

Я хотел бы, чтобы заполнить область, где (Ymin> YMAX), с другим цветом чем где (ymin < ymax). В моих реальных данных у меня есть значения экспорта и импорта. Там, я хотел бы покрасить область, где экспорт выше, чем импорт зеленый, где импорт больше, чем экспорт. Я хочу, чтобы лента была красной.

Альтернатива: Я бы хотел, чтобы geom_ribbon заполнил область, где ymax> ymin.

Кто-нибудь знает, как это делается?

Благодарим за помощь.

Answer 1

Опция, которая не требует ручного создания другого столбца, заключается в том, чтобы выполнить логику в пределах aes(fill =;

## fill dependent on level > level2 
h + 
    geom_ribbon(aes(ymin = level, ymax = level2, fill = level > level2)) + 
    geom_line(aes(y = level)) + geom_line(aes(y=level2)) + 
    scale_fill_manual(values=c("red", "green"), name="fill") 

Или, если вы хотите, чтобы заполнить на основе этого условия истинности,

## fill dependent on level > level2, no fill otherwise 
h + 
    geom_ribbon(aes(ymin = level, ymax = level2, fill = ifelse(level > level2, TRUE, NA))) + 
    geom_line(aes(y = level)) + geom_line(aes(y=level2)) + 
    scale_fill_manual(values=c("green"), name="fill") 

Я предполагаю отсутствие интерполированной заливки, кажется, есть что-то делать с версией ggplot2, так как я получаю то же самое, что и код @ beetroot

## @beetroot's answer 
huron$id <- 1:nrow(huron) 
huron$group <- ifelse(huron$id <= 50, "A", "B") 

h <- ggplot(huron, aes(year)) 
h + 
    geom_ribbon(aes(ymin = level, ymax = level2, fill = group)) + 
    geom_line(aes(y = level)) + geom_line(aes(y = level2))  

Я получаю @ вывод изображения Манука, когда работает этот код без логики в aes(fill =.

Answer 2

Вы можете добавить переменную группировки к данным, которые вы можете использовать, чтобы указать цвет заливки. Однако проблема заключается в том, что две линии пересекаются, поскольку их необходимо включить в обе группы для предотвращения любых пробелов.

Так сначала найти эту строку ..

huron[huron$level == huron$level2,] 

> huron[huron$level == huron$level2,] 
    year level level2 
50 1924 577.79 577.79 
... 

И добавить к данным еще раз:

huron <- rbind(huron, huron[huron$year == 1924,]) 
huron <- huron[order(huron$year),] 

Затем добавить столбец ID на основе индекса строки, и установить группы на основе на номер строки в 1924 году:

huron$id <- 1:nrow(huron) 
huron$group <- ifelse(huron$id <= 50, "A", "B") 

h <- ggplot(huron, aes(year)) 
h + 
    geom_ribbon(aes(ymin = level, ymax = level2, fill = group)) + 
    geom_line(aes(y = level)) + geom_line(aes(y = level2)) 

Answer 3

Передвижение по вопросу я имел с не интерполированное fill, вы можете использовать два (или n) ленты

h <- ggplot() + 
    geom_ribbon(data = huron[huron$level >= huron$level2, ], aes(x = year, ymin = level, ymax = level2), fill="green") + 
    geom_ribbon(data = huron[huron$level <= huron$level2, ], aes(x = year, ymin = level, ymax = level2), fill="red") + 
    geom_line(data = huron, aes(x = year, y = level)) + 
    geom_line(data = huron, aes(x = year, y = level2)) 
h 

Любое условие, которое вы используете в aes(fill = собирается принуждать его к фактор, поэтому он, похоже, применяется только там, где данные фактически есть. Я не думаю, что это ошибка ggplot2, я думаю, что это ожидаемое поведение.