[英]ggplot2: Reversing secondary continuous x axis
我試圖反轉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軸相同的圖。 我設法反轉了底軸,但這也反轉了頂軸。 我只想反轉上軸。
任何幫助,將不勝感激。
謝謝!
這是一個可能的解決方案:
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)'))
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.