小编Boo*_*Boo的帖子

我已经完成了一个情节，但有一个小问题使我对图例部分感到疯狂

我找不到在图例中将框居中的方法。

x=seq(-4,4,length=200)
 y=dnorm(x,mean=0.816783035,sd=0.862916258)
 plot(x,y,type="l",lwd=2,col="red" , xlim=c(-4, 4) ,  ylab="probabilitiy", xlab="")


 #Shaded Area TBR!
 c= -0.211653725


 x=seq(-4,4,length=200)
 y=dnorm(x,mean=-0.393475584,sd=0.895660247)
 lines(x,y,type="l",lwd=2,col="blue")


 legend("topright", legend = c('TBR', 'TBF', 'Criterion', 'Hit'), 
               bty = "n",
               col = c("green", "blue", "red",NA),
               lty = c(1,1,1,NA),
               density=c(0,0,0,10),
               fill = c("green", "blue", "red","red"),
               border = c(NA,NA,NA,"red"),
               )
 abline(v= c)

 x1 = seq(c,4, length = 200)
 y1 = dnorm(x1,mean=0.816783035,sd=0.862916258)

polygon(c(c,x1) ,c(0, y1),density= 3, col="red")

如果你可以帮助我会很棒:所以我正在做一个双曲线(SDT)图,我有一个问题:这里我的图:

我第一次遇到这个问题......真的不知道如何解决它,我只是认为我的数据没有订购,但我怎么能轻松订购？

这是我的代码(但没什么特别的):

x = TDSindice2$Hit
mean = mean(x)
sd = sd(x)

y = dnorm(x,mean,sd)

plot(x,y, col = "red")


x = TDSindice2$Fa
mean = mean(x)
sd = sd(x)

y = dnorm(x,mean,sd)
par(new=TRUE)

plot(x,y ,type = "l", col ="blue")

谢谢大家:)