
Last chance! 50% off unlimited learning
Sale ends in
scale_colour_hue(..., h = c(0, 360) + 15, c = 100,
l = 65, h.start = 0, direction = 1,
na.value = "grey50") scale_fill_hue(..., h = c(0, 360) + 15, c = 100, l = 65,
h.start = 0, direction = 1, na.value = "grey50")
scale_colour_discrete(..., h = c(0, 360) + 15, c = 100,
l = 65, h.start = 0, direction = 1,
na.value = "grey50")
scale_fill_discrete(..., h = c(0, 360) + 15, c = 100,
l = 65, h.start = 0, direction = 1,
na.value = "grey50")
scale_color_discrete(..., h = c(0, 360) + 15, c = 100,
l = 65, h.start = 0, direction = 1,
na.value = "grey50")
scale_color_hue(..., h = c(0, 360) + 15, c = 100, l = 65,
h.start = 0, direction = 1, na.value = "grey50")
discrete_scale
to control name, limits,
breaks, labels and so forth.scale_color_brewer
,
scale_color_continuous
,
scale_color_gradient
,
scale_color_gradient2
,
scale_color_gradientn
,
scale_color_grey
,
scale_colour_brewer
,
scale_colour_continuous
,
scale_colour_gradient
,
scale_colour_gradient2
,
scale_colour_gradientn
,
scale_colour_grey
,
scale_fill_brewer
,
scale_fill_continuous
,
scale_fill_gradient
,
scale_fill_gradient2
,
scale_fill_gradientn
,
scale_fill_grey
dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
(d <- qplot(carat, price, data=dsamp, colour=clarity))
# Change scale label
d + scale_colour_hue()
d + scale_colour_hue("clarity")
d + scale_colour_hue(expression(clarity[beta]))
# Adjust luminosity and chroma
d + scale_colour_hue(l=40, c=30)
d + scale_colour_hue(l=70, c=30)
d + scale_colour_hue(l=70, c=150)
d + scale_colour_hue(l=80, c=150)
# Change range of hues used
d + scale_colour_hue(h=c(0, 90))
d + scale_colour_hue(h=c(90, 180))
d + scale_colour_hue(h=c(180, 270))
d + scale_colour_hue(h=c(270, 360))
# Vary opacity
# (only works with pdf, quartz and cairo devices)
d <- ggplot(dsamp, aes(carat, price, colour = clarity))
d + geom_point(alpha = 0.9)
d + geom_point(alpha = 0.5)
d + geom_point(alpha = 0.2)
# Colour of missing values is controlled with na.value:
miss <- factor(sample(c(NA, 1:5), nrow(mtcars), rep = TRUE))
qplot(mpg, wt, data = mtcars, colour = miss)
qplot(mpg, wt, data = mtcars, colour = miss) +
scale_colour_hue(na.value = "black")
Run the code above in your browser using DataLab