library(readxl)
CO2Hawaii <- read_excel("CO2Hawaii.xlsx")
View(CO2Hawaii)
mean(CO2Hawaii$CO2)
## [1] 375.9086
median(CO2Hawaii$CO2)
## [1] 374.315
mean(CO2Hawaii$Year)
## [1] 2002.5
median(CO2Hawaii$Year)
## [1] 2002.5
df <- CO2Hawaii[c(1:100), c(1,3)]
print(df)
## # A tibble: 100 x 2
## Year CO2
## <dbl> <dbl>
## 1 1988 350.
## 2 1988 352.
## 3 1988 352.
## 4 1988 354.
## 5 1988 354.
## 6 1988 354.
## 7 1988 353.
## 8 1988 350.
## 9 1988 349.
## 10 1988 349.
## # ... with 90 more rows
mean(df$CO2)
## [1] 356.2872
median(df$CO2)
## [1] 355.97
mean(df$Year)
## [1] 1991.68
median(df$Year)
## [1] 1992
names(df) <- c("Annual Measure of Time", "Carbon Dioxide Emissions")
print(df)
## # A tibble: 100 x 2
## `Annual Measure of Time` `Carbon Dioxide Emissions`
## <dbl> <dbl>
## 1 1988 350.
## 2 1988 352.
## 3 1988 352.
## 4 1988 354.
## 5 1988 354.
## 6 1988 354.
## 7 1988 353.
## 8 1988 350.
## 9 1988 349.
## 10 1988 349.
## # ... with 90 more rows
summary(df)
## Annual Measure of Time Carbon Dioxide Emissions
## Min. :1988 Min. :348.9
## 1st Qu.:1990 1st Qu.:353.7
## Median :1992 Median :356.0
## Mean :1992 Mean :356.3
## 3rd Qu.:1994 3rd Qu.:359.1
## Max. :1996 Max. :364.6
names(df)[1]
## [1] "Annual Measure of Time"
CO2Hawaii
## # A tibble: 360 x 4
## Year Month CO2 t
## <dbl> <dbl> <dbl> <dbl>
## 1 1988 1 350. 1
## 2 1988 2 352. 2
## 3 1988 3 352. 3
## 4 1988 4 354. 4
## 5 1988 5 354. 5
## 6 1988 6 354. 6
## 7 1988 7 353. 7
## 8 1988 8 350. 8
## 9 1988 9 349. 9
## 10 1988 10 349. 10
## # ... with 350 more rows
names(CO2Hawaii) <- sub("1988", "HI", CO2Hawaii)
CO2Hawaii
## # A tibble: 360 x 4
## `c(HI, 1988, 1988,~ `c(1, 2, 3, 4, 5, ~ `c(350.39, 351.64~ `c(1, 2, 3, 4, 5,~
## <dbl> <dbl> <dbl> <dbl>
## 1 1988 1 350. 1
## 2 1988 2 352. 2
## 3 1988 3 352. 3
## 4 1988 4 354. 4
## 5 1988 5 354. 5
## 6 1988 6 354. 6
## 7 1988 7 353. 7
## 8 1988 8 350. 8
## 9 1988 9 349. 9
## 10 1988 10 349. 10
## # ... with 350 more rows
options(tibble.print_max = Inf)