Displaying 4 results from an estimated 4 matches for "cemissions_from_well".
2017 Nov 20
2
change colour in barplot
...152460 ? ? ? ? 474 ? ? ? 5.5 ? ? ?? 612000 ? ? ? ? ? 59061000 ? ? ? 1540313
and here is the script:
setwd("~/Desktop")
emission<-read.csv("emission from land.csv")
attach(emission)
#define the formulas
Emission_from_Land<-A*B*C*DEmission_from_Access_Road<-E*(F/1000000)*CEmissions_from_well<-(G/1000000)*E*C
#combine my outputs into a new dataframe
dat<-cbind(Emission_from_Land, Emission_from_Access_Road, Emissions_from_well_pad)
#plot a barplot
barplot(dat, ylab="Kg-CO2 Eq", ylim=c(0.0e+00, 2e+10), axisnames=FALSE, col=c("blue", "red", "orange&...
2017 Nov 20
3
Σχετ: change colour in barplot
...? ? ?? 612000 ? ? ? ? ? 59061000 ? ? ? 1540313
> and here is the script:
> setwd("~/Desktop")
> emission<-read.csv("emission from land.csv")
> attach(emission)
> #define the formulas
> Emission_from_Land<-A*B*C*DEmission_from_Access_Road<-E*(F/1000000)*CEmissions_from_well<-(G/1000000)*E*C
> #combine my outputs into a new dataframe
> dat<-cbind(Emission_from_Land, Emission_from_Access_Road, Emissions_from_well_pad)
> #plot a barplot
> barplot(dat, ylab="Kg-CO2 Eq", ylim=c(0.0e+00, 2e+10), axisnames=FALSE, col=c("blue", "red&...
2017 Nov 20
0
change colour in barplot
...? ? ?? 612000 ? ? ? ? ? 59061000 ? ? ? 1540313
> and here is the script:
> setwd("~/Desktop")
> emission<-read.csv("emission from land.csv")
> attach(emission)
> #define the formulas
> Emission_from_Land<-A*B*C*DEmission_from_Access_Road<-E*(F/1000000)*CEmissions_from_well<-(G/1000000)*E*C
> #combine my outputs into a new dataframe
> dat<-cbind(Emission_from_Land, Emission_from_Access_Road, Emissions_from_well_pad)
> #plot a barplot
> barplot(dat, ylab="Kg-CO2 Eq", ylim=c(0.0e+00, 2e+10), axisnames=FALSE, col=c("blue", "red&...
2017 Nov 20
0
Σχετ: change colour in barplot
...0313
> > and here is the script:
> > setwd("~/Desktop")
> > emission<-read.csv("emission from land.csv")
> > attach(emission)
> > #define the formulas
> >
> Emission_from_Land<-A*B*C*DEmission_from_Access_Road<-E*(F/1000000)*CEmissions_from_well<-(G/1000000)*E*C
> > #combine my outputs into a new dataframe
> > dat<-cbind(Emission_from_Land, Emission_from_Access_Road,
> Emissions_from_well_pad)
> > #plot a barplot
> > barplot(dat, ylab="Kg-CO2 Eq", ylim=c(0.0e+00, 2e+10),
> axisnames=FALSE...