細分メッシュの値を4次メッシュで集計したい時などに使用

4次メッシュコード=3次メッシュコード8桁×10+1, 2, 3, 4
細分メッシュコード=次メッシュコード8桁×100 + 00, 01, 02….98, 99

いずれも左下隅から右上隅に向けて左端折り返しで増加

細分メッシュコードをL03b_001とすると

m3<-substr(L03b_001,1,8)   #3次メッシュコード
d1<-as.numeric(substr(L03b_001,10,10))　#細分メッシュ下一桁
d2<-as.numeric(substr(L03b_001,9,9))        #細分メッシュ2桁目
m41<-numeric(length(d1))                            #4次メッシュ下一桁格納用（m41<-d1でも可）
m41[d2<5]<-1     #0から49であれば1or2
m41[d2>=5]<-3  #50から99であれば3or4
m41[d1>=5]<-m41[d1>=5]+1  #下一桁が5以上であれば2or4
m4<-paste(m3,m41,sep="")