library(dplyr)
library(readr)

# Path to the directory containing the CSV files
csv_directory <- "path_to_directory"

# List all CSV files in the directory
csv_files <- list.files(csv_directory, pattern = "*.csv", full.names = TRUE)

# Create an empty dataframe to store the merged data
merged_data <- data.frame()

# Iterate over each CSV file
for (csv_file in csv_files) {
  # Read the CSV file into a dataframe
  df <- read_csv(csv_file)
 
  # Merge the dataframe with the merged_data dataframe
  if (is.null(merged_data)) {
    merged_data <- df
  } else {
    merged_data <- full_join(merged_data, df, by = "common_column")
  }
}

# Save the merged data to a new CSV file
write_csv(merged_data, file = "merged_data.csv")
LS0tCnRpdGxlOiAic2NyaXB0IHRvIGpvaW4gbXVsdGlwbGUgY3N2IGZpbGUgd2hpY2ggaGF2ZSBkaWZmZXJlbnQgcm93cyBsZW5ndGggY2FuIGJlIGpvaW4gYnkgY29sdW1ucyIKb3V0cHV0OiBodG1sX25vdGVib29rCkF1dGhvcjogRHIgVXBhc25hIFNyaXZhc3RhdmEgCi0tLQoKYGBge3J9CmxpYnJhcnkoZHBseXIpCmxpYnJhcnkocmVhZHIpCgojIFBhdGggdG8gdGhlIGRpcmVjdG9yeSBjb250YWluaW5nIHRoZSBDU1YgZmlsZXMKY3N2X2RpcmVjdG9yeSA8LSAicGF0aF90b19kaXJlY3RvcnkiCgojIExpc3QgYWxsIENTViBmaWxlcyBpbiB0aGUgZGlyZWN0b3J5CmNzdl9maWxlcyA8LSBsaXN0LmZpbGVzKGNzdl9kaXJlY3RvcnksIHBhdHRlcm4gPSAiKi5jc3YiLCBmdWxsLm5hbWVzID0gVFJVRSkKCiMgQ3JlYXRlIGFuIGVtcHR5IGRhdGFmcmFtZSB0byBzdG9yZSB0aGUgbWVyZ2VkIGRhdGEKbWVyZ2VkX2RhdGEgPC0gZGF0YS5mcmFtZSgpCgojIEl0ZXJhdGUgb3ZlciBlYWNoIENTViBmaWxlCmZvciAoY3N2X2ZpbGUgaW4gY3N2X2ZpbGVzKSB7CiAgIyBSZWFkIHRoZSBDU1YgZmlsZSBpbnRvIGEgZGF0YWZyYW1lCiAgZGYgPC0gcmVhZF9jc3YoY3N2X2ZpbGUpCiAKICAjIE1lcmdlIHRoZSBkYXRhZnJhbWUgd2l0aCB0aGUgbWVyZ2VkX2RhdGEgZGF0YWZyYW1lCiAgaWYgKGlzLm51bGwobWVyZ2VkX2RhdGEpKSB7CiAgICBtZXJnZWRfZGF0YSA8LSBkZgogIH0gZWxzZSB7CiAgICBtZXJnZWRfZGF0YSA8LSBmdWxsX2pvaW4obWVyZ2VkX2RhdGEsIGRmLCBieSA9ICJjb21tb25fY29sdW1uIikKICB9Cn0KCiMgU2F2ZSB0aGUgbWVyZ2VkIGRhdGEgdG8gYSBuZXcgQ1NWIGZpbGUKd3JpdGVfY3N2KG1lcmdlZF9kYXRhLCBmaWxlID0gIm1lcmdlZF9kYXRhLmNzdiIpCmBgYAoK