numericによる数値化がうまくいきません

Question

Rで
nattoというデータ
<str(natto)>
'data.frame': 51 obs. of 3 variables:
$ city : chr "水戸市" "福島市" "山形市" "盛岡市" ...
$ money : int 5432 5417 5289 5213 5035 5003 4812 4436 4416 4378 ...
$ region: chr "東日本" "東日本" "東日本" "東日本" ...

における説明変数regionを数値化したいのですが（東日本が１、西日本が２、中日本が３というふうに）
<natto2<-natto
natto2$region<-as.numeric(natto2$region)>
を実行すると

警告メッセージ:
強制変換により NA が生成されました

というメッセージが出てきて
str(natto2)
'data.frame': 51 obs. of 3 variables:
$ city : chr "水戸市" "福島市" "山形市" "盛岡市" ...
$ money : int 5432 5417 5289 5213 5035 5003 4812 4436 4416 4378 ...
$ region: num NA NA NA NA NA NA NA NA NA NA ...

このように$regionがすべてNAになってしまいます。
どうすればうまく数値化できますか？
なぜこのようなエラーが起きるのでしょうか、教科書では実行できています。

Answer 1

うまくいったという教科書の例では、natto$regionがcharacterでなくfactor型になっていたのだと思います。

> df <- data.frame(a=c(1,2,3), b=c("a","b","c"))
> as.numeric(df$b)
[1] 1 2 3
> df <- data.frame(a=c(1,2,3), b=c("a","b","c"), stringsAsFactors=F)
> as.numeric(df$b)
[1] NA NA NA
Warning message:
NAs introduced by coercion 
> as.numeric(as.factor(df$b))
[1] 1 2 3