R Checking if data table values are same level -

-

suppose have data table, g, looks this:

g <- read.table(file = textconnection('id answers questions aa 1111111 222222222 aa 2222222 333333333 bb 3333333 444444444 bb 4444444 555555555 bb 5555555 666666666 cc 6666666 777777777'), header = true)  nlevels(g$id) # 3

for every different id, want create random hexcolor , assign variable, in case there three, given loop:

for(j in 1:nlevels(g$id)) {   rcolor <- paste(sample(0:255,size=3,replace=true),collapse=" ")   assign(paste0("idcolor", j), rcolor) }  idcolor1 # [1] "50 25 197"      # <--corresponds aa idcolor2 # [1] "131 255 58"     # <--corresponds bb idcolor3 # [1] "242 100 72"     # <--corresponds cc

so there 3 variables each of 3 levels, aa, bb, , cc.

i want output each of rows correct hex color, don't know how check value in g[,1] corresponds idcolor variable. have right trying paste every row variable m. 

m <- "" for(i in 1:nrow(g)){   m[i] <- paste0(g[i,1],":",idcolor1) }

my desired output be:

m # [1] aa:50 25 197 # [2] aa:50 25 197 # [3] bb:131 255 58 # [4] bb:131 255 58 # [5] bb:131 255 58 # [6] cc:242 100 72

a useful strategy matching values items using merge(), matching creating data frame of matching values. it's simple matter of combining variable using paste like. 

g <- read.table(file = textconnection('id answers questions aa 1111111 222222222 aa 2222222 333333333 bb 3333333 444444444 bb 4444444 555555555 bb 5555555 666666666 cc 6666666 777777777'), header = true)  for_merging <- data.frame( id=c("aa","bb","cc"), response = c("50 25 197","131 255 58","242 100 72"))  > merge(g, for_merging)   id answers questions   response 1 aa 1111111 222222222  50 25 197 2 aa 2222222 333333333  50 25 197 3 bb 3333333 444444444 131 255 58 4 bb 4444444 555555555 131 255 58 5 bb 5555555 666666666 131 255 58 6 cc 6666666 777777777 242 100 72

Comments

Post a Comment

Popular posts from this blog

qt - Using float or double for own QML classes -

-
i've created components , helper methods using c++ , qt used in qml gui. of methods calculate gui elements (size, transformations, scene graph items creation). target arm 32 bit using opengl / eglfs render output. opengl using float , qml using real (defined double ). what should use in c++ do not lose precision? if use qreal ( double ) shouldn't lose precision. if git grep float in qtbase.git , can find out bit more: dist/changes-5.2.0-**************************************************************************** dist/changes-5.2.0-* important behavior changes * dist/changes-5.2.0-**************************************************************************** dist/changes-5.2.0- dist/changes-5.2.0- - qt compiled qreal typedef'ed double on dist/changes-5.2.0: platforms. qreal float on arm chipsets before. guarantees more dist/changes-5.2.0- consistent behavior between platforms qt supports, binary dist/chan...
Read more

Create Outlook appointment via C# .Net -

-
i need create outlook appointment using microsoft.office.interop.outlook , while can work locally on own workstation , works if run web application via server's browser, not work when connect server externally. hence, think might permission issue. i changed application pool identity " localsystem " don't access denied error. unfortunately, doesn't work. the app behaves if appointment created, appointment doesn't appear in outlook. here include file on top of aspx.cs page using outlook = microsoft.office.interop.outlook; here code using pop appointment. outlook.application apptapp = new outlook.application(); outlook.appointmentitem appt = apptapp.createitem(outlook.olitemtype.olappointmentitem) outlook.appointmentitem; appt.subject = txtfirstname.text + " " + txtlastname.text; appt.body = txtcomment.text; appt.alldayevent = false; appt.start = datetime.parse(txtreminderdate.text + " 8:00 am"); appt.end = datetime.p...
Read more

ios - Swift Array Resetting Itself -

-
i have 2 arrays: pointhistory , datehistory . have nstimer , , when timer runs out, action called. in action appending int pointhistory , , current date string datehistory . here timer action: func timeraction() { let steppervalue = int(stepper.value) employee.numberofpoints = steppervalue networking.saveemployee(employee, completion: { (error) -> void in if error != nil { let alert = uialertcontroller(title: "error", message: "there error updating \(self.employee.name)'s points", preferredstyle: .alert) let alertaction = uialertaction(title: "ok", style: .cancel, handler: nil) alert.addaction(alertaction) self.presentviewcontroller(alert, animated: true, completion: nil) } }) var dateformatter = nsdateformatter() dateformatter.dateformat = "mm-dd-yyyy" dateformatter.timezone = nstimezone.localtimezone() var date = nsdate() var ...
Read more