[R] auto named savings (pngs & data-frames)

[Henrique Dallazuanna]

Try this:

jpeg("UserDA%02dT.jpg")
sapply(1:10, function(x)plot(rnorm(100)))
dev.off()

On 20/12/2007, Daniel Jegelka <jegelka at cbs.mpg.de> wrote:
> Hello, i only got a small problem.
>
> i try to create automatic new dataframes, or png´s. the main problem i
> got is:
>
> how can i create automatic a new name for a file (read out by simply
> "for") -
> i tried to use "(paste...) but theres an errormessage, about a wrong
> declination. R told it is as.character, but need as.Real.
>
> Should i use another method than "paste"?
>
> i tried as this:
> png("User-", paste(subject, ".png", sep = " "))
>
> ^^ as png file, example: User-DA5T.png  <- but if i create one, they are
> empty.
>
> Would anybody help me please?
>
> thx Daniel
>
>
>
>
> Prog:
> files <- list.files(
>                path = "/SCR/STATISTIK",
>                pattern = ".*t_simple\.txt",
>                all.files = TRUE,
>                full.names = TRUE,
>                recursive = TRUE                )
> list(files)
> anz <- nrow(files)
> print(anz)
>
> for (file in files) {
>
>        lines <- readLines(file)
>        name <- lines[1]
>        print(name)
>        #png("/SCR/STATISTIK/all-user-names.png")
>        #name <- as.character(name)
>        #barplot(name)
>        #dev.off()
>        for (line in lines[-1]) {
>                liste <- unlist(strsplit((line), " "))
>                subject <- as.character(liste[1])
>                if (length(liste) < 2 ) {
>                        data <- 0
>                }
>                else {
>                        data  <- as.numeric(liste[-1])
>                }
>                #png(paste[subject],".png")
>                dev.set()
>                boxplot(data[subject], ylim=c(400,1500))
>                dev.off()
>                datalist <- data.frame(data)
>                names(datalist) <- subject
>                print(datalist)
>                png("/SCR/STATISTIK/datalist.png", width=1024, height=768)
>
>                plot(datalist)
>                dev.off()}}
>                        #png("/SCR/all-show.png")
>                        #boxplot(datalist, main="Proband - ", col= "blue", ylab=
> "reactiontime in milliseconds", xlab= "name")
>                        #dev.off()
>                        #dev.set()
>                        #Datenmatrix <- cbind(datalist)
>                        #print(Datenmatrix)
>                        #dev.off()
>                        #plot(datalist)
>                        #dev.off()
>
> #einlesen <- datalist
> #print(einlesen)
> #Monate,storage, type="l", ylab="Datenvolumen [B]", xlab="Alter [M]",
> main="Altersverteilung", col="blue", ylog=TRUE, xpd=TRUE
> #print(x)
>
> #
> # alle kritischen Befehle wurden wohl von Felix "behoben"  :(  - aber
> danke  :)
> #
>        (rbind(User)) -> ueber
>        print(ueber)
>        list(ueber)
>                x <- ncol(ueber)
>                print(x)
>                y <- nrow(ueber)
>                print(y)
> #{#                     for (i in 1:x)
> #                               {fileseq <- (unlist(strsplit((a[i]), " "))[-1])
> #                               print(zeilen <- list(fileseq))
> #                               zeilen[i]<- zeilen
> #                               print(fileseq)}
> #                                       for (j in 1:17)
> #                                       {fileline <- as.logical(unlist((zeilen), " "))
> #                                       fileline[j] <- list(fileline)
> #                                       print(fileline[j])}
> #}
>
> #
> #
>
> #
>
> #list(ueber)
> #fix(ueber)
> #dim(ueber)
> #names(ueber)
> #ausgabe der userdaten in R
> #ueber$Sephal.Length
> #ueber$Sepal.Width
> #ausgabe der userdaten in einem Übersichtpopup
>
> #anzahl der Zeilen, die "files" besitzt
>
> #
> #daten der einzelnen datein in den Speicher schreiben
> #file <- unlist(files), NA = TRUE
> #print(file)
> #meinetabelle <- read.table(file, header=FALS)
> #a <- read.table(file=stdin(User),header=FALSE)
> #meinetabelle <- read.table(, sep=?\t?, header=FALSE)
> #simul<-data.frame(times=c(0, anz),simul=c(3,4,5,6))
> #mget(files, envir =  , mode = "any",
>  #  inherits = TRUE)
>
>
> #
> #read.table(files)
> #
> #
>
>
> #date(inbox)
> #attach(files, pos == anz, name = deparse(substitute(files)),
> #warn.conflicts = TRUE)
>
> #step(anz, scope, scale = 1,
> #     direction = c("forward"),
>  #    trace = 1, keep = NULL, steps = anz, k = 1)
>        #test <- as.numeric(unlist(strsplit((a[i]), " "))[-1])
>        #print(nrow(test))
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
>


-- 
Henrique Dallazuanna
Curitiba-Paraná-Brasil
25° 25' 40" S 49° 16' 22" O