The goal of ‘LinkedDataTable’ is to provide a custom class that defines operations on collections of ‘data.frame’-like objects related by a common column.
You can install the development version of ‘LinkedDataTable’ from GitHub with:
# install.packages("remotes")remotes::install_github("brownag/LinkedDataTable")This is a basic example demonstrating usage of the ‘LinkedDataTable’ class:
library(LinkedDataTable)
d<-data.frame(i=1:26, a=letters, b=LETTERS)
d2<- expand.grid(d, stringsAsFactors=FALSE)
d2$j<- seq(nrow(d2))
ldt<- LinkedDataTable(list(x=d, y=d2))
ldt#> LinkedDataTable (ID: i) with 2 tables:#> x<26>, y<17576>ldt[[1]]
#> i a b#> 1 1 a A#> 2 2 b B#> 3 3 c C#> 4 4 d D#> 5 5 e E#> 6 6 f F#> 7 7 g G#> 8 8 h H#> 9 9 i I#> 10 10 j J#> 11 11 k K#> 12 12 l L#> 13 13 m M#> 14 14 n N#> 15 15 o O#> 16 16 p P#> 17 17 q Q#> 18 18 r R#> 19 19 s S#> 20 20 t T#> 21 21 u U#> 22 22 v V#> 23 23 w W#> 24 24 x X#> 25 25 y Y#> 26 26 z Z
str(ldt[["y"]])
#> 'data.frame': 17576 obs. of 4 variables:#> $ i: int 1 2 3 4 5 6 7 8 9 10 ...#> $ a: chr "a" "a" "a" "a" ...#> $ b: chr "A" "A" "A" "A" ...#> $ j: int 1 2 3 4 5 6 7 8 9 10 ...#> - attr(*, "out.attrs")=List of 2#> ..$ dim : Named int [1:3] 26 26 26#> .. ..- attr(*, "names")= chr [1:3] "i" "a" "b"#> ..$ dimnames:List of 3#> .. ..$ i: chr [1:26] "i= 1" "i= 2" "i= 3" "i= 4" ...#> .. ..$ a: chr [1:26] "a=a" "a=b" "a=c" "a=d" ...#> .. ..$ b: chr [1:26] "b=A" "b=B" "b=C" "b=D" ...ldt1<-ldt[1, ]
ldt1#> LinkedDataTable (ID: i) with 2 tables:#> x<1>, y<676>ldt2<-ldt[2, ]
ldt2#> LinkedDataTable (ID: i) with 2 tables:#> x<1>, y<676>ldt12<-ldt1+ldt2ldt12#> LinkedDataTable (ID: i) with 2 tables:#> x<2>, y<1352>