在ggplot贴图中使用蓝橙色发色

Question

我想在ggplot映射中使用蓝橙色发色渐变。我发现它可以作为文档here在ggthemes中使用，但是如何在代码中包含它？

可复制的示例

library(ggplot2)
statesMap = map_data("state")
statesMap$num = rnorm(nrow(statesMap))

 ggplot(statesMap, aes(x = long, y = lat, group = group, fill = num)) + 
 geom_polygon(color = "black") + scale_fill_gradient(name = "num",low = 
 "#B8E6E6", high = "darkblue", guide = "colorbar",na.value="white")

上面的代码提供了下面的地图，但是我想在底部创建类似于Tableau的地图。

Answer 1

您可以使用scale_fill_gradient2_tableau并选择所需的调色板

Tableau diverging colour scales (continuous)

    scale_colour_gradient2_tableau(palette = "Orange-Blue Diverging", ...,
      na.value = "grey50", guide = "colourbar")

    scale_fill_gradient2_tableau(palette = "Orange-Blue Diverging", ...,
      na.value = "grey50", guide = "colourbar")

    scale_color_gradient2_tableau(palette = "Orange-Blue Diverging", ...,
      na.value = "grey50", guide = "colourbar")

Arguments

Palette name.

    "ordered-sequential""Blue-Green Sequential", "Blue Light", "Orange Light", "Blue", "Orange", "Green", "Red", "Purple", "Brown", "Gray", "Gray Warm", "Blue-Teal", "Orange-Gold", "Green-Gold", "Red-Gold", "Classic Green", "Classic Gray", "Classic Blue", "Classic Red", "Classic Orange", "Classic Area Red", "Classic Area Green", "Classic Area-Brown"

    "ordered-diverging""Orange-Blue Diverging", "Red-Green Diverging", "Green-Blue Diverging", "Red-Blue Diverging", "Red-Black Diverging", "Gold-Purple Diverging", "Red-Green-Gold Diverging", "Sunset-Sunrise Diverging", "Orange-Blue-White Diverging", "Red-Green-White Diverging", "Green-Blue-White Diverging", "Red-Blue-White Diverging", "Red-Black-White Diverging", "Orange-Blue Light Diverging", "Temperature Diverging", "Classic Red-Green", "Classic Red-Blue", "Classic Red-Black", "Classic Area Red-Green", "Classic Orange-Blue", "Classic Green-Blue", "Classic Red-White-Green", "Classic Red-White-Black", "Classic Orange-White-Blue", "Classic Red-White-Black Light", "Classic Orange-White-Blue Light", "Classic Red-White-Green Light", "Classic Red-Green Light"

... Arguments passed to tableau_gradient_pal.
na.value: Colour to use for missing values
guide: Type of legend. Use 'colourbar' for continuous colour bar, or 'legend' for discrete colour legend.

library(ggplot2)
library(ggthemes)

statesMap <- map_data("state")
statesMap$num <- rnorm(nrow(statesMap))

ggplot(statesMap, aes(x = long, y = lat, group = group, fill = num)) +
  geom_polygon(color = "black") +
  scale_fill_gradient2_tableau(palette = "Orange-Blue Diverging")

ggplot(statesMap, aes(x = long, y = lat, group = group, fill = num)) +
  geom_polygon(color = "black") +
  scale_fill_gradient2_tableau(palette = "Orange-Blue-White Diverging")

^{由reprex package（v0.2.1.9000）于2018-09-21创建}