在R中运行代码的特定区域

Question

我正在 R 中工作，我需要重新运行我正在工作的行上方编写的代码区域。我的意思是，只是代码的特定部分，几行。例如：

1   x <- c(0:10)
2
3   #Start of region to rerun ----------------------
4 
5   y <- c(0,1,0,0,2,2,3,3,4,4,5)
6   z <- c(rep(100,3), rep(200, 3), rep(300,5))
7   table <- cbind(x,y,z)
8 
9   #End of region to rerun ------------------------
10 
11 
12   plot(table, type = "o") #plot numer1
13 
14   #Modification of one variable
15   x <- x*1.5
16 
17   # I would like tu rerun the region above, form line 3 to line 9
18
19   
20   plot(table, type = "o") #plot numer2

谢谢您的帮助！

Answer 1

我假设您想重新运行代码，因为您更改了 x 的值，对吧？

此外，您似乎不再需要 x 和 y 的变量。

因此，函数可能对您来说是理想的选择：

make_my_table <- function(x){
  y <- c(0,1,0,0,2,2,3,3,4,4,5)
  z <- c(rep(100,3), rep(200, 3), rep(300,5))
  table <- cbind(x,y,z)
  # return says to return this variable, if the function is called
  return(table)
}

x <- c(0:10)
# first Plot
# make_my_table(x) will execute the function with the value for x and return the table
plot(make_my_table(x), type = "o") 

# change of x
x <- 1.5*x

# second plot

plot(make_my_table(x), type = "o")

我不知道您想要重复绘图的频率，但如果存在定义的一系列 x 值，您可以在 中执行绘图函数for-循环或 lapply-循环，正如其他答案所建议的那样。我只是想解释如何主动重新运行某段代码。

函数的优点是，除了返回变量之外，函数内的所有变量都被删除，因此它们不会阻塞您的环境并使您感到困惑。

Answer 2

只需使用一个for循环：

nplot <- 3   # number of plot you want
x <- c(0:10) # x, y and z will not be different at this time
y <- c(0,1,0,0,2,2,3,3,4,4,5)
z <- c(rep(100,3), rep(200, 3), rep(300,5))
table <- cbind(x,y,z) # keep going in a table

for (i in 1:nplot){ # how many plots do you want?
  if (i==1){ # if is the first case...
    plot(table, type = "o") # do the plot
  }
  else{ # if is the second plot, third plot, ...
    x <- x*1.5 # now x takes other values but y and z remains constant
    table <- cbind(x,y,z) # make a new table with updated x values
    plot(table, type = "o") # just plot that new values
  }
}

您可以在每个图之前使用png（“ path/filename.png”）保存图。图完成后，您必须编写dev.off（）才能关闭png文件：

nplot <- 3   # number of plot you want
x <- c(0:10) # x, y and z will not be different at this time
y <- c(0,1,0,0,2,2,3,3,4,4,5)
z <- c(rep(100,3), rep(200, 3), rep(300,5))
table <- cbind(x,y,z) # keep going in a table

for (i in 1:nplot){ # how many plots do you want?
  if (i==1){ # if is the first case...
    png(paste("yourpath/filename_",i,".png",sep=""))
    plot(table, type = "o") # do the plot
    dev.off()
  }
  else{ # if is the second plot, third plot, ...
    x <- x*1.5 # now x takes other values but y and z remains constant
    table <- cbind(x,y,z) # make a new table with updated x values
    png(paste("yourpath/filename_",i,".png",sep=""))
    plot(table, type = "o") # just plot that new values
    dev.off()
  }
}

请注意，PNG中的“ I”是为了记录您保存的绘图数量，以便在以后的工作中不会混淆。