如何调整关于颜色和比例的ggplot图？

Question

我在调整有关颜色和比例的图形时遇到一些困难：

这里有一些数据：

#Table 1

date<-c("2015-08-07","2015-08-08","2015-08-09")
A<-c(7268.45,11212.46,12850.15)
B<-c(7009.32,5665.81,16492.11)
C<-c(3582.07,1793.50,5556.42)
D<-c(3653.33,2335.34,2007.50)
df<-data.frame(date,A,B,C,D)


#Table 2

date<-c("2015-08-07","2015-08-08","2015-08-09")
A<-c(7885,8202,11342)
B<-c(7857,8034,11518)
C<-c(3147,3768,4487)
D<-c(3084,3669,4456)
df1<-data.frame(date,A,B,C,D)

#Table 1 / Table 2

date<-c("2015-08-07","2015-08-08","2015-08-09")
A<-c(0.8921115,0.7052290,1.4318554)
B<-c(0.9218072,1.3670397,1.1329704)
C<-c(1.1382491,0.4759820,1.2383374)
D<-c(1.1846077,0.6365059,0.4505162)
df2<-data.frame(date,A,B,C,D)

#Plot:

library(ggplot2)
library(grid)
library(gridExtra)
library(dplyr)
library(tidyr)

df$df = "Table 1"
df1$df = "Table 2"
df2$df = "Table1 / Table2"

bind_rows(df, df1, df2) %>%
  gather(variable, value, -c(date, df)) %>%
  ggplot(aes(x=as.Date(date), y=value, group=variable))  +
  geom_line(aes(colour = variable)) +
  facet_wrap(~df, ncol = 1) +
  scale_x_date() + xlab("")

可以看到， Table1 / Table2之间的比率与上面的图表在同一比例上。 我希望Table1 / Table2在0 -2之间。此外，我无法真正区分颜色。 有没有办法使它们大胆或增强可感知性？

Answer 1

您可以在facet_wrap函数中将scales='free_y'设置为单独缩放每个构面。

有关着色，请访问颜色酿造商网站 。 在这里，您可以找到可在ggplot2使用的一些配色方案。

我非常喜欢Set1或Set3颜色。 一些如何集成的示例在这里

bind_rows(df, df1, df2) %>%
  gather(variable, value, -c(date, df)) %>%
  ggplot(aes(x=as.Date(date), y=value, group=variable))  +
  geom_line(aes(colour = variable)) +
  facet_wrap(~df, ncol = 1) +
  scale_x_date() + xlab("") +
  scale_color_brewer(palette='Set1')