PU
все будет про dt. скоро анонс повешу. предварительно - во вторник в 20 часов по мск.
Size: a a a
2020 November 18
PD
На SO есть несколько вопросов с ответами. Если искал, то должен был наткнуться. Более-менее информативный привожу сюда: https://stackoverflow.com/a/57917822/1863950
сильно, спасибо!
я на SO, как и в гугле, редко листаю вниз
хорошая идея делать get() оба раза. никогда не использовал `get(x, pos = 1L)`
я на SO, как и в гугле, редко листаю вниз
хорошая идея делать get() оба раза. никогда не использовал `get(x, pos = 1L)`
АК
сильно, спасибо!
я на SO, как и в гугле, редко листаю вниз
хорошая идея делать get() оба раза. никогда не использовал `get(x, pos = 1L)`
я на SO, как и в гугле, редко листаю вниз
хорошая идея делать get() оба раза. никогда не использовал `get(x, pos = 1L)`
Вариант с использование ключа мне показался интересным.
ED
Всем привет! У меня есть вопрос по работе с map.
У меня имеется вот такой вот датасет
Делаю я это вот так
Тем не менее, строка
Подскажите, почему оно и не работает и как сделать чтобы работало.
Заранее спасибо)
У меня имеется вот такой вот датасет
mydata = data.frame(
Months = c(1 ,1 ,1 , 2, 2, 2),
Strings = rep(c('1', '2', '3', '1', '3', '4'))
)
И я хочу автоматически найти количество строк, которые не повторятся в следующем месяцеДелаю я это вот так
output = mydata %>%
nest(Nested = -Months) %>%
arrange(Months) %>%
mutate(Lost= map(Nested, lag(Nested), .f = function(.CurrentMonth, .PreviousMonth){
length(keep(.PreviousMonth$Strings ,!.PreviousMonth$Strings %in% .CurrentMonth$Strings))
}))
Но все значения в Lost равны 0.Тем не менее, строка
length(keep(output$Nested[[1]]$Strings, !output$Nested[[1]]$Strings %in% output$Nested[[2]]$Strings ))дает верный результат.
Подскажите, почему оно и не работает и как сделать чтобы работало.
Заранее спасибо)
через
data.table можно сделать что-то такоеmydata <- data.table(
Months = c(1 ,1 ,1 , 2, 2, 2, 3,3,3,3),
Strings = c('1', '2', '3', '1', '3', '4', '1', '2', '3', '4')
)
mydata[, .(all_strings = list(Strings)), by = .(Months)][
, :=(New = c(list(NA), lapply(2:.N, function(i) setdiff(all_strings[[i]], all_strings[[i-1]]))),
Lost = c(list(NA), lapply(2:.N, function(i) setdiff(all_strings[[i-1]], all_strings[[i]]))),
Common = c(list(NA), lapply(2:.N, function(i) intersect(all_strings[[i]], all_strings[[i-1]]))))][]
Months all_strings New Lost Common
1: 1 1,2,3 NA NA NA
2: 2 1,3,4 4 2 1,3
3: 3 1,2,3,4 2 1,3,4
DI
через
data.table можно сделать что-то такоеmydata <- data.table(
Months = c(1 ,1 ,1 , 2, 2, 2, 3,3,3,3),
Strings = c('1', '2', '3', '1', '3', '4', '1', '2', '3', '4')
)
mydata[, .(all_strings = list(Strings)), by = .(Months)][
, :=(New = c(list(NA), lapply(2:.N, function(i) setdiff(all_strings[[i]], all_strings[[i-1]]))),
Lost = c(list(NA), lapply(2:.N, function(i) setdiff(all_strings[[i-1]], all_strings[[i]]))),
Common = c(list(NA), lapply(2:.N, function(i) intersect(all_strings[[i]], all_strings[[i-1]]))))][]
Months all_strings New Lost Common
1: 1 1,2,3 NA NA NA
2: 2 1,3,4 4 2 1,3
3: 3 1,2,3,4 2 1,3,4
спасибо!
похоже, что замена
похоже, что замена
map на map2 тоже решение проблемыDI
@artemklevtsov , спасибо, хорошее решение было
АК
Оно неправильно работает.
DI
Я не успела проверить, но спасибо за подсказку с еще одним
mapАК
Я не успела проверить, но спасибо за подсказку с еще одним
maplibrary(data.table)Последнюю строку можно разложить так:
mydata = data.table(
Months = c(1 ,1 ,1 , 2, 2, 2, 3, 3, 3),
Strings = rep(c('1', '2', '3', '1', '3', '4', '1', '2', '5'))
)
res <- mydata[, .(Strings = list(Strings)), keyby = .(Months)]
# если без keyby, то нужен setorder(res, Months)
res[, cnt := mapply(function(x, y) sum(x %chin% y), Strings, c(tail(Strings, -1), NA_character_))]
res[, Strings2 := shift(.(Strings), type = "lead")]
res[, cnt := mapply(function(x, y) sum(x %in% y), Strings, Strings2)]
DI
library(data.table)Последнюю строку можно разложить так:
mydata = data.table(
Months = c(1 ,1 ,1 , 2, 2, 2, 3, 3, 3),
Strings = rep(c('1', '2', '3', '1', '3', '4', '1', '2', '5'))
)
res <- mydata[, .(Strings = list(Strings)), keyby = .(Months)]
# если без keyby, то нужен setorder(res, Months)
res[, cnt := mapply(function(x, y) sum(x %chin% y), Strings, c(tail(Strings, -1), NA_character_))]
res[, Strings2 := shift(.(Strings), type = "lead")]
res[, cnt := mapply(function(x, y) sum(x %in% y), Strings, Strings2)]
У меня не работает: неиспользованный аргумент
(keyby = .(Months))АК
У меня не работает: неиспользованный аргумент
(keyby = .(Months))setDT(mydata)PU
а еще есть?
2020 November 19
IR
Forgive me father for I have sinned...
Каюсь, сегодня пришлось воспользоваться data-masking, потому что просили именно на tidyverse написать.
Объясните мне, грешному, что ж нынче в моде для того, чтобы по текстовому значению отфильтровать дата фрейм?
Я тут посидел, повспоминал варианты. Уверен, что можно и больше вспомнить, если постараться.
#ОсторожноTidyverse!
Каюсь, сегодня пришлось воспользоваться data-masking, потому что просили именно на tidyverse написать.
Объясните мне, грешному, что ж нынче в моде для того, чтобы по текстовому значению отфильтровать дата фрейм?
Я тут посидел, повспоминал варианты. Уверен, что можно и больше вспомнить, если постараться.
filter(mtcars, eval(parse(text = "cyl")) == 6)
filter(mtcars, get("cyl") == 6)
filter(mtcars, !!sym("cyl") == 6)
filter(mtcars, .data[["cyl"]] == 6)
#ОсторожноTidyverse!
O
не грешить!
O
и все сразу получится)
AS
Forgive me father for I have sinned...
Каюсь, сегодня пришлось воспользоваться data-masking, потому что просили именно на tidyverse написать.
Объясните мне, грешному, что ж нынче в моде для того, чтобы по текстовому значению отфильтровать дата фрейм?
Я тут посидел, повспоминал варианты. Уверен, что можно и больше вспомнить, если постараться.
#ОсторожноTidyverse!
Каюсь, сегодня пришлось воспользоваться data-masking, потому что просили именно на tidyverse написать.
Объясните мне, грешному, что ж нынче в моде для того, чтобы по текстовому значению отфильтровать дата фрейм?
Я тут посидел, повспоминал варианты. Уверен, что можно и больше вспомнить, если постараться.
filter(mtcars, eval(parse(text = "cyl")) == 6)
filter(mtcars, get("cyl") == 6)
filter(mtcars, !!sym("cyl") == 6)
filter(mtcars, .data[["cyl"]] == 6)
#ОсторожноTidyverse!
Просто фильтр по значению?
AS
mtcars %>% filter( cyl == "6")
MM
mtcars %>% filter(str_detect(cyl, '6'))
IR
Да не, ребят, именно текстовый вектор, когда я заранее не знаю, будет ли там "cyl" или "wt" или ещё чего. Или например когда у вас есть много таких переменных и вы запускаете это в цикле.
PU
Да не, ребят, именно текстовый вектор, когда я заранее не знаю, будет ли там "cyl" или "wt" или ещё чего. Или например когда у вас есть много таких переменных и вы запускаете это в цикле.
не очень понятно, честно говоря, в чем проблема