R script for merging multiple excel files with header,and for Blast

[JoyA]

Dear All,
I am pretty new working fully with R, I am trying to Blast my desired gene , to pick up hits(5/10)first i need to merge my metadata files in R.
can you point me in the right direction?
Thank you

[M_AcostaCH]

Hi @JoyA you could put a reproducible example of data set?

check this:

FAQ: How to do a minimal reproducible example ( reprex ) for beginners

A minimal reproducible example consists of the following items: A minimal dataset, necessary to reproduce the issue The minimal runnable code necessary to reproduce the issue, which can be run on the given dataset, and including the necessary information on the used packages. Let's quickly go over each one of these with examples: Minimal Dataset (Sample Data) You need to provide a data frame that is small enough to be (reasonably) pasted on a post, but big enough to reproduce your issue. Let's say, as an example, that you are working with the iris data frame head(iris) #> Sepal.Length Sepal.Width Petal.Length Petal.Width Species #> 1 5.1 3.5 1.4 0.…

because you could load the data sets and with a simple left_join merge this ones by a specific id column.

[rene_at_coco]

I've recently done something similar. I have a folder containing many files of data. Each file follows a standard naming convention. I was able to read each of the files with one command; very little copy and paste. After the data was loaded in the environment I could join them together and begin my analysis. Something similar to this might work for you. Good luck.

library(tidyverse)
library(janitor)

# collect file names for function
filenames <- list.files(
  path = "path-to-your-files",
  pattern = "name-pattern-to-identify-your-files",
  full.names = TRUE
)

# collect file names to name environment objects
filenames_short <- list.files(
  path = "path-to-your-files",
  pattern = "name-pattern-to-identify-your-files",
  full.names = FALSE
)

# write function
func_read <- function(x, y) { # x = filename for sas; y = object name
  tmp <- read_csv(x) %>%
    clean_names() %>%
    mutate(filename = as.character(x)) # create new variable of file name
  assign(y, tmp, envir = .GlobalEnv) # create data objects
}

# iteratively call function for each desired file
map2(
  .x = filenames,
  .y = filenames_short,
  .f = ~ func_read(.x, .y)
)

# inspect; which data objects were created?
ls(pattern = "name-pattern-to-identify-your-files")

# combine to one data set
data_joined <- mget(ls(pattern = "name-pattern-to-identify-your-file")) %>%
  bind_rows()

# inspect
glimpse(data_joined)