r - Melt in reshape2 -


i have dataframe plotting results of ordinal regression model. i´d melt dataframe, results not correct. when create toy dataframe original dataframe fewer columns correct answers. idea i´m doing wrong here? please see attached code , output.

> fivenum(diff.mod[,11]) [1] -2.250835e-06 -2.558362e-07 -3.719817e-08  1.670986e-07  2.644583e-06 > fivenum(diff.mod[,12]) [1] -0.237450499 -0.021690233  0.001226833  0.019041952  0.277317128

this should reproduced in molten dataframe (diff.mod.graf)

> diff.mod.graf<-melt(diff.mod,measure.vars=c(11,12)) > by(data=diff.mod.graf,indices=diff.mod.graf$variable,                         function(x) fivenum(x$value)) diff.mod.graf$variable: onp [1] 0.0002978989 0.0675580767 0.1793394876 0.6058061575 0.9984103955 ---------------------------------------------------------------- diff.mod.graf$variable: op [1] 0.0002978989 0.0675580767 0.1793394876 0.6058061575 0.9984103955

for reason same values occur both variables (onp , on).. when same fewer variables in dataframe get:

    > df<-diff.mod[,c(1,2,7,11,12)]     > df2<-melt(df,measure.vars=c(4,5))        #identical variables 11 , 12 above     > by(data=df2,indices=df2$variable,function(x) fivenum(x$value))     df2$variable: onp     [1] -2.250835e-06 -2.558362e-07 -3.719817e-08  1.670986e-07  2.644583e-06    ----------------------------------------------------------------------     df2$variable: op     [1] -0.237450499 -0.021690233  0.001226833  0.019041952  0.277317128

any idea wrong code in second codebit??

edit. @dwin request. tried using formal column names instead of numbers without luck.

> str(diff.mod) 'data.frame':   73200 obs. of  12 variables:  $ ao         : num  0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 ...  $         : factor w/ 5 levels "bo 1","bo 2",..: 1 1 1 1 1 1 1 1 1 1 ...  $ age        : num  0 0 0 0 0 0 0 0 0 0 ...  $ sex        : factor w/ 2 levels "female","male": 1 1 1 1 1 1 1 1 1 1 ...  $ sx         : factor w/ 2 levels "no","yes": 1 1 1 1 1 1 1 1 1 1 ...  $ hy         : factor w/ 2 levels "no","yes": 1 1 1 1 1 1 1 1 1 1 ...  $ yu         : factor w/ 3 levels "fit.[ 13, 29)",..: 1 1 1 1 1 1 1 1 1 1 ...  $ value      : num  0.0461 0.0477 0.0492 0.0509 0.0526 ...  $ non.prop   : num  0.0461 0.0477 0.0492 0.0509 0.0526 ...  $ prop       : num  0.0466 0.0479 0.0493 0.0506 0.0521 ...  $ onp        : num  7.84e-08 7.37e-08 6.87e-08 6.32e-08 5.73e-08 ...  $ op         : num  -4.86e-04 -2.60e-04 -2.09e-05 2.32e-04 5.00e-04 ...

edit- @baptiste 

> diff.mod.graf<-melt(diff.mod,id.vars=c(1:10),measure.vars=c("onp","op")) > by(data=diff.mod.graf,indices=diff.mod.graf$variable,function(x) fivenum(x$value)) diff.mod.graf$variable: onp [1] 0.0002978989 0.0675580767 0.1793394876 0.6058061575 0.9984103955 ------------------------------------------------------------------------------------------------------------------------------------------------------------  diff.mod.graf$variable: op [1] 0.0002978989 0.0675580767 0.1793394876 0.6058061575 0.9984103955

edit- @ baptiste

> diff.mod.graf<-melt(diff.mod,id.vars=c(1:10),measure.vars=c("onp","op")) > by(data=diff.mod.graf,indices=diff.mod.graf$variable,function(x) fivenum(x$value)) diff.mod.graf$variable: onp [1] -2.250835e-06 -2.558362e-07 -3.719817e-08  1.670986e-07  2.644583e-06 ------------------------------------------------------------------------------------------------------------------------------------------------------------  diff.mod.graf$variable: op [1] -0.237450499 -0.021690233  0.001226833  0.019041952  0.277317128

edit- solution @baptiste

    >names(diff.mod)[8]<-"j"     > diff.mod.graf<-melt(diff.mod,id.vars=c(1:10),measure.vars=c("onp","op"))     > by(data=diff.mod.graf,indices=diff.mod.graf$variable,function(x) fivenum(x$value))     diff.mod.graf$variable: onp     [1] -2.250835e-06 -2.558362e-07 -3.719817e-08  1.670986e-07  2.644583e-06     ------------------------------------------------------------------------------------     diff.mod.graf$variable: op     [1] -0.237450499 -0.021690233  0.001226833  0.019041952  0.277317128


Comments

Post a Comment

Popular posts from this blog

SPSS keyboard combination alters encoding -

my question not have programming practical issue on spss. accident keyword combination cannot remember because did not intend press changed encoding in spss , text in data in different language english shown small boxes. nevertheless, when kind of analysis performed different language text shown in output. does know reason? tried change encoding did not produce result. first, @ edit > options , see whether setting unicode or locale. might fix it. if have text in multiple languages, want unicode. otherwise, may have specific locale set wrong. can change set locale, need know locale want use.
Read more

Add new record to the table by click on the button in Microsoft Access -

in ms access form want implement separate button, adds new record table. in order added button , attached button event: private sub btnaddrec_click() refresh codecontextobject on error resume next docmd.gotorecord , , acnewrec if err.number <> 0 btnaddrec.enabled = false end if end end sub everything ok when open window , click btnaddrec button, problem when first of perform navigation through existed records , after click on button. got runtime error: 2105: «you can't go specified record. may @ end of recordset» . how solve issue, need have ability add new record on click on specific button, no matter, have walked or not walked through records before. thanks. i created simple form field call description (and autonumber) , created button code follows click event. filled number of records , navigated through them, clicked addnewrec button. form navigated new record without issues. able click addnewrec button directly after
Read more

CSS3 Transition to highlight new elements created in JQuery -

i want use css3 color transition apply highlight-fading color effect (yellow transparent) new elements appended markup using jquery. css #content div { background-color:transparent; -moz-transition:background-color 2s; -webkit-transition:background-color 2s; -o-transition:background-color 2s; transition:background-color 2s; } #content div.new { background-color:yellow; } html <div id="content"></div> <a id="add-element" href="#">add new element</a> js $('#add-element').click(function() { var newelement = $('<div class="new">new element</div>'); $('#content').append(newelement); newelement.removeclass('new'); }); when click link, new element created. class "new" (background color yellow) , it's appended html markup. should able remove "new" class trigger background color transition transparent (or whate
Read more