A
Size: a a a
A
AS
АК
DI
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 ))дает верный результат.
A
A
АК
АК
IR
A
PD
A
АК
AS
A
PD
АК
PD
dt[unknown_var < a]
, где unknown_var = get(names(dt)[1])
4) совершенно случайно оказывается, что моя unknown_var называется adt[a < a]
ну и получается, что код ломается.dt[a < .GlobalEnv$a]
но мы же обычно никогда так не пишем, есть более удачное решение подобной гипотетической ситуации? (сам никогда не сталкивался).df[df["a"] < a]
(мб я неопытный и можно проще) — но зато описанной выше проблемы (наверное) никогда не возникнетИП
АК
dt[unknown_var < a]
, где unknown_var = get(names(dt)[1])
4) совершенно случайно оказывается, что моя unknown_var называется adt[a < a]
ну и получается, что код ломается.dt[a < .GlobalEnv$a]
но мы же обычно никогда так не пишем, есть более удачное решение подобной гипотетической ситуации? (сам никогда не сталкивался).df[df["a"] < a]
(мб я неопытный и можно проще) — но зато описанной выше проблемы (наверное) никогда не возникнет