ggplot2：反转次要连续 x 轴

Question

我正在尝试反转 ggplot 顶部的辅助 X 轴。

ggplot(
  data=MasterTable, aes(x=Concentration, y=Signal, color=factor(Assay))) + 
  scale_x_continuous("Chemical 1", 
                     sec.axis = sec_axis(~ . *1, name = "Chemical 2"), scale_x_reverse(limits=c(400,0)))

如果您删除代码的最后一部分 (scale_x_reverse...)，它会生成一个带有与底部 X 轴相同的辅助线的图。我设法反转了底轴，但这也反转了顶轴。我希望仅反转顶轴。

如有任何帮助，我们将不胜感激。

谢谢！

Answer 1

这是一个可能的解决方案：

MasterTable <- data.frame(Concentration=rep(c(0,50,100,200,300, 350, 400),2),
Signal=c(11800,13000,12000,12000,16000,15500,15570,11600,11700,8000,8000,6000,4000,3000),
Assay=rep(1:2,each=7))

library(ggplot2)
# Reverse Signal vector of the blue series (for Assay =1)
MasterTable$Signal[MasterTable$Assay==1] <- rev(MasterTable$Signal[MasterTable$Assay==1])

ggplot(data=MasterTable, aes(x=Concentration, y=Signal, color=factor(Assay))) + 
geom_line(lwd=1) + geom_point(size=3) + guides(color='none') +
scale_x_continuous('Chemical 1 (nM)', trans='reverse',
                   sec.axis = sec_axis(~ 400 - . , name='Chemical 2 (nM)'))

ggplot2：反转次要连续 x 轴

ggplot2: Reversing secondary continuous x axis

reverse

axis

r

ggplot2