[AppleScript] 纯文本查看 复制代码
title("销量")
> xi = 1.1
> sd.s=sd(fd[complete.cases(fd),]$"销量")
> mn.s = mean(fd[complete.cases(fd),]$"销量")
> points(xi,mn.s,col="red",pch=18)
> arrows(xi,mn.s - sd.s,xi,mn.s+sd.s,code=3,col="pink",angle = 75,length = .1)
> text(rep(c(1.05,1.05,0.95,0.95),length=length(sp$out)),labels = sp$out[order(sp$out)],sp$out[order(sp$out)]+rep(c(150,-150,150,-150),length=length(sp$out)),col="red")