Try this: jpeg("UserDA%02dT.jpg") sapply(1:10, function(x)plot(rnorm(100))) dev.off()
On 20/12/2007, Daniel Jegelka <[EMAIL PROTECTED]> 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@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 ______________________________________________ R-help@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.