How to extract the same column (change it's name to the name of the file) from multiple excel file and put them in a new data table - multiple-columns

Question

General Idea: to extract the same column from different excel files and put them in a new data table.
I have multiple excel files with different names (for example cell1, cell2, cell3, cell4 ... etc. or it could be the don't have sequential names just different ones).
Each excel file has the same columns. (example: speed, displacement, mean, median, std....etc.)
I want to extract a specific column, for example, speed and change the name of the column to the respective name of the excel file from which I extracted this column. (example, data excel name: cell1 extract "speed" column and change its name to "cell1")
put the extracted column with the already change into a new data table. Purpose: to get a new data table that will contain all the "speed" columns extracted from each excel file with the new name.
excel name "cell1"
Speed
Displace
0.2
0.2
0.23
0.30
0.23
0.25
0.30
0.28
excel name "cell2"
Speed
Displace
0.1
0.2
0.13
0.30
0.33
0.25
0.30
0.28
out put new data table (could be named speed)
Cell1
Cell2
0.2
0.1
0.23
0.13
0.23
0.33
0.30
0.30
This is my starting code
(I'm new in Rstudio. )
library(tidyverse)
library(data.table)
csv.files <- list.files(pattern="*.csv", recursive=TRUE)
bg.df <- NULL
for (csv.file in csv.files) {
if (is.null(bg.df)) {
bg.df <- readr::read_csv(csv.file) %>%
dplyr::mutate(
file = csv.file
)
} else {
bg.df <- bg.df %>%
dplyr::add_row(
readr::read_csv(csv.file) %>%
dplyr::mutate(
file = csv.file
)
)
}
}
out put new data table (could be named speed)
Cell1
Cell2
0.2
0.1
0.23
0.13
0.23
0.33
0.30
0.30