library(plotly)

## Warning: package 'plotly' was built under R version 4.2.3

## Loading required package: ggplot2

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

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

library(datasets)
data("iris")
str(iris)

## 'data.frame':    150 obs. of  5 variables:
##  $ Sepal.Length: num  5.1 4.9 4.7 4.6 5 5.4 4.6 5 4.4 4.9 ...
##  $ Sepal.Width : num  3.5 3 3.2 3.1 3.6 3.9 3.4 3.4 2.9 3.1 ...
##  $ Petal.Length: num  1.4 1.4 1.3 1.5 1.4 1.7 1.4 1.5 1.4 1.5 ...
##  $ Petal.Width : num  0.2 0.2 0.2 0.2 0.2 0.4 0.3 0.2 0.2 0.1 ...
##  $ Species     : Factor w/ 3 levels "setosa","versicolor",..: 1 1 1 1 1 1 1 1 1 1 ...

colnames(iris)

## [1] "Sepal.Length" "Sepal.Width"  "Petal.Length" "Petal.Width"  "Species"

#Basic scatter plot
plot_ly(iris, x = ~Petal.Width, y = ~Sepal.Width, type = "scatter", color = ~Species)

## No scatter mode specifed:
##   Setting the mode to markers
##   Read more about this attribute -> https://plotly.com/r/reference/#scatter-mode

plot_ly(iris, x = ~Petal.Length, y = ~Sepal.Length, type = "scatter", color = ~Species)

## No scatter mode specifed:
##   Setting the mode to markers
##   Read more about this attribute -> https://plotly.com/r/reference/#scatter-mode

#Basic scatter plot with continuous color
plot_ly(iris, x = ~Petal.Length, y = ~Sepal.Length, type = "scatter", color = ~Sepal.Length)

## No scatter mode specifed:
##   Setting the mode to markers
##   Read more about this attribute -> https://plotly.com/r/reference/#scatter-mode

#scatterplot sizing
plot_ly(iris, x = ~Petal.Width, y = ~Sepal.Width, type = "scatter", color = ~Species, size = ~Sepal.Length)

## No scatter mode specifed:
##   Setting the mode to markers
##   Read more about this attribute -> https://plotly.com/r/reference/#scatter-mode

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

plot_ly(iris, x = ~Petal.Length, y = ~Sepal.Length, type = "scatter", color = ~Species, size = ~Petal.Length)

## No scatter mode specifed:
##   Setting the mode to markers
##   Read more about this attribute -> https://plotly.com/r/reference/#scatter-mode

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

#3D Scatterplotting
plot_ly(iris, x = ~Petal.Width,  y = ~Sepal.Width, z= ~Sepal.Length ,type = "scatter3d", color = ~Species, size = ~Sepal.Length)

## No scatter3d mode specifed:
##   Setting the mode to markers
##   Read more about this attribute -> https://plotly.com/r/reference/#scatter-mode

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

plot_ly(iris, x = ~Petal.Length, y = ~Sepal.Length,z= ~Petal.Width , type = "scatter3d", color = ~Species, size = ~Petal.Length)

## No scatter3d mode specifed:
##   Setting the mode to markers
##   Read more about this attribute -> https://plotly.com/r/reference/#scatter-mode

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

#Line graph
data("airmiles")
str(airmiles)

##  Time-Series [1:24] from 1937 to 1960: 412 480 683 1052 1385 ...

plot_ly(x = ~time(airmiles), y= ~airmiles, type = "scatter", mode = "lines")

#Histogram
data("iris")
plot_ly(data = iris, x = ~Sepal.Length, type = "histogram")

#Boxplot
plot_ly(iris, y= ~Sepal.Width, color = ~Species, type = "box")