0

我需要使用下面的数据框在右侧（inflation_rate）绘制 y 轴，在左侧（价格）绘制另一个 y 轴。

我有一个数据框，其中包含 10 年的价格和通货膨胀率：

    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

生成上面的代码是：

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

我使用下面的代码来绘制我的双轴图：

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)

这是我的情节：

这里有各种问题：
1. x 轴偏离比例，0 不在图表内。
2. 次要y 轴直到10 才显示，它在9 处切割。
3. 折线图有许多白色网格线。
4. 没有图例来区分 2 个图表

请寻求建议以解决我上面的 4 个问题。

4

0 回答 0