r - 在几何线中以不同比例绘制辅助轴

Question

我正在尝试绘制带有 2 条线但具有不同比例的折线图：左侧 y 轴作为连续数字，右侧 y 轴作为百分比。波纹管是一个样本：

data.frame(date=Sys.Date()-0:9,n=rnorm(10,200,10),p=210) %>%
  mutate_if(is.numeric,round,0) %>% 
  mutate(perc=n/p) %>% 
  ggplot(.,aes(x=date)) + 
    geom_line(aes(y=n)) + 
    geom_line(aes(y=perc))

我怎样才能做到这一点？

谢谢

Answer 1

您可以使用scale_y_continuous来定义第二个轴。如果轴的缩放比例相似，我对您的示例进行了一些更改，因为您的两个变量是相同的。

data.frame(date=Sys.Date()-0:9,n=rnorm(10,200,10),p=rnorm(10,200,10)) %>%
  mutate_if(is.numeric,round,0) %>% 
  mutate(perc=n/p) %>% 
  ggplot(.,aes(x=date)) + 
  geom_line(aes(y=n)) + 
  geom_line(aes(y=perc*200))+
  scale_y_continuous(
    sec.axis = sec_axis(~./210,name = "percent")
  )