循环遍历 [r] 中的列和行答案

【问题标题】：plot loop through columns and row in [r]循环遍历 [r] 中的列和行
【发布时间】：2016-11-16 06:08:23
【问题描述】：

嗨，我有一个看起来像这样的 df：

A     B     C
101   201   301
102   202   302

我想为每列创建一个 2x5 图像图（每列包含 10 个对应于 jpg 文件的值），而无需重复代码 100 次。我的问题是如何设置一个循环来为我绘制这些。

这是我用于第一列的硬代码：

require(jpeg)
image_frame = par(mfrow=c(5,2))
par(mar = c(1,1,1,1))

plot(1:2, type='n' ,xaxt='n', yaxt='n')
mtext("101", side=2, line = 0)
img101 = readJPEG('images/101.jpg')
rasterImage(img201, 1, 2, 2, 1)

我假设一个函数和一些变量来保存值“101”以便调用标签和文件名而不是硬代码将是最有效的。

plotALL = function{
plot(1:2, type='n' ,xaxt='n', yaxt='n')
mtext("colName")
mtext("i", side=2, line = 0)
img101 = readJPEG('images/'i'.jpg')
rasterImage(img'i', 1, 2, 2, 1)


for(i in dim(df))
plotALL(i)

【问题讨论】：

标签： r for-loop plot

【解决方案1】：

由于没有可复现的代码，这里粗略猜测一下……

par(mfrow=c(5,2))
for(column in df) {
  plot(1:2, type='n' ,xaxt='n', yaxt='n') # i guess this depends in the jpg
  for(i in column) {
    jpg <- readJPEG(sprintf('images/%s.jpg', i))
    rasterImage(jpg,1,2,2,1)
  }
  # save image somehow...
}

【讨论】：