388 HW 7

library(ggmap)

## Warning: package 'ggmap' was built under R version 3.3.3

## Loading required package: ggplot2

## Warning: package 'ggplot2' was built under R version 3.3.2

chi.df <- data.frame(name = c("My Apt", "Tango Sur","The Bean"),
lon = c(-87.665011, -87.663852,-87.623304),
lat = c(42.010460, 41.950777,41.882657))
# compute the mean lat and lon
ll_means <- colMeans(chi.df[2:3])
sq_map2 <- get_map(location = ll_means,
maptype = "satellite", source = "google", zoom = 12)

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=41.947965,-87.650722&zoom=12&size=640x640&scale=2&maptype=satellite&language=en-EN&sensor=false

ggmap(sq_map2) +
geom_point(data = chi.df, color = "red", size = 4) +
geom_text(data = chi.df, aes(label = paste(" ", as.character(name), sep="")),
angle = 60, hjust = 0, color = "yellow")

library(highcharter)

## Warning: package 'highcharter' was built under R version 3.3.3

## Highcharts (www.highcharts.com) is a Highsoft software product which is

## not free for commercial and Governmental use

library(dplyr)

## Warning: package 'dplyr' was built under R version 3.3.3

## 
## 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)

data("diamonds")
highchart() %>% hc_title(text= "Diamonds Frequency by Cut") %>%
  
  hc_add_series(data = diamonds$cut, name = "Cut",
               type = "column", color = "#e5b13a")

highchart() %>% hc_add_series_labels_values(diamonds$cut, diamonds$price, name = "Cut", type = "column") %>%  hc_yAxis(title = list(text = "Price"),labels = list(format = "{value}")) %>% 
  hc_xAxis(categories = diamonds$cut)