こんにちは、グラフィックに価値を追加する特別な要素を持つ 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の知識が足りません。ご協力いただきありがとうございます。