R ろ碁ゼ る れ れ 螻牛. 覲危 蠍企 螳 襦語 'ｸ讌' 覃伎 '谿剰鍵' '覦蠑瑚鍵' 企麹 れ R 襷谿螳讌. '谿剰鍵' 企麹 grep, regexpr, gregexpr 螻 '覦蠑瑚鍵' 企麹 sub gsub螳 .
1 谿剰鍵 #
grep 覓語 覯″一 譟郁唄 襷 覓語伎 豺襯 谿場譴. 覦覃 regexpr 螳螳 覓語伎 譟郁唄 襷 覓語伎 豺襯 谿城. 企 襷覲企 螳讌 襦 誤企慨.
> test <- c('korean', 'english', 'french')
> grep('e',test)
[1] 1 2 3
> grep('h',test)
[1] 2 3
test 覯″一 'korean', 'english','french' 螳 覓語伎 れ伎. 豌覯讌 grep('e',test) test 覯″一 覓語 'e'襯 覓語企れ 谿城. 1,2,3覯讌 覓語伎 覈 朱襦 覯″ c(1,2,3) れ.
覯讌 grep('h',test) test 覯″一 覓語 'h'襯 覓語企れ 谿城. 'korean' 'h'螳 朱襦 覯″ c(2,3) れ.
れ regexpr 蟆曙磯ゼ 覲伎.
> regexpr('e',test)
[1] 4 1 3
attr(,"match.length")
[1] 1 1 1
> regexpr('h',test)
[1] -1 7 6
attr(,"match.length")
[1] -1 1 1
regexpr('e',test) 螳螳 覓語伎 'e'螳 [b]豌 豺[b]襯 谿城. korean e螳 4覯讌語 螻, english 1覯讌, french 3覯讌語 朱襦 4,1,3 れ. regexpr('h',test) 襷谿螳讌襦 h 豺襯 谿城 korean h螳 朱襦 -1 れ.
gregexpr regexpr螻 螳讌襷 譟郁唄 襷 覈 豺襯 谿城.
> gregexpr('n', c('banana','nonnegative') )
[[1]]
[1] 3 5
attr(,"match.length")
[1] 1 1
[[2]]
[1] 1 3 4
attr(,"match.length")
[1] 1 1 1
grep, regexpr, gregexpr 譟郁唄 '蠏(regular expression)'企朱 蟆 . 誤 伎
regex襯 ロ 覲企襦.
一危壱企 grep 伎 譟郁唄 企 伎 螻朱 . 襯 れ 貉殊企 "la","lc","ma","mc","sa","sc" 一危壱 df螳 り .
> names(df)
[1] "la" "lc" "ma" "mc" "sa" "sc"
襷 m朱 貉朱れ 螻朱願 矩る 螳危覃 . (^ 蠏 覓語伎 企 企.)
> df[ grep('^m', names(df)) ]
ma mc
1 0.4686332 -2.3181391
2 1.0686862 0.2932005
3 0.4965347 -1.3098333
4 2.4982473 1.8050339
5 1.0137877 0.7284994
6 -0.6003186 0.6879484
企 譯 朱襦 襦 襷れ企覃 ｸ襴.
> select <- function(data, pattern) data[ grep( pattern, names(data)) ]
襷 a襦 伎 谿剰 矩る 螳 覃 . ( $ 蠏 覓語伎 碁. )
> select(df,'a$')
la ma sa
1 0.8996971 0.4686332 0.8957182
2 -1.8208916 1.0686862 -1.1269750
3 0.8384951 0.4965347 -0.3537658
4 0.3292016 2.4982473 0.9121382
5 -0.1956051 1.0137877 0.9058837
6 2.0065870 -0.6003186 0.9657682