Require dplyr, ggvis, and magrittr packages.

require(dplyr) #loading an installed version of dplyr

## Loading required package: 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

require (ggvis) #loading an installed version of ggvis

## Loading required package: ggvis

require(magrittr) #loading an installed version of magrittr

## Loading required package: magrittr

Width = 5

faithful %>% ggvis(~ waiting) %>% layer_histograms(width = 5)

Width = 0.25

faithful %>% ggvis(~ eruptions) %>% layer_histograms(width = 0.25)

Width = 0.1

faithful %>% ggvis(~ eruptions) %>% layer_histograms(width = .1)

summary(beaver1)

##       day             time             temp           activ        
##  Min.   :346.0   Min.   :   0.0   Min.   :36.33   Min.   :0.00000  
##  1st Qu.:346.0   1st Qu.: 932.5   1st Qu.:36.76   1st Qu.:0.00000  
##  Median :346.0   Median :1415.0   Median :36.87   Median :0.00000  
##  Mean   :346.2   Mean   :1312.0   Mean   :36.86   Mean   :0.05263  
##  3rd Qu.:346.0   3rd Qu.:1887.5   3rd Qu.:36.96   3rd Qu.:0.00000  
##  Max.   :347.0   Max.   :2350.0   Max.   :37.53   Max.   :1.00000

Regression analysis

beaver1 %>% 
  ggvis(~time, ~temp) %>%
  layer_points() %>%
  layer_smooths()