r - Add jitter to column value using dplyr -

-

i have data frame of following format.

   author year stages 1  1150      1 2  b 1200      1 3  c 1200      1 4  d 1300      1 5  d 1300      1 6  e 1390      3 7  f 1392      3 8  g 1400      3 9  g 1400      3 ...

i want jitter each year , author combination small amount. want documents different authors in same year jittered unique values. example, tokens author b , c appear in same year, should jittered different amounts. tokens same author, example 2 tokens author g @ 1400 should jittered same amount.

i've tried following, unique jitter amount each , every row.

data %>% group_by(author) %>% mutate(year = jitter(year, amount=.5))

the output of code following.

   author     year stages 1  1150.400      1 2  b 1200.189      1 3  c 1200.222      1 4  d 1300.263      1 5  d 1299.788      1 6  e 1390.045      3 7  f 1391.964      3 8  g 1399.982      3 9  g 1399.783      3

however, following, both tokens author g should shifted same amount. crucial difference author g tokens shifted same amount.

   author     year stages 1  1150.400      1 2  b 1200.189      1 3  c 1200.222      1 4  d 1300.263      1 5  d 1299.788      1 6  e 1390.045      3 7  f 1391.964      3 8  g 1399.982      3 9  g 1399.982      3

calculate jitter 1 case , add difference cases:

dat %>%    group_by(author) %>%    mutate(year = year + (year[1] - jitter(year[1], amount=.5)))  #  author     year stages #1      1149.720      1 #2      b 1200.385      1 #3      c 1199.888      1 #4      d 1299.589      1 #5      d 1299.589      1 #6      e 1389.866      3 #7      f 1392.225      3 #8      g 1400.147      3 #9      g 1400.147      3

Comments

Post a Comment

Popular posts from this blog

node.js - Mongoose: Cast to ObjectId failed for value on newly created object after setting the value -

-
this question has answer here: what's mongoose error cast objectid failed value xxx @ path “_id”? 7 answers even though has been asked many times because entity has no valid objectid field. i came across situation objectid set value can casted objectid still error. the schema: var serviceschema = parammongoose.schema({ servicename:{ type: parammongoose.schema.types.objectid , ref: 'servicenames',required:true } }); pseudo code: servicefromdb=new service({servicename:'some name'}); servicefromdb.servicename='000000000000000000000001'; servicefromdb.save(function(paramerror,paramdata){ if(paramerror){ console.log('but but...',servicefromdb,paramerror) } }); the output of code is: but but... { servicename: 000000000000000000000001, _id: 55079a90286f49280364f78b } { [casterror: cast objectid faile...
Read more

[C++][SFML 2.2] Strange Performance Issues - Moving Mouse Lowers CPU Usage -

-
i've been working on making 2d map editor past 2 weeks or so, , i've run strange problem. trying optimize code, example, making functions should've been functions begin with, did made cpu usage go through roof. i've tried commenting out different sections of code thought culprits (scrolling, rendering, other calculations) no avail. think issue might trying call things within different functions, sake of making modular possible, i'd functionality. the other major change i've made since file i'm comparing i've ported variables external cpp file, since having variables global makes lot easier use within different functions. simple issue, can't life of me understand why happens. with original code, around 2-3% cpu usage. new code, around 20-35%, but, if move mouse around, it'll drop around 6-8%. tl;dr: after trying optimize code using functions, i've somehow killed performance, , found strange quirk moving mouse reduces cpu usage.. /...
Read more

ios - Possible to get UIButton sizeThatFits to work? -

-
i have been using method of resizing uibuttons depreciated, , not robust. , other reasons, want sizethatfits work uibuttons. i've read online, i'm not sure if should work (seems working some, not others, difference maybe between style, i'm using custom). here simple test code recreate issue (i put in viewdidload test, shouldn't matter, , real code part of large project): uibutton *btn = [uibutton buttonwithtype:uibuttontypecustom]; [btn settitle:@"this test long title need word wrap more single line when displayed on tiny ipod in portrait view." forstate:uicontrolstatenormal]; btn.titlelabel.linebreakmode = uilinebreakmodewordwrap; // depreciated - nothing replace it? cgrect r = btn.frame; r.origin.x = 0; r.origin.y = 0; r.size.width = 320; r.size.height = [btn.titlelabel.text sizewithfont:btn.titlelabel.font constrainedtosize:cgsizemake(r.size.width,100000) linebreakmode:btn.titlelabel.linebreakmode].height; // returns approx 86 , changes correctly ...
Read more