플롯 루프 [R]

Question

안녕하세요 닮은 DF있다 : I는 각 파일은 JPG에 대응하는 열 값을 포함하고 각 기둥의 2X5 화상 플롯 (만들려

A  B  C 
101 201 301 
102 202 302 

및) 코드를 100 번 반복하지 않고. 내 질문은 어떻게 나를 위해 이들을 계획 루프를 설정하는 것입니다. 하드보다는 내가 레이블 및 파일 이름을 호출하기 위해 값 '101'을 유지하는 기능과 몇 가지 변수를 가정 할

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) 

:

이 내가 첫 번째 열에에 사용되는 하드 코드는 코드가 가장 효율적입니다.

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) 

Answer 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... 
}