r - subseting in a for loop -

-

my dataset has 34,000 rows , 353 columns. 1 column location , has 11,000 unique values. want subset dataset within loop. can creating new data frame each subset, want subsets form single data frame. have included sample dataset below

structure(list(x = structure(c(1l, 1l, 1l, 1l, 3l, 3l, 3l, 2l,  3l), .label = c("car", "dog", "house"), class = "factor"), y = c(20l,  20l, 20l, 20l, 410l, 410l, 410l, 410l, 60l), z = structure(c(1l,  3l, 8l, 1l, 7l, 5l, 2l, 4l, 6l), .label = c("argentina", "berlin germany",  "buenos aires argentina", "dublin ireland", "from austria", "germany",  "in transit germany", "river plate argentina"), class = "factor"),  k = structure(c(1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l), .label = "a", class = "factor")), .names = c("x", "y", "z", "k"), class = "data.frame", row.names = c(na, -9l))

i can use following code create new data frames

 l=c("argentina","ireland") for(i in l){      assign(paste("newdata",i,sep=""),      subset(testl[which(grepl(i,testl$z)&      !grepl("in transit",testl$z)&!grepl("from",testl$z)),],       select=c("x","y","z")))}

however want create single new dataframe hold subsets. have tried following code

d<-data.frame() for(i in l){d<-rbind(d,c( subset(testl[which(grepl(i,testl$z) & !grepl("in transit",testl$z) & !grepl("from",testl$z)),],     select=c("x","y","z")))}

i following errors

warning messages: 1: in `[<-.factor`(`*tmp*`, ri, value = "dog") : invalid factor level, na generated 2: in `[<-.factor`(`*tmp*`, ri, value = "dublin ireland") : invalid factor level, na generated

i have attempted convert factors characters no success. appreciated

i think making life rather difficult using assign here , trying store subsets in separate data frames. try more this:

l <- c("argentina","ireland") res <- setnames(vector("list",length(l)),l)  (i in seq_along(l)){                      res[[i]] <- dat[grepl(l[i],dat$z) & !grepl("in transit",dat$z) & !grepl("from",dat$z),c("x","y","z")] }  > res $argentina     x  y                      z 1 car 20              argentina 2 car 20 buenos aires argentina 3 car 20  river plate argentina 4 car 20              argentina  $ireland     x   y              z 8 dog 410 dublin ireland   > do.call("rbind",res)               x   y                      z argentina.1 car  20              argentina argentina.2 car  20 buenos aires argentina argentina.3 car  20  river plate argentina argentina.4 car  20              argentina ireland     dog 410         dublin ireland

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