r - Aggregating by unique identifier and concatenating related values into a string -


this question has answer here:

i have need imagine satisfied aggregate or reshape, can't quite figure out.

i have list of names (brand), , accompanying id number (id). data in long form, names can have multiple id's. i'd de-dupicate name (brand) , concatenate multiple possible id's string separated comment.

for example: 

brand            id  radioshack       2308 rag & bone       4466 ragu             1830 ragu             4518 ralph lauren     1638 ralph lauren     2719 ralph lauren     2720 ralph lauren     2721 ralph lauren     2722

should become:

radioshack       2308 rag & bone       4466 ragu             1830,4518 ralph lauren     1638,2719,2720,2721,2722

how accomplish this?

let's call data.frame df

> aggregate(id ~ brand, data = df, c)          brand                           id 1   radioshack                         2308 2   rag & bone                         4466 3         ragu                   1830, 4518 4 ralph lauren 1638, 2719, 2720, 2721, 2722

another alternative using aggregate is:

result <- aggregate(id ~ brand, data = df, paste, collapse = ",")

this produces same result , id not list anymore. @frank comment. see class of each column try:

> sapply(result, class)       brand          id     "factor" "character"

as mentioned @davidarenburg in comments, alternative using tostring function:

aggregate(id ~ brand, data = df, tostring)

-

Comments

Post a Comment

Popular posts from this blog

python - How to insert QWidgets in the middle of a Layout? -

Image
i'm using qt framework build graphical user interface. use qgridlayout position qwidgets neatly. gui looks this: my application regularly adds new widgets gui @ runtime. these new widgets not added @ end of qlayout, somewhere in middle. the procedure bit cumbersome. applied on figure above, need take out widg_c , widg_d , ... qgridlayout. next, add widg_x and widg_y , , put other widgets again. how remove widgets qgridlayout: for in reversed(range(mygridlayout.count())): self.itemat(i).widget().setparent(none) ### as long you're dealing small amount of widgets, procedure not disaster. in application display lot of small widgets - perhaps 50 or more! application freezes second while procedure ongoing, annoying user. there way insert widgets somewhere in qlayout, without need take out other widgets? edit: apparently solution qvboxlayout simple. use function insertwidget(..) instead of addwidget(..) . docs can found link: http://doc.qt.io/qt-5/qboxlayou
Read more

python - serve multiple gunicorn django instances under nginx ubuntu -

i need serve 2 webs apps (django) on gunicorn under different domain names using nginx on ubuntu. started using tutorial: https://www.digitalocean.com/community/tutorials/how-to-set-up-django-with-postgres-nginx-and-gunicorn-on-ubuntu-16-04 it worked fine 1 using that. tried same thing second gives me 502 gateway second domain. tried following tutorial: http://michal.karzynski.pl/blog/2013/10/29/serving-multiple-django-applications-with-nginx-gunicorn-supervisor/ i'm @ part run gunicorn start script: sudo bin/gunicorn_start i response: starting webuildblack root traceback (most recent call last): file "/home/devin/webuildblack/bin/gunicorn", line 7, in <module> gunicorn.app.wsgiapp import run importerror: no module named 'gunicorn.app'; 'gunicorn' not package you have named program gunicorn.py gunicorn -package. rename file , remove gunicorn.pyc file.
Read more

module - Prestashop displayPaymentReturn hook url -

i new prestashop developer , trying create paymentmodule. have got show payment method can not proceed purchase because not know hot works. does know should redirect run hooddisplaypaymentreturn method? i happy if explain me complete navigation map make purchase. anyway, can find relation between hooks , pages? when have new module payment rely on simplest provided prestashop: bankwire. inside can find 3 hooks. hookpayment: public function hookpayment($params) { if (!$this->active) return; if (!$this->checkcurrency($params['cart'])) return; $this->smarty->assign(array( 'this_path' => $this->_path, 'this_path_bw' => $this->_path, 'this_path_ssl' => tools::getshopdomainssl(true, true).__ps_base_uri__.'modules/'.$this->name.'/' )); return $this->display(__file__, 'payment.tpl'); } hookdisplaypaymenteu: public fun
Read more