Question

我设法将一些数据汇总到以下几个方面:

   Month Year Number
1     1  2011   3885
2     2  2011   3713
3     3  2011   6189
4     4  2011   3812
5     5  2011    916
6     6  2011   3813
7     7  2011   1324
8     8  2011   1905
9     9  2011   5078
10   10  2011   1587
11   11  2011   3739
12   12  2011   3560
13    1  2012   1790
14    2  2012   1489
15    3  2012   1907
16    4  2012   1615

我正试图在几个月的酒吧相互交接的地方制造一个酒吧,例如,1月至4月将有两个酒吧(2011年一个,2012年一个),其余几个月只有一个酒吧代表2011年。

我知道我必须使用<代码>beside=T,但我相信,我需要建立某种矩阵,以便让酒吧能够适当展示。我正在提出一个问题,阐述这一步骤。我感觉到这可能涉及<条码>矩阵<>,但出于某种原因,我完全放弃了似乎非常简单的解决办法。

此外,我有以下数据:y=c(Jan , Feb , Mar , Apr , May , Jun , Jul , Aug , Sep , Oct , Nov , Dec ,我想用我的名字使用。当我试图使用上述数据时,我告诉我,我所选择的栏目不明确,这意味着我需要<代码>y中的16个变量。我如何确定这一点?

Answer 1

使用<条码> 限值您需要重新安排数据:

dat <- read.table(text = "   Month Year Number
1     1  2011   3885
2     2  2011   3713
3     3  2011   6189
4     4  2011   3812
5     5  2011    916
6     6  2011   3813
7     7  2011   1324
8     8  2011   1905
9     9  2011   5078
10   10  2011   1587
11   11  2011   3739
12   12  2011   3560
13    1  2012   1790
14    2  2012   1489
15    3  2012   1907
16    4  2012   1615",sep = "",header = TRUE)

y <- c( Jan , Feb , Mar , Apr , May , Jun , Jul , Aug , Sep , Oct , Nov , Dec )

barplot(rbind(dat$Number[1:12],c(dat$Number[13:16],rep(NA,8))),
        beside = TRUE,names.arg = y)

“entergraph

或可使用ggplot2,其数据大致如下:

dat$Year <- factor(dat$Year)
dat$Month <- factor(dat$Month)
ggplot(dat,aes(x = Month,y = Number,fill = Year)) + 
    geom_bar(position = "dodge") + 
    scale_x_discrete(labels = y)

“enterography

友情链接