Ryan Hafen hafen

 figure(ylab = 'Price / Sq. Metre (AUD)') %>%
  ly_points(time, medListPriceMetre,
    data = x$housing,
    hover = list(time, medListPriceMetre))

figure(ylim = rev(pickft$value), ylab = NULL) %>%
  ly_points(Freq, value, data = pickft,
    hover = pickft)

figure() %>%
  ly_bar(value, Freq, color = which, 
    data = both, position = "dodge") %>%
  theme_axis("x", 
    major_label_orientation = 90)

figure(ylab = "# passengers") %>% 
 ly_points(fval, q, data = pc_quant)

figure(ylab = "ride time (minutes)") %>%
 ly_points(fval, q / 60, data = rt_quant)

figure(ylab = "ride distance log10(miles + 1)", height = 450) %>%
ly_points(fval, q, data = rd_quant,
  hover = rd_quant)

figure(ylab = "tip amount (USD)", height = 480,
  legend_location = "top_left") %>% 
  ly_points(fval, q, color = paytype, 
    data = subset(tip_quant, q < 100))

grid_plot(panels, ncol = 4, same_axes = TRUE)

figure(width = 1200) %>%
  ly_lines(hourly) %>%
  ly_points(hourly, hover = hourly, alpha = 0) %>%
  y_axis(log = 2) %>%
  tool_pan(dimensions = "width") %>%
  tool_wheel_zoom(dimensions = "width")

	p <- figure() %>%
	ly_points(Sepal.Length, Sepal.Width, color = Species, data = iris)

	# plot with default theme
	p

	# plot with ggplot2 theme
	p %>% set_theme(bk_ggplot_theme)