gpt4 book ai didi

r - 尝试更改 R 中 ggplot 图的颜色

转载 作者:行者123 更新时间:2023-12-04 16:13:02 25 4
gpt4 key购买 nike

我正在尝试复制下图中的 donut chart 。

Attempting to replicate

我已经完成了除实际着色之外的所有内容,并且对我在 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 之前,我得到了上面的 donut chart 。添加 scale_colour_manual 后,颜色没有变化。我需要对 scale_colou_manual 进行哪些更改才能更改颜色?如果我没有走在正确的轨道上,我真的很感激任何形式的指导。提前致谢!

最佳答案

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"))

enter image description here

关于r - 尝试更改 R 中 ggplot 图的颜色,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/34307477/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com