#1
df <- read.csv("E:\\e-program\\在用数据\\工业-经济数据\\亏损企业本月末-1.csv")
library(ggplot2)
ggplot(data=df,aes(x=`行业`,y=`业扩类型`,fill=`cor均值`))+
geom_tile(col = "white")+
facet_wrap(~`年份`)+
scale_fill_gradient2(low="blue",mid = "white",high = "red",
limit = c(-0.8,0.8),
breaks = c(-0.8,-0.4,0,0.4,0.8))+
#geom_text(aes(label=`cor均值`))+
theme(axis.title = element_blank(),
plot.title = element_text(hjust = 0.5,size = 10,color = "black",face = "italic"),
axis.text.x = element_text(angle = 30,vjust = 0.85,hjust = 0.75))+
labs(title = "亏损企业本月末")
#2
df <- read.csv("E:\\e-program\\在用数据\\工业-经济数据\\流动资产合计本月末-2.csv")
library(ggplot2)
ggplot(data=df,aes(x=`行业`,y=`业扩类型`,fill=`cor均值`))+
geom_tile(col = "white")+
facet_wrap(~`年份`)+
scale_fill_gradient2(low="blue",mid = "white",high = "red",
limit = c(-0.8,0.8),
breaks = c(-0.8,-0.4,0,0.4,0.8))+
#geom_text(aes(label=`cor均值`))+
theme(axis.title = element_blank(),
plot.title = element_text(hjust = 0.5,size = 10,color = "black",face = "italic"),
axis.text.x = element_text(angle = 30,vjust = 0.85,hjust = 0.75))+
labs(title = "流动资产合计本月末")
#3
df <- read.csv("E:\\e-program\\在用数据\\工业-经济数据\\产成品本月末(亿元)-3.csv")
library(ggplot2)
ggplot(data=df,aes(x=`行业`,y=`业扩类型`,fill=`cor均值`))+
geom_tile(col = "white")+
facet_wrap(~`年份`)+
scale_fill_gradient2(low="blue",mid = "white",high = "red",
limit = c(-0.8,0.8),
breaks = c(-0.8,-0.4,0,0.4,0.8))+
#geom_text(aes(label=`cor均值`))+
theme(axis.title = element_blank(),
plot.title = element_text(hjust = 0.5,size = 10,color = "black",face = "italic"),
axis.text.x = element_text(angle = 30,vjust = 0.85,hjust = 0.75))+
labs(title = "产成品本月末(亿元)")
#4
df <- read.csv("E:\\e-program\\在用数据\\工业-经济数据\\资产总计本月末(亿元)-4.csv")
library(ggplot2)
ggplot(data=df,aes(x=`行业`,y=`业扩类型`,fill=`cor均值`))+
geom_tile(col = "white")+
facet_wrap(~`年份`)+
scale_fill_gradient2(low="blue",mid = "white",high = "red",
limit = c(-0.8,0.8),
breaks = c(-0.8,-0.4,0,0.4,0.8))+
#geom_text(aes(label=`cor均值`))+
theme(axis.title = element_blank(),
plot.title = element_text(hjust = 0.5,size = 10,color = "black",face = "italic"),
axis.text.x = element_text(angle = 30,vjust = 0.85,hjust = 0.75))+
labs(title = "资产总计本月末(亿元)")
#5
df <- read.csv("E:\\e-program\\在用数据\\工业-经济数据\\负债合计本月末(亿元）-5.csv")
library(ggplot2)
ggplot(data=df,aes(x=`行业`,y=`业扩类型`,fill=`cor均值`))+
geom_tile(col = "white")+
facet_wrap(~`年份`)+
scale_fill_gradient2(low="blue",mid = "white",high = "red",
limit = c(-0.8,0.8),
breaks = c(-0.8,-0.4,0,0.4,0.8))+
#geom_text(aes(label=`cor均值`))+
theme(axis.title = element_blank(),
plot.title = element_text(hjust = 0.5,size = 10,color = "black",face = "italic"),
axis.text.x = element_text(angle = 30,vjust = 0.85,hjust = 0.75))+
labs(title = "负债合计本月末(亿元)")
#6
df <- read.csv("E:\\e-program\\在用数据\\工业-经济数据\\利润总额(亿元)-6.csv")
library(ggplot2)
ggplot(data=df,aes(x=`行业`,y=`业扩类型`,fill=`cor均值`))+
geom_tile(col = "white")+
facet_wrap(~`年份`)+
scale_fill_gradient2(low="blue",mid = "white",high = "red",
limit = c(-0.8,0.8),
breaks = c(-0.8,-0.4,0,0.4,0.8))+
#geom_text(aes(label=`cor均值`))+
theme(axis.title = element_blank(),
plot.title = element_text(hjust = 0.5,size = 10,color = "black",face = "italic"),
axis.text.x = element_text(angle = 30,vjust = 0.85,hjust = 0.75))+
labs(title = "利润总额(亿元)")
#7
df <- read.csv("E:\\e-program\\在用数据\\工业-经济数据\\亏损企业亏损总额(亿元)-7.csv")
library(ggplot2)
ggplot(data=df,aes(x=`行业`,y=`业扩类型`,fill=`cor均值`))+
geom_tile(col = "white")+
facet_wrap(~`年份`)+
scale_fill_gradient2(low="blue",mid = "white",high = "red",
limit = c(-0.8,0.8),
breaks = c(-0.8,-0.4,0,0.4,0.8))+
#geom_text(aes(label=`cor均值`))+
theme(axis.title = element_blank(),
plot.title = element_text(hjust = 0.5,size = 10,color = "black",face = "italic"),
axis.text.x = element_text(angle = 30,vjust = 0.85,hjust = 0.75))+
labs(title = "亏损企业亏损总额(亿元)")
#8
df <- read.csv("E:\\e-program\\在用数据\\工业-经济数据\\福建规模以上工业增加值当月同比-1.csv")
library(ggplot2)
ggplot(data=df,aes(x=`行业`,y=`业扩类型`,fill=`cor均值`))+
geom_tile(col = "white")+
facet_wrap(~`年份`)+
scale_fill_gradient2(low="blue",mid = "white",high = "red",
limit = c(-0.8,0.8),
breaks = c(-0.8,-0.4,0,0.4,0.8))+
#geom_text(aes(label=`cor均值`))+
theme(axis.title = element_blank(),
plot.title = element_text(hjust = 0.5,size = 10,color = "black",face = "italic"),
axis.text.x = element_text(angle = 30,vjust = 0.85,hjust = 0.75))+
labs(title = "福建规模以上工业增加值当月同比")
#9
df <- read.csv("E:\\e-program\\在用数据\\工业-经济数据\\福建规模以上工业增加值累计同比-2.csv")
library(ggplot2)
ggplot(data=df,aes(x=`行业`,y=`业扩类型`,fill=`cor均值`))+
geom_tile(col = "white")+
facet_wrap(~`年份`)+
scale_fill_gradient2(low="blue",mid = "white",high = "red",
limit = c(-0.8,0.8),
breaks = c(-0.8,-0.4,0,0.4,0.8))+
#geom_text(aes(label=`cor均值`))+
theme(axis.title = element_blank(),
plot.title = element_text(hjust = 0.5,size = 10,color = "black",face = "italic"),
axis.text.x = element_text(angle = 30,vjust = 0.85,hjust = 0.75))+
labs(title = "福建规模以上工业增加值累计同比")
#10
df <- read.csv("E:\\e-program\\在用数据\\固定投资\\固定资产投资完成额累计增长(%)-3.csv")
library(ggplot2)
ggplot(data=df,aes(x=`行业`,y=`业扩类型`,fill=`cor均值`))+
geom_tile(col = "white")+
facet_wrap(~`年份`)+
scale_fill_gradient2(low="blue",mid = "white",high = "red",
limit = c(-0.8,0.8),
breaks = c(-0.8,-0.4,0,0.4,0.8))+
#geom_text(aes(label=`cor均值`))+
theme(axis.title = element_blank(),
plot.title = element_text(hjust = 0.5,size = 10,color = "black",face = "italic"),
axis.text.x = element_text(angle = 30,vjust = 0.85,hjust = 0.75))+
labs(title = "固定资产投资完成额累计增长")
#11
df <- read.csv("E:\\e-program\\在用数据\\固定投资\\建筑安装工程固定资产投资完成额累计增长(%)-4.csv")
library(ggplot2)
ggplot(data=df,aes(x=`行业`,y=`业扩类型`,fill=`cor均值`))+
geom_tile(col = "white")+
facet_wrap(~`年份`)+
scale_fill_gradient2(low="blue",mid = "white",high = "red",
limit = c(-0.8,0.8),
breaks = c(-0.8,-0.4,0,0.4,0.8))+
#geom_text(aes(label=`cor均值`))+
theme(axis.title = element_blank(),
plot.title = element_text(hjust = 0.5,size = 10,color = "black",face = "italic"),
axis.text.x = element_text(angle = 30,vjust = 0.85,hjust = 0.75))+
labs(title = "建筑安装工程固定资产投资完成额累计增长")
#12
df <- read.csv("E:\\e-program\\在用数据\\固定投资\\设备工器具购置固定资产投资完成额累计增长-5.csv")
library(ggplot2)
ggplot(data=df,aes(x=`行业`,y=`业扩类型`,fill=`cor均值`))+
geom_tile(col = "white")+
facet_wrap(~`年份`)+
scale_fill_gradient2(low="blue",mid = "white",high = "red",
limit = c(-0.8,0.8),
breaks = c(-0.8,-0.4,0,0.4,0.8))+
#geom_text(aes(label=`cor均值`))+
theme(axis.title = element_blank(),
plot.title = element_text(hjust = 0.5,size = 10,color = "black",face = "italic"),
axis.text.x = element_text(angle = 30,vjust = 0.85,hjust = 0.75))+
labs(title = "设备工器具购置固定资产投资完成额累计增长")
#13
df <- read.csv("E:\\e-program\\在用数据\\固定投资\\6-其他费用固定资产投资完成额累计增长(%).csv")
library(ggplot2)
ggplot(data=df,aes(x=`行业`,y=`业扩类型`,fill=`cor均值`))+
geom_tile(col = "white")+
facet_wrap(~`年份`)+
scale_fill_gradient2(low="blue",mid = "white",high = "red",
limit = c(-0.8,0.8),
breaks = c(-0.8,-0.4,0,0.4,0.8))+
#geom_text(aes(label=`cor均值`))+
theme(axis.title = element_blank(),
plot.title = element_text(hjust = 0.5,size = 10,color = "black",face = "italic"),
axis.text.x = element_text(angle = 30,vjust = 0.85,hjust = 0.75))+
labs(title = "其他费用固定资产投资完成额累计增长")
#14
df <- read.csv("E:\\e-program\\在用数据\\价格指数\\福建CPI总指数-7.csv")
library(ggplot2)
ggplot(data=df,aes(x=`行业`,y=`业扩类型`,fill=`cor均值`))+
geom_tile(col = "white")+
facet_wrap(~`年份`)+
scale_fill_gradient2(low="blue",mid = "white",high = "red",
limit = c(-0.8,0.8),
breaks = c(-0.8,-0.4,0,0.4,0.8))+
#geom_text(aes(label=`cor均值`))+
theme(axis.title = element_blank(),
plot.title = element_text(hjust = 0.5,size = 10,color = "black",face = "italic"),
axis.text.x = element_text(angle = 30,vjust = 0.85,hjust = 0.75))+
labs(title = "福建CPI总指数")
#14
df <- read.csv("E:\\e-program\\在用数据\\价格指数\\福建CPI城市-8.csv")
library(ggplot2)
ggplot(data=df,aes(x=`行业`,y=`业扩类型`,fill=`cor均值`))+
geom_tile(col = "white")+
facet_wrap(~`年份`)+
scale_fill_gradient2(low="blue",mid = "white",high = "red",
limit = c(-0.8,0.8),
breaks = c(-0.8,-0.4,0,0.4,0.8))+
#geom_text(aes(label=`cor均值`))+
theme(axis.title = element_blank(),
plot.title = element_text(hjust = 0.5,size = 10,color = "black",face = "italic"),
axis.text.x = element_text(angle = 30,vjust = 0.85,hjust = 0.75))+
labs(title = "福建CPI城市")
#15
df <- read.csv("E:\\e-program\\在用数据\\价格指数\\福建PPI总指数-10.csv")
library(ggplot2)
ggplot(data=df,aes(x=`行业`,y=`业扩类型`,fill=`cor均值`))+
geom_tile(col = "white")+
facet_wrap(~`年份`)+
scale_fill_gradient2(low="blue",mid = "white",high = "red",
limit = c(-0.8,0.8),
breaks = c(-0.8,-0.4,0,0.4,0.8))+
#geom_text(aes(label=`cor均值`))+
theme(axis.title = element_blank(),
plot.title = element_text(hjust = 0.5,size = 10,color = "black",face = "italic"),
axis.text.x = element_text(angle = 30,vjust = 0.85,hjust = 0.75))+
labs(title = "福建PPI总指数")
#16
df <- read.csv("E:\\e-program\\在用数据\\价格指数\\福建CPI农村-9.csv")
library(ggplot2)
ggplot(data=df,aes(x=`行业`,y=`业扩类型`,fill=`cor均值`))+
geom_tile(col = "white")+
facet_wrap(~`年份`)+
scale_fill_gradient2(low="blue",mid = "white",high = "red",
limit = c(-0.8,0.8),
breaks = c(-0.8,-0.4,0,0.4,0.8))+
#geom_text(aes(label=`cor均值`))+
theme(axis.title = element_blank(),
plot.title = element_text(hjust = 0.5,size = 10,color = "black",face = "italic"),
axis.text.x = element_text(angle = 30,vjust = 0.85,hjust = 0.75))+
labs(title = "福建CPI农村")
#17
df <- read.csv("E:\\e-program\\在用数据\\价格指数\\福建PPI生产资料-11.csv")
library(ggplot2)
ggplot(data=df,aes(x=`行业`,y=`业扩类型`,fill=`cor均值`))+
geom_tile(col = "white")+
facet_wrap(~`年份`)+
scale_fill_gradient2(low="blue",mid = "white",high = "red",
limit = c(-0.8,0.8),
breaks = c(-0.8,-0.4,0,0.4,0.8))+
#geom_text(aes(label=`cor均值`))+
theme(axis.title = element_blank(),
plot.title = element_text(hjust = 0.5,size = 10,color = "black",face = "italic"),
axis.text.x = element_text(angle = 30,vjust = 0.85,hjust = 0.75))+
labs(title = "PPI:生产资料")
#18
df <- read.csv("E:\\e-program\\在用数据\\价格指数\\福建PPIRM总指数-12.csv")
library(ggplot2)
ggplot(data=df,aes(x=`行业`,y=`业扩类型`,fill=`cor均值`))+
geom_tile(col = "white")+
facet_wrap(~`年份`)+
scale_fill_gradient2(low="blue",mid = "white",high = "red",
limit = c(-0.8,0.8),
breaks = c(-0.8,-0.4,0,0.4,0.8))+
#geom_text(aes(label=`cor均值`))+
theme(axis.title = element_blank(),
plot.title = element_text(hjust = 0.5,size = 10,color = "black",face = "italic"),
axis.text.x = element_text(angle = 30,vjust = 0.85,hjust = 0.75))+
labs(title = "PPIRM总指数")
#19
df <- read.csv("E:\\e-program\\在用数据\\社会销售品零售总额\\福建社会消费品零售总额当月值-13.csv")
library(ggplot2)
ggplot(data=df,aes(x=`行业`,y=`业扩类型`,fill=`cor均值`))+
geom_tile(col = "white")+
facet_wrap(~`年份`)+
scale_fill_gradient2(low="blue",mid = "white",high = "red",
limit = c(-0.8,0.8),
breaks = c(-0.8,-0.4,0,0.4,0.8))+
#geom_text(aes(label=`cor均值`))+
theme(axis.title = element_blank(),
plot.title = element_text(hjust = 0.5,size = 10,color = "black",face = "italic"),
axis.text.x = element_text(angle = 30,vjust = 0.85,hjust = 0.75))+
labs(title = "社会消费品零售总额")
#20
df <- read.csv("E:\\e-program\\在用数据\\社会销售品零售总额\\福建社会消费品零售总额城镇当月值-14.csv")
library(ggplot2)
ggplot(data=df,aes(x=`行业`,y=`业扩类型`,fill=`cor均值`))+
geom_tile(col = "white")+
facet_wrap(~`年份`)+
scale_fill_gradient2(low="blue",mid = "white",high = "red",
limit = c(-0.8,0.8),
breaks = c(-0.8,-0.4,0,0.4,0.8))+
#geom_text(aes(label=`cor均值`))+
theme(axis.title = element_blank(),
plot.title = element_text(hjust = 0.5,size = 10,color = "black",face = "italic"),
axis.text.x = element_text(angle = 30,vjust = 0.85,hjust = 0.75))+
labs(title = "社会消费品零售总额(城镇)")
#21
df <- read.csv("E:\\e-program\\在用数据\\社会销售品零售总额\\福建社会消费品零售总额乡村当月值-15.csv")
library(ggplot2)
ggplot(data=df,aes(x=`行业`,y=`业扩类型`,fill=`cor均值`))+
geom_tile(col = "white")+
facet_wrap(~`年份`)+
scale_fill_gradient2(low="blue",mid = "white",high = "red",
limit = c(-0.8,0.8),
breaks = c(-0.8,-0.4,0,0.4,0.8))+
#geom_text(aes(label=`cor均值`))+
theme(axis.title = element_blank(),
plot.title = element_text(hjust = 0.5,size = 10,color = "black",face = "italic"),
axis.text.x = element_text(angle = 30,vjust = 0.85,hjust = 0.75))+
labs(title = "社会消费品零售总额(乡村)")
