依條件新增欄位

library(data.table)

# 假設只有2個區有資料
district <- data.table(name = c('中正區','萬華區'),
                      value = c(5000,  3000))

# 原本的資料集
house <- data.table(name = c('中正區','大安區','信義區','松山區','文山區','萬華區'),
                    size = sample(20, 6, replace = T))
# 設置key
setkey(district, 'name')
setkey(house, 'name')

# 沒有對應到的可以更改nomatch
district[house, nomatch = NA, mult = 'all']