r - Ungroup after grouping by just one variable in dplyr -


i have lot of units measured repeated times 

>df item value  year 1     20     1990 1     20     1991 2     30     1990 2     15     1990 2     5      1991 3     10     1991 4     15     1990 5     10     1991 5      5     1991

i trying use dplyr remove values have low number of observations. on toy data lets want remove data has fewer 2 counts

>df <- df %>%    group_by(item) %>%    tally() %>%    filter(n>1)  item  n 1     2 2     3 5     2

the problem expand was, filter. attempted using ungroup command, seems have effect when grouping 2 variables. how can filter item counts original variables i.e value , year. should this

>df item value  year 1     20     1990 1     20     1991 2     30     1990 2     15     1990 2     5      1991 5     10     1991 5      5     1991

more simply, use dplyr's row_number()

library(dplyr)  df <- read.table("clipboard", header = true, stringsasfactors = false)  df %>%    group_by(item) %>%    filter(max(row_number()) > 1) %>%   ungroup()  # tibble: 7 x 3 # groups:   item [3]    item value  year   <int> <int> <int> 1     1    20  1990 2     1    20  1991 3     2    30  1990 4     2    15  1990 5     2     5  1991 6     5    10  1991 7     5     5  1991

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