-
Notifications
You must be signed in to change notification settings - Fork 0
/
04-敏感性作物調查.Rmd
90 lines (72 loc) · 3.41 KB
/
04-敏感性作物調查.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
# 敏感性作物調查
***
## 背景說明
### 資料庫設置目的 {-}
### 歷年調查品項 {-}
* 聯絡窗口：農糧署劉彥彤技佐。
* 資料索取：逢甲楊老師
## 資料欄位
* 檔案位置：`Z:\03-調查統計科\001_農業統計整合資料庫\001_農業統計整合資料庫\01--休耕、耕鋤、災害\原始資料\清冊檔\pdadecl(敏感性作物+全鄉性調查)\`
### 歷年Schema
欄位-中文 | 欄位-英文 | 欄位屬性 | 定義
-------------|--------------|---------------|----------
土地座落 | landNo | varchar(16) | 15碼地段地號
面積 | DCL_CHGA1 | float | 公頃
作物代碼 | DCL_CHGCD1 | char(3) | 可參照`phstemp_code`，轉換為中文
分子 | NUM | numeric(18,0) |
分母 | DENO | numeric(18,0) |
勘查日期 | UPDATE | char(8) |
處別代碼 | PT_ID | char(2) |
鄉鎮代碼 | EID | char(4) |
變更使用面積 | LNDCHRA | float | 公頃
土地面積 | LNDARA | float | 公頃
狀況 | STATUS | char(2) | 0與NA
河川地註記 | DCL_LNDTYPE | varchar(2) | 見下方說明
作物生長期 | DCL_BRTYP | varchar(2) | 見下方說明
保留1 | DCL_TRTYP | varchar(50) |
保留2 | DCL_TRDATE | varchar(50) |
異動時間 | UPDTIME | varchar(50) |
土地使用區分 | 土地使用區分 | varchar(50) | 無使用
編定使用種類 | 編定使用種類 | varchar(50) | 無使用
### 河川地註記
代碼 | 定義
-----|-------
1 | 地籍
2 | 河川地
### 作物生長期
代碼 | 定義
-----|------
1 | 定植期
2 | 蓮坐期
3 | 豎立期
4 | 結球期
5 | 已採收
6 | 待判
### 資料庫清單
- 101pdadecl: 101年資料
- 102PDA: 102年不完整資料
- 103pda_newRD1: 102年完整資料
- 103pdadecl: 103年資料
- 104pdadecl: 104年資料
- 105pdadecl: 105年處理資料(`移除地段地號為16碼且中間有R的`、`排除地段地號不為15碼的資料`)
- raw_105pdadecl: 105年原始資料
- raw_106pdadecl: 106年原始資料
## 資料處理過程
1.R套件匯入
```{r eval=FALSE}
setwd("Z:\\03-調查統計科\\001_農業統計整合資料庫\\001_農業統計整合資料庫\\01--休耕、耕鋤、災害\\原始資料\\清冊檔\\pdadecl(敏感性作物+全鄉性調查)\\106")
library(tidyverse)
library(prettydoc) # for beautiful markdown doc.
library(readxl) # under tidyverse.
library(tidyverse)
```
2. 資料處理
```{r eval=FALSE}
file <- read_excel("6敏感作物備份106年.xlsx") # use readr package under tidyverse
dim(file) # rows: 73089 columns: 18
names(file) <- c("landNo", "DCL_CHGA1", "DCL_CHGCD1", "NUM", "DENO", "UPDATE", "PT_ID", "EID", "LNDCHRA", "LNDARA", "STATUS", "DCL_LNDTYPE", "DCL_BRTYP", "DCL_TRTYP", "DCL_TRDATE", "UPDTIME", "土地使用區分", "編定使用種類") # follow schema.
file2 <- file[-which(nchar(file$landNo) !=15),] # remove landNo = M080040808960044
write.table(file2, "raw_106pdadecl.txt", sep=",", row.names=F, quote=FALSE) # import into SQL(sensitive.dbo.raw_106pdadecl)
```