为什么我无法看到带有for循环的多个绘图？

这是我的代码，它是更大脚本的一部分

for(d1 in names(survD)){
survfit1 <- survfit(Surv(time=survD[[d1]][,"time"],
                                    event=survD[[d1]][,"death"],type='right')~1)

png(paste(survPath,"/surv_",d1,".png",sep=""))
plot(survfit1,xlab="Years",ylab="Survival probability",xmax=xmax1)

}

---

为了某样东西出现。我怎样才能看到所有的绘图？

听起来这才是你真正想要的：

for(d1 in names(survD)){
  survfit1 <- survfit(Surv(time=survD[[d1]][,"time"],
                           event=survD[[d1]][,"death"],type='right')~1)
  x11()  ## open up new graphical window for each plot (to avoid overwriting)
  plot(survfit1,xlab="Years",ylab="Survival probability",
       xmax=xmax1, main = d1)  ## use different titles to distinguish those plots
  }

for（d1的名称（survD））{
survfit1在for循环期间调用Sys.sleep（.1）可能会有所帮助。可以尝试：

for(d1 in names(survD)){
survfit1 <- survfit(Surv(time=survD[[d1]][,"time"],
                                    event=survD[[d1]][,"death"],type='right')~1)
Sys.sleep(.1)
png(paste(survPath,"/surv_",d1,".png",sep="", collapse="))
plot(survfit1,xlab="Years",ylab="Survival probability",xmax=xmax1)
dev.off()

for（d1的名称（survD））{
survfit1去掉这一行
png（粘贴（survPath，“/surv_”，d1，“.png”，sep=”“）
，然后它们将打印到您的图形设备上。但是，它们都会快速连续出现，因此您必须重新检查它们。或者您可以通过在循环中的某个位置添加
readline（）
来暂停循环。
png（）
，
jpeg（）
，等等。（（检查
？png
）也应该以
dev.off（）结尾。
？我猜代码片段的目的是将多个绘图保存到多个文件中，这样您就可以通过图像查看器浏览它们的目录，然后轻松删除不起作用的行。
for(d1 in names(survD)){
  survfit1 <- survfit(Surv(time=survD[[d1]][,"time"],
                           event=survD[[d1]][,"death"],type='right')~1) 
  png(paste(survPath,"/surv_",d1,".png",sep=""))
  plot(survfit1,xlab="Years",ylab="Survival probability",xmax=xmax1)
  dev.off()
  }

for(d1 in names(survD)){
survfit1 <- survfit(Surv(time=survD[[d1]][,"time"],
                                    event=survD[[d1]][,"death"],type='right')~1)
Sys.sleep(.1)
png(paste(survPath,"/surv_",d1,".png",sep="", collapse="))
plot(survfit1,xlab="Years",ylab="Survival probability",xmax=xmax1)
dev.off()