r - Average Value in other cells for Unique Groups -

-

i have following sample dataset. first 3 columns identify specific group. 

dat <- read.table(header=true, text="                  id  lfrom lto it1 it2 it3 it4                   1120    1   2   47  152 259 140                   2000    1.1   2.1   88  236 251 145                   2000    1.2   2.1  72  263 331 147                   1120    1   2   71  207 290 242                   1120    1   2   47  152 259 140                   2001    1.2   2.1  72  263 331 147                   2001    1.1   2   71  207 290 242                   1120    1   2   47  152 259 140                   2000    1.1   2.1   88  236 251 145                   1120    1   2  72  263 331 147                   2000    1.1   2.1   71  207 290 242                   ")  dat      id lfrom lto it1 it2 it3 it4 1  1120   1.0 2.0  47 152 259 140 2  2000   1.1 2.1  88 236 251 145 3  2000   1.2 2.1  72 263 331 147 4  1120   1.0 2.0  71 207 290 242 5  1120   1.0 2.0  47 152 259 140 6  2001   1.2 2.1  72 263 331 147 7  2001   1.1 2.0  71 207 290 242 8  1120   1.0 2.0  47 152 259 140 9  2000   1.1 2.1  88 236 251 145 10 1120   1.0 2.0  72 263 331 147 11 2000   1.1 2.1  71 207 290 242

by using duplicated function can find out unique groups.

dat[!duplicated(dat[,1:3]),]     id lfrom lto it1 it2 it3 it4 1 1120   1.0 2.0  47 152 259 140 2 2000   1.1 2.1  88 236 251 145 3 2000   1.2 2.1  72 263 331 147 6 2001   1.2 2.1  72 263 331 147 7 2001   1.1 2.0  71 207 290 242

the frequency of unique groups.

aggregate(data = transform(dat[1:3], freq = seq_len(nrow(dat[1:3]))), freq ~ ., length)     id lfrom lto freq 1 1120   1.0 2.0    5 2 2001   1.1 2.0    1 3 2000   1.1 2.1    3 4 2000   1.2 2.1    1 5 2001   1.2 2.1    1

i need results following (average value of last 4 columns common first 3 columns) using plyr ordplyr packages. appreciated. 

    id lfrom lto  it1   it2   it3   it4 1 1120   1.0 2.0 67.5 213.1 285.2 163.5 2 2000   1.1 2.1 69.9 218.6 288.3 173.7 3 2000   1.2 2.1 72.0 263.0 331.0 147.0 4 2001   1.2 2.1 72.0 263.0 331.0 147.0 5 2001   1.1 2.0 71.0 207.0 290.0 242.0

using data.table:

library(data.table) setdt(dat)[, lapply(.sd, mean), by=.(id, lfrom, lto)]

Comments

Post a Comment

Popular posts from this blog

python - pip install -U PySide error -

-
does know how avoid following error when running pip install -u pyside per official website instructions here: https://pypi.python.org/pypi/pyside/#installing-pyside-on-a-mac-os-x-system note have done brew install qt successfully. you using pip version 7.0.3, version 7.1.2 available. should consider upgrading via 'pip install --upgrade pip' command. collecting pyside using cached pyside-1.2.4.tar.gz installing collected packages: pyside running setup.py install pyside complete output command /applications/anaconda/bin/python -c "import setuptools, tokenize;__file__='/private/var/folders/dy/ttgqhqqx3g9bsbsnqnxsk2z80000gq/t/pip-build-cpxemt/pyside/setup.py';exec(compile(getattr(tokenize, 'open', open)(__file__).read().replace('\r\n', '\n'), __file__, 'exec'))" install --record /var/folders/dy/ttgqhqqx3g9bsbsnqnxsk2z80000gq/t/pip-0r7hri-record/install-record.txt --single-version-externally-managed --compile: ...
Read more

arrays - C++ error: a brace-enclosed initializer is not allowed here before ‘{’ token -

-
simple question: i'm trying initialize array within c++ class declaration: using namespace std; #include <string> class myclass{ public: string myarray[] = {"a","b","c"}; }; and i'm getting error: error: brace-enclosed initializer not allowed here before ‘{’ token no, without complied c++11 compiler, cannot initialize member array in declaration. have initialize array member in constructor. , don't use open array if know number of elements initialize array.
Read more

cytoscape.js - How to add nodes to Dagre layout with Cytoscape -

-
i trying add nodes dagre graph through cityscape.js. problem nodes not painted. code have: cy.add({ group: "nodes", data: { id:"n0",name:"n0",weight: 75 }, }); $.ajax(url).done(function(jsontree){ var newnodes=[]; for(var i=1;i<6;i++){ //var child = jsontree.result[i]; newnodes.push( { group: "nodes", data: { id: "n"+i, name:"n"+i}}, { group: "edges", data: { id: "e"+i, source: "n0", target: "n"+i } } ); } cy.add(newnodes); any ideas? have used loaded function reload graph not work. not know if have use specific function reload graph. thank in advance. you need add positions new nodes. cytoscape.js docs : it important note positions of newly added nodes must defined when calling cy.add(). nodes can not placed in graph without valid position — otherwise not displayed. yo...
Read more