R 熔入

我有一个用于绘制有序回归模型结果的数据框。我想融化我的数据帧，但结果不正确。当我用更少的列从原始数据框创建一个玩具数据框时，我得到了正确的答案。知道我做错了什么吗？请参阅随附的代码和输出

> 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

应在熔融数据帧（diff.mod.graf）中复制该数据

编辑-@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 

>diff.mod.graf by（数据=diff.mod.graf，索引=diff.mod.graf$变量，函数（x）fivenum（x$值））
差异模块graf$变量：onp
[1] 0.0002978989 0.0675580767 0.1793394876 0.6058061575 0.9984103955
------------------------------------------------------------------------------------------------------------------------------------------------------------ 
差异修正值$变量：op
[1] 0.0002978989 0.0675580767 0.1793394876 0.6058061575 0.9984103955 

编辑-@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

>diff.mod.graf by（数据=diff.mod.graf，索引=diff.mod.graf$变量，函数（x）fivenum（x$值））
差异模块graf$变量：onp
[1] -2.250835e-06-2.558362e-07-3.719817e-08 1.670986e-07 2.644583e-06
------------------------------------------------------------------------------------------------------------------------------------------------------------ 
差异修正值$变量：op
[1] -0.237450499 -0.021690233  0.001226833  0.019041952  0.277317128

编辑-解决方案@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

>名称（diff.mod）[8]diff.mod.graf by（data=diff.mod.graf，index=diff.mod.graf$变量，函数（x）fivenum（x$值））
差异模块graf$变量：onp
[1] -2.250835e-06-2.558362e-07-3.719817e-08 1.670986e-07 2.644583e-06
------------------------------------------------------------------------------------
差异修正值$变量：op
[1] -0.237450499 -0.021690233  0.001226833  0.019041952  0.277317128

我想我们至少需要看看

str（diff.mod）

。使用列编号而不是列名可能会隐藏错误。名为“value”的列8是否会产生问题？如果是这样，您可能希望尝试指定id.vars以及measured.vars。您的编辑似乎存在复制+粘贴的问题，但我认为“value”名称有问题。为了完整性起见，如果您可以使用包含虚拟数据的最小示例重新编写您的问题，这样就可以在下面给出真正的答案，那就太好了，这可能会在将来帮助其他人。顺便说一句，我相信还有比重命名变量更好的解决方案。@Misha，正如baptise所建议的，请用样本数据写出你的解决方案，并将答案标记为“已接受”。这将有助于未来用户清楚地看到问题已经解决。

> 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 

> 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

    >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