R 中同一变量的两个不同 x 轴绘图

我正在尝试创建一个图，显示一条具有两个 x 轴的线，一个是连续数字，另一个是离散数字。

这是数据示例：

df <-cbind.data.frame("Category"=c("A","A","A","A","A","B","B","B","B","B"), 
                   "Y"=c(5,6,4,8,9,4,5,3,7,8),
                   "X1"=c(0,10,20,30,40,0,10,20,30,40),
                   "X2"=c(0,0,1,1,2,0,1,2,2,3))

我尝试添加辅助轴并重新缩放它，但由于我的两个变量不成比例，我不知道如何重新缩放，因此直线中的相同 Y 点将适合两个 x 轴。

ggplot(data=df) + 
 geom_path(aes(y=Y,x=X1),color="red")+ 
 geom_path(aes(y=Y,x=X2*10),color="blue")+ 
 facet_wrap(~Category)+ 
 scale_y_continuous("Y")+   
 scale_x_continuous("X1",sec.axis = sec_axis(~ .*1/10, "X2"))

我阅读了两个轴的不同问题，但无法找到解决我的问题的方法。

我正在寻找这样的东西：

我将非常感谢对此的任何帮助！

您提供的图并不能证明明确的代数关系，因此我将为您提供一个完全任意的第二个 x 轴的示例。

library(ggplot2)
ggplot(mtcars, aes(mpg, disp)) +
  geom_point() +
  scale_x_continuous(sec.axis=sec_axis(~., breaks=c(15,20,30), labels=c('a','b','c')))

第一个参数是转换“~.“ （本质上x2=x1) 并且是必需的，因此在本例中它是一对一转换。另外两个比较清楚，你放置'a' at x=15, 'b' at x=20等等。我认为没有办法将两者放在同一轴上（用ggplot2 alone).