質問編集履歴

2

タイトルにて質問を修正したことを明記しました。

2021/05/23 12:44

投稿

haruake
haruake

スコア4

test CHANGED
@@ -1 +1 @@
1
- 追加質問】Rを用いて、複数の住所を緯度経度のある住所録から抽出する。
1
+ 【質問修正】Rを用いて、複数の住所を緯度経度のある住所録から抽出する。
test CHANGED
@@ -94,4 +94,4 @@
94
94
 
95
95
 
96
96
 
97
- #ここまでで結果が終わり、残り2行の住所の緯度経度がでませんでした。
97
+ ここまでで結果が終わり、残り2行の住所の緯度経度がでませんでした。

1

質問したい部分がはっきりするように書き換えました。

2021/05/23 12:44

投稿

haruake
haruake

スコア4

test CHANGED
File without changes
test CHANGED
@@ -8,53 +8,43 @@
8
8
 
9
9
 
10
10
 
11
- ##前回までの質問
11
+ > x<-read.csv("C://27_2019.csv")
12
12
 
13
- x<-read.csv("C://27_2019.csv")
13
+ > head(x,3)
14
14
 
15
- head(x,3)
15
+ 都道府県名 市区町村名 大字.丁目名 小字.通称名 街区符号.地番 座標系番号 X座標 Y座標 緯度 経度 住居表示フラグ 代表 フラグ 更新前履歴フラグ
16
16
 
17
- 都道府県名 市区町村名 大字.丁目名 小字.通称名 街区符号.地番 座標系番号 X座標 Y座標 緯度 経度 住居表示フラグ 代表フラグ 更新前履歴フラグ
17
+ 1 大阪府 大阪都島 毛馬三丁目 8 6 -141814.1 -44144.5 34.72071 135.5180 1
18
18
 
19
- 1 大阪府 大阪市都島区 毛馬町三丁目 8 6 -141814.1 -44144.5 34.72071 135.5180 1 1 0
19
+ 1 0
20
20
 
21
- 2 大阪府 大阪市都島区 毛馬町三丁目 7 6 -141711.3 -44137.4 34.72163 135.5181 1 1 0
21
+ 2 大阪府 大阪市都島区 毛馬町三丁目 7 6 -141711.3 -44137.4 34.72163 135.5181 1
22
22
 
23
- 3 大阪府 大阪市都島区 毛馬町三丁目 7 6 -141756.2 -44139.3 34.72123 135.5181 1 0 0
23
+ 1 0
24
24
 
25
- 更新後履歴フラグ
25
+ 3 大阪府 大阪市都島区 毛馬町三丁目 7 6 -141756.2 -44139.3 34.72123 135.5181 1
26
26
 
27
- 1 0
27
+ 0 0
28
28
 
29
- 2 0
29
+ 更新後履歴フラグ
30
30
 
31
+ 1 0
32
+
33
+ 2 0
34
+
31
- 3 0
35
+ 3 0
32
36
 
33
37
 
34
38
 
35
- y<-apply(x,1,function(xx){paste(xx,collapse = "")})
39
+ > y<-apply(x,1,function(xx){paste(xx,collapse = "")})
36
40
 
37
- head(y,3)
41
+ > head(y,3)
38
42
 
39
- [1] "大阪府大阪市都島区毛馬町三丁目86-141814.1-44144.534.72071135.51801100" "大阪府大阪市都島区毛馬町三丁目76-141711.3-44137.434.72163135.51811100"
43
+ > [1] "大阪府大阪市都島区毛馬町三丁目86-141814.1-44144.534.72071135.51801100" "大阪府大阪市都島区毛馬町三丁目76-141711.3-44137.434.72163135.51811100"
40
44
 
41
- [3] "大阪府大阪市都島区毛馬町三丁目76-141756.2-44139.334.72123135.51811000"
45
+ > [3] "大阪府大阪市都島区毛馬町三丁目76-141756.2-44139.334.72123135.51811000"
42
46
 
43
47
 
44
-
45
- target<-"大阪府大阪市都島区毛馬町三丁目8"
46
-
47
- xnum<-grep(target,y)
48
-
49
- z<-x[xnum,9:10]
50
-
51
- z
52
-
53
- 緯度 経度
54
-
55
- 1 34.72071 135.518
56
-
57
- ##以降が追加の質問
58
48
 
59
49
  > a<-read.csv("C://test.csv")
60
50
 
@@ -68,25 +58,9 @@
68
58
 
69
59
  3 大阪府泉南市樽井七丁目33
70
60
 
71
- > target<-a
72
-
73
- > xnum<-grep(target,y)
74
-
75
- > z<-x[xnum,9:10]
76
-
77
- > z
78
-
79
- [1] 緯度 経度
80
-
81
- <0 行> (または長さ 0 の row.names)
82
61
 
83
62
 
84
-
85
- #ここで求めている結果ではなかったので、とりあえずaをマトリクスにしました。
86
-
87
-
88
-
89
- > c<-as.matrix(a)
63
+ > c<-as.matrix(a)
90
64
 
91
65
  > c
92
66