project 1.1

R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

install.packages("ggplot2", repos = "https://cran.r-project.org/")

## Installing package into 'C:/Users/otuata4438/AppData/Local/R/win-library/4.4'
## (as 'lib' is unspecified)

## package 'ggplot2' successfully unpacked and MD5 sums checked
## 
## The downloaded binary packages are in
##  C:\Users\otuata4438\AppData\Local\Temp\RtmpAb6UAQ\downloaded_packages

install.packages("tibble", repos = "https://cran.r-project.org/")

## Installing package into 'C:/Users/otuata4438/AppData/Local/R/win-library/4.4'
## (as 'lib' is unspecified)

## package 'tibble' successfully unpacked and MD5 sums checked

## Warning: cannot remove prior installation of package 'tibble'

## Warning in file.copy(savedcopy, lib, recursive = TRUE): problem copying
## C:\Users\otuata4438\AppData\Local\R\win-library\4.4\00LOCK\tibble\libs\x64\tibble.dll
## to
## C:\Users\otuata4438\AppData\Local\R\win-library\4.4\tibble\libs\x64\tibble.dll:
## Permission denied

## Warning: restored 'tibble'

## 
## The downloaded binary packages are in
##  C:\Users\otuata4438\AppData\Local\Temp\RtmpAb6UAQ\downloaded_packages

install.packages("maps", repos = "https://cran.r-project.org/")

## Installing package into 'C:/Users/otuata4438/AppData/Local/R/win-library/4.4'
## (as 'lib' is unspecified)

## package 'maps' successfully unpacked and MD5 sums checked

## Warning: cannot remove prior installation of package 'maps'

## Warning in file.copy(savedcopy, lib, recursive = TRUE): problem copying
## C:\Users\otuata4438\AppData\Local\R\win-library\4.4\00LOCK\maps\libs\x64\maps.dll
## to C:\Users\otuata4438\AppData\Local\R\win-library\4.4\maps\libs\x64\maps.dll:
## Permission denied

## Warning: restored 'maps'

## 
## The downloaded binary packages are in
##  C:\Users\otuata4438\AppData\Local\Temp\RtmpAb6UAQ\downloaded_packages

library(ggplot2)
library(tibble)
library(maps)

str(diamonds)

## tibble [53,940 × 10] (S3: tbl_df/tbl/data.frame)
##  $ carat  : num [1:53940] 0.23 0.21 0.23 0.29 0.31 0.24 0.24 0.26 0.22 0.23 ...
##  $ cut    : Ord.factor w/ 5 levels "Fair"<"Good"<..: 5 4 2 4 2 3 3 3 1 3 ...
##  $ color  : Ord.factor w/ 7 levels "D"<"E"<"F"<"G"<..: 2 2 2 6 7 7 6 5 2 5 ...
##  $ clarity: Ord.factor w/ 8 levels "I1"<"SI2"<"SI1"<..: 2 3 5 4 2 6 7 3 4 5 ...
##  $ depth  : num [1:53940] 61.5 59.8 56.9 62.4 63.3 62.8 62.3 61.9 65.1 59.4 ...
##  $ table  : num [1:53940] 55 61 65 58 58 57 57 55 61 61 ...
##  $ price  : int [1:53940] 326 326 327 334 335 336 336 337 337 338 ...
##  $ x      : num [1:53940] 3.95 3.89 4.05 4.2 4.34 3.94 3.95 4.07 3.87 4 ...
##  $ y      : num [1:53940] 3.98 3.84 4.07 4.23 4.35 3.96 3.98 4.11 3.78 4.05 ...
##  $ z      : num [1:53940] 2.43 2.31 2.31 2.63 2.75 2.48 2.47 2.53 2.49 2.39 ...

demo <- tribble(
  ~cut,         ~freq,
  "Fair",       1610,
  "Good",       4906,
  "Very Good",  12082,
  "Premium",    13791,
  "Ideal",      21551
)

ggplot(data = diamonds) +
  geom_bar(mapping = aes(x = cut))

ggplot(data = diamonds) +
  geom_bar(mapping = aes(x = cut, y = after_stat(prop)))

ggplot(data = diamonds) +
  stat_count(mapping = aes(x = cut))

ggplot(data = demo) +
  geom_bar(mapping = aes(x = cut, y = freq), stat = "identity")

ggplot(data = diamonds) +
  stat_summary(
    mapping = aes(x = cut, y = depth),
    fun.ymin = min,
    fun.ymax = max,
    fun.y = median
  )

## Warning: The `fun.y` argument of `stat_summary()` is deprecated as of ggplot2 3.3.0.
## ℹ Please use the `fun` argument instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

## Warning: The `fun.ymin` argument of `stat_summary()` is deprecated as of ggplot2 3.3.0.
## ℹ Please use the `fun.min` argument instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

## Warning: The `fun.ymax` argument of `stat_summary()` is deprecated as of ggplot2 3.3.0.
## ℹ Please use the `fun.max` argument instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

ggplot(data = diamonds) +
  geom_bar(mapping = aes(x = cut, color = cut))

ggplot(data = diamonds) +
  geom_bar(mapping = aes(x = cut, fill = clarity))

ggplot(data = diamonds, mapping = aes(x = cut, fill = clarity)) +
  geom_bar(alpha = 1/5, position = "identity")

ggplot(data = diamonds) +
  geom_bar(mapping = aes(x = cut, fill = clarity), position = "fill")

ggplot(data = diamonds) +
  geom_bar(mapping = aes(x = cut, fill = clarity), position = "dodge")

ggplot(data = mpg) +
  geom_point(mapping = aes(x = displ, y = hwy), position = "jitter")

ggplot(data = mpg, mapping = aes(x = class, y = hwy)) +
  geom_boxplot() +
  coord_flip()

nz <- map_data("nz")
ggplot(nz, aes(long, lat, group = group)) +
  geom_polygon(fill = "white", colour = "black") +
  coord_quickmap()

project 1.1

2025-02-20

R Markdown

Including Plots