如何在r中将2个不同的情节放在一个？

Question

嗨我看起来很疯狂，但我不知道如果他们有不同的数据库和不同的轴，如果将geom bar和geom line放在同一个图表上，我有一个代码，但geom行与第二行不对应轴。 我的代码是这样的：

library(ggplot2)
library(ggthemes)                                                             
library(scales)

Mes<- "Agosto"

AXIS1_MIN = min(Base1$Porcentaje)                                                                   
AXIS1_MAX = max(Base1$Porcentaje)                                                                    
AXIS2_MIN = min(Base2$Porcentaje_Activo)                                                                    
AXIS2_MAX = max(Base2$Porcentaje_Activo)

stv_1<- function(Porcentaje) rescale(Porcentaje, to = c(AXIS1_MIN, AXIS1_MAX))                                                                      
stv_2<- function(Porcentaje_Activo) rescale(Porcentaje_Activo, to = c(AXIS2_MIN, AXIS2_MAX))   

x<-ggplot()+ scale_fill_economist()+ 
geom_bar(aes( y= Porcentaje, x= Fecha, fill= Producto), data= Base1, stat="identity")+
geom_line(data=Base2 ,aes( y = stv_1(Porcentaje=Porcentaje_Activo), x=Fecha_, group=Producto_),size=.6)+
geom_point(data=Base2 ,aes( y=stv_1(Porcentaje=Porcentaje_Activo), x=Fecha_, group=Producto_),size=2.25)+
scale_y_continuous(labels = scales::percent,limits = c(-1,1),sec.axis = sec_axis( ~ stv_2(.), labels = scales::percent, name = "Rendimiento Activo"))+
scale_x_date(breaks = seq(as.Date("2017-01-31"), as.Date("2017-07-31"), by="month"), labels=date_format("%d-%m"))+

plot(x)