R: доверительный интервал, частично отображаемый с помощью ggplot2 (используя geom_smooth ())
У меня есть следующий простой код 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")
Вывод выглядит так:
Почему доверительный интервал не отображается вдоль всей кривой?
Примечания:
Я не хочу иметьfullrange=TRUE
потому что это просто дает одну прямую синюю линию вместо зигзагообразной формы в текущем выводе.Я сравниваю этот график с другим графиком, который имеет отрицательные значения в диапазоне (0, -1), поэтому ось Y имеетlimits=c(-1,1)
)