1

ggplot2 を使用して時系列データをプロットしようとしています。具体的には、5 年間 (年間データポイント) にわたってプロットされた 3 つのデータ グループを含む折れ線グラフを生成しようとしています。問題なくできること。こちらをご覧ください

基本的な時系列プロット

私の問題は、色を適用しようとしているときに発生します。この場合、私の好みの方法である scale_fill_brewer() を使用しています。それをプロットしようとすると、次のようになります。

> p + geom_line() + scale_fill_brewer(palette = "Set1")

残念ながら、これにより次のエラーが生成されます。

In brewer.pal(n, pal) :
minimal value for n is 3, returning requested palette with 3 different levels

これは、a) ここに少なくとも 3 つのグループがあるため、b) 棒グラフのプロットに scale_fill_brewer() を正常に適用できるため、混乱を招きます。

私が間違っていることを理解するのに十分な scale_fill_brewer() はありますか?

更新：リクエストごとに、Pを生成した方法は次のとおりです.

> osr.m
Date                                         Type Revenue
1  5/31/07                        New.software.licenses    5882
2  5/31/08                        New.software.licenses    7515
3  5/31/09                        New.software.licenses    7123
4  5/31/10                        New.software.licenses    7533
5  5/31/11                        New.software.licenses    9235
6  5/31/12                        New.software.licenses    9906 
7  5/31/07 Software.license.updates.and.product.support    8329
8  5/31/08 Software.license.updates.and.product.support   10328
9  5/31/09 Software.license.updates.and.product.support   11754  
10 5/31/10 Software.license.updates.and.product.support   13092
11 5/31/11 Software.license.updates.and.product.support   14796
12 5/31/12 Software.license.updates.and.product.support   16210
13 5/31/07                            Software.revenues   14211
14 5/31/08                            Software.revenues   17843
15 5/31/09                            Software.revenues   18877
16 5/31/10                            Software.revenues   20625
17 5/31/11                            Software.revenues   24031
18 5/31/12                            Software.revenues   26116

p <- ggplot(osr.m, aes(x=Date, y=Revenue, group=Type))
4

1 に答える 1

2

fillあなたが本当にではなくを使用しようとしていると仮定するとcolour、これは私がすることです:

dat <- read.table(text = "Date                                         Type Revenue
1  5/31/07                        New.software.licenses    5882
2  5/31/08                        New.software.licenses    7515
3  5/31/09                        New.software.licenses    7123
4  5/31/10                        New.software.licenses    7533
5  5/31/11                        New.software.licenses    9235
6  5/31/12                        New.software.licenses    9906 
7  5/31/07 Software.license.updates.and.product.support    8329
8  5/31/08 Software.license.updates.and.product.support   10328
9  5/31/09 Software.license.updates.and.product.support   11754  
10 5/31/10 Software.license.updates.and.product.support   13092
11 5/31/11 Software.license.updates.and.product.support   14796
12 5/31/12 Software.license.updates.and.product.support   16210
13 5/31/07                            Software.revenues   14211
14 5/31/08                            Software.revenues   17843
15 5/31/09                            Software.revenues   18877
16 5/31/10                            Software.revenues   20625
17 5/31/11                            Software.revenues   24031
18 5/31/12                            Software.revenues   26116",sep = "",header = TRUE)

dat$Date <- as.Date(dat$Date,"%m/%d/%y")
ggplot(dat,aes(x = Date,y = Revenue)) + 
    geom_area(aes(group = Type,fill = Type)) + 
    scale_fill_brewer(palette = "Set1") +
    opts(legend.position = "none")

ここに画像の説明を入力

于 2012-07-03T15:07:57.053 に答える