重新排列 R 中的数据，分解列名称-6ren

重新排列 R 中的数据，分解列名称

转载作者：行者123 更新时间：2023-12-01 19:40:28

27

4

我得到了一张表格，我需要将其转换为其他两种形式。谁能帮我找到一种系统的 R 方式来转换它，而无需一堆嵌套的 for 循环？

这是该表的简化版本:

Status <- rep(c(paste0("B",seq(1,4)),"Total"),3)
FID <- c(rep("N123",10),rep("K541",5))
IID <- c(rep(123,5),rep(456,5),rep(789,5))

Value1.G1 <- c(rep(c(888,345,765,875,875,323),2),8039,830,849)
Value2.G1 <- c(rep(c(443,325,761),4),649,975,323)
Value1.G2 <- rep(c(446,345,765,875,323),3)
Value2.G2 <- c(rep(c(540,345,765),4),169,875,431)

dat <-data.frame(FID,IID,Status,Value1.G1,Value2.G1,Value1.G2,Value2.G2)
print(dat)
    FID IID Status Value1.G1 Value2.G1 Value1.G2 Value2.G2
1  N123 123     B1       888       443       446       540
2  N123 123     B2       345       325       345       345
3  N123 123     B3       765       761       765       765
4  N123 123     B4       875       443       875       540
5  N123 123  Total       875       325       323       345
6  N123 456     B1       323       761       446       765
7  N123 456     B2       888       443       345       540
8  N123 456     B3       345       325       765       345
9  N123 456     B4       765       761       875       765
10 N123 456  Total       875       443       323       540
11 K541 789     B1       875       325       446       345
12 K541 789     B2       323       761       345       765
13 K541 789     B3      8039       649       765       169
14 K541 789     B4       830       975       875       875
15 K541 789  Total       849       323       323       431

简而言之，除了前三列之外，每个单元格中的数字是特定凝胶( Value1 和 Value2 )上特定 sample ( 123 、 456 和 789 )的特定值(在本例中为 1 或 2 ) )，处于特定状态( B1 、 B2 、 B3 、 B4 和 Total )。前三列( FID 、 IID 、 Status )列出有关示例( FID 、 IID )和状态( Status )的信息。

第一种形式

我需要创建的第一个表单将标题分解为其组成部分。 (澄清一点:“Gel”列是指列名称中“G”后面的前一个数值。)

    FID IID Status Value1 Value2 Gel
1  N123 123     B1    888    443   1
2  N123 456     B1    323    761   1
3  K541 789     B1    875    325   1
4  N123 123     B1    446    540   2
5  N123 456     B1    446    765   2
6  K541 789     B1    446    345   2
7  N123 123     B2    345    325   1
8  N123 456     B2    888    443   1
9  K541 789     B2    323    761   1
10 N123 123     B2    345    345   2
11 N123 456     B2    345    540   2
12 K541 789     B2    345    765   2
13 N123 123     B3    765    761   1
14 N123 456     B3    345    325   1
15 K541 789     B3   8039    649   1
16 N123 123     B3    765    765   2
17 N123 456     B3    765    345   2
18 K541 789     B3    765    169   2
19 N123 123     B4    875    443   1
20 N123 456     B4    765    761   1
21 K541 789     B4    830    975   1
22 N123 123     B4    875    540   2
23 N123 456     B4    875    765   2
24 K541 789     B4    875    875   2
25 N123 123  Total    875    325   1
26 N123 456  Total    875    443   1
27 K541 789  Total    849    323   1
28 N123 123  Total    323    345   2
29 N123 456  Total    323    540   2
30 K541 789  Total    323    431   2

第二种形式

我需要创建的第二种形式要求每个唯一的个体 id ( IID ) 都有一行包含其所有值信息。在这种情况下，列名称指示有关该值及其特定条件的所有信息(即哪个值、哪个凝胶和哪个状态)。对于此示例数据，这意味着有 3 行和 22 列。

   FID IID Value1.G1.B1 Value2.G1.B1 Value1.G2.B1 Value2.G2.B1 Value1.G1.B2 Value2.G1.B2 Value1.G2.B2
1 N123 123          888          443          446          540          345          325          345
2 N123 456          323          761          446          765          888          443          345
3 K541 789          875          325          446          345          323          761          345
  Value2.G2.B2 Value1.G1.B3 Value2.G1.B3 Value1.G2.B3 Value2.G2.B3 Value1.G1.B4 Value2.G1.B4 Value1.G2.B4
1          345          765          761          765          765          875          443          875
2          540          345          325          765          345          765          761          875
3          765         8039          649          765          169          830          975          875
  Value2.G2.B4 Value1.G1.Total Value2.G1.Total Value1.G2.Total Value2.G2.Total
1          540             875             325             323             345
2          765             875             443             323             540
3          875             849             323             323             431

最佳答案

使用？ reshape

Status <- rep(c(paste0("B",seq(1,4)),"Total"),3)
FID <- c(rep("N123",10),rep("K541",5))
IID <- c(rep(123,5),rep(456,5),rep(789,5))

Value1.G1 <- c(rep(c(888,345,765,875,875,323),2),8039,830,849)
Value2.G1 <- c(rep(c(443,325,761),4),649,975,323)
Value1.G2 <- rep(c(446,345,765,875,323),3)
Value2.G2 <- c(rep(c(540,345,765),4),169,875,431)

dat <-data.frame(FID,IID,Status,Value1.G1,Value2.G1,Value1.G2,Value2.G2)
dat

对于长格式

l <- reshape(dat, direction = 'long', varying = list(c(4,6), c(5,7)),
             v.names = c('Value1', 'Value2'), timevar = 'Gel')
l[order(l$Status), ]

#       FID IID Status Gel Value1 Value2 id
# 1.1  N123 123     B1   1    888    443  1
# 6.1  N123 456     B1   1    323    761  6
# 11.1 K541 789     B1   1    875    325 11
# 1.2  N123 123     B1   2    446    540  1
# 6.2  N123 456     B1   2    446    765  6
# 11.2 K541 789     B1   2    446    345 11
# 2.1  N123 123     B2   1    345    325  2
# 7.1  N123 456     B2   1    888    443  7
# 12.1 K541 789     B2   1    323    761 12
# 2.2  N123 123     B2   2    345    345  2
# 7.2  N123 456     B2   2    345    540  7
# 12.2 K541 789     B2   2    345    765 12
# 3.1  N123 123     B3   1    765    761  3
# 8.1  N123 456     B3   1    345    325  8
# 13.1 K541 789     B3   1   8039    649 13
# 3.2  N123 123     B3   2    765    765  3
# 8.2  N123 456     B3   2    765    345  8
# 13.2 K541 789     B3   2    765    169 13
# 4.1  N123 123     B4   1    875    443  4
# 9.1  N123 456     B4   1    765    761  9
# 14.1 K541 789     B4   1    830    975 14
# 4.2  N123 123     B4   2    875    540  4
# 9.2  N123 456     B4   2    875    765  9
# 14.2 K541 789     B4   2    875    875 14
# 5.1  N123 123  Total   1    875    325  5
# 10.1 N123 456  Total   1    875    443 10
# 15.1 K541 789  Total   1    849    323 15
# 5.2  N123 123  Total   2    323    345  5
# 10.2 N123 456  Total   2    323    540 10
# 15.2 K541 789  Total   2    323    431 15

和宽

reshape(dat, direction = 'wide', timevar = 'Status', idvar = names(dat)[1:2])

#     FID IID Value1.G1.B1 Value2.G1.B1 Value1.G2.B1 Value2.G2.B1 Value1.G1.B2
# 1  N123 123          888          443          446          540          345
# 6  N123 456          323          761          446          765          888
# 11 K541 789          875          325          446          345          323
#    Value2.G1.B2 Value1.G2.B2 Value2.G2.B2 Value1.G1.B3 Value2.G1.B3 Value1.G2.B3
# 1           325          345          345          765          761          765
# 6           443          345          540          345          325          765
# 11          761          345          765         8039          649          765
#    Value2.G2.B3 Value1.G1.B4 Value2.G1.B4 Value1.G2.B4 Value2.G2.B4 Value1.G1.Total
# 1           765          875          443          875          540             875
# 6           345          765          761          875          765             875
# 11          169          830          975          875          875             849
#    Value2.G1.Total Value1.G2.Total Value2.G2.Total
# 1              325             323             345
# 6              443             323             540
# 11             323             323             431

关于重新排列 R 中的数据，分解列名称，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/29437274/

27

4

0

文章推荐： SQL Server 2005 ROW_NUMBER() 不带 ORDER BY

文章推荐： ios - Unity iOS背景音频静音

F# 排列
我需要在给定的列表上生成排列。我设法这样做 let rec Permute (final, arr) = if List.length arr > 0 then for x i
Java 排列
我正在尝试运行我的代码，以便它打印循环排列，尽管我目前只能让它执行第一个排列。它正确运行到我标记的点，但我看不出出了什么问题。我认为 while 循环中没有中断，但我不确定。确实需要一些帮助。 pac
JavaScript 排列
我正在尝试计算不包含连续字母的排列数。我的代码通过了像“aabb”(答案:8)和“aab”(答案:2)这样的测试，但没有通过像“abcdefa”这样的情况(我的答案:2520；正确答案:3600)。这
【排列】（笛卡尔树上dp？）
比赛在这 B.排列前言：笛卡尔树上 dp？这名字很妙啊，但其实不需要笛卡尔树，只不过利用了笛卡尔树的定义一个性质：我们设一个区间 \([l,r]\) 中的最大值的位置为 \(pos\)，
r - 使用条件对字符列进行排序/排列
我正在尝试使用 dplyr 的 arrange 根据条件对字符串进行排序。我想在一列上排列，但如果第二列等于一个值，则按升序排列，如果第二列等于另一个值，则按降序排列。我发现了几个类似的问题(其中一
r - 排列()不识别列名参数
在 R 中，我使用 dplyr更具体地说 arrange() . 不知何故 arrange功能没有按预期工作。在下面的示例中，我首先存储列的名称，然后将此变量作为参数传递给名为“my_functio
qml - GridLayout 排列
以下是我的 main.qml : Window { id: window visible: true width: 800 height: 480 title:
javascript - 找到两个数组的可用组合(排列？)
很难用谷歌搜索这个问题，因为我不确定这些概念叫什么，并且所有“两个数组/组的组合”SO 帖子都没有给我我期望的输出。数组示例: var array1 = ['Bob', 'Tina']; var a
使用两个列表的 Scala 排列
实现以下目标的最佳方法是什么？我有两个列表: val l1 = List("a", "b") val l2 = List(1, 2) 我想生成这个: List ( List(('a', 1)
使用递归的 JavaScript 排列
我知道互联网上有很多针对我的具体问题的解决方案，但我一直在尝试以特定的方式解决它，但它不起作用，我真的无法理解出了什么问题。就我而言，我只想打印排列。这是我的代码: a = "abc"; functi
具有输出列表长度的 Haskell 排列
我有这样的代码来创建排列: --unique permutation perm :: [t] -> [[t]] perm [] = [[]] perm (x:xs) = [(y:zs) | (y,ys
math - 如何高效找到nPr(排列)？
有没有比使用基本公式 n!/(n-r)! 更好的方法？就像我们对 nCr(组合) nCr = (n-l)Cr + (n-1)C(r-1) 一样？最佳答案这样怎么样:nPr = (n−1)Pr +
r - 来自不同集合的混合组合/排列
此问答的动机是 How to build permutation with some conditions in R . 到目前为止，已经有一些很好的 R 软件包，例如 RcppAlgos 和 arr
Erlang 列表理解、排列
我正在修改一本书中的排列示例。以下代码按预期工作。 perms([]) -> [[]]; perms(L) -> [[H|T] || H []; 它返回一个空列表。当我替换时，我得到了这个。
Java 排列 2
大约一周前，我问了一个关于帮助我解决这个问题的问题 Java permutations ，打印排列方法有问题。我已经整理了我的代码，并有一个现在可以工作的工作示例，尽管如果 5 位于数组中的第五个位置
python - 如何计算具有重复元素的列表的排列(排列)
我有一个包含重复元素的列表，即orig = [1,1,1,2,2,3]。我想创建一个derangement b = f(orig)，使得 b 中的每个位置值都与 orig 中的值不同: b[i] !
具有最少随机数的 Java 排列
我想生成一个 array a 的排列而且我不想使用实用功能，例如 java.util.Collections() . 排列应该是随机的，并且每个排列都应该有可能发生 - 但不需要均等分布的概率。以下
java - 排列、递归
我有一个作业:用户输入一个字符串，例如 ABCD，程序必须给出所有排列。我不希望整个代码只是一个提示。这是我到目前为止在他们那里得到的，我没有得到任何实现。以ABCD为例: 在本例中获取字符串长度的
Python Itertools 排列
我目前正在编写一个使用 itertools 的程序，其中的一部分似乎无法正常运行。我希望确定排列函数输出列表长度的输入等于它生成输出的列表长度。换句话说，我有 import itertools b =
python - Itertools 排列
我有一个列表 x=[1,2,3,4,5] 并且想查看这个列表的不同排列，一次取两个数字。 x=[1,2,3,4,5] from itertools import permutations y=list

首页

博学

6Ren·AI

商城