Count how many times a value has appeared in a vector [with conditions in R] -


i have following dataset , count how many times in vector condition has occured:

structure(list(id = c(1l, 1l, 1l, 1l, 2l, 2l, 2l, 2l, 3l, 3l,  3l, 3l), stimuli = c(1l, 0l, 0l, 1l, 1l, 1l, 0l, 1l, 0l, 1l,  0l, 1l)), .names = c("id", "stimuli"), class = c("tbl_df", "tbl",  "data.frame"), row.names = c(na, -12l), spec = structure(list(     cols = structure(list(id = structure(list(), class =  c("collector_integer",      "collector")), stimuli = structure(list(), class = c("collector_integer",      "collector"))), .names = c("id", "stimuli")), default = structure(list(), class = c("collector_guess",      "collector"))), .names = c("cols", "default"), class = "col_spec"))

only counting every id seperatly , if value of stimuli has been 1. result summarized in row , this:

id  stimuli count 1      1    1 1      0    0 1      0    0 1      1    2 2      1    1 2      1    2 2      0    0 2      1    3 3      0    0 3      1    1 3      0    0 3      1    2

i aware of as.data.frame(table(df)) getting frequency, in case keep every row , count in every id-sequence.

you can use data.table package:

 library(data.table)  setdt(df)[, count := cumsum(stimuli)*stimuli, by=id]   #     id stimuli count  #  1:  1       1     1  #  2:  1       0     0  #  3:  1       0     0  #  4:  1       1     2  #  5:  2       1     1  #  6:  2       1     2  #  7:  2       0     0  #  8:  2       1     3  #  9:  3       0     0  # 10:  3       1     1  # 11:  3       0     0  # 12:  3       1     2

Comments

Post a Comment

Popular posts from this blog

php - Vagrant up error - Uncaught Reflection Exception: Class DOMDocument does not exist -

i've set bento/ubuntu-16.04 vagrant box using php 5.6, , getting following error quite few times when try , run shell script: "uncaught reflection exception: class domdocument not exist". i've tried adding following top of script (not together), each no success: "sudo apt-get install php5.6-xml", "sudo apt-get install php5-xml", "sudo apt-get install php-dom" i've tried resetting server "sudo service apache2 restart". does have suggestions?
Read more

vue.js - Create hooks for automated testing -

Image
qa guys complained can't automate frontend testing. because our html looks same outside. lazy hack did this <template> <div :role="$options.name"> ... </div> </template> <script> export default { name: 'vmcomponentname' } </script> which takes name script , applies html. in browser get: <div role="vmcomponentname"> ... </div> line :role="$options.name" goes in every component. is there dry er solutions? please share. additional details i'll explain in details looking for. imagine have vmusercreate form creates user. test case can create user . to automatically test without role, have use following selector: .wrapper > .wrapper > .wrapper > .submit-button the test extremely brittle (will break lot). if use roles can use [role="vmusercreateform"] .submit-button selector. many folds less brittle. so basically, i'm ...
Read more

Add new key value to json node in java -

i have json file : { "id":1, "name":"abc", "addressdetails": { "city":"newyork" } } i wanted add 1 more key-value ("pincode" : "414141") node 'addressdetails'. i tried using : objectmapper mapper = new objectmapper(); jsonnode root = mapper.readtree(new file("d://test.json")); objectnode node = mapper.createobjectnode(); node.with("addressdetails").put("pincode", "414141"); but it's not getting added, there way can ? you can try you should modify file path objectmapper mapper = new objectmapper(); objectnode nodes = mapper.readvalue(new file("d:\\test.txt"), objectnode.class); nodes.with("addressdetails").put("pincode", "414141"); mapper.writer().writevalue(new file("d:\\test.txt"), nodes);
Read more