r - Adding missing data conditional on grouping variables within data frame -


here's 4 column df. site, visit, ind(ividual), obs(erved)

site<-c(rep("x",6),rep("y",8),rep("z",4)) visit<-c(1,1,2,2,3,3,1,1,2,2,3,3,4,4,1,1,2,2) ind<-c(rep(c("a","b"),9))     obs<-1     dat<-as.data.frame(cbind(site,visit,ind,obs))

in example have 3 sites unequal visits (x=3, y=4, z=2). add visits site x , z "did not occur" both individuals (a , b) , have na's in observed column. in example:

site<-c(rep("x",8),rep("y",8),rep("z",8)) visit<-c(1,1,2,2,3,3,4,4,1,1,2,2,3,3,4,4,1,1,2,2,3,3,4,4) ind<-c(rep(c("a","b"),12))     obs<-c(rep(1,6),na,na,rep(1,12),rep(na,4))     dat2<-as.data.frame(cbind(site,visit,ind,obs))

this simpler version of large data set 500+ sites , 300+ individuals. i'm struggling quick way accomplish i'm striving for. simple solutions out there? thanks.

also can think of better title post?

i'd shown below. possible matches of site, ind, visit created expand.grid(). data joined it, left outer join keeps expanded values (all.x = true)

# data site<-c(rep("x",6),rep("y",8),rep("z",4)) visit<-c(1,1,2,2,3,3,1,1,2,2,3,3,4,4,1,1,2,2) ind<-c(rep(c("a","b"),9)) obs <- 1 dat<-as.data.frame(cbind(site,visit,ind,obs)) # matches of site, ind, visit site <- c("x", "y", "z") ind <- c("a", "b") visit <- c(1, 2, 3, 4) grid <- expand.grid(site = site, ind = ind, visit = visit) # merge - left outer join keeps grid values merge(grid, dat, = c("site", "ind", "visit"), all.x = true)    site ind visit  obs 1     x       1    1 2     x       2    1 3     x       3    1 4     x       4 <na> 5     x   b     1    1 6     x   b     2    1 7     x   b     3    1 8     x   b     4 <na> 9     y       1    1 10    y       2    1 11    y       3    1 12    y       4    1 13    y   b     1    1 14    y   b     2    1 15    y   b     3    1 16    y   b     4    1 17    z       1    1 18    z       2    1 19    z       3 <na> 20    z       4 <na> 21    z   b     1    1 22    z   b     2    1 23    z   b     3 <na> 24    z   b     4 <na>

Comments

Post a Comment

Popular posts from this blog

php - How to modify a menu to show sub-menus -

i have custom php menu made person, displays categories menu. however, need display subcategories well. tried adding hierarchical parameter didn't work. hoping assistance! here code: <ul> <?php /* categories wp e-commerce products */ $wpec_product_categories = get_terms( 'wpsc_product_category', 'hide_empty=0&parent=0&exclude=298'); $myarray = array(); foreach($wpec_product_categories $wpec_categories){ $myarray[$wpec_categories->term_id]['name'] = $wpec_categories->name; $myarray[$wpec_categories->term_id]['slug'] = $wpec_categories->slug; $myarray[$wpec_categories->term_id]['term_id'] = $wpec_categories->term_id; } foreach($myarray $wpec_categories1){ $wpec_term_name = $wpec_categories1['name']; $wpec_term_slug = $wpec_categories1['slug']; $wpec_term_id = $wpec_categories1['term_id']; echo '<li> <a href="'.get_page_link(19)....
Read more

shopping cart - Page redirect not working PHP -

im trying redirect user when click "empty cart". redirect working "add cart" not "empty cart". ideas great. in main .php file set current url seen $current_url = base64_encode("http://$_server[http_host]$_server[request_uri]"); then below cartaction.php file handles actions such "add cart" , "empty cart" <?php session_start(); include_once 'config.php'; //add item in shopping cart if(isset($_post["add"])) { $product_id = $_post["product_id"]; //product id $return_url = base64_decode($_post["return_url"]); //return url $qty = $_post["qty"]; $product = $mysqli->query("select product_name, unit_price, unit_quantity products product_id = '$product_id'"); $obj = $product->fetch_object(); if(!isset($_session['products'])) { $_session['products'] = array(); } if(array_key_exists($product_id...
Read more

python - Installing PyDev in eclipse is failed -

unable read repository @ http://pydev.sf.net/updates/content.xml. sun.security.validator.validatorexception: pkix path building failed: sun.security.provider.certpath.suncertpathbuilderexception: unable find valid certification path requested target i installing pydev in eclipse using python, doesn't install successfully. gives above error. happened? how solve error? i had error when trying install on laptop behind corporate firewall. couldn't tell setup of firewall, not sure of root cause. i got passed error installing pydev eclipse when out behind firewall. another way got around have eclipse on non-firewalled machine, install pydev eclipse, , copy whole eclipse directory non-firewalled machine firewalled machine. there better way, , way fix properly, didn't have time work out firewall doing. this on windows 7 machine (yeah know) not work *nix versions installed through package manager yum or apt.
Read more