Styjun

Why force the nose of 737 Max down in the first place?

How well would the Moon protect the Earth from an Asteroid?

Why was the LRV's speed gauge displaying metric units?

Why put copper in between battery contacts and clamps?

Why is softmax function used to calculate probabilities although we can divide each value by the sum of the vector?

What is the German equivalent of the proverb 水清ければ魚棲まず (if the water is clear, fish won't live there)?

How can I kill my goat?

Who said "one can be a powerful king with a very small sceptre"?

Do the books ever say oliphaunts aren’t elephants?

GNU sort stable sort when sort does not know sort order

Why is my fluorescent tube orange on one side, white on the other and dark in the middle?

Golden Guardian removed before death related trigger

How do I make my photos have more impact?

Surviving a planet collision?

Self-deportation of American Citizens from US

2010 (?) science fiction TV show with new world

How to store my pliers and wire cutters on my desk?

Why would anyone ever invest in a cash-only etf?

Exploiting the delay when a festival ticket is scanned

Classic vs Modern Experience

8086 stack segment and avoiding overflow in interrupts

Complaints from (junior) developers against solution architects: how can we show the benefits of our work and improve relationships?

How to have poached eggs in "sphere form"?

A variant of the Multiple Traveling Salesman Problem

Subsetting data based off of dates from multiple rows

How to return only the Date from a SQL Server DateTime datatypeSelecting a row based on the properties of the row beforeefficiently data subset based on data frame columns matching in RHow to subset rows for a specific range of dates in r?sub-setting rows based on dates in RExtracting rows based on ID and date. R-baseImprove efficiency linking data from two data framesHow to plot graphic from several data.frameJoin two data sets based on one columnMerge two data frames based time range and unique ID

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;

1

I have data on patients who have readmitted to a hospital within 30 days of a previous admission at that hospital. Many patients will readmit several times, however we only are coding it as a readmission if it is within 30 days of a prior admission.

Here is an example:

name stay at hospital admitdate readmission
john doe 1 1/1/2018 no
john doe 2 1/21/2018 yes 
john doe 3 4/2/2018 no
john doe 4 10/2/2018 no

I'm looking to subset rows where readmission = yes and the row with readmission = no with the closest admission date to that row where readmission= yes.

For this example that means I would want to subset only the first two rows. I want to subset row two because readmission = "yes" and then I want to subset row 1 because the admit date 1/1/2018 is closest to the admit date from the readmission = "yes" row (admit date 1/21/2018).

df <- df
df1 <- df[df$Readmission == "no", ]
df2 <- aggregate(df1$Date, by = list(df$Name), FUN = "max")
df3 <- rbind(df[df$Readmission == "yes", ], df2)

This did not work because it pulls the "max" date where readmission = "no" (stay 4) but I want it to pull stay 1.

I want to output to give me a dataset of these two rows:

name stay at hospital admitdate readmission
john doe 1 1/1/2018 no
john doe 2 1/21/2018 yes

r date subset

share|improve this question

asked Mar 26 at 20:33

Jess CJess C

611 bronze badge

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Just out of curiosity, is this the extent of your actual situation? Or would you likely have multiple observations where readmission=="yes" and you'd be looking for the closest observation to that one. I think that matters a bit for being able to provide you with a universal solution vs. a solution only for your example.
  
  – phalteman
  Mar 26 at 22:25
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  I will have multiple observations where readmission == "yes" and I'm looking for the closest observation to that one.
  
  – Jess C
  Mar 27 at 13:26
  

  
  
  
  

add a comment | 

1

I have data on patients who have readmitted to a hospital within 30 days of a previous admission at that hospital. Many patients will readmit several times, however we only are coding it as a readmission if it is within 30 days of a prior admission.

Here is an example:

name stay at hospital admitdate readmission
john doe 1 1/1/2018 no
john doe 2 1/21/2018 yes 
john doe 3 4/2/2018 no
john doe 4 10/2/2018 no

I'm looking to subset rows where readmission = yes and the row with readmission = no with the closest admission date to that row where readmission= yes.

For this example that means I would want to subset only the first two rows. I want to subset row two because readmission = "yes" and then I want to subset row 1 because the admit date 1/1/2018 is closest to the admit date from the readmission = "yes" row (admit date 1/21/2018).

df <- df
df1 <- df[df$Readmission == "no", ]
df2 <- aggregate(df1$Date, by = list(df$Name), FUN = "max")
df3 <- rbind(df[df$Readmission == "yes", ], df2)

This did not work because it pulls the "max" date where readmission = "no" (stay 4) but I want it to pull stay 1.

I want to output to give me a dataset of these two rows:

name stay at hospital admitdate readmission
john doe 1 1/1/2018 no
john doe 2 1/21/2018 yes

r date subset

share|improve this question

asked Mar 26 at 20:33

Jess CJess C

611 bronze badge

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Just out of curiosity, is this the extent of your actual situation? Or would you likely have multiple observations where readmission=="yes" and you'd be looking for the closest observation to that one. I think that matters a bit for being able to provide you with a universal solution vs. a solution only for your example.
  
  – phalteman
  Mar 26 at 22:25
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  I will have multiple observations where readmission == "yes" and I'm looking for the closest observation to that one.
  
  – Jess C
  Mar 27 at 13:26
  

  
  
  
  

add a comment | 

I have data on patients who have readmitted to a hospital within 30 days of a previous admission at that hospital. Many patients will readmit several times, however we only are coding it as a readmission if it is within 30 days of a prior admission.

Here is an example:

name stay at hospital admitdate readmission
john doe 1 1/1/2018 no
john doe 2 1/21/2018 yes 
john doe 3 4/2/2018 no
john doe 4 10/2/2018 no

I'm looking to subset rows where readmission = yes and the row with readmission = no with the closest admission date to that row where readmission= yes.

For this example that means I would want to subset only the first two rows. I want to subset row two because readmission = "yes" and then I want to subset row 1 because the admit date 1/1/2018 is closest to the admit date from the readmission = "yes" row (admit date 1/21/2018).

df <- df
df1 <- df[df$Readmission == "no", ]
df2 <- aggregate(df1$Date, by = list(df$Name), FUN = "max")
df3 <- rbind(df[df$Readmission == "yes", ], df2)

This did not work because it pulls the "max" date where readmission = "no" (stay 4) but I want it to pull stay 1.

I want to output to give me a dataset of these two rows:

name stay at hospital admitdate readmission
john doe 1 1/1/2018 no
john doe 2 1/21/2018 yes

r date subset

share|improve this question

asked Mar 26 at 20:33

Jess CJess C

611 bronze badge

name stay at hospital admitdate readmission
john doe 1 1/1/2018 no
john doe 2 1/21/2018 yes 
john doe 3 4/2/2018 no
john doe 4 10/2/2018 no

df <- df
df1 <- df[df$Readmission == "no", ]
df2 <- aggregate(df1$Date, by = list(df$Name), FUN = "max")
df3 <- rbind(df[df$Readmission == "yes", ], df2)

name stay at hospital admitdate readmission
john doe 1 1/1/2018 no
john doe 2 1/21/2018 yes

share|improve this question

asked Mar 26 at 20:33

Jess CJess C

611 bronze badge

share|improve this question

asked Mar 26 at 20:33

Jess CJess C

611 bronze badge

asked Mar 26 at 20:33

Jess CJess C

611 bronze badge

asked Mar 26 at 20:33

Jess CJess C

611 bronze badge