Contents

1 谿剰鍵
2 覦蠑瑚鍵
3 豢豌


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

2 覦蠑瑚鍵 #

sub 覓語伎 譟郁唄 襷 豌 覿覿 襦 覦蠖譴. gsub 豌 覿覿襷 覈 覿覿 襦 覦蠖譴. e襯 !襦 覦蠑碁 .
> sub('e', '!', test)
[1] "kor!an"  "!nglish" "fr!nch" 

3 豢豌 #