r - Inserting rows before each group -


i have following list , want add new row before each group of id's preserving id , setting , b 1.00.

       id      datee            b     102984 2016-11-23      2.0    2.0    140349 2016-11-23      1.5    1.5    167109 2017-04-16      2.0    2.0    167109 2017-06-21      1.5    1.5

the end result:

  id      datee                b        102984    na           1.0    1.0   102984 2016-11-23      2.0    2.0          140349    na           1.0    1.0         140349 2016-11-23      1.5    1.5   167109    na           1.0    1.0                167109 2017-04-16      2.0    2.0          167109 2017-06-21      1.5    1.5

up until used following code adds empty row @ bottom of each group do.call(rbind, by(df,df$id,rbind,"")) couldn't introduce specific values in respective columns when substituted "" vector of values.

here 1 option tidyverse. distinct rows of dataset 'id', mutate variables 'a', 'b' 1, , 'datee' na, bind_rows row bind original dataset , arrange 'id'

library(tidyverse) df1 %>%   distinct(id, .keep_all= true) %>%   mutate_at(vars("a", "b"), funs((1))) %>%    mutate(datee = na) %>%   bind_rows(., df1) %>%   arrange(id) #     id      datee     b #1 102984       <na> 1.0 1.0 #2 102984 2016-11-23 2.0 2.0 #3 140349       <na> 1.0 1.0 #4 140349 2016-11-23 1.5 1.5 #5 167109       <na> 1.0 1.0 #6 167109 2017-04-16 2.0 2.0 #7 167109 2017-06-21 1.5 1.5

(i'll assume date formatting has been fixed, e.g., df1$datee = as.date(df1$datee).)

or translated base r:

new1 = data.frame(id = unique(df1$id), datee = sys.date()[na_integer_], = 1, b = 1) tabs = list(new1, df1) res  = do.call(rbind, tabs) res <- res[order(res$id), ]  #       id      datee     b # 1 102984       <na> 1.0 1.0 # 4 102984 2016-11-23 2.0 2.0 # 2 140349       <na> 1.0 1.0 # 5 140349 2016-11-23 1.5 1.5 # 3 167109       <na> 1.0 1.0 # 6 167109 2017-04-16 2.0 2.0 # 7 167109 2017-06-21 1.5 1.5

or data.table:

library(data.table) new1 = data.table(id = unique(df1$id), datee = sys.date()[na_integer_], = 1, b = 1) tabs = list(new1, df1) res  = rbindlist(tabs) setorder(res)  #       id      datee     b #1: 102984       <na> 1.0 1.0 #2: 102984 2016-11-23 2.0 2.0 #3: 140349       <na> 1.0 1.0 #4: 140349 2016-11-23 1.5 1.5 #5: 167109       <na> 1.0 1.0 #6: 167109 2017-04-16 2.0 2.0 #7: 167109 2017-06-21 1.5 1.5

there other ways, too:

# or let datee , other cols filled na library(data.table) new1 = data.table(id = unique(df1$id), = 1, b = 1) tabs = list(df1, new1) res  = rbindlist(tabs, fill = true, idcol = "src") setorder(res, id, -src) res[, src := null ]  # or more compact option (assuming df1$a has no missing values) library(data.table) setdt(df1)[, .sd[c(.n+1, seq_len(.n))], id][is.na(a), c("a", "b") := 1][]

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