ANLY 512 - Data Visualization - Assign2

library(rgdal)

## Loading required package: sp

## rgdal: version: 1.4-8, (SVN revision 845)
##  Geospatial Data Abstraction Library extensions to R successfully loaded
##  Loaded GDAL runtime: GDAL 2.4.2, released 2019/06/28
##  Path to GDAL shared files: /Library/Frameworks/R.framework/Versions/3.6/Resources/library/rgdal/gdal
##  GDAL binary built with GEOS: FALSE 
##  Loaded PROJ.4 runtime: Rel. 5.2.0, September 15th, 2018, [PJ_VERSION: 520]
##  Path to PROJ.4 shared files: /Library/Frameworks/R.framework/Versions/3.6/Resources/library/rgdal/proj
##  Linking to sp version: 1.3-2

library(leaflet)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(ggplot2)

#starwars

#install.packages("tidyverse")
library("tidyverse")

## ── Attaching packages ────────────────────────────────────────────────────────────── tidyverse 1.3.0 ──

## ✔ tibble  2.1.3     ✔ purrr   0.3.3
## ✔ tidyr   1.0.0     ✔ stringr 1.4.0
## ✔ readr   1.3.1     ✔ forcats 0.4.0

## ── Conflicts ───────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()

starwars <- dplyr::starwars

#str(starwars)
#summary(starwars)

#choose all columns BUT name
starwars %>% select(-name)

## # A tibble: 87 x 12
##    height  mass hair_color skin_color eye_color birth_year gender homeworld
##     <int> <dbl> <chr>      <chr>      <chr>          <dbl> <chr>  <chr>    
##  1    172    77 blond      fair       blue            19   male   Tatooine 
##  2    167    75 <NA>       gold       yellow         112   <NA>   Tatooine 
##  3     96    32 <NA>       white, bl… red             33   <NA>   Naboo    
##  4    202   136 none       white      yellow          41.9 male   Tatooine 
##  5    150    49 brown      light      brown           19   female Alderaan 
##  6    178   120 brown, gr… light      blue            52   male   Tatooine 
##  7    165    75 brown      light      blue            47   female Tatooine 
##  8     97    32 <NA>       white, red red             NA   <NA>   Tatooine 
##  9    183    84 black      light      brown           24   male   Tatooine 
## 10    182    77 auburn, w… fair       blue-gray       57   male   Stewjon  
## # … with 77 more rows, and 4 more variables: species <chr>, films <list>,
## #   vehicles <list>, starships <list>

#remove NAs
#print(starwars$species)
#print(starwars$homeworld)
starwars <- na.omit(starwars)
#is.na(starwars)

library(ggplot2)
ggplot(starwars, aes(height, mass)) + 
  geom_point(colour = "red") + 
  theme_light()

lm1 <- ggplot(starwars, aes(height, mass)) +
  geom_point(colour = "red") + 
  geom_smooth(method = lm, se = FALSE) +
  theme_light() + ggtitle("Height vs Mass")

lm1

##subset
ggplot(starwars, aes(species)) + geom_bar()

ggplot(starwars, aes(hair_color, eye_color)) + 
  geom_point(colour = "blue")