"flatten" data based on match from two data frames in R -


i have 2 data frames follows

the first survey table tells when person's survey taken

id = c('1000021','1000021') surveydate = c('2014-05-30','2013-05-01') dfsurvey = data.frame(id,surveydate) > dfsurvey               id  surveydate 1        1000021  2014-05-30 2        1000021  2013-05-01

the second hobbies table tells person's hobbies recorded on day. on different days, hobbies different.

id = c('1000021','1000021','1000021','1000021','1000021','1000021','1000021') hobbyname = c('running','volleyball','pingpong','badminton','swimming','running','pingpong') surveydate = c('2014-05-30','2014-05-30','2014-05-30','2014-05-30','2014-05-30','2013-05-01','2013-05-01') dfhobby = data.frame(id,hobbyname,surveydate) > dfhobby    id                                      hobbyname  surveydate 1        1000021                             running  2014-05-30 2        1000021                          volleyball  2014-05-30 3        1000021                            pingpong  2014-05-30 4        1000021                           badminton  2014-05-30 5        1000021                            swimming  2014-05-30 6        1000021                             running  2013-05-01 7        1000021                            pingpong  2013-05-01

to survey table has 2 rows, add expanded list of hobbies, each hobby getting it's own column, call "flattening". this,

#expected final output - add columns dfsurvey > dfsurvey id     surveydate                        hobby_running     hobby_volleyball     hobby_pingpong    hobby_badminton hobby_swimming 1        1000021                                 1                    1                  1                  1              1  2        1000021                                 1                    0                  1                  0              0

this code first construct column names, , use nested loop mark 1 against hobby. however, very slow, around 1 second 1 iteration of nested loop

#making columns , setting them 0 default hobbyvalues = unique(dfhobby$hobbyname) for(i in 1:length(hobbyvalues)) {     print(i)     dfsurvey[paste("hobby_",hobbyvalues[i],sep="")] = 0 }  #flattening iterative for(i in 1:nrow(dfsurvey)) {     print(i)      listofhobbies = dfhobby[which(dfhobby$id == dfsurvey[i,"id"] & dfhobby$surveydate == dfsurvey[i,"surveydate"]),"hobbyname"]      if(length(listofhobbies) > 0)     {         for(l in 1:length(listofhobbies))         {             dfsurvey[i,paste("hobby_",listofhobbies[l],sep="")] = 1         }     } }

i have tried foreach package , domc package , able write code in parallel. however, slow well.

is there better way or library in r can me this? thanks.

> library(reshape2) > dcast(dfhobby,id*surveydate~hobbyname,fill=0,length)         id surveydate badminton pingpong running swimming volleyball 1 1000021 2013-05-01         0        1       1        0          0 2 1000021 2014-05-30         1        1       1        1          1   > dcast(dfhobby,surveydate~hobbyname,fill=0,length)    surveydate badminton pingpong running swimming volleyball 1 2013-05-01         0        1       1        0          0 2 2014-05-30         1        1       1        1          1

Comments

Post a Comment

Popular posts from this blog

asp.net mvc - SSO between MVCForum and Umbraco7 -

i need integrate sso between mvcforum (forum of company) , umbraco7 (manages cms company). however struggling shared authentication work. tried several ways suggested on other threads still not running expected. here did: 1. in mvcforum (forum.mywebsite.com) 1.1. machine key in web.xml: <machinekey validationkey="the same key umbraco7" decryptionkey="the same key umbraco7" validation="sha1" decryption="aes" /> 1.2. authenticate forms in web.xml <forms name="my-sso-auth" protection="all" path="/" timeout="43200" domain="forum.mywebsite.com" loginurl="/members/logon" enablecrossappredirects="true" /> 2. in umbraco7 (news.mywebsite.com) 2.1. machine key in web.xml: <machinekey validationkey="the same key mvcforum" decryptionkey="the same key mvcforum" validation="sha1" decryption="aes" /> 2.2. a
Read more

Python Tkinter keyboard using bind -

i have problem using bind option can click button in keyboard, , call function once key pressed. tried taking other codes have similar purpose , saw i'm doing pretty same, though still have problem must've missed. thankful if me this. here's code: # -*- coding: utf-8 -*- #imports tkinter import * pil import imagetk, image import time import tkmessagebox #===========================================================================================================================================# #tkinter class class app(frame): def __init__(self, master=none): frame.__init__(self, master) self.pack() #===========================================================================================================================================# #game pieces classes class board: def __init__(self, rows = 7, columns = 6, picture_height = none, picture_width = none): self.rows = rows self.columns = columns self.picture
Read more

ubuntu - Selenium Node Not Connecting to Hub, Not Opening Port -

i'm trying set demo selenium grid. have digital ocean ubuntu 14.02 droplet. (i have 2 , tried set using 2 different machines got nowhere.) i'm trying run hub , node both locally. here input both hub, node, , nmap results. https://gist.github.com/mekhami/d5bbecca5ff0de9d2dc9 so, node starting tcp connection reset , port it's supposed operate on closed. i have had no luck in number of different options , configurations work. but... of course, worked randomly once. don't know why, don't know did, know 1 brief moment, node connected , saw on grid console. tried run test , went down again , i've never seen come up. please let me know more information can provide. update: randomly came online again. don't know happened, might related timeout or time_wait or going on. this because vm/server not have enough entropy available. to resolve problem, install haveged (or other similar things). the instructions of how install haveged on ubu
Read more