R Notebook

library(tidyverse)

Registered S3 methods overwritten by 'dbplyr':
  method         from
  print.tbl_lazy     
  print.tbl_sql      
-- Attaching packages --------------------------------------- tidyverse 1.3.0 --
v ggplot2 3.3.2     v purrr   0.3.4
v tibble  3.0.3     v dplyr   1.0.2
v tidyr   1.1.2     v stringr 1.4.0
v readr   1.3.1     v forcats 0.5.0
-- Conflicts ------------------------------------------ tidyverse_conflicts() --
x dplyr::filter() masks stats::filter()
x dplyr::lag()    masks stats::lag()

View(mpg)

Homework

repeat the box plots and bar graphs with horizontal axis

box plots

ggplot(mpg, aes(x = class, y = hwy)) +geom_boxplot() +
  theme(axis.text.x = element_text(angle = 70, vjust = 0.5, color = "red")) +
  xlab("Class") + ylab("Highway Milage") + 
  ggtitle("Class Vs Hwy Box Plot") + coord_flip()

bar graphs

use diamonds data to plot bar graphs

View(diamonds)

ggplot(data = diamonds) + ggtitle("Count Vs Cut Horizontal Bar Graph")+
  theme(axis.text.x = element_text(angle = 70, vjust = 0.5, color = "black"))+
  xlab("Count") + ylab("Cut") +
  geom_bar(mapping = aes(x = cut)) + coord_flip()

ggplot(data = diamonds) + ggtitle("Horizontal Bar Graph")+
  theme(axis.text.x = element_text(angle = 70, vjust = 0.5, color = "black"))+
  geom_bar(mapping = aes(x = cut, color = cut))+ coord_flip()

ggplot(data = diamonds) + ggtitle("Horizontal Bar Graph with different cut color")+
  theme(axis.text.x = element_text(angle = 70, vjust = 0.5, color = "black"))+
  geom_bar(mapping = aes(x = cut, fill = cut)) + coord_flip()

stacked bar graph

ggplot(data = diamonds) + ggtitle("Horizontal Stacked Bar Graph ")+
  theme(axis.text.x = element_text(angle = 70, vjust = 0.5, color = "black"))+
  geom_bar(mapping = aes(x = cut, fill = clarity)) + coord_flip()

position = fill shows its easy to compare proportions

ggplot(data = diamonds) + ggtitle("Horizontal Stacked Bar Graph for proportion comparison ") +
  theme(axis.text.x = element_text(angle = 70, vjust = 0.5, color = "black"))   +
  geom_bar(
    mapping = aes(x = cut, fill = clarity),
    position= "fill"
  ) + coord_flip()

ggplot(data = diamonds) + ggtitle("Horizontal Stacked Bar Graph for side by side comparison ") +
  theme(axis.text.x = element_text(angle = 70, vjust = 0.5, color = "black"))   +
  geom_bar(
    mapping = aes(x = cut, fill = clarity),
    position = "dodge"
  ) + coord_flip()

Histogram

ggplot(diamonds, aes(x=depth,fill = clarity)) + geom_histogram(binwidth = 2)+
  scale_x_continuous("Depth", breaks = seq(40,80,by = 10))+
  scale_y_continuous("Count", breaks = seq(0,25000,by = 5000))+
  labs(title = "Histogram") + coord_flip()

plot a line graph of cty vs hwy in mpg dataset

ggplot(data = mpg)+ ggtitle("cty vs hwy line graph")+
  geom_line(
    mapping = aes(x = cty, y = hwy, colour="darkred", linetype = drv) 
  )

plot line graph of depth vs price for each color in diamonds dataset

ggplot(data = diamonds)+ ggtitle("depth vs price line graph")+
  geom_line(
    mapping = aes(x = depth, y = price, linetype = clarity, colour="blue")
  ) 

legends are added to all graphs