2016-11-26 8 views
1

Используя этот data.frameggplot2: участок пуст при использовании scale_y_continuous

данных

banks <- read.table(text = c(" 
Date Central_Bank Al-Ahli CIB Arab_African_Bank Misr AbuDhabi Qahira Credit_Agricole Albarakah Alt3meer_El_Eskan 
20/11/2016 17.14 17.27 17.25 17.3 17.28 17 17.28 17.25 17.35 17 
          21/11/2016 17.39 17.25 17.15 17.3 17.25 17.2 17.25 17.25 17.31 17.1 
          22/11/2016 17.29 17.4 17.25 17.37 17.41 17.25 17.25 17.3 17.43 17.3 
          23/11/2016 17.3 17.4 17.3 17.32 17.41 17.3 17.3 17.25 17.35 17.25 
          24/11/2016 17.37 17.4 17.3 17.4 17.41 17.4 17.3 17.25 17.4 17.25" 
          ), header = T) 

и этот сценарий

banks$Date <- as.Date(banks$Date, format="%d/%m/%Y") 

banks1 <- banks %>% 
    tidyr::gather("Bank", "Value", 2:11) 


ggplot(banks1, aes(x = Date, y = Value, fill =Bank))+ 
    geom_bar(stat= "identity", position = "dodge", fill = "Blue")+ 
    facet_wrap(~Bank) 

Я получил этот участок

enter image description here

Эти значения представляют собой обменный курс USD/EGP. Колебания обменного курса составляют от 17 до 17,45. Я хочу увеличить масштаб, чтобы выделить эти колебания, поэтому я использовал

scale_y_continuous(limits = c(17, 17.5), 
         breaks=c(17, 17.1,17.2, 17.3, 17.4, 17.5)) 

Однако окончательный участок был пуст. Любое предложение, что пошло не так? enter image description here

+1

geom_bar для данных временных рядов? – Nate

+0

@NathanDay Это не имеет смысла для меня, но кто-то хотел этого. Это был первый сюжет, который пришел мне на ум, когда я увидел данные https://www.dropbox.com/s/lv9gld6l64wucxc/banks3.png?dl=0 – aelwan

+0

Я думаю, что это лучший способ отображения, но если вы должны делать бары, вы можете модно настраивать свои с помощью 'geom_ribbon' – Nate

ответ

2

линии графики также показывают желаемого масштаб изображения вариации

ggplot(banks1, aes(x = Date, y = Value, fill = Bank))+ 
geom_line(stat= "identity", color = "Blue", size = 2)+ 
scale_y_continuous(limits = c(17, 17.5), 
         breaks=c(17, 17.1,17.2, 17.3, 17.4, 17.5) 
        )+ 
facet_wrap(~Bank) 

enter image description here

+0

Большое спасибо за ваше время и помощь – aelwan

0

Вы не можете построить geom_bar без включения всей панели. Попробуйте использовать geom_point, чтобы увидеть, что ваш код является штрафом, или изменить вашу нижнюю границу от 17 до 0.

+0

Написано на телефоне - добавит больше деталей, когда смогу. – BLT

+0

Спасибо за ваше время и помощь – aelwan