Barchart с ggplot 2-х осевые этикетки

Question

У меня есть небольшая проблема с ggplot barchart.

Я хотел сделать барчарт с ggplot2, чтобы сравнить мои Svolumes для моих 4 акций в течение нескольких месяцев.

У меня есть две проблемы:

Первая в том, что моя ось у неправильно. Мой график/данные кажутся правильными, но ось y не «следует», поскольку я думал, что она будет содержать другую шкалу ... Мне нужно было бы «суммировать» число моих наборов данных, я думаю, что здесь он записывает мои значения svolumes , Я не знаю, как объяснить, но мне нужна шкала, соответствующая всем моим данным на графике, как 10,20 и т. Д. До самой высокой суммы svolumes.

Там мой код:

Date=c(rep(data$date)) 
Subject=c(rep(data$subject)) 
Svolume=c(data$svolume) 
Data=data.frame(Date,Subject,Svolume) 

Data=ddply(Data, .(Date),transform,pos=cumsum(as.numeric(Svolume))-(0.5*(as.numeric(Svolume)))) 

ggplot(Data, aes(x=Date, y=Svolume))+ 
    geom_bar(aes(fill=Subject),stat="identity")+ 
    geom_text(aes(label=Svolume,y=pos),size=3) 

и есть мой участок:

Я помог с вопросом here

Наконец, как я мог бы сделать тот же сюжет на каждый месяц, пожалуйста? Я не знаю, как получить значения в месяц, чтобы получить более читаемый барчер, поскольку мы ничего не можем прочитать здесь ...

Если у вас есть другие идеи для меня, я был бы очень рад принять любые идеи и советы! Возможно, то же самое с линейной диаграммой было бы более читаемым ...? Или, может быть, тот же баркар для каждой акции? (Я не знаю, как получить значения на акцию либо ...)

Я только что нашел, как это сделать с линиями .... но еще раз моя ось y неверна, и это не очень читаемо. ...

Спасибо за вашу помощь !! :)

Answer 1

Попробуйте добавить следующую строку прямо перед вашей функцией ggplot. Похоже, ваша ось y находится в character. комментарии

[править] инкорпорировать @ user20650, добавьте as.character() первый затем преобразовать в numeric.

Data$Svolume <- as.numeric(as.character(Data$Svolume)) 

Для получения того же участка за каждый месяц, вы можете добавить переменную месяц первый: Data$Month <- month(as.Date(Date)). Затем добавьте facet к вашему объекту ggplot.

ggplot(Data, aes(x=Date, y=Svolume) + 
    ... 
    + facet_wrap(~ Month) 

Например, ваш штрих-код график будет:

Data$Svolume <- as.numeric(as.character(Data$Svolume)) 
Data$Month <- month(as.Date(Date)) 
ggplot(Data, aes(x=Date, y=Svolume)) + 
    geom_bar(aes(fill=Subject),stat="identity") + 
    geom_text(aes(label=Svolume,y=pos),size=3) + 
    facet_wrap(~ Month) 

и ваша линия код диаграмма будет:

Data$Svolume <- as.numeric(as.character(Data$Svolume)) 
Data$Month <- month(as.Date(Date)) 
ggplot(Data, aes(x=Date, y=Svolume, colour=Subject)) + 
    geom_line() + 
    facet_wrap(~ Month)