r - 转换复杂的数据框-6ren

r - 转换复杂的数据框

转载作者：行者123 更新时间：2023-12-04 13:03:03

我有一个数据框，它的第一列( weights )包含一个列表(数据框？):

> head(data$weights)

> data <- structure(list(A373R11 = structure(list(Signature.1A = 0, Signature.1B = 0, 
    Signature.2 = 0, Signature.3 = 0.151631702143023, Signature.4 = 0.149799882118262, 
    Signature.5 = 0, Signature.6 = 0, Signature.7 = 0.0634912587993959, 
    Signature.8 = 0, Signature.9 = 0.173189155080817, Signature.10 = 0, 
    Signature.11 = 0, Signature.12 = 0, Signature.13 = 0, Signature.14 = 0, 
    Signature.15 = 0, Signature.16 = 0, Signature.17 = 0, Signature.18 = 0, 
    Signature.19 = 0, Signature.20 = 0, Signature.21 = 0.0905517653558877, 
    Signature.R1 = 0, Signature.R2 = 0, Signature.R3 = 0, Signature.U1 = 0.155590748898003, 
    Signature.U2 = 0.145955461287919), .Names = c("Signature.1A", 
"Signature.1B", "Signature.2", "Signature.3", "Signature.4", 
"Signature.5", "Signature.6", "Signature.7", "Signature.8", "Signature.9", 
"Signature.10", "Signature.11", "Signature.12", "Signature.13", 
"Signature.14", "Signature.15", "Signature.16", "Signature.17", 
"Signature.18", "Signature.19", "Signature.20", "Signature.21", 
"Signature.R1", "Signature.R2", "Signature.R3", "Signature.U1", 
"Signature.U2"), row.names = "A373R11", class = "data.frame"), 
    A373R13 = structure(list(Signature.1A = 0, Signature.1B = 0, 
        Signature.2 = 0, Signature.3 = 0.221014874027829, Signature.4 = 0, 
        Signature.5 = 0, Signature.6 = 0, Signature.7 = 0, Signature.8 = 0.279252211893692, 
        Signature.9 = 0, Signature.10 = 0, Signature.11 = 0, 
        Signature.12 = 0, Signature.13 = 0, Signature.14 = 0, 
        Signature.15 = 0, Signature.16 = 0, Signature.17 = 0, 
        Signature.18 = 0, Signature.19 = 0.115216422668955, Signature.20 = 0, 
        Signature.21 = 0, Signature.R1 = 0, Signature.R2 = 0, 
        Signature.R3 = 0.0636987713225648, Signature.U1 = 0.108875099907467, 
        Signature.U2 = 0), .Names = c("Signature.1A", "Signature.1B", 
    "Signature.2", "Signature.3", "Signature.4", "Signature.5", 
    "Signature.6", "Signature.7", "Signature.8", "Signature.9", 
    "Signature.10", "Signature.11", "Signature.12", "Signature.13", 
    "Signature.14", "Signature.15", "Signature.16", "Signature.17", 
    "Signature.18", "Signature.19", "Signature.20", "Signature.21", 
    "Signature.R1", "Signature.R2", "Signature.R3", "Signature.U1", 
    "Signature.U2"), row.names = "A373R13", class = "data.frame"), 
    A373R3 = structure(list(Signature.1A = 0, Signature.1B = 0, 
        Signature.2 = 0, Signature.3 = 0.0795605471131758, Signature.4 = 0.0973130562439999, 
        Signature.5 = 0, Signature.6 = 0, Signature.7 = 0, Signature.8 = 0.249674548796242, 
        Signature.9 = 0.0725013504411567, Signature.10 = 0, Signature.11 = 0.064665155855146, 
        Signature.12 = 0, Signature.13 = 0, Signature.14 = 0, 
        Signature.15 = 0, Signature.16 = 0, Signature.17 = 0, 
        Signature.18 = 0, Signature.19 = 0, Signature.20 = 0, 
        Signature.21 = 0, Signature.R1 = 0, Signature.R2 = 0, 
        Signature.R3 = 0.0703546703126821, Signature.U1 = 0.21753544296676, 
        Signature.U2 = 0.0739201832004727), .Names = c("Signature.1A", 
    "Signature.1B", "Signature.2", "Signature.3", "Signature.4", 
    "Signature.5", "Signature.6", "Signature.7", "Signature.8", 
    "Signature.9", "Signature.10", "Signature.11", "Signature.12", 
    "Signature.13", "Signature.14", "Signature.15", "Signature.16", 
    "Signature.17", "Signature.18", "Signature.19", "Signature.20", 
    "Signature.21", "Signature.R1", "Signature.R2", "Signature.R3", 
    "Signature.U1", "Signature.U2"), row.names = "A373R3", class = "data.frame"), 
    A373R5 = structure(list(Signature.1A = 0, Signature.1B = 0, 
        Signature.2 = 0, Signature.3 = 0.113996509522102, Signature.4 = 0.114874220936966, 
        Signature.5 = 0.142056872670519, Signature.6 = 0, Signature.7 = 0, 
        Signature.8 = 0.208376707959741, Signature.9 = 0.0744527503782136, 
        Signature.10 = 0, Signature.11 = 0, Signature.12 = 0, 
        Signature.13 = 0, Signature.14 = 0, Signature.15 = 0.0771902641012979, 
        Signature.16 = 0, Signature.17 = 0, Signature.18 = 0, 
        Signature.19 = 0, Signature.20 = 0, Signature.21 = 0, 
        Signature.R1 = 0, Signature.R2 = 0, Signature.R3 = 0, 
        Signature.U1 = 0.0673567355607731, Signature.U2 = 0), .Names = c("Signature.1A", 
    "Signature.1B", "Signature.2", "Signature.3", "Signature.4", 
    "Signature.5", "Signature.6", "Signature.7", "Signature.8", 
    "Signature.9", "Signature.10", "Signature.11", "Signature.12", 
    "Signature.13", "Signature.14", "Signature.15", "Signature.16", 
    "Signature.17", "Signature.18", "Signature.19", "Signature.20", 
    "Signature.21", "Signature.R1", "Signature.R2", "Signature.R3", 
    "Signature.U1", "Signature.U2"), row.names = "A373R5", class = "data.frame"), 
    A373R9 = structure(list(Signature.1A = 0, Signature.1B = 0, 
        Signature.2 = 0, Signature.3 = 0.116847300193985, Signature.4 = 0, 
        Signature.5 = 0.21624751052703, Signature.6 = 0, Signature.7 = 0, 
        Signature.8 = 0.252498230882402, Signature.9 = 0, Signature.10 = 0, 
        Signature.11 = 0.119495912880994, Signature.12 = 0, Signature.13 = 0, 
        Signature.14 = 0, Signature.15 = 0, Signature.16 = 0, 
        Signature.17 = 0, Signature.18 = 0, Signature.19 = 0, 
        Signature.20 = 0, Signature.21 = 0, Signature.R1 = 0, 
        Signature.R2 = 0, Signature.R3 = 0.0725549911220892, 
        Signature.U1 = 0, Signature.U2 = 0), .Names = c("Signature.1A", 
    "Signature.1B", "Signature.2", "Signature.3", "Signature.4", 
    "Signature.5", "Signature.6", "Signature.7", "Signature.8", 
    "Signature.9", "Signature.10", "Signature.11", "Signature.12", 
    "Signature.13", "Signature.14", "Signature.15", "Signature.16", 
    "Signature.17", "Signature.18", "Signature.19", "Signature.20", 
    "Signature.21", "Signature.R1", "Signature.R2", "Signature.R3", 
    "Signature.U1", "Signature.U2"), row.names = "A373R9", class = "data.frame"), 
    A512R19 = structure(list(Signature.1A = 0.109490572493859, 
        Signature.1B = 0, Signature.2 = 0, Signature.3 = 0, Signature.4 = 0.22010156823306, 
        Signature.5 = 0, Signature.6 = 0, Signature.7 = 0, Signature.8 = 0, 
        Signature.9 = 0, Signature.10 = 0, Signature.11 = 0, 
        Signature.12 = 0, Signature.13 = 0, Signature.14 = 0, 
        Signature.15 = 0, Signature.16 = 0, Signature.17 = 0, 
        Signature.18 = 0, Signature.19 = 0, Signature.20 = 0, 
        Signature.21 = 0, Signature.R1 = 0, Signature.R2 = 0, 
        Signature.R3 = 0.150943894106973, Signature.U1 = 0.248556502648564, 
        Signature.U2 = 0.119306892617062), .Names = c("Signature.1A", 
    "Signature.1B", "Signature.2", "Signature.3", "Signature.4", 
    "Signature.5", "Signature.6", "Signature.7", "Signature.8", 
    "Signature.9", "Signature.10", "Signature.11", "Signature.12", 
    "Signature.13", "Signature.14", "Signature.15", "Signature.16", 
    "Signature.17", "Signature.18", "Signature.19", "Signature.20", 
    "Signature.21", "Signature.R1", "Signature.R2", "Signature.R3", 
    "Signature.U1", "Signature.U2"), row.names = "A512R19", class = "data.frame")), .Names = c("A373R11", 
"A373R13", "A373R3", "A373R5", "A373R9", "A512R19"))

这里，每一行包含一个样本，每一列包含一个特定签名的分数:

> data[1]

$A373R11
        Signature.1A Signature.1B Signature.2 Signature.3 Signature.4 Signature.5 Signature.6 Signature.7 Signature.8 Signature.9 Signature.10 Signature.11
A373R11            0            0           0   0.1516317   0.1497999           0           0  0.06349126           0   0.1731892            0            0
        Signature.12 Signature.13 Signature.14 Signature.15 Signature.16 Signature.17 Signature.18 Signature.19 Signature.20 Signature.21 Signature.R1 Signature.R2
A373R11            0            0            0            0            0            0            0            0            0   0.09055177            0            0
        Signature.R3 Signature.U1 Signature.U2
A373R11            0    0.1555907    0.1459555

我想将其传输到具有以下结构的数据帧中:

sample  signature  score
A373R11  Signature.1A  0
A373R11  Signature.1B  0
[...]
A373R13  Signature.1A  0
A373R13  Signature.1B  0
[...]

任何人都可以指出我正确的方向吗？

最佳答案

两种做法:

1) 使用 data.table-package

使用:

library(data.table)
melt(rbindlist(data, idcol = 'sample'),
     id = 'sample', variable.name = 'signature', value.name = 'score')

给出:

      sample    signature      score
  1: A373R11 Signature.1A 0.00000000
  2: A373R13 Signature.1A 0.00000000
  3:  A373R3 Signature.1A 0.00000000
  4:  A373R5 Signature.1A 0.00000000
  5:  A373R9 Signature.1A 0.00000000
 ---                                
158: A373R13 Signature.U2 0.00000000
159:  A373R3 Signature.U2 0.07392018
160:  A373R5 Signature.U2 0.00000000
161:  A373R9 Signature.U2 0.00000000
162: A512R19 Signature.U2 0.11930689

2) 带基数 R

使用:

dat2 <- do.call(rbind, dat)
reshape(dat2, idvar = 'sample', ids = row.names(dat2),
        varying = list(1:ncol(dat2)), times = colnames(dat2),
        timevar = 'signature', v.names = 'score',
        new.row.names = NULL, direction = 'long')

给出:

                        signature      score  sample
A373R11.Signature.1A Signature.1A 0.00000000 A373R11
A373R13.Signature.1A Signature.1A 0.00000000 A373R13
A373R3.Signature.1A  Signature.1A 0.00000000  A373R3
A373R5.Signature.1A  Signature.1A 0.00000000  A373R5
A373R9.Signature.1A  Signature.1A 0.00000000  A373R9

.....

A373R13.Signature.U2 Signature.U2 0.00000000 A373R13
A373R3.Signature.U2  Signature.U2 0.07392018  A373R3
A373R5.Signature.U2  Signature.U2 0.00000000  A373R5
A373R9.Signature.U2  Signature.U2 0.00000000  A373R9
A512R19.Signature.U2 Signature.U2 0.11930689 A512R19

笔记:

最好不要为您的数据提供与函数相同的名称。见 ?data .

关于r - 转换复杂的数据框，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/45760869/

文章推荐： typescript - 为第三方库创建 typescript .d.ts

android -/数据/数据/在哪里？
初学者 android 问题。好的，我已经成功写入文件。例如。 //获取文件名 String filename = getResources().getString(R.string.filename
安卓/数据/数据/mypackage/img
我已经将相同的图像保存到/data/data/mypackage/img/中，现在我想显示这个全屏，我曾尝试使用 ACTION_VIEW 来显示 android 标准程序，但它不是从/data/dat
ios - Swift 4:无法将“数据”类型的值转换为预期的参数类型“数据”
我正在使用Xcode 9，Swift 4。我正在尝试使用以下代码从URL在ImageView中显示图像: func getImageFromUrl(sourceUrl: String) -> UII
android - 基因运动。如何从设备中提取数据库。我的/数据/数据/文件夹似乎是空的
我的 Ubuntu 安装 genymotion 有问题。主要是我无法调试我的数据库，因为通过 eclipse 中的 DBMS 和 shell 中的 adb 我无法查看/data/文件夹的内容。没有显示
php - JSON 数据 ajax 不是正确的 POST 数据
我正在尝试用 PHP 发布一些 JSON 数据。但是出了点问题。这是我的 html -- {% for x in sets %}
r - lm(数据~时间)和tslm(数据~趋势)有什么区别
我观察到两种方法的结果不同。为什么是这样？我知道 lm 上发生了什么，但无法弄清楚 tslm 上发生了什么。 > library(forecast) > set.seed(2) > tts lm(t
Spring 数据 JPA 和 Spring 数据 Elasticsearch ；找不到类型的属性索引？
我不确定为什么会这样!我有一个由 spring data elasticsearch 和 spring data jpa 使用的类，但是当我尝试运行我的应用程序时出现错误。 Error creatin
d3.js - 数据过滤器适用于 json 数据，但不适用于 csv 数据
在 this vega 图表，如果我下载并转换 flare-dependencies.json使用以下 jq 到 csv命令， jq -r '(map(keys) | add | unique) as
php - 在 .php 文件中发送 mysql 数据/mysql 数据
我正在提交一个项目，我必须在其中创建一个带有表的 mysql 数据库。一切都在我这边进行，所以我只想检查如何将我所有的压缩文件发送给使用不同计算机的人。基本上，我如何为另一台计算机创建我的数据库文件，
android - 如何使用 Android Device Monitor 的文件资源管理器查找我的应用程序/数据/数据
我有一个应用程序可以将文本文件写入内部存储。我想仔细看看我的电脑。我运行了 Toast.makeText 来显示路径，它说:/数据/数据/我的包但是当我转到 Android Studio 的 An
android - 如何从 Genymotion 的 android 模拟器访问文件/数据/数据？
我喜欢使用 Genymotion 模拟器以如此出色的速度加载 Android。它有非常好的速度，但仍然有一些不稳定的性能。如何从 Eclipse 中的文件资源管理器访问 Genymotion 模拟器
silverlight - 如果我在 setter 中使用不同的值更改绑定(bind)数据，如何刷新绑定(bind)数据
我需要更改 Silverlight 中文本框的格式。数据通过 MVVM 绑定(bind)。例如，有一个 int 属性，我将 1 添加到 setter 中的值并调用 OnPropertyChanged
youtube - 通过 YouTube 数据 API 访问公共(public)数据，无需身份验证。
我想向 Youtube Data API 提出请求，但我不需要访问任何用户信息。我只想浏览公共(public)视频并根据搜索词显示视频。我可以在未经授权的情况下这样做吗？最佳答案 YouTube
python - 无法让 twilio 显示 'from' 数据，但它会显示 'to' 数据
我已经设置了一个 Twilio 应用程序，我想向人们发送更新，但我不想回复单个文本。我只是想让他们在有问题时打电话。我一切正常，但我想在发送文本时显示传入文本，以确保我不会错过任何问题。我正在使用 p
javascript - 向客户端发送 JSON 数据？ D3.js 渲染 JSON 数据
我有一个带有表单的网站(目前它是纯 HTML，但我们正在切换到 JQuery)。流程是这样的: 接受用户的输入 --- 5 个整数通过 REST 调用网络服务在服务器端运行一些计算...并生成一个
javascript - 如何检测一个 JavaScript 文件只包含 JSON 数据，还是打算包含 JSON 数据？
假设我们有一个名为 configuration.js 的文件，当我们查看内部时，我们会看到: 'use strict'; var profile = { "project": "%Projec
javascript - 在初始 .ajax 调用之外使用 JSON 数据 - 访问剩余的 JSON 数据
这部分是对 Previous Question 的扩展我的: 我现在可以从我的 CI Controller 成功返回 JSON 数据，它返回: {"results":[{"id":"1","Sourc
ios - 删除所有 Couchbase 数据/文档 ios(或删除所有 ios 数据？)
有什么有效的方法可以删除 ios 中 CBL 的所有文档存储？我对此有疑问，或者，如果有人知道如何从本质上使该应用程序像刚刚安装一样，那也会非常有帮助。我们正在努力确保我们的注销实际上将应用程序设置为
javascript - $.post(url, 函数(数据,状态) {警报(数据)});警报()不工作
我有一个 Rails 应用程序，它与其他 Rails 应用程序通信以进行数据插入。我使用 jQuery $.post 方法进行数据插入。对于插入，我的其他 Rails 应用程序显示 200 OK。但在
javascript - 断言错误 : expected { status: 'SUCCESS' , 数据 : [] } to equal { Object (status, 数据)}
我正在为服务于发布请求的 API 调用运行单元测试。我正在传递请求正文，并且必须将响应作为帐户数据返回。但我只收到断言错误注意:数据是从 Azure 中获取的 spec.js const accou

行者123

个人简介

我是一名优秀的程序员,十分优秀！

作者热门文章

滴滴打车优惠券免费领取

全站热门文章

首页

博学

6Ren·AI

商城

r - 转换复杂的数据框