条形图与ggplot2：订购日轴

Question

我想使用ggplot2获取多变量条形图，其中 X轴图表上的天排序< strong> Y轴 值，填充变量小时

> data
         day hour    value
1     sábado   22 3.795489
2     sábado   21 1.791759
3     sábado   20 3.072693
4     sábado   19 1.945910
5     sábado   18 3.332205
6     sábado   15 4.516339
7     sábado   13 4.219508
8     sábado   12 4.356709
9     sábado   11 2.980619
10    sábado    1 3.663562
11    sábado    0 3.650658
12   viernes   23 4.219508
13   viernes   22 3.113515
14   viernes   21 3.367296
15   viernes   18 3.218876
16   viernes   16 4.039536
17   viernes   14 3.277145
18    jueves   18 3.044522
19 miércoles   22 2.708050
20 miércoles   15 3.411148
21 miércoles   12 1.945910
22 miércoles   10 1.791759
23    martes   16 3.696351
24    martes   15 2.140066
25    martes    9 3.688879
26     lunes   18 1.791759
27     lunes   16 3.650658
28     lunes   13 2.442347
29     lunes   10 3.589059
30   domingo   10 4.127134
31   domingo    0 4.872905
32    sábado   23 3.751854
33   viernes   20 2.302585
34   viernes    9 3.569533
35    jueves   12 2.197225
36 miércoles   18 3.332205
37    martes   14 3.295837
38    martes   13 3.465736
39    martes   10 2.424803
40     lunes   21 4.200205
41     lunes   15 2.564949
42     lunes   12 4.248495
43   domingo   21 4.494239
44   domingo   20 3.822098
45   domingo   12 4.806477
46   viernes   15 5.181784
47   viernes   13 5.308268
48   viernes   12 3.178054
49   viernes   11 5.173321
50   viernes   10 4.410371
51    jueves   23 2.890372
52    jueves   22 2.251292
53    jueves   20 2.917771
54    jueves    9 4.174387
55 miércoles    9 3.663562
56    martes   21 1.945910
57 miércoles   21 2.079442
58 miércoles   13 3.850148
59     lunes   17 4.629863
60     lunes    9 4.532599
61   domingo   19 3.496508
62   domingo   13 3.688879

我运行这个R代码，但我想订购日期，并用小时填充条（在减少变量值的值的情况下，例如，在TOP上必须出现具有较长值的小时）。

ggplot(arrange(data,day),aes(x = day, y = value))  +
  geom_bar(stat="identity",size=1.5,aes(fill=hour)) 

Answer 1

您可以在desc中订购小时

ggplot(arrange(data,day),aes(x = day, y = value))  +
+     geom_bar(stat="identity",size=1.5,aes(fill=order(-hour)))