小编Ala*_*lan的帖子

我想对这些数据进行分组，但在分组时对某些列应用不同的函数。

ID  type isDesc isImage
1   1    1      0
1   1    0      1
1   1    0      1
4   2    0      1
4   2    1      0
6   1    1      0
6   1    0      1
6   1    0      0

我想按ID, 列分组isDesc并且isImage可以求和，但我想按原样获得 type 的值。type整个数据集都是一样的。结果应如下所示：

ID  type isDesc isImage
1   1    1      2
4   2    1      1
6   1    1      1

目前我正在使用

library(plyr)
summarized = ddply(data, .(ID), numcolwise(sum))

但它只是总结了所有列。你不必使用，ddply但如果你认为它对工作有好处，我想坚持下去。data.table图书馆也是一种选择

我希望能够从列表中引用一个函数.使用此代码,我想自动导出具有不同布局的图形.我正在使用igraph库.

问题是我得到函数的文本而不是函数的引用.

您是否可以提供一些代码更改以使其工作？

library(igraph)
g2 <- barabasi.game(100)
layouts = list(layout.auto, 
        layout.random, 
        layout.circle, 
        layout.sphere, 
        layout.fruchterman.reingold, 
        layout.kamada.kawai, 
        layout.spring, 
        layout.reingold.tilford, 
        layout.fruchterman.reingold.grid, 
        layout.lgl, 
        layout.graphopt, 
        layout.svd, 
        layout.norm)
for(i in layouts) {
    plot.igraph(g, layout=i, vertex.label=NA, vertex.size=3, edge.color="darkblue", edge.lty=3)
    dev.copy(png,paste("figures/network_v0.1_",substitute(i),".png",sep=""))
    dev.off()
}