利用DataTaipei套件搜尋不動產相關資料集, 並作進一步的統計分析,展現R 語言的資料分析能力。
suppressPackageStartupMessages({
library(DataTaipei)
library(dplyr)
library(googleVis)
library(memisc)
library(xtable)
# for rmarkdown
op <- options(gvis.plot.tag='chart')
})
## Warning: package 'memisc' was built under R version 3.1.3
## Warning: package 'MASS' was built under R version 3.1.3
透過dataSetMetadataSearch
,我們可以取得關於不動產的搜尋結果:
rs <- dataSetMetadataSearch("不動產")
knitr::kable(rs)
id | title | type | category | metadata_modified | accrualPeriodicity | contactEmail | contactName | contactPhone | cost | costLaw | costURL | description | fieldDescription | issued | language | numberOfData | orgId | orgName | organizationContactEmail | organizationContactName | organizationContactPhone | organizationName | relatedUrl | spatial | subOrgId | subOrgName | temporalCoverageFrom | temporalCoverageTo | tag |
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
c59c1a1f-732b-4976-a1cc-a9fb8784af51 | 不動產經紀業裁罰 | 原始資料 | 公共資訊 2015-0 | 5-14 18:58:50 每年 | oa-0835@mai | l.taipei.gov.t | w 謝偉薇 | 27287 | 444 | 免費 | 不動產經紀業者經本局查處違反不動產經紀業管理條例予以裁罰之相關資料 | 裁處日期、業者名稱、裁罰金額、違反法條 | 2015-05-14 BIG5 | 379700 | 000A 臺北市政府地政局 | 臺北市 | 政府地政局 | 2015-01-01 2015-04-30 不動產經紀業裁罰, | |||||||||||
9527ea34-7c55-4c23-9f0e-80164f888f06 | 捷運聯合開發公有不動產標售物 | 件資料 | 原 | 始資料 交通及通訊 | 2015-05-22 10:25:5 | 0 不定期 4 | 1410@trts.dort | s.gov.tw 潘玉娟 | 02-252 | 15550-8071 | 免費 捷運聯合開發公有不動產標售物件資料 | 門牌號碼、主建物面積、附屬建物面積、產權面積、標售底價、押標金 | 2015-05-13 中 | 文 139筆 | 379510000H 臺北市政府捷運 | 工程局 41410@trts | .dorts.gov.tw | 潘玉 | 娟 | 02-25215550-8071 | 臺北市政府捷運工 | 程局 2015-04-08 2015-05-22 捷運,標售,聯合開發, | |||||||
27b9c616-f68c-4856-bb39-ef9ed0478c96 | 捷運聯合開發公有不動產非統一 | 經營部分 | 預計出租標的 | 原始資料 交通及通 | 訊 2015-05-18 11 | :00:12 不定期 | hcchan@trt | s.dorts.gov.tw | 蔣曉珍 | 02-2521555 | 0-8547 免費 捷運聯合開發公有不動產非統一經營部分預計出租標的 | 捷運線別 | |||||||||||||||||
基地名稱 | |||||||||||||||||||||||||||||
使用用途 | |||||||||||||||||||||||||||||
戶數 | |||||||||||||||||||||||||||||
坪數分佈 | |||||||||||||||||||||||||||||
車位 | |||||||||||||||||||||||||||||
租金分佈 | |||||||||||||||||||||||||||||
承辦人 | |||||||||||||||||||||||||||||
承辦人聯絡電話 | 2015-04-30 中文 11 379510000H 臺北市政府捷運工程局 ychwang@trts.dorts.gov.tw 黃月琴 25215550#8546 臺北市政府捷運工程局 2015-01-01 2015-04-30 捷運,聯合開發, | ||||||||||||||||||||||||||||
a9a97996-3a55-46c8-9076-e5ebdefad6dc | 實價周報 | 原始 | 資料 購屋 | 及遷徙 2015-05-20 | 05:50:38 每週 | oa-0779@mail.ta | ipei.gov.tw | 張家銘 02 | -272874 | 24-7424 | 免費 無 | 無 臺北市不動產成交案件實際資訊申報登錄資訊(係為產製當時之資料,後續系統維護致資料異動,可利用臺北市不動產資訊與居住服務入口網(http://tred.gov.taipei /tr | ueprice/trueprice-a-1.aspx)所提供不動產交易實價查詢功能查閱最新實價資訊狀態,該系統會同步更新買賣、預售屋及租賃之交易實價資料。) 成交案件類型(CASE_T)、行政區(DISTRICT)、交易標的/租賃標的(CASE_F)、土地區段位置或建物區門牌(LOCATION)、土地移轉總面積(坪)/土地租賃總面積(坪)(LANDA)、都市土地使用分區(LANDA_Z)、交易年月(SDATE)、交易筆棟數/租賃筆棟數(SCNT)、移轉層次(SBUILD)、總樓層數(TBUILD)、建物型態(BUITYPE)、主要用途(PBUILD)、主要建材(MBUILD)、建築完成年月(FDATE)、建物移轉總面積(坪)/租賃總面積(坪)(FAREA)、建物現況 | 格局_房(BUILD | _R)、建物現 | 況格局_廳(BUILD | _L)、建物現況 | 格局_衛(BUILD | B)、建物現況格局_隔間(BUILD | P)、有無管理組織(RULE)、有 | 無附傢俱(BUILD_C)、交易總價 | (萬元)/租賃總價(萬元 | )(TPRICE)、交 | 易單價(萬元 | /坪)/租賃單 | 價(元/坪)(UPR | ICE)、單價是否含車位(UP | NOTE)、車位類別及數量 | (PARKTYPE)、車位移轉總面積(坪)/車位租賃總面積(坪)(PAREA)、車位移轉總價(萬元)/車位租賃總價(元)(PPRICE)、備註(RMNOTE) 每週三 中文 1617 379700000A 臺北市政府地政局 oa-0779@mail.taipei.gov.tw 張家銘 02-27287424-7424 臺北市政府地政局 當週揭露之實價登錄資訊 當週揭露之實價登錄資訊 不動產,交易實際資訊,實價查詢,實價登錄, |
本文件以第四筆的搜尋結果為例。
resources <- getResources(rs, 4)
rid <- resources$resourceId[1]
df <- resourceAquire(rid)
# df
整理時間欄位後,再從dataSetMetadataSearch
中取得欄位資訊:
df <- mutate(df, `SDATE`=as.Date(as.character(SDATE + 19110000),"%Y%m%d"))
colnames(df)[-1] <- strsplit(rs$fieldDescription[4], "、", useBytes = TRUE)[[1]]
knitr::kable(dplyr::select(df,
`成交案件類型(CASE_T)`,
`行政區(DISTRICT)`,
`都市土地使用分區(LANDA_Z)`,
`交易總價(萬元)/租賃總價(萬元)(TPRICE)`,
`交易單價(萬元/坪)/租賃單價(元/坪)(UPRICE)`
) %>% head)
成交案件類型(CASE | _T) 行政區(DIS | TRICT) 都市土地使用 | 分區(LANDA_Z) 交易總價(萬 | 元)/租賃總價(萬元)(TPRICE) 交易單價(萬元/坪)/租賃單價(元/坪)(UPRICE) |
---|---|---|---|---|
買賣 | 內湖區 | 工 | 150 0.00 | |
買賣 | 松山區 | 其他 | 325 0.00 | |
買賣 | 大安區 | 其他 | 6600 113.34 | |
買賣 | 內湖區 | 住 | 2085 78.21 | |
租賃 | 中山區 | 商 | 2 1382.49 | |
租賃 | 中山區 | 商 | 7 1143.79 |
group_by(df, `都市土地使用分區(LANDA_Z)`) %>%
summarise(count = length(`_id`)) %>%
gvisBarChart(yvar = "count")
group_by(df, `行政區(DISTRICT)`) %>%
summarise(count = length(`_id`)) %>%
gvisBarChart(yvar = "count")
m <- filter(df, `成交案件類型(CASE_T)` == "買賣") %>%
lm(formula = `交易單價(萬元/坪)/租賃單價(元/坪)(UPRICE)` ~
`單價是否含車位(UPNOTE)` +
`主要建材(MBUILD)` +
`行政區(DISTRICT)` +
`都市土地使用分區(LANDA_Z)`)
print.xtable(xtable(m), type = "html")
Estimate | Std. Error | t value | Pr(>|t|) | |
---|---|---|---|---|
(Intercept) | 87.4745 | 25.0119 | 3.50 | 0.0005 |
單價是否含車位(UPNOTE) 否
|
47.5464 | 7.9084 | 6.01 | 0.0000 |
單價是否含車位(UPNOTE) 是
|
45.5912 | 9.1880 | 4.96 | 0.0000 |
主要建材(MBUILD) 加強磚造
|
-48.4023 | 13.6192 | -3.55 | 0.0004 |
主要建材(MBUILD) 土造
|
-60.0245 | 50.1604 | -1.20 | 0.2319 |
主要建材(MBUILD) 磚造
|
-63.9492 | 49.8077 | -1.28 | 0.1997 |
主要建材(MBUILD) 見使用執照
|
-91.3995 | 25.5737 | -3.57 | 0.0004 |
主要建材(MBUILD) 見其他登記事項
|
-19.4890 | 16.5027 | -1.18 | 0.2381 |
主要建材(MBUILD) 鋼筋混凝土加強磚造
|
-69.1000 | 50.4284 | -1.37 | 0.1711 |
主要建材(MBUILD) 鋼筋混凝土造
|
-65.9004 | 10.0134 | -6.58 | 0.0000 |
主要建材(MBUILD) 鋼骨混凝土造
|
-114.4033 | 50.7893 | -2.25 | 0.0247 |
主要建材(MBUILD) 鋼骨鋼筋混凝土造
|
-41.0961 | 18.3788 | -2.24 | 0.0257 |
行政區(DISTRICT) 中正區
|
23.8473 | 16.5845 | 1.44 | 0.1510 |
行政區(DISTRICT) 信義區
|
14.3256 | 8.5672 | 1.67 | 0.0950 |
行政區(DISTRICT) 內湖區
|
-7.3409 | 7.9163 | -0.93 | 0.3542 |
行政區(DISTRICT) 北投區
|
-21.2693 | 8.8498 | -2.40 | 0.0166 |
行政區(DISTRICT) 南港區
|
-12.1258 | 11.5022 | -1.05 | 0.2922 |
行政區(DISTRICT) 士林區
|
-19.6045 | 8.6853 | -2.26 | 0.0244 |
行政區(DISTRICT) 大同區
|
-1.6715 | 12.8004 | -0.13 | 0.8962 |
行政區(DISTRICT) 大安區
|
24.5437 | 8.3074 | 2.95 | 0.0033 |
行政區(DISTRICT) 文山區
|
-17.9911 | 8.8362 | -2.04 | 0.0422 |
行政區(DISTRICT) 松山區
|
5.3754 | 10.5674 | 0.51 | 0.6112 |
行政區(DISTRICT) 萬華區
|
1.0909 | 11.6670 | 0.09 | 0.9255 |
都市土地使用分區(LANDA_Z) 住
|
-2.9709 | 23.5374 | -0.13 | 0.8996 |
都市土地使用分區(LANDA_Z) 其他
|
-22.4221 | 24.4643 | -0.92 | 0.3598 |
都市土地使用分區(LANDA_Z) 商
|
-0.9930 | 23.8995 | -0.04 | 0.9669 |
都市土地使用分區(LANDA_Z) 工
|
-7.9645 | 26.8597 | -0.30 | 0.7669 |
都市土地使用分區(LANDA_Z) 農
|
-39.9002 | 42.7874 | -0.93 | 0.3515 |