所以我一直在努力为这个情节找到一个正确的传奇.我的最终目标是显示线条颜色和点颜色的图例.我可以让传说中的线条工作正常,但是想知道我也是如何得到点数(包括点的形状和颜色)？任何工作或建议非常感谢!
Tempx<-c(20, 22, 24, 26, 28, 30, 32, 34)
Tempx<-rep(Tempx,2)
Temp<-rnorm(1000,28,2)
var1<-rnorm(1000,25,5)
Data<-data.frame(Temp,var1)
Temp<-rnorm(1000,28,2)
var1<-rnorm(1000,12,5)
Data2<-data.frame(Temp,var1)
a1<-1.05*Tempx
a2<-0.5*Tempx
a1low<-0.95*Tempx
a1high<-1.15*Tempx
a2low<-0.4*Tempx
a2high<-0.6*Tempx
plot1<-ggplot(NULL, aes(Temp, var1)) +
geom_point(data = Data, colour="grey60", size=1.5, shape=1, show.legend=TRUE) +
geom_point(data = Data2, shape= 16, size=1, show.legend=TRUE) +
geom_line(aes(x=Tempx,y=a1, colour="grey50"), size=1.75, show.legend=TRUE) +
geom_line(aes(x=Tempx,y=a2, colour="black"), size=1.75, show.legend=TRUE) +
geom_line(aes(x=Tempx,y=a1low), colour="grey50",size=1.25, linetype="longdash") +
geom_line(aes(x=Tempx,y=a1high), colour="grey50",size=1.25, linetype="longdash") +
geom_line(aes(x=Tempx,y=a2low), colour="black",size=1.25, linetype="longdash") +
geom_line(aes(x=Tempx,y=a2high), colour="black",size=1.25, linetype="longdash") +
scale_shape_manual(values=c(1, 16)) +
scale_color_manual(labels = c("low", "high"), values=c('black','grey50')) +
theme_bw()+ …所以我有一个运行的矩阵模型,当模型被告知停止时,我收到一条消息"错误:"
现在模型运行正常,它应该停止它等等.但这意味着我不能在循环中多次运行它,这是不理想的.所以我想知道是否有办法让这个错误消息停止发生,或绕过它.
下面的虚拟代码:
n.steps <- 100
x <- array(0,c(85,n.steps))
mnalph<-50
x[12,]<-2
x[24,]<-2
x[40,]<-3
x[50,]<-1
x[70,]<-2
x[85,] <- 1
k<-0
for (i in 2:n.steps){
k<-k+1
a<-sample(c(replicate(1000,
sample(c(1,0), prob=c(0.75, 0.25), size = 1))),1)
mat[85,85] <- a
currclass <- replacementclass <- round(rnorm(1, mean = mnalph, sd = 11))
if (a == 0) {
d <- sample(1:100, 1)
if (d > 60) {
x[85,k]<-0
stop()
} else {
while(a == 0) {
while (a == 0) {
if (x[currclass, k] > 1) {
x[currclass, …