纏める程ではないR便利コマンド（自分用）

ディレクトリの複数Csvを読み込み

# ディレクトリのパスを取得
getwd()

# ディレクトリのファイルリストを作成（csv形式にマッチするものをリストに格納）
files <- list.files(path = " パスを入力", pattern = "*.csv", full.names = F)

# 　sapply関数で各ファイルにread_csvを適用
dat <- sapply(files, read.csv,　fileEncoding = "utf8", simplify=FALSE) %>% bind_rows(.id = "id") 

# サンプリングしてチェック
dat %>% sample_n(50) %>% view()

ファイル操作系（移動・コピー・ディレクトリ作成）

# ファイルをインタラクティブに選択する
file.choose()

# ファイルを作成する.
file.create("", showWarnings = TRUE)

# ファイル名をコピー
file.copy(from = file.choose(), to = ディレクトリ)
file.copy(from = file.choose(), to = choose.dir())

#　ファイルを移動
MoveFile( src$, dst$ )

# ファイルを削除する.
file.remove("ファイル名")

# ファイル名を変更する。
file.rename("元のファイル名", "変更後のファイル名")

# ディレクトリを作成する。
dir.create("./temp", showWarnings = TRUE)

# ファイルが存在するか否かを論理値で返す
file.exists("ファイル名")

# e-stat:国勢調査＞時系列データ＞男女，年齢，配偶関係＞表番号１
fileUrl <- "https://www.e-stat.go.jp/SG1/estat/GL08020103.do?_xlsDownload_&fileId=000005017344&releaseCount=2"
download.file(fileUrl, "033kokuseida01.xls")


# ディレクトリにあるファイルに対して同じ処理を行う
# txtファイルに対してデータ解析
for (i in 1:length(txt.files) {
 data <- read.table(txt.files[i])
 # 
 # データ処理hogehoge
 #
}

 #ダミー変数を作成する  #if  X1==ABC, then storing X2==1, else Storing X2==0
ifelse(df$X1=="ABC",1,0)