如何用R（优先Base R）循环遍历脚本代码段批量生成图表？

我有一个包含28个代码段的RScript文件，每个代码段定义7个同名变量，示例如下：

# SECTION 1 ######
variable1 <- numericalvalue1  
variable2 <- numericalvalue2
... (etc) 
variable7 <- numericalvalue7

# SECTION 2 ######
variable1 <- someothernumericalvalue1
variable2 <- someothernumericalvalue2
... (etc)
variable7 <- someothernumericalvalue7

... (etc etc etc) 

# SECTION 28 ######

variable1 <- someothernumericalvalueX
variable2 <- someothernumericalvalueY
... (etc)
variable7 <- someothernumericalvalueZ

每个变量配置段执行后，都需要运行一段通用代码，该代码通过ggplot根据各段设置的变量值生成图表，最终需生成28张图表，通用代码示例如下：

my_plot <- ggplot() +
  geom_point() +
  geom_circle(aes(x0=2, y0=2, r=2), fill=variable1) + 
  geom_circle(aes(x0=2, y0=2, r=2), fill=variable2) + 
  geom_circle(aes(x0=2, y0=2, r=2), fill=variable3) + 
  coord_fixed()

png(filename="MyPlot_iteration1.png")
my_plot
graphics.off()

手动逐个高亮运行代码段并按段号命名保存文件十分繁琐，若代码段数量增至280个则工作量极大。我想用类似Python的思路写循环来实现，示例思路如下：

#this is just something to illustrate the idea
for x in range(1,29):
     for section x:
           run section x
           run the common plotting part
           save with a name that has the format MyPlot_x.png

请问是否可以用R实现该需求，优先使用Base R？

内容的提问来源于stack exchange，提问作者im-not-a-robot