R: доверительный интервал частично выводится с ggplot2 (с использованием geom_smooth())

Question

У меня есть следующий простой код R:

disciplines <- c("A","C","B","D","E") 
# To stop ggplot from imposing alphabetical ordering on x-axis 
disciplines <- factor(disciplines, levels=disciplines, ordered=T) 

d1 <- c(0.498, 0.521, 0.332, 0.04, 0.04) 
d2 <- c(0.266, 0.202, 0.236, 0.06, 0.06) 
d3 <- c(0.983, 0.755, 0.863, 0.803, 0.913) 
d4 <- c(0.896, 0.802, 0.960, 0.611, 0.994) 

df <- data.frame(disciplines, d1, d2, d3, d4) 
df.m <- melt(df) 
graph <- ggplot(df.m, aes(group=1,disciplines,value,colour=variable,shape=variable)) + 
     geom_point() + 
     geom_smooth(stat="smooth", method=loess, level=0.95) + 
     scale_x_discrete(name="Disciplines") + 
     scale_y_continuous(limits=c(-1,1), name="Measurement") 

Выход выглядит следующим образом:

Почему доверительный интервал не отображаться вдоль всей кривой?

Примечание:

1. Я не хочу иметь fullrange=TRUE потому, что только дает одну прямой синюю линию вместо зигзагообразной формы в текущем выходе.
2. Я сравнивая этот участок с другим участком, который имеет отрицательные значения в (0, -1] Диапазон, поэтому ось у имеет limits=c(-1,1))

Answer 1

В течение первых трех сегментов доверительного интервала , верхний конец диапазона, по крайней мере, частично выходит за пределы (границы [-1, 1], а не слегка расширенный диапазон по осям). ggplot По умолчанию поведение пользователя не отображает какой-либо объект, который частично выходит за рамки. Вы можете это исправить, добавив oob=scales::rescale_none к scale_y_continuous:

library(scales) 
graph <- ggplot(df.m, aes(group=1,disciplines,value,colour=variable,shape=variable)) + 
     geom_point() + 
     geom_smooth(stat="smooth", method=loess, level=0.95) + 
     scale_x_discrete(name="Disciplines") + 
     scale_y_continuous(limits=c(-1,1), name="Measurement", oob=rescale_none) 

Answer 2

Лучше документированы, и, возможно, более интуитивным, решение было бы просто использовать coord_cartesian:

ggplot(df.m, aes(group=1,disciplines,value,colour=variable,shape=variable)) + 
     geom_point() + 
     geom_smooth(stat="smooth", method=loess, level=0.95) + 
     scale_x_discrete(name="Disciplines") + 
     coord_cartesian(ylim = c(-1,1))