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

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

1 个答案: