-
2 votesanswersviews
purrr列表评估陌生感
如果列表有或没有 Headers ，似乎purrr函数的评估方式不同，但为什么呢？这只是“其中一件事”吗？ 例： func_b <- function(x,y,z) paste(x,y,z) ## Works as expected pmap(list(iris$Sepal.Length, iris$Sepal.Width, iris$Petal.Length), func_b) %>... -
0 votesanswersviews
add_row with group_by nest tibble
我正在尝试使用do将add_row（）分组数据 without . library(dplyr) library(tidyr) library(purrr) library(tibble) my.data <- data.frame( supplier = c("a","a","a","a",&quo... -
1 votesanswersviews
在不同级别的应用中应用功能
我有以下几点： library(tidyverse) set.seed(1234) df <- tibble( x1 = letters[1:2], y1 = list( tibble( x2 = letters[3:4], y2 = list( tibble( x3 = seq(1, 100, 1), ... -
1 votesanswersviews
使用map和purrr在listcolumn中指定NA
library(tidyverse) k<-data_frame(u=c("A","B"),l=c(list(c(1,5,4)),list(c(7,5,1)))) 我想将listcolumn l中所有低于2的值设置为NA . 我如何使用 Map 在purrr世界中做到这一点？ map(k$l,~.x[.x<2]<-NA) 抛出错... -
3 votesanswersviews
使用purrr :: map进行递归函数调用
我有一个数据框中的列表，我想使用 purrr::map() 测试是否有任何 NULL 元素，然后摆脱它们 . 虽然我能够使用sapply来做到这一点，但是 Map 不起作用 . 我读了https://cran.r-project.org/web/packages/purrr/purrr.pdf，但我可以't figure out what'我错过了 . 这是我的sapply代码 - 这很好用： P... -
2 votesanswersviews
如何使purrr map功能运行得更快？
我正在使用 purrr 库中的 map 函数来应用 segmented 函数（来自 segmented 库），如下所示： library(purrr) library(dplyr) library(segmented) # Data frame is nested to create list column by_veh28_101 <- df101 %>% filter(LC... -
4 votesanswersviews
purrr :: map相当于dplyr :: do
阅读https://twitter.com/hadleywickham/status/719542847045636096我明白 purrr 方法基本上应该取代 do . 因此，我想知道如何使用 purrr 来做到这一点： library(dplyr) d <- data_frame(n = 1:3) d %>% rowwise() %>% do(data_frame(x = ... -
113 votesanswersviews
为什么使用purrr :: map而不是lapply？
我有什么理由可以使用 map(<list-like-object>, function(x) <do stuff>) 代替 lapply(<list-like-object>, function(x) <do stuff>) 输出应该是相同的，我做的基准似乎表明 lapply 稍快（它应该是 map 需要评估所有非标准评估输入） . 那么有什么理... -
3 votesanswersviews
代码无法使用R中的purrr包中的映射
我正在学习purrr包中的map函数，并且以下代码不起作用： library(purrr) library(dplyr) df1 = data.frame(type1 = c(rep('a',5),rep('b',5)), x = 1:10, y = 11:20) df1 %>% group_by(type1) %>% ... -
2 votesanswersviews
purrr映射不产生整洁的数据
感谢这个网站，我正在使用R purrr 包来聚合基于多列的数据 . 聚合是我想要的，但输出不是 . 以下是使用 mtcars 数据集的示例 . library(dplyr) library(purrr) #pull in data data <- mtcars #get colnames variable1 <- colnames(data) #map the variables t... -
2 votesanswersviews
使用purrr映射到2个函数
我有以下表格的数据 date data <chr> <list> 1 2012-01-05 <tibble [796 x 5]> 2 2012-01-12 <tibble [831 x 5]&... -
0 votesanswersviews
如何在R中使用purrr :: map（）
最近我知道 purrr 包中的 map 函数非常强大，并试图在下列情况下找出如何使用它： 使用虹膜数据集并使用 purrr::map 函数，分别为所有变量 Sepal.Length ， Sepal.Width ， Petal.Length ， Petal.Width 计算 max ， mean ， min ，每个 Species （setosa，versicolor，virginica） . 然后... -
3 votesanswersviews
使用purrr映射dplyr :: select
我有一个数据框，其中包含一堆嵌套的数据框，我想将dplyr :: select应用于每个嵌套数据框 . 这是一个例子 library(tidyverse) mtcars %>% group_by(cyl) %>% nest %>% mutate(data2 = ~map(data, dplyr::select(.,-mpg))) 我认为这会产生一个包含三列的数据框 .... -
0 votesanswersviews
R-如何使用map（）到map（）
我需要访问另一个 nest() 函数内的 nest() 函数中的tibble表 . x <- list( factory = c('a','b','c','d'), cost = c(21,30,44,100)) x <- as.data.frame(x) x <- x %>% melt('cost','factory') colnames(x) <... -
0 votesanswersviews
R - Pmap（）而不是Map（）
按照 nest() 格式跟随数据库 . x <- list( factory = c('a','b','c','d'), cost = c(21,30,44,100)) x <- as.data.frame(x) x <- x %>% melt('cost','factory') colnames(x) <- c('c... -
7 votesanswersviews
在tidyverse中按组滚动回归？
关于在R中滚动回归有很多问题，但在这里我特意寻找使用 dplyr ，_ _1184053_和（如果需要） purrr 的东西 . 这就是使这个问题与众不同的原因 . 我希望与_1844055一致 . 是否可以使用整洁的工具（例如 purrr:map 和 dplyr ）进行正确的运行回归？ 请考虑这个简单的例子： library(dplyr) library(purrr) library(broom... -
0 votesanswersviews
如何让ggplot从特定月份开始x轴
我想在11月开始的一个赛季中绘制一个按月份在足球比赛中得分的进球图，但是会延续到明年 . 所以我想让x轴去11月，12月，1月等 . 这是我必须使用的一些玩具数据 library(tidyverse) library(lubridate) df <- data.frame(date = as.Date(c("2017-11-01","2017-11-15&quo... -
2 votesanswersviews
单独的tibble列列中的矩阵求和
我有一个包含两个列表列的tibble数据框 . 在列表列 mat_base 中，每行包含一个2x2矩阵 . 在列表列 mat_sim 中，每行包含10个2x2矩阵的列表 . 我想创建一个新的列表列 mat_out ，它是 mat_base 矩阵和每个 mat_sim 矩阵（在给定行内）的总和 . 即 mat_out 的每一行应包含10个矩阵的列表 . 我假设有一种方法可以使用lapply或 pur... -
1 votesanswersviews
tidyverse：根据其他行中的值从数据框中删除行
我有一小部分调查数据 . 每一行代表一次对“受访者”的访谈 . 一些受访者接受过一次访谈;其他人多次接受采访 . 我想从这个小组中选择每个受访者的最后一次面试 . 这是一个最小的例子： tmp <- tribble( ~YYYYMM, ~ID, ~DATEPR, ~IDPREV, 198001, 1, NA, NA, 198001, 2, ... -
0 votesanswersviews
如何根据索引向量对向量列表进行子集化？
我想使用 purrr 对此列表中的元素进行子集化 u <- list(a=1:10, b=1:10) 使用 maxCol 作为从1开始的索引向量的最高界限 . 例如，假设为 maxCol <- c(6L, 3L) 那么输出应该是这样的 $a [1] 1 2 3 4 5 6 $b [1] 1 2 3 实际上，我希望保留从位置1到位置6的所有值，从 a ，以及从位置1到3，从 b ... -
1 votesanswersviews
从purrr获取映射以使用paste0
我有9个列表，其中包含对象分组$ ag . 我正试图从9个列表中的每个列表中提取该对象，并将这些列转换为tibble / df . 第一列应该具有组1：5 . 随后的9列每个都是一个带有5个数字的简单向量 . 对不起，这是不完整和可重复的.. map(hof2009_ag$groupings, "ag") %>% unlist 会正确地给我一个向量 [1] 789 615... -
9 votesanswersviews
如何使用purrr中的map与dplyr :: mutate基于列对创建多个新列
我必须使用R来关注问题 . 简而言之，我想基于数据框中不同列对的计算在数据帧中创建多个新列 . 数据如下： df <- data.frame(a1 = c(1:5), b1 = c(4:8), c1 = c(10:14), a2 = c(9:13), ... -
2 votesanswersviews
逐列减去数据帧的行，保留多因子列
我有两个数据帧不同的列数 . 我想从df1中减去df2行的强度值，逐列（即样本） . 我的条件是： 在df1中，对于每个基因（gene_nm），肽序列（pep_seq）和它们对应的每个样品的强度（int_sam）有多行 . 同一基因多次出现，即占据几排 . 在df2中，基因（行）仅出现一次，具有相应的强度值 因此，df1比df2长得多（例如，55000行对6000行） 强度列数（i... -
3 votesanswersviews
R中的错误：'st_centroid'的适用方法没有应用于类“NULL”的对象
Edit ：我后来意识到错误发生在我的完整数据集中，而不是代码中 . 我很抱歉 . 这可能对其他人有用，也可能没用 . 我有一个tibble，有一个名为'geometry'的列，它是多边形（我正在使用sf空间包） . 我正在尝试向每个多边形的质心的tibble添加一列 . 但是，我收到一个错误：“mutate_impl（.data，dots）中的错误：评估错误：没有适用于”st_centroid“... -
0 votesanswersviews
使用Purrr和Dplyr在多个数据帧中重新编码相似的因子水平
下面是两个简单的数据框架 . 我想重新编码（折叠） Sat1 和 Sat2 列，以便将所有满意度编码为 Satisfied ，并且所有不满意度都编码为 Dissatisfied . 中性仍为中性 . 因此，这些因素将有三个层次 - Satisfied, Dissatisfied, and Neutral . 我通常会通过绑定数据帧，使用 lapply 以及 car 包中的重新代码来完成此操... -
5 votesanswersviews
基于谓词函数（dplyr :: mutate_if）变换数据框的列
我想使用dplyr的 mutate_if() 函数将列表列转换为数据帧列，但是当我尝试这样做时遇到一个令人费解的错误 . 我使用的是dplyr 0.5.0，purrr 0.2.2，R 3.3.0 . 基本设置如下所示：我有一个数据框 d ，其中一些列是列表： d <- dplyr::data_frame( A = list( list(list(x = "a"... -
4 votesanswersviews
使用plyr / dplyr / purrr向数据框添加多个列的方法
我经常需要使用自定义函数一次通过多个列来改变数据帧，最好使用并行化 . 以下是我已经知道如何做到这一点的方法 . Setup library(dplyr) library(plyr) library(purrr) library(doMC) registerDoMC(2) df <- data.frame(x = rnorm(10), y = rnorm(10), z = rnorm(10... -
3 votesanswersviews
使用purrr和dplyr：是rlang :: sym最好的方法
我想编写使用dplyr动词的函数，这意味着我必须涉足 rlang 的阴暗水域 . 为了提供一个具体的例子，假设我想使用 purrr::map_df() 迭代 dplyr::group_by() 中的变量 . programming with dplyr插图通过编写 my_summarise() 函数;方法是在分组变量上使用 rlang::enquo() ，然后用 !! 取消引用 . 这种方法可以... -
2 votesanswersviews
以编程方式分解数据框中的选定列，整齐的方式？
这是一个简化的例子： library(tidyverse) frame <- tribble( ~a, ~b, ~c, 1, 1, 2, 5, 4, 7, 2, 3, 4, 3, 1, 6 ) key <- tribble( ~col, ~name, ~type, ~labels, 1, "a", ... -
1 votesanswersviews
用于可视化或过滤P值的Tidy chisq.test输出的功能
对于数据...... library(productplots) library(ggmosaic) 代码...... library(tidyverse) library(broom) 我正在尝试创建整洁的chisq.test输出，以便我可以轻松过滤或可视化p值 . 我正在使用“快乐”数据集（包含在上面列出的任何一个包中） 对于这个例子，如果我想在所有其他变量上调整“happy”变量，我...