貸出先別貸出金(四半期調査)(12月) 単位:億円 Source:日本銀行 #アベノミクス #マイナス金利 #追加緩和

library(ggplot2)
library(scales)
library(ggrepel)
windowsFonts(Meiryo=windowsFont("Meiryo"))
g<-ggplot()
g<-g+geom_point(aes(dataset[,2],dataset[,3]),color="red",size=1)
g<-g+geom_text_repel(
  aes(dataset[,2],dataset[,3],label=paste(dataset[,1]),family="Meiryo"),
  size=3,
  box.padding=unit(1,"lines"),
  force=1,
  max.iter=1e4)
g<-g+ggtitle("貸出先別貸出金(四半期調査)(12月) 単位:億円 Source:日本銀行 (注)両軸とも対数(底=10)")
g<-g+xlab(colnames(dataset)[2])+ylab(colnames(dataset)[3])
g<-g+theme(plot.title=element_text(size=15,family="Meiryo"))
g<-g+theme(axis.title.x=element_text(size=15,family="Meiryo")) 
g<-g+theme(axis.title.y=element_text(size=15,family="Meiryo")) 
g<-g+theme(axis.text.x=element_text(size=15,angle=0,family="Meiryo")) 
g<-g+theme(axis.text.y=element_text(size=15,angle=90,family="Meiryo")) 
g<-g+scale_x_log10(labels = comma)
g<-g+scale_y_log10(labels = comma)
g
dataset
username<-Sys.info()['user']
pathOutput<-paste("C:/Users/",username,"/Desktop/R_Data_Write/",sep="")
setwd(pathOutput)
htmlFile<-paste(Sys.Date(),"_",runif(1,1000000,9999999)*10,"_buf.html",sep="")
cat("",file=htmlFile,append=F)
print(xtable(dataset),type="html",file=htmlFile,append=T)
業種 期末貸出残高-設備資金 四半期中設備資金貸出額
1 製造業 63515 4634
2 食料 9216 691
3 繊維 1478 111
4 木材・木製品 1398 122
5 パルプ・紙 2328 234
6 印刷 1619 83
7 化学 6838 384
8 石油・石炭 5117 294
9 窯業・土石 1877 354
10 鉄鋼 2276 154
11 非鉄金属 1717 90
12 金属製品 3968 349
13 はん用・生産用・業務用機械 7219 451
14 電気機械 5400 514
15 輸送用機械 8376 475
16 その他の製造業 4675 317
17 農業、林業 1746 233
18 漁業 318 27
19 鉱業、採石業、砂利採取業 3770 226
20 建設業 15529 1605
21 電気・ガス・熱供給・水道業 40083 3230
22 情報通信業 7149 496
23 通信業 3028 224
24 運輸業、郵便業 59044 3614
25 卸売業 21524 1850
26 小売業 25464 1873
27 金融業、保険業 10198 723
28 銀行業、協同組織金融業 6250 329
29 金融商品取引業、商品先物取引業 387 40
30 保険業 532 84
31 貸金業、クレジットカード業等非預金信用機関 1868 121
32 不動産業 445179 24071
33 不動産流動化等を目的とするSPC 27059 2711
34 個人による貸家業 206097 7118
35 不動産関連地方公社等 2178 141
36 物品賃貸業 10271 889
37 学術研究、専門・技術サービス業 5730 417
38 宿泊業 9985 1097
39 飲食業 8200 640
40 生活関連サービス業、娯楽業 20124 2071
41 教育、学習支援業 8464 541
42 医療・福祉 68988 4749
43 医療・保健衛生 51916 3540
44 その他のサービス 24420 2034
45 各種団体 2443 131
46 地方公共団体 66562 2772
47 都道府県・市町村 65777 2756
48 個人(住宅・消費・納税資金等)(a) 1190276 33118
49 住宅・消費(割賦返済分)(b) 1176760 30768
50 海外円借款、国内店名義現地貸 58250 9806

2016年03月29日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第4週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移

2016年03月22日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第3週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移

2016年03月15日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第2週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移