NonePurrr расширяет набор инструментов функционального программирования R, предоставляя полный и согласованный набор инструментов для работы с функциями и векторами, такими как map() и reduce().
1 ответ

Карта (purrr) для добавления диапазона чисел к столбцу один за другим

У меня есть R фрейм данных с двумя столбцами, colA и colB, и встроенным объектом glm. Теперь я могу использовать прогнозирование с фреймом данных и объектом glm для прогнозирования результатов. Тем не менее, я также хотел бы предсказать результаты д…
16 окт '17 в 11:28
2 ответа

Применить функцию на разных уровнях

У меня есть следующий кусок: 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), y3 = rnorm(100) ) ) ) ) ) И мне нужно получить доступ к тибблу внутри ти…
12 сен '18 в 19:21
1 ответ

Как раскошелиться / распараллелить процесс в purrr::pmap

У меня есть следующий код, который выполняет последовательную обработку с purr::pmap library(tidyverse) set.seed(1) params <- tribble( ~mean, ~sd, ~n, 5, 1, 1, 10, 5, 3, -3, 10, 5 ) params %>% pmap(rnorm) #> [[1]] #> [1] 4.373546 #> #…
29 ноя '17 в 12:29
1 ответ

dplyr::mutate: временная дорогая переменная в качестве ввода для нескольких других операций, по строкам

Немного сложно показать мою проблему с реальными данными, но я надеюсь, что следующее объясняет: data_frame(a=c(1,2), b=c(3,4)) %>% rowwise %>% mutate(c = a*b, d = c-1, e=c+2) %>% ungroup В приведенном выше примере, конечно, rowwise не нуже…
06 дек '16 в 15:41
1 ответ

Ошибка приведения при использовании purrr для генерации моделей

Чтобы улучшить моё понимание R-библиотек purrr и dplyr, я работаю над примером, описанным Хэдли Уикхемом, используя различные модели и разбиения набора данных. Однако я сталкиваюсь с ошибкой приведения при использовании нескольких аргументов, наприм…
16 мар '17 в 15:29
1 ответ

R: Unlist список для столбцов в dataframe

У меня есть фрейм данных, который состоит из: Var1 Var2 Var3 a b nested list Вложенный список = ####test: apple: a pear: b ####test2: apple: a orange: c Есть ли простой способ превратить вложенный список в v3 каждой строки в дополнительные столбцы с…
01 авг '18 в 19:59
2 ответа

Как объединить список фреймов с одинаковыми именами столбцов?

У меня есть следующие датафреймы df1 <- tibble::as.tibble(list(a = c(1,2,3), d = c(10,11,12) ,id = c("a","b","c"))) df2 <- tibble::as.tibble(list(a = c(4,5,6), e = c(13,14,15) ,id = c("a","b","c"))) df3 <- tibble::as.tibble(list(a = c(7,8,9…
19 сен '18 в 11:05
1 ответ

Проблемы с итерацией по f(x, y) с использованием map2_

Я использую оболочку для API LastFM для поиска тегов трека. функция-обёртка... devtools::install_github("juyeongkim/lastfmr") track_getInfo("track", "artist", api_key= lastkey) Я определил свою собственную функцию как INFOLM <- function(x= track,…
09 июл '18 в 20:00
4 ответа

Итерация по нескольким (но не всем) столбцам в фрейме данных с purrr

Я ищу лаконичный способ работы с несколькими столбцами одновременно внутри трубы. Проблема в том, что мне не нужно работать со всеми столбцами: только с несколькими. library(tidyverse) mtcars <- mtcars %>% rownames_to_column(var = 'car') str(m…
07 янв '18 в 01:37
1 ответ

Неудобная функция Tidyr, похоже, не работает

Я пытаюсь отменить список столбца списка, где каждая строка состоит только из URL. Я создал фрейм данных с метаданными файла некоторых файлов в каталоге. Это мой код: df <- files_small %>% keep(has_xattrs) %>% set_names(basename(.)) %>% …
09 окт '18 в 13:29
0 ответов

Использование purrr::map с листовкой

Я пытаюсь реализовать purrr"s map() функция для добавления слоев в leaflet карта, но борется с тем, как уменьшить результат. Когда я запускаю этот код, я получаю список, в котором каждый элемент представляет собой отдельную карту листовки (сгенериро…
30 окт '18 в 22:38
0 ответов

Переводя цикл для создания переменных в мурлыкать в R

Я создал функцию, которая приводит к кадру данных с новой переменной. Функция принимает два аргумента: фрейм данных и символьное значение. Я хочу повторить это по вектору символов (обычно около 100 элементов). Я в настоящее время использую для (я в …
22 мар '18 в 17:28
1 ответ

Как str_split текст на несколько столбцов, используя purrr

У меня есть фрейм данных, и я хочу разделить столбец на 3 другой: df<-data.frame(x=1:5,y=paste0("num-",1:5,"-ber")) df x y 1 1 num-1-ber 2 2 num-2-ber 3 3 num-3-ber 4 4 num-4-ber 5 5 num-5-ber Результат должен быть примерно таким: x y1 y2 y3 1 1 …
14 фев '18 в 14:00
1 ответ

Рассчитать прогнозируемые результаты модели, просматривая переменные

У меня есть несколько моделей, подходящих для прогнозирования результата y = x1 + x2 + .....+x22. Это достаточное количество предикторов и значительное количество моделей. Мои клиенты хотят знать, каково предельное влияние каждого X на предполагаемы…
14 май '18 в 22:13
0 ответов

Генерируйте ggplotly с помощью walk или lapply без использования rmarkdown::render

Я пытаюсь сделать некоторые интерактивные ggplotly участки с использованием purr"s walk Команда на столбце графиков. Я не могу заставить его работать. Я могу тогда заставить работать индивидуально, но я не могу "массово производить" их, используя wa…
24 фев '19 в 20:53
0 ответов

Отобразить функцию lm на определенные столбцы во вложенном столбце

Я пытаюсь узнать о р. Я столкнулся с проблемой во вложенной функции карты. Я хотел бы запустить линейную модель на вложенном тибле. но с несколькими переменными x и y. У меня есть следующий код: > head(dat) # A tibble: 6 x 28 subject_id event_id …
15 мар '18 в 14:39
0 ответов

Улучшение простой вложенности для эффективности цикла в R

Я бегу перестановки, чтобы получить р-значение. У меня есть два кадра данных, df1 а также df2; Вот как они выглядят: df1 <- data.frame(X1 = c("Gene1","Gene2","Gene3", "Gene4", "Gene5","Gene6"), Type1 = runif(5), Type2 = runif(6), Type3 = runif(6)…
29 янв '18 в 03:36
2 ответа

Отфильтровать самую длинную строку в мур

Рассмотрим этот пример list('test', 'one') Я хотел бы установить этот список и сохранить только самую длинную строку в списке. С помощью purrr::keep не похоже на работу. > list('test', 'one') %>% keep(~ nchar(.x) == max(nchar(.))) [[1]] [1] "t…
15 янв '19 в 22:33
2 ответа

Присвоение элементов списку на вложенной карте мурлыканья

Я пытаюсь назначить элементы списку в вызове purstr::map гнезда - это должно быть в основном то же самое, что и вложенный цикл for: res <- list() for (i in 1:4) { for (j in letters[1:3]) { res[[paste(i,j)]] <- paste(i,j) } } str(res) #> Lis…
23 янв '19 в 16:41
1 ответ

Вектор к фрейму данных, используя положение элемента вектора в качестве идентификационного номера

Предположим, у нас есть символьный вектор: foo <- c("A;B;C", "B;C", "F;G;H") Интересно, как сгенерировать следующий фрейм данных: 1 A 1 B 1 C 2 B 2 C 3 F 3 G 3 H Обратите внимание, что числа в первом столбце обозначают положение компонента / элем…
06 фев '19 в 12:04