代码之家 › 专栏 › 技术社区 › Marty999

ggplot2:反转次连续x轴

axis reverse ggplot2 r

Marty999 · 技术社区 · 7 年前

我试图在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轴相同的次轴进行绘图。我已经设法反转了底轴,但这也反转了顶轴。我只希望反转顶轴。

在此方面的任何帮助都将不胜感激。

谢谢

1 回复 | 直到 7 年前

Marco Sandri 7 年前

以下是一个可行的解决方案:

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

推荐文章

Carolo · 更新Highcharts上的数据标签位置

6 年前

Rocketq · Matplotlib:如何仅设置TIC的最小值和最大值

6 年前

Marco · ggplot:如何在柱状图的支柱顶部添加一定百分比

7 年前

Lumos · ggplot具有所有x轴值的x轴标签

7 年前

Yoni Verhaegen · Matlab绘图:刻度之间的等距离

7 年前

Maaike300694 · x轴图上奇怪的日期时间格式

7 年前

RasmusJ · 使x轴(线)不可见

7 年前

Marty999 · ggplot2:反转次连续x轴

7 年前

Théré Hernandez · 更改matplotlib中轴图的格式值

7 年前

Z.Kipp · 轴break和ggplot2或gap。情节绘图可能太复杂

7 年前