4 敏感性作物調查
4.1 背景說明
資料庫設置目的
歷年調查品項
聯絡窗口:農糧署劉彥彤技佐。
資料索取:逢甲楊老師
4.2 資料欄位
- 檔案位置:
Z:\03-調查統計科\001_農業統計整合資料庫\001_農業統計整合資料庫\01--休耕、耕鋤、災害\原始資料\清冊檔\pdadecl(敏感性作物+全鄉性調查)\
4.2.1 歷年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) | 無使用 |
4.2.2 河川地註記
代碼 | 定義 |
---|---|
1 | 地籍 |
2 | 河川地 |
4.2.3 作物生長期
代碼 | 定義 |
---|---|
1 | 定植期 |
2 | 蓮坐期 |
3 | 豎立期 |
4 | 結球期 |
5 | 已採收 |
6 | 待判 |
4.2.4 資料庫清單
- 101pdadecl: 101年資料
- 102PDA: 102年不完整資料
- 103pda_newRD1: 102年完整資料
- 103pdadecl: 103年資料
- 104pdadecl: 104年資料
- 105pdadecl: 105年處理資料(
移除地段地號為16碼且中間有R的
、排除地段地號不為15碼的資料
) - raw_105pdadecl: 105年原始資料
- raw_106pdadecl: 106年原始資料
4.3 資料處理過程
1.R套件匯入
setwd("Z:\\03-調查統計科\\001_農業統計整合資料庫\\001_農業統計整合資料庫\\01--休耕、耕鋤、災害\\原始資料\\清冊檔\\pdadecl(敏感性作物+全鄉性調查)\\106")
library(tidyverse)
library(prettydoc) # for beautiful markdown doc.
library(readxl) # under tidyverse.
library(tidyverse)
- 資料處理
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)