Döngü R

Question

yılında gri tonlama png dosyaları için ben dosya 28x28px png okumak ve sonra gri tonlama belirleyin:

img = readPNG("../Folder/image.png") 
pic <- img[,,1]+img[,,2]+img[,,3] 
pic <- pic/max(pic)' 
result = pic*255 
result 

Ve şimdi bazı klasörde daha png dosyaları için döngü yapmak deneyin:

img = lapply(sprintf("image%i.png", 1:10), png::readPNG) #select 10 png files 
pic <- img[,,1]+img[,,2]+img[,,3] 
pic <- pic/max(pic)' 
result = pic*255 
result 

Ama çalışmıyor :(

hata img [burada, 1]: boyutların sayısı yanlış

Answer 1

lapply görüntülerin bir listesini oluşturur, bu nedenle sizin durumda img[[1]] ilk resmi ve img[[10]], 10. görüntüdür. Listedeki her görüntüye döngü yapmayı deneyin. Eğer yapmak istediği takdirde görüntüde 1 ilave işlemi yapmak Yani, yapmanız gerekir:

pic <- img[[1]][,,1]+img[[1]][,,2]+img[[1]][,,3] 

listedeki tüm öğeleri üzerinde yapmak için.

img.list <- lapply(sprintf("../Folder/image%i.png", 1:10), png::readPNG) #select 10 png files 
results <- list() 
for (img in img.list) { 
    pic <- img[,,1]+img[,,2]+img[,,3] 
    pic <- pic/max(pic) 
    results[[length(results)+1]] <- pic*255 
} 

Şimdi sonuç tüm resimler için sonuçların bir listesidir.