Rで解析：文字列やフォルダの操作に便利「filesstrings」パッケージ

#パッケージのインストール
install.packages("filesstrings")

#パッケージの読み込み
library("filesstrings")

###フォルダとファイルを作成#####
library("tcltk")
#ダイアログでフォルダを新規作成し保管場所を指定する
setwd(paste(as.character(tkchooseDirectory(title = "フォルダを選択"), sep = "", collapse ="")))
#保存場所にフォルダを作成
CreateDir <- paste0(getwd(), "/", c("Test_00", "Test 1", "Test_02"))
for(i in seq(CreateDir)){ dir.create(CreateDir[i]) }
#&#12501;&#12449;&#12452;&#12523;&#12434;&#20316;&#25104;
file.create(c("Test 000.txt", "Test 1.txt", "Test 02.txt"))
########

#&#12501;&#12449;&#12452;&#12523;&#12434;&#12501;&#12457;&#12523;&#12480;&#12395;&#31227;&#21205;:PutFilesInDir&#12467;&#12510;&#12531;&#12489;
#&#31227;&#21205;&#12377;&#12427;&#12501;&#12449;&#12452;&#12523;&#12434;&#25351;&#23450;:files&#12458;&#12503;&#12471;&#12519;&#12531;
#&#31227;&#21205;&#20808;&#12398;&#12501;&#12457;&#12523;&#12480;&#12434;&#25351;&#23450;:destinations&#12458;&#12503;&#12471;&#12519;&#12531;;&#26082;&#23384;&#12391;&#12394;&#12369;&#12428;&#12400;&#12501;&#12457;&#12523;&#12480;&#12434;&#26032;&#35215;&#20316;&#25104;
move_files(files = "Test 000.txt", destinations = "Test_00",
           overwrite = FALSE)
1 file moved. 0 failed.

#&#12501;&#12457;&#12523;&#12480;&#12434;&#21066;&#38500;:remove_dir&#12467;&#12510;&#12531;&#12489;
remove_dir(dirs = c("Test_1", "Test_02"))
1 directory deleted. 1 failed to delete.

#&#12501;&#12449;&#12452;&#12523;&#21517;&#12420;&#12501;&#12457;&#12523;&#12480;&#21517;&#12398;&#21322;&#35282;&#12473;&#12506;&#12540;&#12473;&#12434;
#&#25351;&#23450;&#20869;&#23481;&#12391;&#32622;&#25563;:RemoveFileNameSpaces&#12467;&#12510;&#12531;&#12489;
#&#25351;&#23450;&#20869;&#23481;:replacement&#12458;&#12503;&#12471;&#12519;&#12531;
#&#21322;&#35282;&#12473;&#12506;&#12540;&#12473;&#20197;&#22806;&#12398;&#12497;&#12479;&#12540;&#12531;&#12434;&#27491;&#35215;&#34920;&#29694;&#12391;&#25351;&#23450;:pattern&#12458;&#12503;&#12471;&#12519;&#12531;
remove_filename_spaces(replacement = "_")
3 files required renaming and this was done successfully.

#&#12501;&#12449;&#12452;&#12523;&#21517;&#12434;&#25972;&#12360;&#12427;:nice_file_nums&#12467;&#12510;&#12531;&#12489;
#&#12501;&#12449;&#12452;&#12523;&#12398;&#25313;&#24373;&#23376;&#12434;&#25351;&#23450;:pattern&#12458;&#12503;&#12471;&#12519;&#12531;
#&#20363;&#12391;&#12399;"Test 000.txt", "Test 1.txt", "Test 02.txt"&#12434;
#"Test_000.txt", "Test_001.txt", "Test_002.txt"&#12395;&#12377;&#12427;
nice_file_nums(pattern = "\\.txt$")
2 files renamed into the desired format. 0 failed.

#&#25991;&#23383;&#21015;&#12395;&#21547;&#12414;&#12428;&#12427;n&#30058;&#30446;&#12398;&#25991;&#23383;&#12434;&#21462;&#24471;:str_elem&#12467;&#12510;&#12531;&#12489;
str_elem(paste0(LETTERS[1:24], collapse = ""), 12)
[1] "L"

#&#33521;&#25968;&#25991;&#23383;&#21015;&#12434;&#19968;&#25991;&#23383;&#12378;&#12388;&#12395;&#20998;&#21106;;str_to_vec&#12467;&#12510;&#12531;&#12489;
str_to_vec("abc1def")
[1] "a" "b" "c" "1" "d" "e" "f"

#&#33521;&#25968;&#25991;&#23383;&#21015;&#12395;&#21547;&#12414;&#12428;&#12427;&#25968;&#23383;&#12391;&#20998;&#21106;:str_split_by_nums&#12467;&#12510;&#12531;&#12489;
str_split_by_nums("Karada1234Good.net") [[1]]
[1] "Karada" "1234" "Good.net"