counter <- 0
files <- list.files(path="C:/Users/Rinor/Downloads/sgt/july22/histo/", full.names=T, recursive=FALSE)
invisible(lapply(files, function(x) {
    counter <<- counter + 1
    data <- read.csv(x, header=FALSE)
    rcs <- log10(data$V6)
    hist(rcs, xlim=c(-4,4), breaks=40, main=paste(c("RCS Freq for Day:", counter), collapse = " "))
}))