1D Histograms

#Data
data("iris")
hist(iris$Petal.Width, breaks = 10)

hist(iris$Petal.Width, breaks = 20)

2D Histograms

##### OPTION 1: hexbin from package 'hexbin' #######
library(hexbin)
# Create hexbin object and plot
h <- hexbin(x = iris$Petal.Width, y = iris$Petal.Length)
plot(h)

my.colors <- function (n) {
  rev(heat.colors(n))
}
plot(h, colramp=my.colors)

Box Plots

Scatter Plots

Matrix Plots

#matrixplot(~iris$Sepal.Length+iris$Sepal.Width+iris$Petal.Length+iris$Petal.Width,data=iris)
library(plotly)
plot_ly(type = 'parcoords',
          line = list(color = iris$Species,
                      colorscale = list(c(0,'red'),c(0.5,'green'),c(1,'blue'))), dimensions = list(
            list(range = c(2,4.5),
                 label = 'Sepal Width', values = iris$sepal_width),
            list(range = c(4,8),
                 constraintrange = c(5,6),
                 label = 'Sepal Length', values = iris$sepal_length),
            list(range = c(0,2.5),
                 label = 'Petal Width', values = iris$petal_width),
            list(range = c(1,7),
                 label = 'Petal Length', values = iris$petal_length)
            ))

Star Plots

stars(~iris$Sepal.Length+iris$Sepal.Width+iris$Petal.Length+iris$Petal.Width)

Error in stars(~iris$Sepal.Length + iris$Sepal.Width + iris$Petal.Length +  : 
  'x' must be a matrix or a data frame
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2sgRm9yIElSSVMgZGF0YSB2aXN1YWxpemF0aW9uIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KMUQgSGlzdG9ncmFtcw0KDQpgYGB7cn0NCiNEYXRhDQpkYXRhKCJpcmlzIikNCmhpc3QoaXJpcyRQZXRhbC5XaWR0aCwgYnJlYWtzID0gMTApDQpgYGANCg0KYGBge3J9DQpoaXN0KGlyaXMkUGV0YWwuV2lkdGgsIGJyZWFrcyA9IDIwKQ0KYGBgDQoNCg0KMkQgSGlzdG9ncmFtcw0KDQpgYGB7cn0NCiMjIyMjIE9QVElPTiAxOiBoZXhiaW4gZnJvbSBwYWNrYWdlICdoZXhiaW4nICMjIyMjIyMNCmxpYnJhcnkoaGV4YmluKQ0KIyBDcmVhdGUgaGV4YmluIG9iamVjdCBhbmQgcGxvdA0KaCA8LSBoZXhiaW4oeCA9IGlyaXMkUGV0YWwuV2lkdGgsIHkgPSBpcmlzJFBldGFsLkxlbmd0aCkNCnBsb3QoaCkNCm15LmNvbG9ycyA8LSBmdW5jdGlvbiAobikgew0KICByZXYoaGVhdC5jb2xvcnMobikpDQp9DQoNCnBsb3QoaCwgY29scmFtcD1teS5jb2xvcnMpDQpgYGANCg0KDQpCb3ggUGxvdHMNCg0KYGBge3J9DQpib3hwbG90KGlyaXMpDQpgYGANCg0KDQpTY2F0dGVyIFBsb3RzDQoNCmBgYHtyfQ0KcGFpcnMofmlyaXMkU2VwYWwuTGVuZ3RoK2lyaXMkU2VwYWwuV2lkdGgraXJpcyRQZXRhbC5MZW5ndGgraXJpcyRQZXRhbC5XaWR0aCxkYXRhPWlyaXMpDQpgYGANCg0KDQpNYXRyaXggUGxvdHMNCg0KYGBge3J9DQojbWF0cml4cGxvdCh+aXJpcyRTZXBhbC5MZW5ndGgraXJpcyRTZXBhbC5XaWR0aCtpcmlzJFBldGFsLkxlbmd0aCtpcmlzJFBldGFsLldpZHRoLGRhdGE9aXJpcykNCmxpYnJhcnkocGxvdGx5KQ0KcGxvdF9seSh0eXBlID0gJ3BhcmNvb3JkcycsDQogICAgICAgICAgbGluZSA9IGxpc3QoY29sb3IgPSBpcmlzJFNwZWNpZXMsDQogICAgICAgICAgICAgICAgICAgICAgY29sb3JzY2FsZSA9IGxpc3QoYygwLCdyZWQnKSxjKDAuNSwnZ3JlZW4nKSxjKDEsJ2JsdWUnKSkpLCBkaW1lbnNpb25zID0gbGlzdCgNCiAgICAgICAgICAgIGxpc3QocmFuZ2UgPSBjKDIsNC41KSwNCiAgICAgICAgICAgICAgICAgbGFiZWwgPSAnU2VwYWwgV2lkdGgnLCB2YWx1ZXMgPSBpcmlzJHNlcGFsX3dpZHRoKSwNCiAgICAgICAgICAgIGxpc3QocmFuZ2UgPSBjKDQsOCksDQogICAgICAgICAgICAgICAgIGNvbnN0cmFpbnRyYW5nZSA9IGMoNSw2KSwNCiAgICAgICAgICAgICAgICAgbGFiZWwgPSAnU2VwYWwgTGVuZ3RoJywgdmFsdWVzID0gaXJpcyRzZXBhbF9sZW5ndGgpLA0KICAgICAgICAgICAgbGlzdChyYW5nZSA9IGMoMCwyLjUpLA0KICAgICAgICAgICAgICAgICBsYWJlbCA9ICdQZXRhbCBXaWR0aCcsIHZhbHVlcyA9IGlyaXMkcGV0YWxfd2lkdGgpLA0KICAgICAgICAgICAgbGlzdChyYW5nZSA9IGMoMSw3KSwNCiAgICAgICAgICAgICAgICAgbGFiZWwgPSAnUGV0YWwgTGVuZ3RoJywgdmFsdWVzID0gaXJpcyRwZXRhbF9sZW5ndGgpDQogICAgICAgICAgICApKQ0KYGBgDQoNCg0KU3RhciBQbG90cw0KDQoNCmBgYHtyfQ0Kc3RhcnMoZGF0YSA9IGlyaXMpDQpgYGANCg0K