複数の変数を使ってRでヒストグラムをプロットする方法はありますか？

Question

私は、次のデータをRでヒストグラムを作成する必要があります。

     GDP: CONSTANT VALUES (2008=100)            

**sector** **2003** **2004** **2005** **2006** **2007** 
Agriculture 532918 543230  532043  562146 585812 
Mining  1236807 1258769  1263937  1250930 1235517 
Construction 1505948 1598346  1645017  1785796 1874591 
Manufacturing 6836256 7098173  7302589  7731867 7844533 
Wholesale  8635763 918174  966467  1037362 1070758 

私はこのような（単年度で表現1つの変数のみを持つ）非常に単純なデータのヒストグラムを作成するためのルールや手順を知っています：

age of members of group A in 2013 
12 13 13 57 57 90 56 32 12 34 
16 23 23 23 14 67 89 90 35 92 

問題は、私はかつてのit'saの時系列ので、非常に混乱していますということであり、それはいくつかの変数が含まれており、数年に数量をit'sと私はすべてのグラフ化する1つのヒストグラムを作成する方法がわかりません一緒にデータ。

お願いします。

多くのことに感謝します。私はあなたがそのような何か欲しいと仮定

Answer 1

：セクターが異なるため

df <- read.table(text="sector 2003 2004 2005 2006 2007 
Agriculture 532918 543230  532043  562146 585812 
Mining  1236807 1258769  1263937  1250930 1235517 
Construction 1505948 1598346  1645017  1785796 1874591 
Manufacturing 6836256 7098173  7302589  7731867 7844533 
Wholesale  8635763 918174  966467  1037362 1070758",h=T,strin=F) 

library(ggplot2) 
library(tidyr) 

df2 <- gather(df,year,value,-sector) 
ggplot(df2,aes(x=year,y=value,fill=sector)) + geom_bar(stat="sum") 

Answer 2

を、1年が主催する産業セクター内のデータを見たいかもしれません。これを行う1つの方法は次のとおりです。

rawData <-           
"sector Year2003 Year2004 Year2005 Year2006 Year2007 
Agriculture 532918 543230  532043  562146 585812 
Mining  1236807 1258769  1263937  1250930 1235517 
Construction 1505948 1598346  1645017  1785796 1874591 
Manufacturing 6836256 7098173  7302589  7731867 7844533 
Wholesale  8635763 918174  966467  1037362 1070758" 

library(reshape2) 

gdpData <- read.table(textConnection(rawData),header=TRUE, 
         sep="",stringsAsFactors=TRUE) 

gdpMelt <- melt(gdpData,id="sector", 
      measure.vars=c("Year2003","Year2004","Year2005","Year2006","Year2007")) 

gdpMelt$year <- as.factor(substr(gdpMelt$variable,5,8)) 

library(ggplot2) 
ggplot(gdpMelt, aes(sector, value, fill = year)) + 
    geom_bar(stat="identity", position = "dodge") + 
    scale_fill_brewer(palette = "Set1") 

結果のグラフは次のようになります。

に関して、

レン