R言語TIPS

えっ？R言語って、こんな処理も組み込み関数に無いの！？ と、いう感じでゲンナリした時のメモですｗ

R言語TIPS

文字列連結

何かと不便なRの文字列連結
"+"演算子で連結させてくれ・・・ >paste0("aaa", "b") "aaab" >paste0(c("a","b","c"), NULL, collapse = "") "abc" >paste0(c(c("a", "b", "ccc"), "t"), NULL, collspase = "") "abccct"

ファイル作成日の取得

R標準関数"file.info()"で取得できる各種時間情報は下記の３種類
mtime : ファイルの変更日時、ctime : 最終状態の変更日時、atime : 最後のアクセス日時
作成日取得できる組み込み関数は無いのでしょうか・・・？
というわけで、システムコマンドで取得してみました^ ^;

取得した情報を変数に格納したい場合は"intern = TRUE"を指定します
取得したファイル情報をコンソールに表示させたいだけであれば"intern"は未指定か"FALSE"でOKです

Linuxコマンド > hoge <- shell(paste0("stat ", "hoge.txt"), intern = TRUE) > hoge [1] " File:'hoge.txt'" [2] " Size: 23275 \tBlocks: 24 IO Block: 65536 regular file" [3] "Device: ccb8ef80h/3434672000d\tInode: 7599824371212915 Links: 1" [4] "Access: (0644/-rw-r--r--) Uid: (197609/ unyo) Gid: (197609/ UNKNOWN)" [5] "Access: 2017-05-09 20:31:06.563641200 +0900" [6] "Modify: 2017-10-06 18:09:07.281134500 +0900" [7] "Change: 2017-10-06 18:09:07.281134500 +0900" [8] " Birth: 2017-05-09 20:31:06.563641200 +0900" このままだと扱いずらいのでファイル作成日だけ抽出します
> hoge <- sub(" Birth: ", "", test[grep("Birth", hoge)]) > hoge [1] "2017-05-09 20:31:06.563641200 +0900" 今回は確実に作成日の行を取得する為にgrepで"Birth"のある行を検索して指定してます
インデックスで指定しろよ！とかいうクレームは受け付けません( ｀ー´)ノ

Windowsコマンド > hoge <- shell(paste0("dir /tc ", "hoge.txt"), intern = TRUE) > hoge [1] " ドライブ C のボリューム ラベルがありません。" [2] " ボリューム シリアル番号は CCB8-EF80 です" [3] "" [4] " C:\\Users\\yuri のディレクトリ" [5] "" [6] "2017/05/09 20:31 23,275 hoge.txt" [7] " 1 個のファイル 23,275 バイト" [8] " 0 個のディレクトリ 239,947,841,536 バイトの空き領域" ファイル作成日だけ抽出
> hoge <- sub(" {3}.*", "", hoge[grep("hoge.txt", hoge)]) > hoge [1] "2017/05/09 20:31"
次は日時オブジェクトにキャストします

"POSIXct" (1970年元旦からの符号付き経過秒) > hoge <- as.POSIXct(hoge) > hoge [1] "2017-11-26 11:58:35 JST" "POSIXlt" 名前ラベルを持つ文字列リスト > hoge <- as.POSIXlt(hoge) > hoge [1] "2017-11-26 11:57:24 JST" >hoge$sec #0-61/秒 [1] 24.02333 >hoge$min #0-59/分 [1] 57 >hoge$hour #0-23/時 [1] 11 >hoge$mday #1-31/日 [1] 26 >hoge$mon #0-11/月 [1] 10 >hoge$year #1900年からの経過年数 [1] 117 >hoge$wday # 0-6/曜日、日曜日から [1] 0 >hoge$yday # 0-365/１年の経過日数 [1] 329 >hoge$isdst # 正は有効，0は無効，負は不明/サマータイム(daylight saving time)フラグ [1] 0

最後尾の検索対象文字列のインデックス

"regexpr"で返されるインデックスは最初に一致したインデックス
最後に一致したインデックスが欲しいのでオプションを指定して・・・
もしくは別の関数で・・・といかないのがR言語？なのですｗ
というわけで応急処置の備忘録です！ >max(grep("c", strsplit("aabcabccc"), split = "")[[1]]) [1] 9 文字列を１文字ずつバラシて格納したリストに"grep"をかけて一致したインデックス全てを格納したリストを取得
そのリストに対して"max"関数を使うことで最後に一致したインデックスを取得してます。
"max"を"min"にしたら"regexpr"の醜い版ですね(;´∀｀)b

最近、１人孤独にR言語に悪戦苦闘してるのでTIPSを書き残してく事にしました;つД｀)
誰か助けてっ！
と、叫んでみても誰も助けてくれない非情な現場・・・ウソですｗ
でもプロジェクト今のところ１人だし・・・
っていうか、実力不足過ぎて悲しい

というわけで、みなさま最後まで見て頂き、ありがとうございました( *´ω`) _U~~