AS
rowwise
не дропнули, там где это надо 🙂rowwise()
есть, но чтобы дропнуть его где надо, неплохо бы для начала понять, что он делает 😂Size: a a a
AS
rowwise
не дропнули, там где это надо 🙂rowwise()
есть, но чтобы дропнуть его где надо, неплохо бы для начала понять, что он делает 😂AS
dtplyr
?rowwise()
там есть, то почему бы и нет?ЕБ
rowwise()
есть, но чтобы дропнуть его где надо, неплохо бы для начала понять, что он делает 😂summarize()
и mutate()
если что дропается через аргумент без ungroup()
ЕБ
E
library(data.table)
all_data<-load("https://stepik.org/media/attachments/course/724/all_data.Rdata")
get_id <- function(data_list){
names( data_list ) <- paste0( "day", 1:length(data_list))
DT <- rbindlist( data_list, use.names = TRUE, fill = TRUE, idcol = "day" )
ans <- dcast( DT, id ~ day, value.var = "temp" )
ans<-na.omit(ans)
result<-data.frame(id=ans[,1], temp_mean=rowMeans(ans[,-1]))
return(result)
}
get_id(all_data)
Ошибка в rbindlist(data_list, use.names = TRUE, fill = TRUE, idcol = "day") :Ю
dplyr()
бежал более полутора часа на производственных данных в жалкие 800 000 строк. Кажется, пора наконец разобраться в том, что он делает и воспроизвести в этом вашем data.table
. Ждите тупых вопросов.AS
summarize()
и mutate()
если что дропается через аргумент без ungroup()
PU
library(data.table)
all_data<-load("https://stepik.org/media/attachments/course/724/all_data.Rdata")
get_id <- function(data_list){
names( data_list ) <- paste0( "day", 1:length(data_list))
DT <- rbindlist( data_list, use.names = TRUE, fill = TRUE, idcol = "day" )
ans <- dcast( DT, id ~ day, value.var = "temp" )
ans<-na.omit(ans)
result<-data.frame(id=ans[,1], temp_mean=rowMeans(ans[,-1]))
return(result)
}
get_id(all_data)
Ошибка в rbindlist(data_list, use.names = TRUE, fill = TRUE, idcol = "day") :PU
E
PU
A
library(data.table)
all_data<-load("https://stepik.org/media/attachments/course/724/all_data.Rdata")
get_id <- function(data_list){
names( data_list ) <- paste0( "day", 1:length(data_list))
DT <- rbindlist( data_list, use.names = TRUE, fill = TRUE, idcol = "day" )
ans <- dcast( DT, id ~ day, value.var = "temp" )
ans<-na.omit(ans)
result<-data.frame(id=ans[,1], temp_mean=rowMeans(ans[,-1]))
return(result)
}
get_id(all_data)
Ошибка в rbindlist(data_list, use.names = TRUE, fill = TRUE, idcol = "day") :PU
library(data.table)
all_data<-load("https://stepik.org/media/attachments/course/724/all_data.Rdata")
get_id <- function(data_list){
names( data_list ) <- paste0( "day", 1:length(data_list))
DT <- rbindlist( data_list, use.names = TRUE, fill = TRUE, idcol = "day" )
ans <- dcast( DT, id ~ day, value.var = "temp" )
ans<-na.omit(ans)
result<-data.frame(id=ans[,1], temp_mean=rowMeans(ans[,-1]))
return(result)
}
get_id(all_data)
Ошибка в rbindlist(data_list, use.names = TRUE, fill = TRUE, idcol = "day") :PU
dplyr()
бежал более полутора часа на производственных данных в жалкие 800 000 строк. Кажется, пора наконец разобраться в том, что он делает и воспроизвести в этом вашем data.table
. Ждите тупых вопросов.E
E
GS
Ю
А
А