scale_hue

Maps each level to an evenly spaced hue on the colour wheel and then convert them with ggplotly.

dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
(d <- ggplot(dsamp, aes(carat, price)) + geom_point(aes(colour = clarity)))

plotly::ggplotly(d)

dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
(d <- ggplot(dsamp, aes(carat, price)) + geom_point(aes(colour = clarity)))
p <-  d + scale_colour_hue()

plotly::ggplotly(p)

dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
(d <- ggplot(dsamp, aes(carat, price)) + geom_point(aes(colour = clarity)))
p <-  d + scale_colour_hue("clarity")

plotly::ggplotly(p)

dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
(d <- ggplot(dsamp, aes(carat, price)) + geom_point(aes(colour = clarity)))
p <-  d + scale_colour_hue(expression(clarity[beta]))

plotly::ggplotly(p)

dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
(d <- ggplot(dsamp, aes(carat, price)) + geom_point(aes(colour = clarity)))
p <-  d + scale_colour_hue(l = 40, c = 30)

plotly::ggplotly(p)

dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
(d <- ggplot(dsamp, aes(carat, price)) + geom_point(aes(colour = clarity)))
p <-  d + scale_colour_hue(l = 70, c = 30)

plotly::ggplotly(p)

dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
(d <- ggplot(dsamp, aes(carat, price)) + geom_point(aes(colour = clarity)))
p <-  d + scale_colour_hue(l = 70, c = 150)

plotly::ggplotly(p)

dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
(d <- ggplot(dsamp, aes(carat, price)) + geom_point(aes(colour = clarity)))
p <-  d + scale_colour_hue(l = 80, c = 150)

plotly::ggplotly(p)

dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
(d <- ggplot(dsamp, aes(carat, price)) + geom_point(aes(colour = clarity)))
p <-  d + scale_colour_hue(h = c(0, 90))

plotly::ggplotly(p)

dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
(d <- ggplot(dsamp, aes(carat, price)) + geom_point(aes(colour = clarity)))
p <-  d + scale_colour_hue(h = c(0, 90))

plotly::ggplotly(p)

dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
(d <- ggplot(dsamp, aes(carat, price)) + geom_point(aes(colour = clarity)))
p <-  d + scale_colour_hue(h = c(90, 180))

plotly::ggplotly(p)

dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
(d <- ggplot(dsamp, aes(carat, price)) + geom_point(aes(colour = clarity)))
p <-  d + scale_colour_hue(h = c(180, 270))

plotly::ggplotly(p)

dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
(d <- ggplot(dsamp, aes(carat, price)) + geom_point(aes(colour = clarity)))
p <-  d + scale_colour_hue(h = c(270, 360))

plotly::ggplotly(p)

d <- ggplot(dsamp, aes(carat, price, colour = clarity))
p <-  d + geom_point(alpha = 0.9)

plotly::ggplotly(p)

d <- ggplot(dsamp, aes(carat, price, colour = clarity))
p <-  d + geom_point(alpha = 0.5)

plotly::ggplotly(p)

d <- ggplot(dsamp, aes(carat, price, colour = clarity))
p <-  d + geom_point(alpha = 0.2)

plotly::ggplotly(p)

miss <- factor(sample(c(NA, 1:5), nrow(mtcars), replace = TRUE))
p <-    
 ggplot(mtcars, aes(mpg, wt)) +
  geom_point(aes(colour = miss))

plotly::ggplotly(p)

miss <- factor(sample(c(NA, 1:5), nrow(mtcars), replace = TRUE))
p <-    
 ggplot(mtcars, aes(mpg, wt)) +
  geom_point(aes(colour = miss)) +
  scale_colour_hue(na.value = "black")

plotly::ggplotly(p)

GGPLOT - scale_hue

GGPLOT - `scale_hue`