1

大家好，我正在尝试制作一个带有特殊元素的 ggplot 图形来为图形增加价值。我有下一个数据框：

Name    x
1   33374984
2   33209955
3   30250000
4   25897811
5   14995677
6   8200000
7   7878540
8   7571275
9   7188469
10  6756588
11  6592099
12  6538284
13  6248395
14  6116285
15  6045148
16  5745422
17  5670931
18  5494094
19  5282317
20  4695526
21  4641434
22  4595977
23  4572251
24  4535916
25  4506470
26  4445051
27  4444925
28  4393253
29  4383303
30  4349352
31  4278734
32  4134470
33  4102491
34  4010763
35  3589238
36  3573466
37  3524591
38  3497869
39  3340105
40  3292353
41  3234672
42  3217727
43  3202363
44  3170645
45  3119682
46  3092471
47  3033967
48  3000145
49  2994306
50  2943389
51  2940969
52  2936803
53  2923212
54  2884965
55  2863525
56  2846172
57  2839577
58  2819895
59  2809083
60  2804884
61  2752059
62  2750962
63  2740161
64  2718946
65  2580859
66  2580822
67  2553712
68  2490213
69  2425135
70  2406000
71  2405486
72  2387143
73  2384597
74  2381402
75  2372381
76  2308623
77  2299046
78  2287879
79  2260205
80  2245436
81  2208582
82  2203883
83  2176060
84  2169769
85  2136766
86  2121242
87  2115891
88  2106713
89  2084986
90  2049367
91  2031410
92  2023409
93  2015622
94  1999140
95  1901045
96  1900000
97  1891783
98  1863410
99  1859789
100 1851046

我使用以下代码制作了一个简单的 ggplot 条形图：

png(filename = "Delta.png", width = 800, height = 1000)
Delta=ggplot(DeltaPBO)+
  geom_bar(aes(x=Name,y=x,fill=x),
           stat='identity',position='dodge')+theme(axis.text.x=element_text(angle=80,hjust=1,vjust=1,colour="grey20",face="bold",size=12),axis.text.y=element_text(colour="grey20",face="bold",hjust=1,vjust=0.8),axis.title.x=element_text(colour="grey20",face="bold",size=15),axis.title.y=element_text(colour="grey20",face="bold",size=15))+xlab('Cliente')+ylab('Total')+ ggtitle("My graph")+theme(plot.title = element_text(lineheight=3, face="bold", color="black", size=29))
print(Delta)
dev.off()

我得到了这张图： 在此处输入图像描述 我的问题是下一个x是降序排列，我想在图形中为每 25 个观察值显示不同的条形颜色，例如观察值 1 到 25 应该是黄色，因为它们的值高于观察值 26 到50; 观察 26 至 50 应为绿色，因为它们高于观察 51 至 75；观测值 51 到 75 应该是蓝色的，因为它们高于观测值 76 到 100，最后观测值 76 到 100 应该是红色，因为它们具有较小的值。

我想在 R 中做这个，但我在 ggplot 中没有足够的知识。谢谢你的帮助。

4

1 回答 1

0

您可以添加新变量，其中包含数据中每 25 个观测值的分组名称。然后使用这个新变量来填充条形。根据scale_fill_manual()需要设置填充颜色。

DeltaPBO$group<-rep(c("A","B","C","D"),each=25)
ggplot(DeltaPBO)+
  geom_bar(aes(x=Name,y=x,fill=as.factor(group)),
           stat='identity',position='dodge')+
  scale_fill_manual(values=c("yellow","green","blue","red"))

在此处输入图像描述

于 2013-11-08T18:30:07.353 回答