R ggplot barplot отдельно для каждого года

Question

Я хотел бы знать, как получить штрих-код, где данные отдельно для каждого года. Я хотел бы добавить Excel-образ, но я не мог заставить меня быть новым в этом форуме. я следующие данные в кадре данных:

Year 2009/10 2010/11 2011/12  2012/13 2013/14 
V1  -221.85  0.00  0.00  -138.73  -191.10 
V2  0.00  -223.16 -231.52  0.00  -126.85 
V3  0.00  -1216.17 -1337.28 -1112.11 -863.98 
V4  0.00  -520.87 -540.88  -174.85  -296.78 
V5  0.00  -465.48 -805.63  -252.38  -178.92 
V6  0.00  -496.25  0.00  0.00  -232.17 
V7  0.00  0.00  0.00  -709.63  -759.41 

Пожалуйста, кто-нибудь может мне помочь - я пробовал разные подходы, но без успеха.

Большое спасибо заранее

STEFF

Answer 1

Не уверен, если это то, что вы ищете ..

dat <- structure(list(var = structure(1:7, .Label = c("V1", "V2", "V3", "V4", "V5", "V6", "V7"), class = "factor"), `2009` = c(-221.85, 0, 0, 0, 0, 0, 0), `2010` = c(0, -223.16, -1216.17, -520.87, -465.48, -496.25, 0), `2011` = c(0, -231.52, -1337.28, -540.88, -805.63, 0, 0), `2012` = c(-138.73, 0, -1112.11, -174.85, -252.38, 0, -709.63), `2013` = c(-191.1, -126.85, -863.98, -296.78, -178.92, -232.17, -759.41)), .Names = c("var", "2009", "2010", "2011", "2012", "2013"), class = "data.frame", row.names = c(NA, -7L)) 

library(ggplot2) 
library(reshape2) 

names(dat) <- c("var", "2009", "2010", "2011", "2012", "2013") 
dat.m <- melt(dat) 
ggplot(dat.m, aes(x=variable, y=value, fill=var)) + geom_bar(position="dodge", stat="identity") 

Answer 2

Вы можете пропустить первые колонки именования вещей. Если вы хотите имя по первой строке, используйте read.table с ч = TRUE при импорте в R. Экспорт из Excel в CSV где Сентябре = Ваш сепаратор и использование:

< данные - read.table (pathToCSV , ч = TRUE, сентябрь = "")
barplot (as.matrix (данные))