> mooddata
     mood       grade count
1    孤独        从不   399
2    烦躁        从不   393
3    气愤        从不   423
4    沮丧        从不   411
5    恐惧        从不   384
6    自信        从不   405
7  有希望        从不   462
8    幸福        从不   389
9    兴奋        从不   410
10   满足        从不   760
11   孤独 每周1天以内  2654
12   烦躁 每周1天以内  1710
13   气愤 每周1天以内  1819
14   沮丧 每周1天以内  1663
15   恐惧 每周1天以内  3006
16   自信 每周1天以内  1723
17 有希望 每周1天以内   914
18   幸福 每周1天以内   681
19   兴奋 每周1天以内  2981
20   孤独   每周1-2天   493
21   烦躁   每周1-2天   821
22   气愤   每周1-2天   806
23   沮丧   每周1-2天   893
24   恐惧   每周1-2天   446
25   自信   每周1-2天   733
26 有希望   每周1-2天   615
27   幸福   每周1-2天   616
28   兴奋   每周1-2天   438
29   孤独   每周3-4天   399
30   烦躁   每周3-4天   738
31   气愤   每周3-4天   693
32   沮丧   每周3-4天   786
33   恐惧   每周3-4天   274
34   自信   每周3-4天   666
35 有希望   每周3-4天   773
36   幸福   每周3-4天   976
37   兴奋   每周3-4天   266
38   孤独 每周5天以上   339
39   烦躁 每周5天以上   622
40   气愤 每周5天以上   543
41   沮丧 每周5天以上   531
42   恐惧 每周5天以上   174
43   自信 每周5天以上   757
44 有希望 每周5天以上  1520
45   幸福 每周5天以上  1622
46   兴奋 每周5天以上   189
47   满足 每周5天以上  3524

数据如上

p11 = ggplot(mooddata, aes(x = mood, y = count, fill = grade)) +
      geom_area()