Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/67.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 使用重塑包重塑数据库_R_Database_Reshape - Fatal编程技术网

R 使用重塑包重塑数据库

R 使用重塑包重塑数据库,r,database,reshape,R,Database,Reshape,我想重塑数据库中的一些行。特别是我有一些它为Id列复制的行。我想在列中转换此行。我提供了一个代码,它代表了我的数据库的一个示例。 我正在尝试使用t()和重塑,但我不会这么做。谁能给我一些建议吗 test<-data.frame(Id=c(1,1,2,3), St=c(20,80,80,20), gap=seq(0.02,0.08,by=0.02), gip=c(0.23,0.60,0.86,2.09), gat=c(0.0107,0.989,0.337,0.

我想重塑数据库中的一些行。特别是我有一些它为Id列复制的行。我想在列中转换此行。我提供了一个代码,它代表了我的数据库的一个示例。 我正在尝试使用t()和重塑,但我不会这么做。谁能给我一些建议吗

test<-data.frame(Id=c(1,1,2,3),
    St=c(20,80,80,20),
    gap=seq(0.02,0.08,by=0.02),
    gip=c(0.23,0.60,0.86,2.09),
    gat=c(0.0107,0.989,0.337,0.663))
测试
它有助于提供预期的输出。这是你所期望的吗


它有助于提供预期的输出。这是您期望的吗?

您能告诉我们您期望的输出是什么样子吗?是的!我希望最终的数据库每行有一个Id。一个包含9个不同列的最终数据帧,类似于:Id、St、gap、gip、gat、st2gap2、gip2、gat2。带2的值是主体数据库第二行的参考值。@matte85您应该编辑您的问题并在其中添加预期的输出,这样人们会更容易帮助您。您能告诉我们您预期的输出是什么样子吗?是的!我希望最终的数据库每行有一个Id。一个包含9个不同列的最终数据帧,类似于:Id、St、gap、gip、gat、st2gap2、gip2、gat2。带2的值是主体数据库第二行的参考值。@matte85您应该编辑您的问题并在其中添加预期的输出,这样人们会更容易帮助您。当然!我想问另一个问题。如果我想维护Id ad行,并因此转置其他变量?如何修改代码?是否有可能对st列使用整数?为此,应重新排序列。有多种方法可以做到这一点:
test%dplyr::select(St、Id、gap、gip、gat)
。这里不能有整数:原因是变量类型总是引用列。列只能是整数、数字或字符串,但不能是混合。否则,值总是被强制的。如果一个值是一个字符串,那么整个列将是一个字符串,依此类推。最后一个问题(严肃地)出现在我的脑海里,是关于手术的结果。如果我想用双id转置行并将其带到列中,其他列保持原样,我应该如何做?请为此主题打开一个新问题。我们很乐意提供帮助,但一篇帖子不应包含多个问题和答案:)当然!我想问另一个问题。如果我想维护Id ad行,并因此转置其他变量?如何修改代码?是否有可能对st列使用整数?为此,应重新排序列。有多种方法可以做到这一点:
test%dplyr::select(St、Id、gap、gip、gat)
。这里不能有整数:原因是变量类型总是引用列。列只能是整数、数字或字符串,但不能是混合。否则,值总是被强制的。如果一个值是一个字符串,那么整个列将是一个字符串,依此类推。最后一个问题(严肃地)出现在我的脑海里,是关于手术的结果。如果我想用双id转置行并将其带到列中,其他列保持原样,我应该如何做?请为此主题打开一个新问题。我们很乐意提供帮助,但一篇帖子不应包含多个问题和答案:)
setNames(data.frame(t(test))[2:nrow(data.frame(t(test))),], test$Id)

          1      1      2      3
St  20.0000 80.000 80.000 20.000
gap  0.0200  0.040  0.060  0.080
gip  0.2300  0.600  0.860  2.090
gat  0.0107  0.989  0.337  0.663