ggplot2 线图中第二个数据集的缩放

Question

我想在辅助轴上显示第二个数据集（橙色线，“Annual”），因为它的值远小于第一个数据集（红线，“Cumulative”）的值。我设法重新缩放了辅助 y 轴，但是我在重新缩放第二个数据集时遇到了问题，因为两个数据集是一起读入的，我不知道如何在代码中单独处理第二个数据集。

数据是这样的

年度累计年度 1960 1 1 1961 1 0 1962 1 0 1963 2 1 ... 2019 334 9

我将不胜感激任何建设性的 cmets！

library("ggplot2")
library("reshape2")
library("tidyverse")

sec_scale=1/10
datu_sub=data[,c(2,3,1)]
datu=melt(datu_sub,id=c("Year"))
p1<-ggplot(datu)+geom_line(aes(x=Year,y=value,colour=variable),linetype="solid",size=1.1)+
  geom_point(aes(x=Year,y=value,colour=variable),shape=1,size=3,stroke=1.5)+
  scale_colour_manual(values=c("darkorange","red"))+
  scale_y_continuous(sec.axis=sec_axis(~.*sec_scale,name="Annual\n"))
p1<-p1+labs(x="\nYear",y="Cumulative\n")
p1+theme(axis.title.x=element_text(size=18),
         axis.text.x=element_text(size=14),
         axis.title.y=element_text(size=18),
         axis.text.y=element_text(size=14),
         axis.ticks=element_blank(),
         legend.title=element_blank(),
         legend.position=c(0.12,0.89),
         legend.text=element_text(size=14),
         legend.background=element_rect(fill="white",size=0.5,linetype="dotted"))

Answer 1

我无法将所有内容都放在评论中，因此我将其写为答案。我不得不即兴创作一些数据，因为我没有你的可用样本，但绘图代码应该是相似的。

sec_scale=1/10
# I made up some data because I don't have yours
datu <- data.frame(Year = c(2000:2010, 2000:2010),
                   value = c(rnorm(11, 500, 10), rnorm(11, 5000, 100)),
                   variable = rep(c("Annual", "Cumulative"), each = 11))

现在进行绘图，我已将 geoms 中的 mapping/aes() 参数删除到主 ggplot 函数，并且 geoms 将从主 ggplot 调用继承这些映射。

接下来，您会注意到我已经重新定义了y = ifelse(variable == "Cumulative, sec_scale, 1) * value，它将按sec_scale 中的数量缩放variable == "Cumulative" 中的所有values。

p1<-ggplot(datu, aes(x = Year, 
                     y = ifelse(variable == "Annual", 1/sec_scale, 1) * value, 
                     colour = variable)) + 
  geom_line(linetype = "solid", size = 1.1) +
  geom_point(shape = 1, size = 3, stroke = 1.5) +
  scale_colour_manual(values = c("darkorange", "red")) +
  scale_y_continuous(sec.axis = sec_axis(~.*sec_scale,name = "Annual\n")) +
  labs(x="\nYear",y="Cumulative\n") + 
  theme(axis.title.x = element_text(size=18),
        axis.text.x = element_text(size=14),
        axis.title.y = element_text(size=18),
        axis.text.y = element_text(size=14),
        axis.ticks = element_blank(),
        legend.title = element_blank(),
        legend.position = c(0.12,0.89),
        legend.text = element_text(size=14),
        legend.background = element_rect(fill="white",size=0.5,linetype="dotted"))

对我来说，情节是这样的：

但是，我想指出，有些人不喜欢辅助轴，因为它们会误导。