Skip to contents

Data-Compare

Source: vignettes/Data-Compare.Rmd
Data-Compare.Rmd

Vignette Build Datetime 

message(paste0('Datetime: ',Sys.Date(),':',Sys.time()))
#> Datetime: 2026-01-21:2026-01-21 14:54:59.800351

Load Libraries

Build Data Frames for Compare 

  iris1 <- iris %>% dplyr::mutate(ID=dplyr::row_number())
  iris2 <- iris %>% dplyr::mutate(ID=dplyr::row_number()) %>% 
    dplyr::mutate(Petal.Length=Petal.Length+1)

Compare the Data Frames 

irisdiffs <- repfun::ru_datacompare(iris1, iris2, idvars=c('Species','ID'), maxprint=10)

Display the Results 

irisdiffs
#> $NamesOnlyInBase
#> character(0)
#> 
#> $NamesOnlyInComp
#> character(0)
#> 
#> $DiffentTypes
#> named logical(0)
#> 
#> $DifferentAttr
#> named list()
#> 
#> $NnubmerOfObsInCommon
#> [1] 0
#> 
#> $NnubmerOfObsOnlyInBase
#> [1] 150
#> 
#> $NnubmerOfObsOnlyInComp
#> [1] 150
#> 
#> $Diff_Petal.Length
#>    Species ID rowNumber Petal.Length.x Petal.Length.y
#> 1   setosa  1         1            1.4            2.4
#> 2   setosa 10        10            1.5            2.5
#> 3   setosa 11        11            1.5            2.5
#> 4   setosa 12        12            1.6            2.6
#> 5   setosa 13        13            1.4            2.4
#> 6   setosa 14        14            1.1            2.1
#> 7   setosa 15        15            1.2            2.2
#> 8   setosa 16        16            1.5            2.5
#> 9   setosa 17        17            1.3            2.3
#> 10  setosa 18        18            1.4            2.4