r - 如何在 R 中创建带有误差范围的折线图

Question

我正在寻找一种方法来绘制随时间变化的人口比例数据，并显示边距或错误，类似于以下示例：http: //goo.gl/dbrbu。但找不到任何说明。谢谢！

Answer 1

一个ggplot2解决方案：

我将在 R 中使用美国人口数据集：

population <- data.frame(Year=seq(1790, 1970, length.out=length(uspop)), 
                         Population=uspop, 
                         Error=rnorm(length(uspop), 5))

library(ggplot2)
ggplot(population, aes(x=Year, y=Population, 
                       ymin=Population-Error, ymax=Population+Error))+
  geom_line(colour="red", size=1.2)+
  geom_point(pch=2)+
  geom_errorbar(width=0.9)

Answer 2

plotrix 包有 plotCI：

 require(plotrix)
 y<-runif(10)
 err<-runif(10)
 plotCI(1:10,y,err,2*err,lwd=2,col="red",scol="blue", 
                  main="Add colors to the points and error bars")
 lines(1:10, y)

（对示例代码的一个非常小的调整是添加连接中点的线。）