Merge nearest date, and related variables from a another dataframe by group

by

Here is the solution based on the base package:

z <- lapply(intersect(df1$ID,df2$ID),function(id) {
   d1 <- subset(df1,ID==id)
   d2 <- subset(df2,ID==id)

   d1$indices <- sapply(d1$dateTarget,function(d) which.min(abs(d2$dateTarget - d)))
   d2$indices <- 1:nrow(d2)

   merge(d1,d2,by=c('ID','indices'))
  })

z2 <- do.call(rbind,z)
z2$indices <- NULL

print(z2)

#    ID dateTarget.x Value dateTarget.y ValueMatch
# 1   3   2015-11-14    47   2015-07-06         48
# 2   3   2015-12-08    98   2015-07-06         48
# 3   3   2015-02-22    52   2015-03-09         94
# 4   3   2014-11-17    68   2014-12-15         95
# 5   3   2013-05-30    91   2013-04-01         85
# 6   1   2013-11-04    70   2014-02-21         35
# 7   1   2014-12-29    18   2014-12-06         88
# 8   2   2013-01-14    52   2013-04-08         77
# 9   2   2015-07-29    97   2015-08-01         68
# 10  2   2015-06-15    98   2015-08-01         68

More Related Contents:

  1. Group by multiple columns and sum other multiple columns
  2. Fitting a density curve to a histogram in R
  3. Conditionally change panel background with facet_grid?
  4. How to delete rows from a dataframe that contain n*NA
  5. Quit and restart a clean R session from within R?
  6. How to order data by value within ggplot facets
  7. How to use R with Google Colaboratory?
  8. Extract matrix column values by matrix column name
  9. Replace negative values by zero
  10. run a for loop in parallel in R
  11. R convert zipcode or lat/long to county
  12. Why is the terminology of labels and levels in factors so weird?
  13. How to save data file into .RData?
  14. Returning above and below rows of specific rows in r dataframe
  15. Issue when importing dataset: `Error in scan(…): line 1 did not have 145 elements`
  16. Superscript and subscript axis labels in ggplot2 [duplicate]
  17. change both legend titles in a ggplot with two legends
  18. How to change the now deprecated dplyr::funs() which includes an ifelse argument?
  19. Error in new.session() : Could not establish session after 5 attempts
  20. add image in title page of rmarkdown pdf
  21. Error in R: (Package which is only available in source form, and may need compilation of C/C++/Fortran)
  22. ggplot: Boxplot of multiple column values [duplicate]
  23. Gantt style time line plot (in base R)
  24. Replace missing values (NA) in one data set with values from another where columns match
  25. Convert a data frame to a data.table without copy
  26. Asymmetric expansion of ggplot axis limits
  27. as.Date(as.POSIXct()) gives the wrong date?
  28. Convert scientific notation to numeric, preserving decimals
  29. Rcpp function check if missing value
  30. Give name to list variable

Leave a Comment