r-bookdown

rm(list=ls())
library(ggplot2)

library(tidyr)
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(tidyverse)

## ── Attaching packages ──────────────────────────────────────────────────────────────────────── tidyverse 1.2.1 ──

## ✔ tibble  1.4.1     ✔ purrr   0.2.4
## ✔ readr   1.1.1     ✔ stringr 1.2.0
## ✔ tibble  1.4.1     ✔ forcats 0.2.0

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

myurl<-("https://raw.githubusercontent.com/VioletaStoyanova/Untidy_data/master/chicago-nmmaps.csv")
data<-read.csv(myurl, as.is = TRUE)
data$date<-as.Date(data$date)
data<-data[data$date>as.Date("1996-12-31"),]
data$year<-substring(data$date,1,4)

head(data)

##      city       date death temp dewpoint      pm10        o3 time season
## 3654 chic 1997-01-01   137 36.0    37.50 13.052268  5.659256 3654 winter
## 3655 chic 1997-01-02   123 45.0    47.25 41.948600  5.525417 3655 winter
## 3656 chic 1997-01-03   127 40.0    38.00 27.041751  6.288548 3656 winter
## 3657 chic 1997-01-04   146 51.5    45.50 25.072573  7.537758 3657 winter
## 3658 chic 1997-01-05   102 27.0    11.25 15.343121 20.760798 3658 winter
## 3659 chic 1997-01-06   127 17.0     5.75  9.364655 14.940874 3659 winter
##      year
## 3654 1997
## 3655 1997
## 3656 1997
## 3657 1997
## 3658 1997
## 3659 1997

g<- ggplot(data,aes(date, temp)) + geom_point(color="firebrick")
g

g+labs(title='Temperature')

g

#or g<‐g+ggtitle('Temperature')
#g

library(ggthemes)
ggplot(data,aes(date,temp,color=factor(season)))+
geom_point()+ggtitle("This plot looks amazing")+
theme_economist()+scale_colour_economist()

library(grid)
my_grob=grobTree(textGrob("This text stays in place!",x=0.1, y=0.95,hjust=0,
gp=gpar(col="blue",fontsize=15,fontface="italic")))
ggplot(data,aes(temp,o3))+geom_point(color="firebrick")+
annotation_custom(my_grob)

g+geom_violin(alpha=0.5,color="gray")+geom_jitter(alpha=0.5,aes(color=season),
position=position_jitter(width=0.1))+coord_flip()