purrr相关内容
我在嵌套和映射方面遇到问题,我不确定该如何解决.我对嵌套的数据帧有一个小标题,如下所示: > x # A tibble: 18 × 3 event.no data dr.dur 1 1 7 2 4
..
我使用purrr:map()函数对数据集中的每一列运行lm(),其中一列作为因变量. 除此以外,结果几乎是完美的-我想用运行lm()的变量替换结果中的.x. 帖子 R purrr映射在输出中显示列名称是相关的,但我想避免创建一个函数. 下面是使用mtcars数据集的代码.我知道,例如,第一个输出的.x指的是$mpg.我不确定setNames()是否可以工作. library
..
我想使用bandstib 中的每一项将bandedlossfn函数应用于loss.tib中的所有条目 library(tidyverse) set.seed(1) n % as_tibble %>% mutate(loss = value) %>% mutate(lossid = r
..
目标:我想使用map()函数来建立一个涉及分类变量的线性模型. 问题:我遇到以下错误,但我知道包含的类别变量,borrower_genders具有五个级别. Error in `contrasts
..
我是purrr范式的新手,并且正在为此苦苦挣扎. 下面我设法设法嵌套一个数据框,对嵌套的数据运行线性模型,从每个lm提取一些系数,并为每个lm生成一个摘要.我想做的最后一件事是从摘要中提取"r.squared"(我本以为这是我要实现的最简单的部分),但是由于某种原因,我无法获得语法正确的. 以下是我所进行的工作的MWE: library(purrr) library(dplyr)
..
我想在map调用中使用update函数更新lm模型,但这会引发以下错误: mtcars %>% group_by(cyl) %>% nest() %>% mutate(lm1 = map(data, ~lm(mpg ~ wt, data = .x)), lm2 = map(lm1, ~update(object = .x, formula = .~ . + hp))
..
我有一个由以下组成的数据框: Var1 Var2 Var3 a b nested list 嵌套列表= ####test: apple: a pear: b ####test2: apple: a orange: c 是否有一种简单的方法可以将每行的
..
我有这样的list: (mylist
..
我在R中使用purrr包的map函数,该函数给出输出列表.现在,我希望输出是基于输入的命名列表.下面是一个示例. input
..
我正在此请求中寻找两个特定的帮助点 1)如何在给定我的数据库(all.df)的情况下创建列表列表 2)如何在此列表清单上向量化功能 我正在尝试使用Prophet库在客户/产品级别生成预测. 我正在努力使操作向量化. 我目前正在运行for循环,我希望避免并加快计算速度. 分析数据 set.seed(1123) df1
..
代表性样本数据(列表列表): l
..
我想一堆使用一堆公式(例如字符串),最好一次使用tidyverse函数.这就是我现在的位置. library(tidyverse) library(broom) mtcars %>% dplyr::select(mpg:qsec) %>% colnames -> targcols paste('vs ~ ', targcols) -> formulas formulas #> 'vs ~
..
给出一个三级嵌套列表: mylist
..
我希望我不会错过它,但是我一直无法找到解决该问题的可行方法. 我有一组带有共享列的数据框.这些列包含多个变化的转录错误,对于多个值,其中一些是共享的,而其他则不共享. 我想用所有数据帧中的正确值(good_values)替换/重新编码转录错误(bad_values). 我已经尝试在数据框,bad_values和good_values列表之间嵌套map*()函数系列,以实现此目的.这是一个示例
..
我正在尝试将计数/百分比添加到饼图的图例标签中.饼图非常糟糕,我知道,但这不是本文的重点.我想将"Count"的值粘贴到图例上的"Wound.Type"标签上,但无法弄清楚如何为以下代码的每次迭代访问Counts.目标将是类似于"5级"的目标或其他任何数字.我已经尝试过“.〜Count"和“.〜Wound.Type",“.$ Count"和“.$ Wound.Type",但是我不知道如何访问我想要
..
请帮帮我 1)为什么map_if在列表中不起作用 2)有没有办法让它工作 3)如果没有,有什么替代方案 提前致谢。 library(dplyr) library(purrr) cyl
..
当从purrr使用管道和map()函数时,我对数据和变量如何传递感到困惑。例如,这段代码可以像我期望的那样工作: library(tidyverse) cars%> % select_if(is.numeric)%>% map(〜hist(。)) 然而,当我使用ggplot进行类似的尝试时,它的表现方式很奇怪。 cars%>% select_if(i
..
以下是两个简单的数据帧。我想重新编码(折叠) Sat1 和 Sat2 列,以便所有程度的满足都被编码简单作为满意,所有不满意度都被编码为不满意。中立将保持中立。因此,这些因素将有三个级别 - 满意,不满意和中性。 我通常会通过绑定数据框来实现这一点,并使用 lapply code> car package,如: DF1 [2:3] (DF1 [2:3],重新编码,c('“有点满意”=
..
我正在使用ks.test(), 将两个向量(data_A_score,data_B_score)与另一个向量K1进行比较,我得到这个结果: score_ref_k1 0.13594,0.09458,0.09296) data_A_score_src 0.09866,0.09398,0.10007,0.10408) data_B_score_src
..
我有几个股票的年度财务数据。我需要将其吹出来成为每月数据,感谢我以前问过的这个问题的答案,我有一个解决方案,涉及将日期列变成日期列表: 库(tidyverse) 库(lubridate) 因素。对于子集(子集)(list)(list( sec_id = c(1572L,1572L,1572L,1572L,1572L,1572L,1572L,1572L,1572L,1572L,1572L
..