Переименование файлов с помощью библиотеки r («tidyverse»)

Возможно, вам подойдет этот простой пример:

# text files in current working directory
A.txt, B.txt, C.txt

# get all files with the unique extension in your cwd
files <- list.files(pattern = "*.txt")

# rename the files by passing a vector of the new file names to the file.rename() function in the order of files in your cwd
file.rename(from = files,
            to = c("Apt.txt","Bart.txt","Dart.txt"))

# renamed files in cwd
Apt.txt, Bart.txt, Dart.txt

Однако это очень простой пример того, как переименовывать файлы в cwd, но я надеюсь, что он укажет вам правильное направление.

При этом используются регулярные выражения (регулярные выражения) для создания вектора новых имен на основе исходных имен ваших файлов .tif, а затем используется этот вектор для переименования ваших файлов. Как утверждали другие, этого можно достичь с помощью базы R, но если вам нужно решение tidyverse, вот как это сделать с помощью пакетов dplyr и stringr.

Если вы исключите функцию select(), вы сможете увидеть отдельные шаги, использованные для создания имен файлов, например. столбцы id_num. Три регулярных выражения можно было бы выполнить в одном, но мои навыки не простираются так далеко. Кроме того, использование трех разных шагов, возможно, облегчит выполнение, если вы не знакомы с регулярным выражением.

Он все равно будет работать, даже если у вас есть несколько серийных номеров, например. 551, 552 и т. д.

library(dplyr)
library(stringr)

# Set working directory to where tif files are stored (change to suit)
setwd("C:/folder/where/tif/files/stored")

# Create dataframe with vector of tif file names
file_list <- data.frame(old_name = list.files(pattern = "^Snap.*\\.tif$"))

# Create column with vector of new names (based on your example)
file_list <- file_list |>
  mutate(
    id_num1 = str_extract(old_name, "(?<=Snap-)[0-9]+"),
    id_num2 = str_extract(old_name, "(?<=Image Export-)[0-9]+"),
    id_num3 = str_extract(old_name, "(?<=_c)[0-9]+"),
    new_name = sprintf("%03d_%s_c%s_AE2315_%02d.tif",
                       as.integer(id_num2),
                       id_num1,
                       id_num3,
                       as.integer(id_num2))) |>
  select(old_name, new_name)

# Rename file_list
file.rename(file_list$old_name, file_list$new_name)