library(tidyverse)
library(datasets)
data("starwars")
data("iris")
glimpse(starwars)

The sepal width and sepal length are positively correlated:
p <- ggplot(iris, aes(x = Sepal.Width, y = Sepal.Length, color = iris$Species))
p + geom_point()
ggplotly(height_chart +geom_bar(stat = "identity"))
We recommend that you use the dev version of ggplot2 with `ggplotly()`
Install it with: `devtools::install_github('hadley/ggplot2')`
Removed 1 rows containing missing values (position_stack).
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9CmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KGRhdGFzZXRzKQoKZGF0YSgic3RhcndhcnMiKQoKZGF0YSgiaXJpcyIpCgpnbGltcHNlKHN0YXJ3YXJzKQoKCmBgYAoKYGBge3IgYmFzZV9wbG90c30KCnBsb3QoaXJpcyRTZXBhbC5XaWR0aCwgaXJpcyRQZXRhbC5MZW5ndGgpCgpgYGAKClRoZSBzZXBhbCB3aWR0aCBhbmQgc2VwYWwgbGVuZ3RoIGFyZSBwb3NpdGl2ZWx5IGNvcnJlbGF0ZWQ6IAoKYGBge3J9CnAgPC0gZ2dwbG90KGlyaXMsIGFlcyh4ID0gU2VwYWwuV2lkdGgsIHkgPSBTZXBhbC5MZW5ndGgsIGNvbG9yID0gaXJpcyRTcGVjaWVzKSkKCnAgKyBnZW9tX3BvaW50KCkKCgpgYGAKCmBgYHtyfQojaW5zdGFsbC5wYWNrYWdlcygicGxvdGx5IikKaW5zdGFsbC5wYWNrYWdlcygiZGF0YS50YWJsZSIpCgpsaWJyYXJ5KHBsb3RseSkKCgojdXNpbmcgc3RhcndhcnMgZGF0YSBzZXQKCnN0YXJ3YXJzX2hlaWdodCA8LSBncm91cF9ieShzdGFyd2FycywgaGFpcl9jb2xvcikgJT4lCiAgc3VtbWFyaXplKG1lYW5faGVpZ2h0ID0gbWVhbihoZWlnaHQsIG5hLnJtID0gVCkpCgoKaGVpZ2h0X2NoYXJ0IDwtIGdncGxvdChzdGFyd2Fyc19oZWlnaHQsIGFlcyh4ID0gaGFpcl9jb2xvciwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgeSA9IG1lYW5faGVpZ2h0LCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2xvciA9IGhhaXJfY29sb3IsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZmlsbCA9IGhhaXJfY29sb3IpKQoKZ2dwbG90bHkoaGVpZ2h0X2NoYXJ0ICtnZW9tX2JhcihzdGF0ID0gImlkZW50aXR5IikpCgoKCj9nZW9tX2JhcgpgYGAKCg==