How to remove white grids lines and align the axes in dual axes chart in r

Question

I need to plot a y axes on the right(inflation_rate) and another y axes on the left(price) using the data frame below.

I have a dataframe which consists of a price and inflation rate over 10 years:

    Year        Price   inflation_rate
     1          59424    9
     2          64344    7
     3          73200    6
     4          72072    5
     5          76104    4
     6          84444   -2
     7          90792    3
     8          94464    0
     9          99504    8
    10         103992    1

The code to generate the above is:

library(dplyr)
set.seed(300)
Price<-c(
                  59424,
                  64344,
                  73200,
                  72072,
                  76104,
                  84444,
                  90792,
                  94464,
                  99504,
                  103992
                  )
year<-data.frame(c(seq(1:10)))
names(year)<-"Year"
priceinflation<-cbind(year, Price)
priceinflation<-priceinflation%>%
mutate(inflation_rate=c(sample(c(-2:10),10)))

I have used the below code to plot my dual axes chart:

library(ggplot2)
library(gtable)
library(grid)

grid.newpage()

# two plots
#just do the normal plots here
p1 <- ggplot(priceinflation, aes(Year, Price)) + 
  geom_line(colour = "blue") + 
  theme(panel.background = element_blank())+
  scale_y_continuous(labels=comma) +
  scale_x_discrete(limits=(-3:10))
p2 <- ggplot(priceinflation, aes(x=Year,y=inflation_rate)) + 
  geom_line(colour = "red") + 
  theme(panel.background = element_blank())+
  scale_y_discrete(limits=(-3:10))
g1 <- ggplotGrob(p1)
g2 <- ggplotGrob(p2)

# extract gtable
g1 <- ggplot_gtable(ggplot_build(p1))
g2 <- ggplot_gtable(ggplot_build(p2))

# overlap the panel of 2nd plot on that of 1st plot
pp <- c(subset(g1$layout, name == "panel", se = t:r))
g <- gtable_add_grob(g1, g2$grobs[[which(g2$layout$name == "panel")]], pp$t, 
                     pp$l, pp$b, pp$l)

# axis tweaks
ia <- which(g2$layout$name == "axis-l")
ga <- g2$grobs[[ia]]
ax <- ga$children[[2]]
ax$widths <- rev(ax$widths)
ax$grobs <- rev(ax$grobs)
ax$grobs[[1]]$x <- ax$grobs[[1]]$x - unit(1, "npc") + unit(0.15, "cm")
g <- gtable_add_cols(g, g2$widths[g2$layout[ia, ]$l], length(g$widths) - 1)
g <- gtable_add_grob(g, ax, pp$t, length(g$widths) - 1, pp$b)

# draw it
grid.draw(g)

There are various problem here:
1. The x axis is offscaled, the 0 is not within the chart.
2. The secondary y axis does not show up till 10, it cuts at 9.
3. The line chart have many white gridlines.
4. No legends to distinguish the 2 charts

Kindly seek advices to solve my 4 problems above.