R users, My intention is to take factors out of DF, create list of tables and export these tables separately using write.table or sink function. write.table writes tables out as DF:s, should I use sink instead?
Here is my example: a <- data.frame( indx = 1:20, var1 = rep(c("I20", "I40", "A50", "B60"), each=5), var1_lab= rep(c("cat", "dog", "mouse", "horse"), each=5), var2 = rep(c("B20", "X40", "D50", "G60"), each=5), var2_lab= rep(c("car", "bicycle", "train", "bus"), each=5)) g <- unlist(lapply(a, is.factor)) g <- a[g] g.tablist <- lapply(g, function(x) table(x, g$var1)) for (i in g.tablist) write.table(i , paste(Sys.Date(), i, sep="")) Warning messages: 1: In if (file == "") file <- stdout() else if (is.character(file)) { : the condition has length > 1 and only the first element will be used 2: In file(file, ifelse(append, "a", "w")) : or using lapply lapply(g.tablist, function(i) write.table(i , paste(Sys.Date(), i, sep=""))) $var1 NULL $var1_lab NULL $var2 NULL $var2_lab NULL Warning messages: 1: In if (file == "") file <- stdout() else if (is.character(file)) { : the condition has length > 1 and only the first element will be used 2: In file(file, ifelse(append, "a", "w")) : #or for (i in g.tablist) { sink(paste(i, ".txt.", sep="")) sink()} Warning messages: 1: In file(file, ifelse(append, "a", "w")) : only first element of 'description' argument used 2: In file(file, ifelse(append, "a", "w")) : only first element of 'description' argument used 3: In file(file, ifelse(append, "a", "w")) : only first element of 'description' argument used 4: In file(file, ifelse(append, "a", "w")) : only first element of 'description' argument used Thanks, Lauri ______________________________________________ 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.