r - Create new column with information of another column if two elements of row are equal -


im new r , did not find solution specific problem. hope guys can me.

i have following data frame: 

hid <- c('1','2','2','2','2','4','4','4','4','4','4') syear <- c(2000,2001,2003,2003,2003,2000,2000,2001,2001,2002,2002) employlvl <- c('full-time','part-time','part-time','unemployed','unemployed','full-time','full-time','full-time','unemployed','part-time', 'full-time') relhead <- c('head','head','head','partner','child','head','partner','head','partner','head','partner')  df <- data.frame(hid,syear,employlvl,relhead)    | hid | syear |  employment | relation head of hh| |-----|-------|-------------|-----------------------| |  1  | 2000  |  full-time  |         head          | |  2  | 2001  |  part-time  |         head          | |  2  | 2003  |  part-time  |         head          | |  2  | 2003  |  unemployed |        partner        | |  2  | 2003  |  unemployed |         child         | |  4  | 2000  |  full-time  |         head          | |  4  | 2000  |  full-time  |        partner        | |  4  | 2001  |  full-time  |         head          | |  4  | 2001  |  unemployed |        partner        | |  4  | 2002  |  part-time  |         head          | |  4  | 2002  |  full-time  |        partner        |

i create new column employment level of partner if values in hid (household identification number) , syear (survey year) equal.

i hope following output:

| hid | syear |  employment | relation head of hh| employment partner| |-----|-------|-------------|-----------------------|-------------------| |  1  | 2000  |  part-time  |         head          |        na         | |  2  | 2001  |  part-time  |         head          |        na         | |  2  | 2003  |  part-time  |         head          |    unemployed     | |  2  | 2003  |  unemployed |       partner         |        na         | |  2  | 2003  |  unemployed |         child         |        na         | |  4  | 2000  |  full-time  |         head          |     full-time     | |  4  | 2000  |  full-time  |        partner        |        na         | |  4  | 2001  |  full-time  |         head          |    unemployed     | |  4  | 2001  |  unemployed |        partner        |        na         | |  4  | 2002  |  part-time  |         head          |     full-time     | |  4  | 2002  |  full-time  |        partner        |        na         |

thank in advance!

we achieve using dplyr , tidyr. there 2 steps.

step 1: find out hid , syear combinations have more 2 records. filter them , filter out records child. use spread find head , partner relationship, creating new data frame. create new column head merging. dt2 output of step.

step 2: use left_join combine dt2 original data frame dt. dt3 final output.

library(dplyr) library(tidyr)  dt2 <- dt %>%   group_by(hid, syear) %>%   filter(n() > 1) %>%   filter(`relation head of hh` != "child") %>%   spread(`relation head of hh`, employment) %>%   mutate(relation = "head") %>%   rename(`employment partner` = partner) %>%   select(-head)  dt3 <- dt %>%   left_join(dt2, = c("hid", "syear", "relation head of hh" = "relation"))

data:

library(dplyr) dt <- data_frame(hid = c(1, 2, 2, 2, 2, 4, 4, 4, 4, 4, 4),                  syear = c(2000, 2001, 2003, 2003, 2003, 2000, 2000, 2001, 2001, 2002, 2002),                  employment = c("full-time", "part-time", "part-time", "unemployed", "unemployed",                                 "full-time", "full-time", "full-time", "unemployed", "part-time",                                  "full-time"),                  "relation head of hh" = c("head", "head", "head", "partner", "child", "head",                                                "partner", "head", "partner", "head", "partner"))

Comments

Post a Comment

Popular posts from this blog

Is there a better way to structure post methods in Class Based Views -

i'm using class based views in django , never specify url in ajax calls , omit action parameter in form because know these requests go through post method of class based view. notice view - profile page make many requests depending on user updating on page - post method become convoluted , if/else mess example: def post(self, request, *args, **kwargs): # handle user changing available date if request.post.get('availabledate') != none: self.updateavailabledate(request) return jsonresponse({'result':'success'}) if request.post.get('newprojectname') != none: creative_user = creativeuserprofile.objects.get(id = request.user.id) project = project.create_project(creative_user, request.post['newprojectname']) project.save() return jsonresponse({'projectid': project.id }) if request.post.get('projectimage') != none , request.files['file']: proj
Read more

performance - Why is XCHG reg, reg a 3 micro-op instruction on modern Intel architectures? -

i'm doing micro-optimization on performance critical part of code , came across sequence of instructions (in at&t syntax): add %rax, %rbx mov %rdx, %rax mov %rbx, %rdx i thought had use case xchg allow me shave instruction , write: add %rbx, %rax xchg %rax, %rdx however, dimay found agner fog's instruction tables , xchg 3 micro-op instruction 2 cycle latency on sandy bridge, ivy bridge, broadwell, haswell , skylake. 3 whole micro-ops , 2 cycles of latency! 3 micro-ops throws off 4-1-1-1 cadence , 2 cycle latency makes worse original in best case since last 2 instructions in original might execute in parallel. now... cpu might breaking instruction micro-ops equivalent to: mov %rax, %tmp mov %rdx, %rax mov %tmp, %rdx where tmp anonymous internal register , suppose last 2 micro-ops run in parallel latency 2 cycles. given register renaming occurs on these micro-architectures, though, doesn't make sense me done way. why wouldn't register renamer
Read more

jquery - Responsive Navbar with Sub Navbar -

good day, forgive me nav vocabulary not best. if question confusing apologize. i'm working on navigation bar needs centered on page @ 768px , above. items in nav open (or perhaps toggle) subnav lives directly below. these nav should appear centered on page. i have been able work through responsive portion of nav bar, having main items align vertically , sub nav menu of each item roll out below, , gave them indent separation. working well. however, issue not responsive side, behavior @ width greater 768px. happens toggling menu's sub navigation pushes other main items down page below sub nav. here's code: $(document).ready(function () { //stick in fixed 100% height behind navbar don't wrap $('#slide-nav.navbar-inverse').after($('<div class="inverse" id="navbar-height-col"></div>')); $('#slide-nav.navbar-default').after($('<div id="navbar-height-col"></d
Read more