最新消息:雨落星辰是一个专注网站SEO优化、网站SEO诊断、搜索引擎研究、网络营销推广、网站策划运营及站长类的自媒体原创博客

r - Using IDsfactor levels in one object to assign values in another object - Stack Overflow

programmeradmin1浏览0评论

In the reprex below I need to assign 'sex' and 'age' values to df2 based on the information contained in df1; however, the number and order of rows are not the same in the two dataframes, so I cannot use merge() / by=, due to there being multiple rows for some participants (as denoted by 'id'). So, I would need both rows in df2 with an id of 'b' (i.e. rows 1-2) to have a sex of 'F' and an age of 51, then the row with an id of 'd' (row 3) to have a sex of 'F' and an age of 53, etc. Any help would be greatly appreciated. Thank you.

Reprex:

df1<-
  data.frame(
    id=as.factor(print(letters[1:6])),
    sex=as.factor(rep(c("M","F"),3)),
    age=as.numeric(50:55)
    )

df2<-
  data.frame(
    id=as.factor(c("b","b","d","c","c","c","a","e","e","f"))
  )

In the reprex below I need to assign 'sex' and 'age' values to df2 based on the information contained in df1; however, the number and order of rows are not the same in the two dataframes, so I cannot use merge() / by=, due to there being multiple rows for some participants (as denoted by 'id'). So, I would need both rows in df2 with an id of 'b' (i.e. rows 1-2) to have a sex of 'F' and an age of 51, then the row with an id of 'd' (row 3) to have a sex of 'F' and an age of 53, etc. Any help would be greatly appreciated. Thank you.

Reprex:

df1<-
  data.frame(
    id=as.factor(print(letters[1:6])),
    sex=as.factor(rep(c("M","F"),3)),
    age=as.numeric(50:55)
    )

df2<-
  data.frame(
    id=as.factor(c("b","b","d","c","c","c","a","e","e","f"))
  )
Share Improve this question asked Feb 4 at 15:34 PhelsumaFLPhelsumaFL 811 silver badge9 bronze badges
Add a comment  | 

1 Answer 1

Reset to default 2

Isn't this what you want? It's exactly what merge is for..

> merge(df2, df1, by="id",sort = FALSE)
   id sex age
1   b   F  51
2   b   F  51
3   d   F  53
4   c   M  52
5   c   M  52
6   c   M  52
7   a   M  50
8   e   M  54
9   e   M  54
10  f   F  55
发布评论

评论列表(0)

  1. 暂无评论
ok 不同模板 switch ($forum['model']) { /*case '0': include _include(APP_PATH . 'view/htm/read.htm'); break;*/ default: include _include(theme_load('read', $fid)); break; } } break; case '10': // 主题外链 / thread external link http_location(htmlspecialchars_decode(trim($thread['description']))); break; case '11': // 单页 / single page $attachlist = array(); $imagelist = array(); $thread['filelist'] = array(); $threadlist = NULL; $thread['files'] > 0 and list($attachlist, $imagelist, $thread['filelist']) = well_attach_find_by_tid($tid); $data = data_read_cache($tid); empty($data) and message(-1, lang('data_malformation')); $tidlist = $forum['threads'] ? page_find_by_fid($fid, $page, $pagesize) : NULL; if ($tidlist) { $tidarr = arrlist_values($tidlist, 'tid'); $threadlist = well_thread_find($tidarr, $pagesize); // 按之前tidlist排序 $threadlist = array2_sort_key($threadlist, $tidlist, 'tid'); } $allowpost = forum_access_user($fid, $gid, 'allowpost'); $allowupdate = forum_access_mod($fid, $gid, 'allowupdate'); $allowdelete = forum_access_mod($fid, $gid, 'allowdelete'); $access = array('allowpost' => $allowpost, 'allowupdate' => $allowupdate, 'allowdelete' => $allowdelete); $header['title'] = $thread['subject']; $header['mobile_link'] = $thread['url']; $header['keywords'] = $thread['keyword'] ? $thread['keyword'] : $thread['subject']; $header['description'] = $thread['description'] ? $thread['description'] : $thread['brief']; $_SESSION['fid'] = $fid; if ($ajax) { empty($conf['api_on']) and message(0, lang('closed')); $apilist['header'] = $header; $apilist['extra'] = $extra; $apilist['access'] = $access; $apilist['thread'] = well_thread_safe_info($thread); $apilist['thread_data'] = $data; $apilist['forum'] = $forum; $apilist['imagelist'] = $imagelist; $apilist['filelist'] = $thread['filelist']; $apilist['threadlist'] = $threadlist; message(0, $apilist); } else { include _include(theme_load('single_page', $fid)); } break; default: message(-1, lang('data_malformation')); break; } ?>