reshape - Reproduce a datset to different format in R -

-

i have dataset data below:

dput(data) structure(list(fn = structure(c(1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l,  1l), .label = "20131202-0985 ", class = "factor"), values = structure(c(1l,  8l, 7l, 6l, 5l, 9l, 2l, 4l, 3l), .label = c("|639778|21|nanyang circle|103.686721631628|1.34640300329567",  "|8121|b01|somerset stn", "|96942883", "|sn30|smrt\n", "central",  "four seasons hotel", "hotel", "ikea", "nanyang avenue"), class = "factor"),      ind = structure(c(4l, 1l, 1l, 1l, 1l, 6l, 3l, 2l, 5l), .label = c("bn",      "br", "bs", "loc", "pn", "rn"), class = "factor")), .names = c("fn",  "values", "ind"), class = "data.frame", row.names = c(na, -9l ))

enter image description here wanted above dataset converted in below format data frame(out_data). presently data has 3 columns - , need covert these 16 columns in below format. need rehape input - given in screenshot data frame. cannot change below structure - 

colnames(out_data) <- ("fn","h_blk","s_n/r_n","b_n","fl_n","u_n","pc","xc","yc","bs","brf","lct_dec","brn","bo  pn","s_ty_cd")

enter image description here

the multiple value columns in inputnand in below format:

  • |639778|21|nanyang circle|103.686721631628|1.34640300329567 - |pc|h_blk|s_n/r_n|xc|yc
  • |8121|b01|somerset stn -> |bs|brf|lct_dec
  • |sn30|smrt ------> |brn|bo

if the

ind =loc - |pc|h_blk|s_n/r_n|xc|yc`  updated s_ty_cd=loc ind= bn - b_n column should updated s_ty_cd=bn ind= rn - _n/r_n column should updated s_ty_cd=rn ind= bs `|bs|brf|lct_dec` should updated s_ty_cd=bs ind= br `|brn|bo` should updated s_ty_cd=br ind= pn pn s_ty_cd=pn

is there efficient way of doing this.

here's 1 method of transformation. first define helper functions various sub problems.

#define  out cols outcols<-c("fn", "h_blk", "s_n/r_n", "b_n", "fl_n", "u_n", "pc",      "xc", "yc", "bs", "brf", "lct_dec", "brn","bo","pn","s_ty_cd")  #identify parts each compound value namevals <- function(ind, vals) {     names<-if (ind=="loc") {         c("pc","h_blk","s_n/r_n","xc","yc")     } else if (ind=="bn") {         c("b_n")     } else if (ind=="rn") {         c("s_n/r_n")     } else if (ind=="bs") {         c("bs","brf","lct_dec")     } else if (ind=="br") {         c("brn","bo")     } else if (ind=="pn") {         c("pn")     }     stopifnot(length(names)==length(vals))     stopifnot(all(names %in% outcols))     names(vals)<-names     vals }  #add missing values row fillrow <- function(nvals) {     r<-rep(na, length(outcols))     r[match(names(nvals), outcols)]<-nvals     r }

now apply these each row of data mapply return character vector. here make sure split "values" column on pipe , remove leading pipe. 

#combine rows character matrix dt<-mapply(function(fn,vals,ind){        x<-c(fn=fn,namevals(ind, vals), "s_ty_cd"=ind)     fillrow(x)   },    as.character(data$fn),    strsplit(gsub("^\\|","",as.character(data$values)),"|", fixed=t),    as.character(data$ind) )

finally tidy data can written out file write.table. note missing values true r na values. in write.table, can set na = "" if you'd rather print out blank values default "na" value.

#turn matrix data.frame proper names dd<-data.frame(unname(t(dt)), stringsasfactors=f) names(dd)<-outcols dd

Comments

Post a Comment

Popular posts from this blog

c++ - OpenCV Error: Assertion failed <scn == 3 ::scn == 4> in unknown function, -

-
i read alot other solution still confused should mine... #include <opencv2/objdetect/objdetect.hpp> #include <opencv2/highgui/highgui.hpp> #include <opencv2/imgproc/imgproc.hpp> #include <iostream> #include <stdio.h> using namespace std; using namespace cv; int main(int argc, const char** argv) { //create cascade classifier object used face detection cascadeclassifier face_cascade; //use haarcascade_frontalface_alt.xml library face_cascade.load("haarcascade_frontalface_alt.xml"); //setup video capture device , link first capture device videocapture capturedevice; capturedevice.open(0); //setup image files used in capture process mat captureframe; mat grayscaleframe; //create window present results namedwindow("outputcapture", 1); //create loop capture , find faces while (true) { //capture new image frame capturedevice >> captureframe; ...
Read more

php - render data via PDO::FETCH_FUNC vs loop -

-
i've been using 2 methods render data. the first one: function name($id,$name){ return '<div id="'.$id.'">'.$name.'</div>'; } echo implode($pdo->query("select id,name user")->fetchall(pdo::fetch_func,'name')); the second one: $users = $pdo->query("select id,name user")->fetchall(pdo::fetch_obj); foreach($users $user){ echo name($user->id,$user->name); } i don't understand how pdo::fetch_func works. tried figure out. however, not well-documented. could please explain fetch mode? , also, 1 performs better? thank you. both methods wrong , have learn how use templates , how separate business logic presentation logic. $users = $pdo->query("select id,name user")->fetchall(pdo::fetch_obj); tpl::assign('users', $users); is code business logic part. then in template <?php foreach $users $row): ?> <div id="<?=$...
Read more

The canvas has been tainted by cross-origin data in chrome only -

-
uncaught securityerror: failed execute 'getimagedata' on 'canvasrenderingcontext2d': canvas has been tainted cross-origin data i getting above error in chrome. code(following) works fine in mozilla. have not corss domain issue. why above error in chrome? var wheel_canvas, wheel_context, can_w, can_h, wheel_grd; var large_radius = 160; var small_radius = 120; var wheel_canvas = document.getelementbyid('wheel_canvas'); var wheel_context = wheel_canvas.getcontext('2d'); var can_w = $(wheel_canvas).width(); var can_h = $(wheel_canvas).height(); var centerx = can_w / 2, centery = can_h / 2; var wheel_grd = null; test('#ff0000'); function test(hex) { $('#clrpicker').css({'left': 210, 'top': 210 }); inverted = hexbw(hex); $('#color_val_show').val(hex); current_color_hex_val_selected = hex; $('#color_val_show').css({'color':inverted,'background':hex}); fillgradient...
Read more