{"cells":[{"metadata":{"_kg_hide-output":true,"_kg_hide-input":true,"trusted":true},"cell_type":"code","source":"library(jpeg)\nlibrary(data.table)\nunlink(\"./\", recursive=TRUE)\ndir.create(file.path(\"Imgs/\"), showWarnings = FALSE)\ndir.create(file.path(\"trainCSV/\"), showWarnings = FALSE)","execution_count":null,"outputs":[]},{"metadata":{},"cell_type":"markdown","source":"### Names and labels are added to \"./trainCSV/train.csv\""},{"metadata":{"_kg_hide-input":true,"trusted":true},"cell_type":"code","source":"Y = fread(\"../input/cassava-leaf-disease-classification/train.csv\", data.table = F)\nY2 = Y\n\nlabels = 0:4\nimgNumber = 500\n\nrow <- Y[1,]\n\nfor(i in labels){\n  \n  l <- which(Y$label == i)\n  \n  for(j in 1:imgNumber){\n    \n    rand <- sample(l, 2)\n    \n    mixPic1 = Y$image_id[rand[1]]\n    mixPic2 = Y$image_id[rand[2]]\n    \n    t <- jpeg::readJPEG(paste(\"../input/cassava-leaf-disease-classification/train_images/\", mixPic1, sep = \"\"))\n    t2 <- jpeg::readJPEG(paste(\"../input/cassava-leaf-disease-classification/train_images/\", mixPic2, sep = \"\"))\n    \n    tA <- (t+t2)/2\n\n    jpeg::writeJPEG(tA, target = paste(\"./Imgs/Class\", i, \"Aug\", j, \".jpg\", sep = \"\"))\n    row$image_id <- paste(\"Class\", i, \"Aug\", j, \".jpg\", sep = \"\")\n    row$label <- i\n    Y2 = rbind(Y2, row)\n  }\n}\n\nfwrite(Y2, \"./trainCSV/train.csv\")","execution_count":null,"outputs":[]},{"metadata":{"_kg_hide-input":true,"trusted":true},"cell_type":"code","source":"options(repr.plot.width = 30, \n        repr.plot.height = 30)\nimgNames <- list.files(\"./Imgs\")\n\npar(mfrow=c(3,3)) \nfor(i in 1:(3*3)){\n    r = as.integer(runif(1, 1, length(imgNames)))\n    plot(as.raster(jpeg::readJPEG(paste(\"./Imgs/\", imgNames[r], sep = \"\"))))\n    }","execution_count":null,"outputs":[]}],"metadata":{"kernelspec":{"name":"ir","display_name":"R","language":"R"},"language_info":{"name":"R","codemirror_mode":"r","pygments_lexer":"r","mimetype":"text/x-r-source","file_extension":".r","version":"3.6.3"}},"nbformat":4,"nbformat_minor":4}