R：SUBSTR（）の結果は、異なるループとベクトル

Question

のために私は、文字列のリストから最後の3つの文字を遮断するために、SUBSTRを使用しています：postal_code0

postal_code0 
>[1] "n14BE" "n14BE" "n14BE" "n14BE" "n14BE" "N16DD" "N16DD" "N16DD" "N16DD" "N16DD" 
>[11] "N11TW" "N11TW" "N11TW" "N11TW" "N11TW" "n5"  "N160LU" "N2"  "N200AU" "N200AU" 
>[21] "london" "n15"  "N5"  ""  

> outcode <- substr(postal_code0, 1, nchar(postal_code0)-3) 
> outcode 
[1] "n1" "n1" "n1" "n1" "n1" "N1" "N1" "N1" "N1" "N1" "N1" "N1" "N1" "N1" "N1" 
[16] ""  "N16" ""  "N20" "N20" "lon" ""  ""  ""  

は、それは私がしたい、完全にいくつかの要素を削除します私は同じ機能のためにループを使用する場合は、私が望む結果を返します。

> outcode0 <- c() 
> for (i in 1: length(postal_code0)){ 
+ outcode0[i] <- substr(postal_code0[i], 1, nchar(postal_code0)-3) 
+ } 

> outcode0 
[1] "n1" "n1" "n1" "n1" "n1" "N1" "N1" "N1" "N1" "N1" "N1" "N1" "N1" "N1" "N1" "n5" "N1" "N2" "N2" "N2" "lo" 
[22] "n1" "N5" "" 

2つの機能の違いは何ですか？と入手方法

outcode0 

forループを使用しないで？

Answer 1

以下が何をすべきあなたが左に最後のコメントによると：

len <- nchar(postal_code0) 
substring(postal_code0, 1, ifelse(len <= 3, len, len - 3))