如何在我的数据帧上使用完整连接并重命名具有相同名称的列 R

Question

I have two dataframes and they both have the exact same column names, however the data in the columns is different in each dataframe. I am trying to join the two frames (as seen below) by a full join. However, the hard part for me is the fact that I have to rename the columns so that the columns corresponding to my one dataset have some text added to the end while adding different text to the end of the columns that correspond to the second data set.

combined_df <- full_join(any.drinking, binge.drinking, by = ?)

A look at one of my df's:

Answer 1

Without custom function and shorter:

df <- cbind(cars, cars)
colnames(df) <- c(paste0(colnames(cars), "_any"), paste0(colnames(cars), "_binge"))

Output:

> head(df)
  speed_any dist_any speed_binge dist_binge
1         4        2           4          2
2         4       10           4         10
3         7        4           7          4
4         7       22           7         22
5         8       16           8         16
6         9       10           9         10

---

Certainly not the most elegant way but maybe it is what you want:

custom_bind <- function(df1, suffix1, df2, suffix2){
  
  colnames(df1) <- paste(colnames(df1), suffix1, sep = "_")
  colnames(df2) <- paste(colnames(df2), suffix2, sep = "_")
  
  df <- cbind(df1, df2)
  return(df)
}

custom_bind(cars, "any", cars, "binge")

I made it as a function in case you want to do it with other tables. If not then it is not necessary.

Output:

> head(custom_bind(cars, "any", cars, "binge"))
  speed_any dist_any speed_binge dist_binge
1         4        2           4          2
2         4       10           4         10
3         7        4           7          4
4         7       22           7         22
5         8       16           8         16
6         9       10           9         10