你可以用assign函数。
<br />
df <- read.table(textConnection('<br />
name gender date score<br />
zhang m 2013-6-5 27<br />
zhang m 2013-6-4 31<br />
zhang m 2013-6-3 29<br />
wang f 2013-6-5 32<br />
wang f 2013-6-5 30<br />
'), head = TRUE)</p>
<p>dfS <- function(df1)<br />
{<br />
print(unique(df1$name))<br />
assign(as.character(unique(df1$name)), df1, .GlobalEnv)<br />
return(NA)<br />
}</p>
<p>library(plyr)<br />
ddply(df, .(name), dfS)<br />
ls()</p>
<p>
</p>
