我有一个正确命名的数据帧列表。我想使用这些数据帧创建circos图并在for循环中保存它们。
以下是我创建图表的脚本：
``` R
jpeg("df-name.jpeg")
circos.initialize(df$sectors, x = df$x)
circos.track(df$sectors, y = df$y,
             panel.fun = function(x, y) {
               circos.text(CELL_META$xcenter, 
                           CELL_META$cell.ylim[2] + mm_y(5), 
                           CELL_META$sector.index)
               circos.axis(labels.cex = 0.6)
             })
dev.off()

for (df in dflist) {
  jpeg(paste0(df, ".jpeg"))
  circos.initialize(df$sectors, x = df$x)
  circos.track(df$sectors, y = df$y,
             panel.fun = function(x, y) {
               circos.text(CELL_META$xcenter, 
                           CELL_META$cell.ylim[2] + mm_y(5), 
                           CELL_META$sector.index)
               circos.axis(labels.cex = 0.6)
             })
  dev.off()
}

dfnames <- names(dflist)
for (df in seq_along(dflist)) {
  print(df.names[i])
}

for (name in names(dflist)) {
  df <- dflist[[name]]
  drawCircos(df, name)
}

<details>
<summary>英文:</summary>
I have a list of data frames which are named correctly in the list. I want to create circos plots using those data frames and save them using a for loop. 
Here is the script where I create the plot:

I think I need to do something like this but it doesn't work because it can't grab list names:

Although this grabs list names, it can't grab data frames:

How can I both grab list names and data frames and use them in a for loop in R? I appreciate very much the answers.
I found the answer, it was that simple:

I wrap the script in a function and applied the for loop above.
</details>
# 答案1
**得分**: 2
我们可以遍历`dflist`中的名称，子集内的数据来创建一个临时对象`df`并使用相同的代码
```R
for (nm in names(dflist)) {
  jpeg(paste0(nm, ".jpeg"))
  df <- dflist[[nm]]
  circos.initialize(df$sectors, x = df$x)
  circos.track(df$sectors, y = df$y,
             panel.fun = function(x, y) {
               circos.text(CELL_META$xcenter, 
                           CELL_META$cell.ylim[2] + mm_y(5), 
                           CELL_META$sector.index)
               circos.axis(labels.cex = 0.6)
             })
  dev.off()
}