所以我有一个问题,我创造了一些东西,SD +东西,还有东西-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);
答案 0 :(得分:0)
我认为你需要的是candlestick chart,试试这个:
#dummy data
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 1:length(hourvec)) lines(c(x,x),c(plotUpper[x],plotLower[x]))