_覓 | 覦覈襦 | 豕蠏手 | 殊螳 | 譯殊碁 |
FrontPage › 覓語伎鮎蠍一覦蠑瑚鍵
|
|
R ろ碁ゼ る れ れ 螻牛. 覲危 蠍企 螳 襦語 'ク讌' 覃伎 '谿剰鍵' '覦蠑瑚鍵' 企麹 れ R 襷谿螳讌. '谿剰鍵' 企麹 grep, regexpr, gregexpr 螻 '覦蠑瑚鍵' 企麹 sub gsub螳 .
[edit]
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 1grep, 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
鏤
|
る 襷覲企る 蠍 る 襷 れ企. |