Как изменить размер нескольких изображений в R - PullRequest
0 голосов
/ 28 января 2020

Я загрузил выборочное количество изображений

Это все файлы импорта и библиотеки

install.packages("dplyr")
install.packages("BiocManager")
BiocManager::install("EBImage")
install.packages("EBImage")
install.packages("keras")
install.packages("devtools")
devtools::install_github("rstudio/keras")

library(EBImage)
library(keras)
library(dplyr)
library(jpeg)

Я прочитал в CSV-файле

ClassifyLeison = read.csv('C:\\Users\\user\\Documents\\Final Year Proj\\DATA\\ISIC_2019_Training_GroundTruth.csv', sep=",")

I создал скрипт для фильтрации пустых значений в CSV-файле

MelanomaRead <- ClassifyLeison[1:2]
MelanomaRead <- filter(MelanomaRead, MEL == 1 )

MelanomaImages <- list()

Я прочитал отфильтрованные изображения, которые соответствуют фрейму данных, созданному выше

for(image in MelanomaRead$image){
  MelanomaImages[[image]] <- readJPEG(paste0("C:\\Users\\user\\Documents\\Final Year Proj\\DATA\\ISIC_2019_Training_Input", "/", image,".jpg"))
}

И теперь мне нужно найти способ изменить размеры этих изображений автоматически. У меня есть этот скрипт ниже, но он просит меня указать хотя бы одно имя файла. Я думаю, что этот скрипт работает только с вручную введенными изображениями

train <- list()
for (i in 1:474) {train[[i]] <- readImage(MelanomaImages[i])}
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...