Plotly

data<-read.csv("C:/Users/Nethraa/Desktop/rmkdn/pml-testing.csv")
library(plotly)

## Loading required package: ggplot2

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

plot_ly(x=data[,"pitch_forearm"], y=data[,"yaw_forearm"], type="bar")

plot_ly(midwest, x = ~percollege, color = ~state, type = "box")

plot_ly(z=volcano, type="surface")