identify groups of linked episodes which chain together

by

The Bioconductor package RBGL (an R interface to the BOOST graph library) contains
a function, connectedComp(), which identifies the connected components in a graph —
just what you are wanting.

(To use the function, you will first need to install the graph and RBGL packages, available here and here.)

library(RBGL)
test <- data.frame(id1=c(10,10,1,1,24,8),id2=c(1,36,24,45,300,11))

## Convert your 'from-to' data to a 'node and edge-list' representation  
## used by the 'graph' & 'RBGL' packages 
g <- ftM2graphNEL(as.matrix(test))

## Extract the connected components
cc <- connectedComp(g)

## Massage results into the format you're after 
ld <- lapply(seq_along(cc), 
             function(i) data.frame(group = names(cc)[i], id = cc[[i]]))
do.call(rbind, ld)
#   group  id
# 1     1  10
# 2     1   1
# 3     1  24
# 4     1  36
# 5     1  45
# 6     1 300
# 7     2   8
# 8     2  11

More Related Contents:

  1. Group by multiple columns and sum other multiple columns
  2. cut function in R- labeling without scientific notations for use in ggplot2
  3. How to do range grouping on a column using dplyr?
  4. ggplot multiple grouping bar
  5. ggplot2: group x axis discrete values into subgroups [duplicate]
  6. Gather multiple sets of columns
  7. Add column which contains binned values of a numeric column
  8. Calculate group mean, sum, or other summary stats. and assign column to original data
  9. Replace missing values with column mean
  10. Don’t drop zero count: dodged barplot
  11. How to center stacked percent barchart labels
  12. Split data.frame by value
  13. How to assign the result of the previous expression to a variable?
  14. How to remove rows with any zero value
  15. how to insert new line in R shiny string
  16. Use different center than the prime meridian in plotting a world map
  17. Rtools is not being detected from RStudio
  18. Display custom image as geom_point [duplicate]
  19. Factors in R: more than an annoyance?
  20. How to aggregate a dataframe by week?
  21. Getting a stacked area plot in R
  22. How does cut with breaks work in R
  23. Using gsub to extract character string before white space in R
  24. How to fit a smooth curve to my data in R?
  25. Force ggplot legend to show all categories when no values are present [duplicate]
  26. Using data.table i and j arguments in functions
  27. How can I automatically create n lags in a timeseries?
  28. Plotting pca biplot with ggplot2
  29. Stop an R program without error
  30. How to get a barplot with several variables side by side grouped by a factor

Leave a Comment