質問編集履歴
2
8番地の8まで入れると解決しました
test
CHANGED
File without changes
|
test
CHANGED
@@ -3,6 +3,8 @@
|
|
3
3
|
Rを用いて、住所から緯度経度情報を取得することを行っています。住所と緯度経度データは国土交通省から提供されているデータ(大阪府)をcsv形式で保存しています。住所入力をすることで、緯度列、経度列のデータを抽出したいのですが、実際にコードを書いてみるとNA NA NAとなり、緯度経度が抽出できませんでした。
|
4
4
|
|
5
5
|
どのように改善すれば、適切にデータを抽出できるでしょうか。
|
6
|
+
|
7
|
+
→解決しました!
|
6
8
|
|
7
9
|
|
8
10
|
|
@@ -40,19 +42,25 @@
|
|
40
42
|
|
41
43
|
|
42
44
|
|
43
|
-
> target<-"大阪府大阪市都島区毛馬町三丁目"
|
45
|
+
> target<-"大阪府大阪市都島区毛馬町三丁目8"
|
44
46
|
|
45
47
|
> xnum<-pmatch(target,y)
|
46
48
|
|
49
|
+
> target<-"大阪府大阪市都島区毛馬町三丁目8"
|
50
|
+
|
51
|
+
> pmatch(target,y)
|
52
|
+
|
47
|
-
[1]
|
53
|
+
[1] 1
|
54
|
+
|
55
|
+
> xnum<-pmatch(target,y)
|
48
56
|
|
49
57
|
> z<-x[xnum,9:10]
|
50
58
|
|
51
59
|
> z
|
52
60
|
|
53
|
-
緯度 経度
|
61
|
+
緯度 経度
|
54
62
|
|
55
|
-
|
63
|
+
1 34.72071 135.518
|
56
64
|
|
57
65
|
|
58
66
|
|
1
target変数の入力文字を修正し、x,yの頭から3行目を追記しました。
test
CHANGED
@@ -1 +1 @@
|
|
1
|
-
Rを用いて、住所から緯度経度を抽出する。
|
1
|
+
【修正しました】Rを用いて、住所から緯度経度を抽出する。
|
test
CHANGED
@@ -10,16 +10,50 @@
|
|
10
10
|
|
11
11
|
> x<-read.csv("C://27_2019.csv")
|
12
12
|
|
13
|
-
>
|
13
|
+
> head(x,3)
|
14
14
|
|
15
|
+
都道府県名 市区町村名 大字.丁目名 小字.通称名 街区符号.地番 座標系番号 X座標 Y座標 緯度 経度 住居表示フラグ 代表フラグ 更新前履歴フラグ
|
16
|
+
|
17
|
+
1 大阪府 大阪市都島区 毛馬町三丁目 8 6 -141814.1 -44144.5 34.72071 135.5180 1 1 0
|
18
|
+
|
19
|
+
2 大阪府 大阪市都島区 毛馬町三丁目 7 6 -141711.3 -44137.4 34.72163 135.5181 1 1 0
|
20
|
+
|
21
|
+
3 大阪府 大阪市都島区 毛馬町三丁目 7 6 -141756.2 -44139.3 34.72123 135.5181 1 0 0
|
22
|
+
|
23
|
+
更新後履歴フラグ
|
24
|
+
|
25
|
+
1 0
|
26
|
+
|
27
|
+
2 0
|
28
|
+
|
29
|
+
3 0
|
30
|
+
|
31
|
+
|
32
|
+
|
33
|
+
> y<-apply(x,1,function(xx){paste(xx,collapse = "")})
|
34
|
+
|
35
|
+
> head(y,3)
|
36
|
+
|
37
|
+
[1] "大阪府大阪市都島区毛馬町三丁目86-141814.1-44144.534.72071135.51801100" "大阪府大阪市都島区毛馬町三丁目76-141711.3-44137.434.72163135.51811100"
|
38
|
+
|
39
|
+
[3] "大阪府大阪市都島区毛馬町三丁目76-141756.2-44139.334.72123135.51811000"
|
40
|
+
|
41
|
+
|
42
|
+
|
15
|
-
> target<-"大阪府大阪市
|
43
|
+
> target<-"大阪府大阪市都島区毛馬町三丁目"
|
16
44
|
|
17
45
|
> xnum<-pmatch(target,y)
|
18
46
|
|
47
|
+
[1] NA
|
48
|
+
|
19
49
|
> z<-x[xnum,9:10]
|
20
50
|
|
21
|
-
>
|
51
|
+
> z
|
22
52
|
|
23
53
|
緯度 経度
|
24
54
|
|
25
55
|
NA NA NA
|
56
|
+
|
57
|
+
|
58
|
+
|
59
|
+
以上です。
|