PU
Size: a a a
PU
ЮМ
bind_rows(pattern, df1) %>%
bind_rows(df2) %>%
bind_rows(df3)
Но чувствую, что можно ведь красивее реализоватьnames(which(unlist(eapply(.GlobalEnv,is.data.frame))))
> "df1", "df2" ..... "df1000"
А дальше застрял, и не могу нагуглить, как же лучше свести всё в один. Потому что в функциях обращение идёт по имени df, а у меня только вектор со значениями. PU
ЮМ
ЮМ
EP
EP
AS
AB
PU
> library(data.table)
> tmp1 <- data.table(v1 = 'a', v2 = rnorm(3))
> tmp2 <- data.table(v1 = 'b', v2 = rnorm(3))
>
> dts <- lapply(ls(.GlobalEnv), get)
> dts <- dts[sapply(dts, is.data.table)]
> dts <- rbindlist(dts)
> dts
v1 v2
1: a -0.6423064
2: a 0.4494392
3: a 0.6426905
4: b -0.8319686
5: b -0.8922577
6: b -1.2348411
PU
ЮМ
for (i in 1:length(list_of_df)) {
data_set <- bind_rows(data_set, get(list_of_df[i]))
}
PU
AS
PU
PU
> tmp1 <- data.table(v1 = 'a', v2 = rnorm(2))
> tmp2 <- data.table(v1 = 'b', v2 = rnorm(2))
>
> do.call(rbind, list(tmp1, tmp2))
v1 v2
1: a 0.7429222
2: a -1.1124471
3: b -1.1283464
4: b 1.7150806
AS
PU
AS