r - how would I get the below answer using melt/cast from reshape2 package -


i have 2 data frames, x , y. rbind them z. use reshape function (not package) below answer.

set.seed(1234) x <- data.frame(rp=c(1:5),dmg=1000*runif(5), loss=500*runif(5), model="m1") y <- data.frame(rp=c(1:5),dmg=1000*runif(5), loss=500*runif(5), model="m2") z <- rbind(x, y)  > z rp   dmg  loss model 1 113.7 320.2    m1 2 622.3   4.7    m1 3 609.3 116.3    m1 4 623.4 333.0    m1 5 860.9 257.1    m1 1 693.6 418.6    m2 2 545.0 143.1    m2 3 282.7 133.4    m2 4 923.4  93.4    m2 5 292.3 116.1    m2  > reshape(z, idvar="rp", timevar="model", direction="wide") rp dmg.m1 loss.m1 dmg.m2 loss.m2 1  113.7   320.2  693.6   418.6 2  622.3     4.7  545.0   143.1 3  609.3   116.3  282.7   133.4 4  623.4   333.0  923.4    93.4 5  860.9   257.1  292.3   116.1

how same result using cast/melt combination in reshape2?

> dcast(melt(z, c("rp", "model")), rp ~ variable + model)   rp   dmg_m1   dmg_m2    loss_m1   loss_m2 1  1 113.7034 693.5913 320.155303 418.64781 2  2 622.2994 544.9748   4.747878 143.11164 3  3 609.2747 282.7336 116.275253 133.41039 4  4 623.3794 923.4335 333.041879  93.36139 5  5 860.9154 292.3158 257.125571 116.11296

breaking down: first use melt put in long form. however, don't want melt rp , model since these serve identify rows , columns later on.

> my.df <- melt(z, c("rp", "model")) > my.df    rp model variable      value 1   1    m1      dmg 113.703411 2   2    m1      dmg 622.299405 3   3    m1      dmg 609.274733 4   4    m1      dmg 623.379442 5   5    m1      dmg 860.915384 6   1    m2      dmg 693.591292 7   2    m2      dmg 544.974836 8   3    m2      dmg 282.733584 9   4    m2      dmg 923.433484 10  5    m2      dmg 292.315840 11  1    m1     loss 320.155303 12  2    m1     loss   4.747878 13  3    m1     loss 116.275253 14  4    m1     loss 333.041879 15  5    m1     loss 257.125571 16  1    m2     loss 418.647814 17  2    m2     loss 143.111642 18  3    m2     loss 133.410390 19  4    m2     loss  93.361395 20  5    m2     loss 116.112955

then cast data frame using dcast. want rp identify rows , variable , model both identify columns, , express formula.

> dcast(my.df, rp ~ variable + model)   rp   dmg_m1   dmg_m2    loss_m1   loss_m2 1  1 113.7034 693.5913 320.155303 418.64781 2  2 622.2994 544.9748   4.747878 143.11164 3  3 609.2747 282.7336 116.275253 133.41039 4  4 623.3794 923.4335 333.041879  93.36139 5  5 860.9154 292.3158 257.125571 116.11296

Comments

Post a Comment

Popular posts from this blog

linux - xterm copying to CLIPBOARD using copy-selection causes automatic updating of CLIPBOARD upon mouse selection -

i've tried various ways coerce xterm (versions 285 , 292) copy selection clipboard clipboard whenever press ctrl-shift-c. promising way far has been, in ~/.xresources, put this: xterm*vt100.translations: #override \ ctrl shift <keypress> c: copy-selection(clipboard) \n\ ctrl shift <keypress> v: insert-selection(clipboard) ctrl-shift-v works perfectly, copying has nuance... if restart xterm, highlighting text puts things in primary clipboard; expected, proper, default behavior. if hit ctrl-shift-c, copies current selection clipboard clipboard. the bug, however, if highlight text after first time pressed ctrl-shift-c, you'll see highlighting copies both primary and clipboard. cannot figure out how stop xterm updating clipboard upon selection... , doesn't make sense me in first place. i said, @ specific point in time, copy selection clipboard... yet starts updating automatically upon selection after doing once... anyone have workaround...
Read more

c++ - qgraphicsview horizontal scrolling always has a vertical delta -

Image
i've subclassed qgraphicsview custom canvas used in cad application. i've reimplemented qgraphicsview::wheelevent check keyboard modifiers control key and, if control key pressed, zoom. i'm trying implement horizontal scroll when user holds shift , uses wheel. the problem i'm having horizontal scrolling always scrolls 0.279. not huge problem, hugely annoying , points else being wrong. so, here questions: is right way implement horizontal scrolling? if not, is? how eliminate delta of 0.279? thanks in advance. code , sample output below void myview::zoom(int delta) { double factor = pow(1.2, delta/abs(delta)); this->scale(factor, factor); } void myview::scrollhorizontal(int level) { qpointf center = maptoscene(viewport()->rect().center()); qdebug() << "center: " << center.x() << ", " << center.y(); centeron(qpointf(center.x() - level, center.y())); } void myview::wheelevent(qwheeleve...
Read more