5

我有以下简单的 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] 范围内具有负值的图进行比较，这就是 y 轴具有limits=c(-1,1))的原因
4

2 回答 2

12

对于置信区间的前三个部分，范围的顶端至少部分超出范围（范围为 [-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)
于 2013-10-03T00:02:40.277 回答
5

一个更好的文档，也许更直观的解决方案是简单地使用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))
于 2013-10-03T02:20:37.367 回答