如何從打印輸出中停止一段R代碼？

Question

我得到了下面的一段代碼，它一直在打印頻率表。我如何阻止它這樣做。

pl = read.csv("c:/pl.csv") 
freqs = function(name){ assign(name, table(pl[,name],pl$bad_outcome), envir = .GlobalEnv);} 
lapply(names(pl), freqs); 

Answer 1

你有三個選擇：

1）分配輸出，因爲你看到的是「打印」的實際上僅是一個回報。

x <- lapply(names(pl), freqs) 

2）在plyr中使用l_ply函數。

library(plyr) 
l_ply(names(pl), freqs) 

3）不要做lapply內部分配，但attach做到算賬：

x <- lapply(names(pl), function(name) table(pl[,name],pl$bad_outcome)) 
attach(x)