R_scripts/Em_comp.R at master · ashreeta/R_scripts · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
library(plotly)
library(Hmisc)
library(reshape2)
library(ggplot2)
library(plyr)
library(wesanderson)
library(RColorBrewer)
library(readxl)

#emissions cost
Em_carb_cost <- read_excel("~/WORK_PROJECTS/Iwb/IWB/Results_Final/R_data/Em_carb_cost.xlsx")

data<- Em_carb_cost

df <-melt(as.data.frame(data),c("Year"))

p4<-ggplot(data=df, aes(x = variable, y = value, fill=variable, width = .6)) +
  geom_bar(stat="identity") + facet_grid(. ~Year )+
  labs(x="",y="t CO2") + theme_light()+
   theme(legend.title=element_blank())+theme(text = element_text(size = 12))+
  theme(axis.text.x = element_text(angle = 50, hjust = 1))+ scale_fill_brewer(palette="Paired")
p4

#emissions per inhabitant cost

Empp_carb_cost <- read_excel("~/WORK_PROJECTS/Iwb/IWB/Results_Final/R_data/Empp_carb_cost.xlsx")
data<- Empp_carb_cost

df <-melt(as.data.frame(data),c("Year"))

p4<-ggplot(data=df, aes(x = variable, y = value, fill=variable, width = .6)) +
  geom_bar(stat="identity") + facet_grid(. ~Year )+
  labs(x="",y="t CO2/inhabitant") +  theme_light() +
  theme(legend.title=element_blank())+theme(text = element_text(size = 12))+
  theme(axis.text.x = element_text(angle = 50, hjust = 1))+ scale_fill_brewer(palette="Paired")
p4


#emissions cost
Em_comp_cost <- read_excel("~/WORK_PROJECTS/Iwb/IWB/Results_Final/R_data/Em_comp_cost.xlsx")

data<- Em_comp_cost

df <-melt(as.data.frame(data),c("Year"))

p4<-ggplot(data=df, aes(x = variable, y = value, fill=variable, width = .6)) +
  geom_bar(stat="identity") + facet_grid(. ~Year )+
  labs(x="",y="t CO2") +
  theme_minimal() + theme(legend.title=element_blank())+theme(text = element_text(size = 12))
p4

#emissions per inhabitant cost

Empp_comp_cost <- read_excel("~/WORK_PROJECTS/Iwb/IWB/Results_Final/R_data/Empp_comp_cost.xlsx")
data<- Empp_comp_cost

df <-melt(as.data.frame(data),c("Year"))

p4<-ggplot(data=df, aes(x = variable, y = value, fill=variable, width = .6)) +
  geom_bar(stat="identity") + facet_grid(. ~Year )+
  labs(x="",y="t CO2/inhabitant") +
  theme_minimal() + theme(legend.title=element_blank())+theme(text = element_text(size = 12))
p4

#emissions carbon
Em_comp_carb <- read_excel("~/WORK_PROJECTS/Iwb/IWB/Results_Final/R_data/Em_comp_carb.xlsx")

data<- Em_comp_carb

df <-melt(as.data.frame(data),c("Year"))

p4<-ggplot(data=df, aes(x = variable, y = value, fill=variable, width = .6)) +
  geom_bar(stat="identity") + facet_grid(. ~Year )+
  labs(x="",y="t CO2") +
  theme_minimal() + theme(legend.title=element_blank())+theme(text = element_text(size = 12))
p4

#emissions per inhabitant carbon

Empp_comp_carb <- read_excel("~/WORK_PROJECTS/Iwb/IWB/Results_Final/R_data/Empp_comp_carb.xlsx")
data<- Empp_comp_carb

df <-melt(as.data.frame(data),c("Year"))

p4<-ggplot(data=df, aes(x = variable, y = value, fill=variable, width = .6)) +
  geom_bar(stat="identity") + facet_grid(. ~Year )+
  labs(x="",y="t CO2/inhabitant") +
  theme_minimal() + theme(legend.title=element_blank())+theme(text = element_text(size = 12))
p4