1

我有一个问题,我创建了一些东西,SD+something 和 something-SD,我想在每个点将这些点连接成垂直线有什么想法吗?

#example code:
 hourvec;
 for (i in 1:length(hourvec)){plotUpper<- sd(hourvec) + hourvec}
 plotUpper;
 for (i in 1:length(hourvec)){plotLower<- hourvec - sd(hourvec)}
 plotLower;
 plot(RIL_table, type= "p", main="Variation in Longevity in DSPR RILs");
 points(plotUpper);
 points(plotLower);
4

1 回答 1

0

我认为您需要的是烛台图,试试这个:

#example data
set.seed(1); hourvec <- runif(20)
sd_hourvec <- sd(hourvec)

#get hourvec upper lower
plotUpper <- sd_hourvec + hourvec
plotLower <- hourvec - sd_hourvec

#plot
plot(hourvec, ylim = (c(-2, 2)))
for(x in seq_along(hourvec)) lines(c(x, x), c(plotUpper[ x ], plotLower[ x ]))

在此处输入图像描述

于 2013-11-06T21:29:18.250 回答