rapply 到 R 中的嵌套列表

2023-12-15

我无法对嵌套列表进行说唱。以下是列表中一个元素的示例结构：

$ F01    :List of 7
  ..$ 0:'data.frame':   16 obs. of  3 variables:
  .. ..$ lengths: Factor w/ 8 levels "1","2","4","5",..: 1 2 3 4 5 6 7 8 1 2 ...
  .. ..$ values : Factor w/ 2 levels "C","N": 1 1 1 1 1 1 1 1 2 2 ...
  .. ..$ Freq   : int [1:16] 1 2 0 1 1 1 1 0 1 3 ...
  ..$ 1:'data.frame':   20 obs. of  3 variables:
  .. ..$ lengths: Factor w/ 10 levels "1","2","3","4",..: 1 2 3 4 5 6 7 8 9 10 ...
  .. ..$ values : Factor w/ 2 levels "C","N": 1 1 1 1 1 1 1 1 1 1 ...
  .. ..$ Freq   : int [1:20] 0 1 1 1 1 0 1 0 1 1 ...

我可以轻松地将函数应用于列表的一个元素lapply: 说F01

 lapply(data$F01,function(x) x[which(x[['values']]=="C"),])

然后我想到将它应用到整个嵌套列表rapply :

rapply(data,function(x) x[which(x[['values']]=="C"),],how="list")
Error in `[[.default`(x, "values") : subscript out of bounds

我不明白为什么会出现这个 rapply 错误，因为 rapply 应该递归地应用于非列表元素，在本例中是 data.frame。有什么明显的东西我不明白吗？

这是主列表的两个完整元素的示例：

samp <- list(structure(list(`0` = structure(list(lengths = structure(c(1L, 
    2L, 3L, 4L, 5L, 6L, 1L, 2L, 3L, 4L, 5L, 6L), .Label = c("1", 
    "2", "7", "8", "13", "18"), class = "factor"), values = structure(c(1L, 
    1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("C", 
    "N"), class = "factor"), Freq = c(0L, 1L, 1L, 1L, 1L, 0L, 2L, 
    0L, 0L, 0L, 0L, 1L)), .Names = c("lengths", "values", "Freq"), row.names = c(NA, 
    -12L), class = "data.frame"), `1` = structure(list(lengths = structure(c(1L, 
    2L, 3L, 4L, 5L, 6L, 1L, 2L, 3L, 4L, 5L, 6L), .Label = c("1", 
    "2", "3", "5", "8", "12"), class = "factor"), values = structure(c(1L, 
    1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("C", 
    "N"), class = "factor"), Freq = c(1L, 1L, 0L, 1L, 1L, 1L, 2L, 
    0L, 1L, 1L, 0L, 0L)), .Names = c("lengths", "values", "Freq"), row.names = c(NA, 
    -12L), class = "data.frame"), `2` = structure(list(lengths = structure(c(1L, 
    2L, 3L, 4L, 5L, 6L, 7L, 1L, 2L, 3L, 4L, 5L, 6L, 7L), .Label = c("1", 
    "3", "4", "6", "9", "19", "20"), class = "factor"), values = structure(c(1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("C", 
    "N"), class = "factor"), Freq = c(1L, 1L, 1L, 1L, 0L, 1L, 0L, 
    0L, 0L, 3L, 0L, 1L, 0L, 2L)), .Names = c("lengths", "values", 
    "Freq"), row.names = c(NA, -14L), class = "data.frame"), `3` = structure(list(
        lengths = structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 1L, 
        2L, 3L, 4L, 5L, 6L, 7L, 8L), .Label = c("1", "2", "3", "4", 
        "5", "8", "11", "18"), class = "factor"), values = structure(c(1L, 
        1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L
        ), .Label = c("C", "N"), class = "factor"), Freq = c(1L, 
        2L, 1L, 1L, 0L, 1L, 1L, 0L, 1L, 2L, 1L, 1L, 1L, 0L, 0L, 1L
        )), .Names = c("lengths", "values", "Freq"), row.names = c(NA, 
    -16L), class = "data.frame"), `4` = structure(list(lengths = structure(c(1L, 
    2L, 3L, 4L, 5L, 6L, 7L, 1L, 2L, 3L, 4L, 5L, 6L, 7L), .Label = c("1", 
    "2", "3", "4", "6", "11", "13"), class = "factor"), values = structure(c(1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("C", 
    "N"), class = "factor"), Freq = c(0L, 2L, 0L, 1L, 1L, 0L, 2L, 
    1L, 2L, 2L, 0L, 0L, 1L, 0L)), .Names = c("lengths", "values", 
    "Freq"), row.names = c(NA, -14L), class = "data.frame"), `5` = structure(list(
        lengths = structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 
        1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L), .Label = c("1", "2", 
        "4", "5", "6", "7", "8", "11", "23"), class = "factor"), 
        values = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
        2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("C", "N"), class = "factor"), 
        Freq = c(0L, 3L, 1L, 2L, 0L, 1L, 0L, 0L, 1L, 3L, 2L, 0L, 
        0L, 1L, 0L, 1L, 1L, 0L)), .Names = c("lengths", "values", 
    "Freq"), row.names = c(NA, -18L), class = "data.frame"), `6` = structure(list(
        lengths = structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 
        10L, 11L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L), .Label = c("1", 
        "2", "3", "4", "5", "6", "9", "12", "13", "21", "36"), class = "factor"), 
        values = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
        1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("C", 
        "N"), class = "factor"), Freq = c(2L, 2L, 3L, 1L, 2L, 1L, 
        2L, 1L, 0L, 0L, 0L, 2L, 3L, 1L, 4L, 0L, 1L, 0L, 0L, 1L, 1L, 
        1L)), .Names = c("lengths", "values", "Freq"), row.names = c(NA, 
    -22L), class = "data.frame")), .Names = c("0", "1", "2", "3", 
    "4", "5", "6")), structure(list(`0` = structure(list(lengths = structure(c(1L, 
    2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c("2", "13", "17", "25"
    ), class = "factor"), values = structure(c(1L, 1L, 1L, 1L, 2L, 
    2L, 2L, 2L), .Label = c("C", "N"), class = "factor"), Freq = c(1L, 
    1L, 0L, 1L, 0L, 0L, 1L, 1L)), .Names = c("lengths", "values", 
    "Freq"), row.names = c(NA, -8L), class = "data.frame"), `1` = structure(list(
        lengths = structure(c(1L, 2L, 3L, 4L, 5L, 6L, 1L, 2L, 3L, 
        4L, 5L, 6L), .Label = c("1", "2", "3", "4", "5", "8"), class = "factor"), 
        values = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 
        2L, 2L, 2L), .Label = c("C", "N"), class = "factor"), Freq = c(0L, 
        0L, 1L, 2L, 2L, 0L, 1L, 1L, 0L, 1L, 1L, 1L)), .Names = c("lengths", 
    "values", "Freq"), row.names = c(NA, -12L), class = "data.frame"), 
        `2` = structure(list(lengths = structure(c(1L, 2L, 3L, 4L, 
        5L, 6L, 7L, 1L, 2L, 3L, 4L, 5L, 6L, 7L), .Label = c("2", 
        "3", "4", "7", "14", "18", "19"), class = "factor"), values = structure(c(1L, 
        1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("C", 
        "N"), class = "factor"), Freq = c(1L, 1L, 2L, 0L, 0L, 0L, 
        0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L)), .Names = c("lengths", "values", 
        "Freq"), row.names = c(NA, -14L), class = "data.frame"), 
        `3` = structure(list(lengths = structure(c(1L, 2L, 3L, 4L, 
        5L, 6L, 7L, 8L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L), .Label = c("2", 
        "3", "5", "8", "9", "10", "19", "76"), class = "factor"), 
            values = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
            2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("C", "N"), class = "factor"), 
            Freq = c(1L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 
            1L, 1L, 0L, 1L, 1L)), .Names = c("lengths", "values", 
        "Freq"), row.names = c(NA, -16L), class = "data.frame"), 
        `4` = structure(list(lengths = structure(c(1L, 2L, 3L, 4L, 
        5L, 6L, 7L, 1L, 2L, 3L, 4L, 5L, 6L, 7L), .Label = c("2", 
        "5", "7", "8", "9", "16", "35"), class = "factor"), values = structure(c(1L, 
        1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("C", 
        "N"), class = "factor"), Freq = c(1L, 1L, 2L, 0L, 1L, 0L, 
        0L, 1L, 0L, 0L, 2L, 0L, 1L, 1L)), .Names = c("lengths", "values", 
        "Freq"), row.names = c(NA, -14L), class = "data.frame"), 
        `5` = structure(list(lengths = structure(c(1L, 2L, 3L, 4L, 
        5L, 6L, 7L, 8L, 9L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L), .Label = c("1", 
        "2", "3", "5", "6", "10", "11", "14", "27"), class = "factor"), 
            values = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
            1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("C", 
            "N"), class = "factor"), Freq = c(2L, 2L, 1L, 1L, 1L, 
            1L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L)), .Names = c("lengths", 
        "values", "Freq"), row.names = c(NA, -18L), class = "data.frame"), 
        `6` = structure(list(lengths = structure(c(1L, 2L, 3L, 4L, 
        5L, 6L, 7L, 8L, 9L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L), .Label = c("1", 
        "2", "3", "4", "5", "6", "11", "21", "51"), class = "factor"), 
            values = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
            1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("C", 
            "N"), class = "factor"), Freq = c(2L, 1L, 2L, 2L, 1L, 
            1L, 0L, 0L, 0L, 3L, 0L, 2L, 0L, 1L, 1L, 1L, 1L, 1L)), .Names = c("lengths", 
        "values", "Freq"), row.names = c(NA, -18L), class = "data.frame")), .Names = c("0", 
    "1", "2", "3", "4", "5", "6")))

我不相信你真的想使用rapply在这里，因为你似乎不想要总递归。也就是说，您并不是试图将函数应用于lengths然后到values, etc.

相反，尝试简单地两个嵌套lapply 's:

 lapply(dat, lapply, function(x) x[which(x[['values']]=="C"),])

本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)

r

lapply

rapply 到 R 中的嵌套列表的相关文章

R数据表：将行值与组值进行比较，有条件

这是问题的延伸 R数据表将行值与组值进行比较 https stackoverflow com questions 33285050 r data table compare row value to group values 我现在有了
使用变量标签作为标题和轴标题时自动化 ggplots

我对 NSE 和绘图函数有点混淆我试图在使用变量标签而不是名称标记轴等的同时自动绘制一些图假设我们有一个大型数据集所有变量都已标记这里的小例子 library tidyverse library sjlabelled libra
如何在 R 中关闭管道连接之前获取输出？

在 R 中我们可以使用以下命令打开管道连接pipe 并写信给它我观察到以下情况我不太明白让我们使用一个python管道例如 z pipe python open w cat x 1 n file z cat print x n fi
导入 mgcv 失败，因为找不到 Rlapack.dll

我想通过使用链接到 IronPython 中的 R 统计包R NET http rdotnet codeplex com 图书馆它一直工作得很好但现在我需要使用 R 的mgcv http cran r project org web p
如何在Shiny中引用ui.R中的反应元素

我正在使用 ShinyDND 包制作一个具有拖放功能的应用程序我想将输入中的列表作为 DragSetUI 的参数传递该函数需要在 ui R 中运行我尝试了renderUI和uiOutput 它几乎可以工作但是拖动的元素无法放置在放置
从 R 文本中提取网站链接

我有多个文本每个文本都可能包含对一个或多个网络链接的引用例如 text1 s 1212a as www abcd com asasa11 我如何提取 www abcd com 来自 R 中的这段文字换句话说我希望提取以www并结束于
根据 B 列中的一系列值获取 A 列的平均值

我的数据框有几列如下所示 df1 lt data frame A c 1 2 4 B c 1 3 1 C c 1 1 3 我有两个条件来获取 A 列的平均值条件1 我想在B为1时获得A列的平均值即只对row1和row2进行平均条件2
如何为每个条形图制作具有定义水平边框的堆叠条形图

我有一些数据想以一种我不知道如何在条形图中显示的方式希望你能帮我解决这个问题我的表由 4 列组成簇 0 6 IgG Status mild high mild low Severe High 患者 1 16 和值每个簇的标准化值这
在 R 中绘制决策树（插入符）

我已经训练了一个数据集rf方法例如 ctrl lt trainControl method LGOCV repeats 3 savePred TRUE verboseIter TRUE preProcOptions list thresh
使用“kde”函数进行 R 中的 5-D 核密度估计

我想通过使用 R 的 ks 库中的 kde 函数来执行 5 维数据 x y z 时间大小的核密度估计在它的手册中它说它可以执行核密度估计1 至 6 维数据手册第 24 页 http cran r project org web p
如何在 R 中使用别名运行系统可执行文件？

假设我正在 R 中运行系统命令来运行executable inputfile lt path myfile txt 我该如何更换 path myfile txt在下面的命令中inputfile如下面命令所示 system executabl
R：从本地 tar.gz 安装 R 软件包时找不到“make”

R 包ConvCalendar不再位于 Cran 存储库中请参阅here https cran r project org web packages ConvCalendar index html 然而因为我在之前的项目中大量使用了这个
使用不同的阈值替换多列中的值

我有一个包含多个列的数据集其中包含我想要转换为二进制的定量数据为此我想使用每列不同的阈值 Example Input antigen1 antigen2 antigen3 antigen4 1 215 421 2 12 2 1524
如何绘制对数似然函数图

我想绘制 pi 和 pi 之间的对数似然函数对数似然函数 llh lt function teta x sum log 1 cos x teta 2 pi x c 3 91 4 85 2 28 4 06 3 70 4 04 5 46 3
使用shinyjs通过javascript在闪亮的应用程序中操作现有的Leaflet地图

我有一个闪亮的应用程序其中包含现有的传单地图我希望能够在渲染后使用自定义 javascript 通过shinyjs包裹一个最小的例子如下 app R packages library dplyr library leaflet lib
使用 by 参数连接 data.table

我有两个数据表dx and dy dx lt data table a c 1 1 1 1 2 2 b 3 8 dy lt data table a c 1 1 2 c 7 9 我要参与dy到每一行dx 下面是所需的输出 data tabl
仅当 ggplot 中 y 轴的下限设置为 0 时才会出现图条[重复]

这个问题在这里已经有答案了我正在尝试创建一个条形图当我将限制设置为 0 7 时就会出现条形但是我希望下限为 1 而不是 0 当我将下限设置为 1 时条形图不会出现我收到以下错误消息 Removed 8 rows contain
从 glmnet 获取变量选择顺序

我一直在使用 glmnet R 包为一个目标变量 Y 数字和 762 个协变量构建 LASSO 回归模型我使用 glmnet 函数然后coef fit s 0 056360 获取该特定 lambda 值的系数值我现在需要的是变量选择
使用 ggplot 绘制函数，相当于 curve()

是否有使用绘制函数的等效方法ggplot to the curve 基础图形中使用的命令我想另一种选择是创建一个函数值向量并绘制一条连接线但我希望有更简单的东西 Thanks 您可以使用以下命令添加曲线stat function ggp
是否有 R 函数可以将这些数据从长形重塑为宽形？

数据现在看起来如何 Coach ID Student score 1 A 8 1 B 3 2 A 5 2 B 4 2 C 7 看起来像这样 Coach ID Student score student 2 score 2 student 3

随机推荐

ASP.NET 会话和删除文件夹

我有一个网络应用程序管理员可以在其中创建新闻 pdf 文档和他的 cms 面板中的其他内容问题是当管理员删除新文件或其他文件时应用程序会删除与该新文件相关的所有文件我指的是图像 pdf 和其他文档主要问题是这些文件存储在新闻
如何从 JSF 数据表内的 selectOneMenu 获取值？

我有一个包含一堆行的 JSF 数据表每行内部都有一个 selectOneMenu 如下所示
跨 PHP、MySQL 等管理日期的最佳方法是什么？

我的服务器在达拉斯我在纽约市 PHP 和 MySQL 都有用于设置时区的配置变量我如何让他们一起工作我应该在 MySQL 中存储哪些日期如何让 PHP 根据用户的偏好来处理日期更改请记住我认为我从未让 PHP 显式设置过日期它
从 ASMX Web 服务返回 JSON，无需 XML 包装器？

我需要从 C Web 服务获取 Json 数据我知道有几个基于此的问题相信我我已经阅读了很多但只是让我更加困惑这就是我所做的在我的网络服务中我包括 System Web Script Services ScriptServic
是否可以为内嵌文本创建框阴影效果？

我想创建这样的效果有没有办法通过 CSS JS 来做到这一点非常感谢我是网页设计的新手在过去的几个小时里我一直在努力解决这个问题下面是一种仅使用 CSS 即可实现文本多行填充突出显示行为的方法这是基于其他地方找到的 box
python 线程 - 迭代 n 个任务时始终有 x 个活动线程

我基本上想做的是 import threading import Queue def test thread elem q q put elem 2 a 1 2 3 4 5 6 7 8 q Queue Queue results for x
我可以在 __new__ 或 __init__ 期间创建类属性吗？

我想做这样的事情但到目前为止我还没有取得多大成功我想让每个 attr 成为一个仅在访问时计算 lazy eval 的属性 class Base object def init self for attr in self myattrs
删除Python字典中的重复值

我在 Stack Overflow 上发现了这个问题从字典中删除重复项另一个问题中的人也有我同样的问题我尝试了他们给他的解决方案但没有一个有效你能帮助我吗这是我的清单然后这是我的代码 def printed filename da
获取 WordPress 中激活插件的列表并从管理菜单中删除插件链接

是否可以在 WordPress 中获取激活插件列表并将其从管理菜单栏中删除我想从管理栏中删除所有激活插件链接找出页面并替换your plugin page 这将列出所有激活的插件 apl get option active plugin
更改子图上的刻度数

如果我有一个子图如何更改其刻度数我不知道数据的最大值和最小值我的代码是 azal rif add subplot 111 azal plot eels 10 9 averspe label data azal plot eels 10
C#：创建单个机器人服务以支持多个机器人应用程序

该代码位于该网站上https www microsoft com reallifecode 2017 01 10 creating a single bot service to support multiple bot applicati
没有为 Rack::Session::Cookie 警告提供秘密选项？

我在 Fedora 17 下运行 Rails 3 2 3 Ruby 1 9 当我运行时我收到此警告rails s 我该如何解决安全警告没有向 Rack Session Cookie 提供秘密选项这构成了安全威胁强烈建议您提供一个
C++ 类中的成员是否保证是连续的？

C 中的类成员是否保证是连续的我尝试使用几乎所有流行的 C 编译器运行以下代码并且all其中的结果是 4 它是变量 y 的相对地址这是巧合还是语言规范保证如此难道编译器不会让成员 x 和 y 与类基本地址连续彼此连续吗请注意t
HTML5 - 拖放 div 和内部图像

我有这种类型的元素 div style margin 20px background red height 400px width 400px a href target blank img style margin 40px src ht
内存错误 Numpy/Python 欧几里得距离

我正在尝试使用 numpy 和 python 运行 K 均值聚类算法但如果我使用较大的 K 值任何大于 10 的值似乎都会导致错误就会不断遇到内存错误我有两个大小为 42000 784 数据集和 K 784 质心的 numpy
动态更改反应模式数据

我有一个父组件 App js和一个子组件 MealModal js 当用户单击特定的餐食卡时它会引发一个模式该模式应显示有关餐食的更多信息因此我尝试找到一种方法来动态更改模态数据具体取决于单击的餐卡我尝试将餐食 ID 传递给on
如何在循环中使用 woocommerce 数据属性

我有一个自定义产品类型和自定义循环用于列出 woocommerce 产品 query args array post type gt product tax query gt array array taxonomy gt product
在 64 位 Windows 10 上安装 OpenSSL for MSVC2017

pro LIBS LC Qt Tools OpenSSL Win x86 lib llibssl LIBS LC Qt Tools OpenSSL Win x86 lib llibcrypto INCLUDEPATH C Qt Tools
在 Windows 上使用 php 和 pear 发送邮件

我正在尝试使用 php 脚本发送电子邮件但收到错误这是我的代码我正在使用 xampp netbeans 和 windows 我在 php ini 文件中包含了 pear 但仍然有错误任何想法 require once Mail php
rapply 到 R 中的嵌套列表

我无法对嵌套列表进行说唱以下是列表中一个元素的示例结构 F01 List of 7 0 data frame 16 obs of 3 variables lengths Factor w 8 levels 1 2 4 5 1 2 3 4

rapply 到 R 中的嵌套列表

rapply 到 R 中的嵌套列表 的相关文章

随机推荐

热门标签

rapply 到 R 中的嵌套列表的相关文章