Loops in R, aggregating data based on different variable -


i have data frame 2332 rows, want find rows variable "postal" equal, assign them values of row variable "area" biggest.

here first 50 rows

> data[1:50,]    postal        x       y         area 0   12920 573385.9 4972933 8.384062e+06 1   12921 623487.7 4971908 8.233541e+07 2   12923 583786.9 4978081 1.474410e+08 3   12924 613452.4 4927788 1.497106e+07 4   12934 588962.9 4965368 2.194386e+08 5   12935 596550.0 4967100 1.888997e+08 6   12944 618378.6 4921592 2.534854e+07 7   12952 583074.3 4953381 2.943473e+07 8   12955 582523.7 4959810 5.204965e+07 9   12958 611949.9 4979674 9.186815e+07 10  12959 601546.4 4979545 1.037816e+08 11  12962 611088.7 4951280 1.079834e+08 12  12972 612442.2 4934335 2.356099e+08 13  12978 595047.1 4941416 9.280316e+06 14  12979 628230.8 4983172 1.076677e+07 15  12981 591559.5 4944906 3.203060e+08 16  12985 599050.4 4935220 1.643595e+08 17  12992 616585.6 4963995 1.989913e+08 18  12997 592669.1 4914134 2.731502e+07 19  12017 627445.1 4686235 4.773138e+07 20  12024 619994.9 4704246 7.021505e+06 21  12029 629805.8 4696477 5.399608e+07 22  12037 618566.6 4688290 9.184531e+07 23  12060 624089.4 4697165 8.745604e+07 24  12062 622755.7 4709897 8.574364e+06 25  12075 612614.1 4683772 9.799130e+07 26  12106 606331.5 4693118 4.081914e+07 27  12115 615361.6 4702384 3.238215e+06 28  12123 614210.3 4708912 9.383202e+04 29  12123 614210.3 4708912 6.075477e+06 30  12123 614210.3 4708912 6.739686e+03 31  12125 631088.1 4703923 3.758122e+07 32  12130 610476.0 4700356 2.607542e+06 33  12136 618643.1 4698809 5.321862e+07 34  12156 603612.7 4704504 1.373999e+07 35  12156 603612.7 4704504 3.371689e+04 36  12156 603612.7 4704504 1.784716e+04 37  12156 603612.7 4704504 1.493681e+05 38  12156 600920.7 4704250 7.195805e+03 39  12165 623467.2 4685155 8.364310e+06 40  12168 633097.9 4713609 2.418246e+06 41  12173 602210.1 4692849 3.943830e+07 42  12184 610816.1 4697644 1.067326e+08 43  12502 610929.0 4659595 7.862394e+07 44  12503 617592.7 4654358 7.326900e+07 45  12513 606790.9 4673634 9.045891e+06 46  12516 619101.7 4662348 4.084114e+07 47  12517 622938.9 4664008 2.745140e+07 48  12521 611453.2 4669033 8.611940e+07 49  12523 602331.7 4660411 5.620575e+07

here imperfect code have, crashes computer 

n <- 1:nrow(data)  (i in seq(along = n)) { (j in seq(along = n)){  while (data[i,]$postal == data[j,]$postal) {  if (data[i,]$area < data[j,]$area)  {  (temp2[i,]$x <- temp2[j,]$x ) & ( temp2[i,]$y <- temp2[j,]$y)}}}

my guess op's seeking same @josilber's. here's non-base r way:

library(data.table) setdt(data)[, c("x","y") := {ii = which.max(area) ; list(x[ii], y[ii])}, = postal]

(for example given, makes 1 change, on row 39.)


Comments

Post a Comment

Popular posts from this blog

javascript - Bootstrap Popover: iOS Safari strange behaviour -

i looking through twitter bootstrap documentation, , i'm interested in implementing dismissible popover when button clicked. here example bootstrap's docs: http://getbootstrap.com/javascript/#dismiss-on-next-click when press "dismissible popover" button os x safari browser works fine. when access same link above ios safari, button not work. is, popover not dismissed on click. why button not working ios safari? the example linked using data-trigger="focus" attribute. try changing data-trigger="click" . <a tabindex="0" class="btn btn-lg btn-danger" role="button" data-toggle="popover" data-trigger="click" title="dismissible popover" data-content="and here's amazing content. it's engaging. right?">dismissible popover</a>
Read more

Magento/PHP - Get phones on all members in a customer group -

i working on custom magento extension. working around adminhtml part , i've created custom form there. here form code: <?php class vivasindustries_smsnotification_block_adminhtml_sms_sendmass_edit_form extends mage_adminhtml_block_widget_form { public function _preparelayout() { $extensionpath = mage::getmoduledir('js', 'vivasindustries_smsnotification'); $head = $this->getlayout()->getblock('head'); $head->addjs('jquery.js'); $head->addjs('vivas.js'); return parent::_preparelayout(); } protected function _prepareform() { $form = new varien_data_form(array( 'id' => 'edit_form', 'action' => $this->geturl('*/*/save', array('id' => $this->getrequest()->get...
Read more

session - Logging Out Using PHP -

i have seen other programs regarding can't seem make work. doing wrong? want achieve after user logged out, going previous pages become restricted. i have 3 php files: 1. sample.php - main page username , password filled in 2. successful.php - user's page after logging in 3. logout.php - destorys session hinder user access pages after logging out sample.php </html> <form action="" method="post"> <table> <tr> <td>username:</td> <td>password:</td> </tr> <tr> <td><input type="text" name="username"></td> <td><input type="password" name="password"></td> </tr> <tr> <td><input type="submit" value="submit" name="submit"></td> </tr> </table> </form> </html> <?php $servername = "localhost"; $username = ...
Read more