Add values to dataframe when condition met in R -


i have dataframe this: 

id1   id2   position  grade   day 234   756      2        87     27 245   486      4        66     26 321   275      1        54     20 768   656      6        51     7 421   181      1        90     14 237   952      8        68     23 237   553      4        32     30

and have dataframe this:

id1   id2   day  count 234   756    2     3  245   486    2     1 209   706    2     1 124   554    2     2 237   553    2     4

i need add counts first dataframe id1, id2 , day matched. however, need have if there no match (no counts in second dataframe set of id1, id2 , day in first dataframe) 0 put in place. final dataframe like: 

id1   id2   position  grade   day   count 234   756      2        87     27     3 245   486      4        66     26     1 321   275      1        54     20     0 768   656      6        51     7      0 421   181      1        90     14     0 237   952      8        68     23     0 237   553      4        32     30     4

this can useful 

> # first, merge df1 , df2 > df3 <- merge(df1, df2, by=c("id1", "id2"), all.x=true) > # replace na 0's > transform(df3[, -6], count=ifelse(is.na(count), 0, count))   id1 id2 position grade day.x count 1 234 756        2    87    27     3 2 237 553        4    32    30     4 3 237 952        8    68    23     0 4 245 486        4    66    26     1 5 321 275        1    54    20     0 6 421 181        1    90    14     0 7 768 656        6    51     7     0

Comments

Post a Comment

Popular posts from this blog

apache - Remove .php and add trailing slash in url using htaccess not loading css -

i have add following code htaccess file removing .php extension , add trailing slash urls. worked fine reduced page loading speed , css code not loading @ all. pages ugly. please help rewriteengine on rewritebase / ## hide .php extension snippet # externally redirect /dir/foo.php /dir/foo rewritecond %{the_request} ^[a-z]{3,}\s([^.]+)\.php [nc] rewriterule ^ %1/ [r,l] # add trailing slash rewritecond %{request_filename} !-f rewritecond %{request_uri} !/$ rewriterule . %{request_uri}/ [l,r=301] # internally forward /dir/foo /dir/foo.php rewritecond %{request_filename} !-d rewritecond %{request_filename}.php -f rewriterule ^(.*?)/?$ $1.php [l] we can rewrite urls using .htaccess files. before writing in .htaccess files need verify kind of server using. can check server adding a <?php phpinfo(); ?> in php page. ensure mod_rewrite module enabled in apache server. can identified checking phpinfo included page. common methods used url rewriting follows ...
Read more

inno setup - TLabel or TNewStaticText - change .Font.Style on Focus like Cursor changes with .Cursor -

is possible change .font.style on focus tlabel or tnewstatictext happens cursor when use .cursor ? there no built-in support track mouse hovering in inno setup @ time. however, intercepting window procedure of controls can track yourself. following example need innocallback library: [setup] appname=my program appversion=1.5 defaultdirname={pf}\my program outputdir=userdocs:inno setup examples output [files] source: "innocallback.dll"; destdir: "{tmp}"; flags: dontcopy [code] #ifdef unicode #define aw "w" #else #define aw "a" #endif const gwl_wndproc = -4; wm_mousemove = $0200; type wparam = uint_ptr; lparam = longint; lresult = longint; twindowproc = function(hwnd: hwnd; umsg: uint; wparam: wparam; lparam: lparam): lresult; function setcapture(hwnd: hwnd): hwnd; external 'setcapture@user32.dll stdcall'; function releasecapture: bool; external 'releasecapture@user32.dll stdcall'; func...
Read more