Используя этот data.frame

< Сильный > Данные

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))

Однако финальный сюжет оказался пустым. Есть предложения, что пошло не так? введите описание изображения здесь

1
shiny 26 Ноя 2016 в 07:03

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

2
Hardik Gupta 26 Ноя 2016 в 04:23

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

0
BLT 26 Ноя 2016 в 04:12