试图改变 R 中 ggplot 图的颜色答案

【问题标题】：Trying to change the coloring of a ggplot graph in R试图改变 R 中 ggplot 图的颜色
【发布时间】：2016-03-22 07:42:21
【问题描述】：

我正在尝试复制下图中的甜甜圈图。

我已经完成了除实际着色之外的所有工作，并且对我在 ggplot 的 scale_colour_manual 部分中的错误之处感到困惑。

这是我用于 ggplot 的代码：

    ggplot(base_ind_zones) + 
    geom_rect(aes(fill = base_zones, ymax=ymax, ymin=ymin, xmax=4, xmin=3)) +
    geom_rect(aes(fill = ind, ymax=ymax, ymin=ymin, xmax=3, xmin=2)) +  
    xlim(c(0, 4)) + 
    theme(aspect.ratio=1) +
    coord_polar(theta = "y", start = ((2*3.14)/3)) +
    theme(panel.grid=element_blank()) +
    theme(axis.text=element_blank()) +
    theme(axis.ticks=element_blank()) +
    scale_colour_manual(breaks = c("A", "B", "C", "D"),
    values = c(adjustcolor("blue", alpha.f = 0), "firebrick4", "grey99", "skyblue1"))

和一个样本数据集：

    base_ind_zones <- base_ind_zones = data.frame(category=c("A", "B", "C", "D"),
    base_zones=c(33, 44, 12, 11),
    ind=c(33, 44, 2, 21))

    #Needed to determine the ymin and ymax for ggplot
    base_ind_zones$fraction = base_ind_zones$ind / sum(base_ind_zones$ind)
    base_ind_zones$ymax = cumsum(base_ind_zones$fraction)
    base_ind_zones$ymin = c(0, head(base_ind_zones$ymax, n = -1))

Current output

在添加 scale_colour_manual 之前，我得到了上面的甜甜圈图。添加 scale_colour_manual 后，颜色没有变化。我需要对 scale_colou_manual 进行哪些更改才能更改颜色？如果我不在正确的轨道上，我将非常感谢任何形式的指导。提前致谢！

【问题讨论】：

由于您映射了fill，因此您需要使用scale_fill_manual 调整填充颜色。

标签： r colors ggplot2 donut-chart

【解决方案1】：

base_ind_zones <- data.frame(category=c("A", "B", "C", "D"),
                                          base_zones=as.character(c(33, 44, 12, 11)),
                                          ind=as.character(c(33, 45, 2, 21)),
                         stringsAsFactors = FALSE)

#Needed to determine the ymin and ymax for ggplot
base_ind_zones$fraction = as.numeric(base_ind_zones$ind) /
  sum(as.numeric(base_ind_zones$ind))
base_ind_zones$ymax = cumsum(base_ind_zones$fraction)
base_ind_zones$ymin = c(0, head(base_ind_zones$ymax, n = -1))

ggplot(base_ind_zones) + 
  geom_rect(aes(fill = base_zones, ymax=ymax, ymin=ymin, xmax=4, xmin=3)) +
  geom_rect(aes(fill = ind, ymax=ymax, ymin=ymin, xmax=3, xmin=2)) +  
  xlim(c(0, 4)) + 
  theme(aspect.ratio=1) +
  coord_polar(theta = "y", start = ((2*3.14)/3)) +
  theme(panel.grid=element_blank()) +
  theme(axis.text=element_blank()) +
  theme(axis.ticks=element_blank()) +
  scale_fill_manual(breaks = c("A", "B", "C", "D"),
              values = c("33"="white", "44"="firebrick4", "12"="white", 
                         "11"="skyblue1", "2"="black", "21"="white", "45"="black"))

【讨论】：