1

同じグラフに線と棒のプロットがあります。ただし、棒グラフは折れ線グラフの前にあります。折れ線グラフを前面に送信するにはどうすればよいですか？

h<-hist(loose_All, breaks="FD", plot=FALSE)
xfit<-seq(min(loose_All),max(loose_All),length=100)
x.norm<-rnorm(n=100000, mean=mapply("[", results[1], 1),
         sd=mapply("[", results[1], 2))
yfit<-dnorm(xfit,mean=mean(x.norm),sd=sd(x.norm))
yfit <- yfit*max(h$counts)/max(yfit)
plot(xfit*1.1, yfit*1.1, col="blue", lwd=2, type="l", xlab="Looseness",
 main="Normal pdf and histogram",)
plot(h, add=TRUE, col="grey",freq=TRUE)

ありがとう

4

1 に答える 1

0

使用：par（new = TRUE）plot（data、function、axes = FALSE、xlab = ""、ylab = ""）

于 2012-08-23T00:20:31.020 に答える