Chỉ cần để cung cấp một câu trả lời làm việc ra, theo ý kiến của @timriffe và @joran ...
Sử dụng chức năng log nhỏ ticks từ this answer:
minor.ticks.axis <- function(ax,n,t.ratio=0.5,mn,mx,...){
lims <- par("usr")
if(ax %in%c(1,3)) lims <- lims[1:2] else lims[3:4]
major.ticks <- pretty(lims,n=5)
if(missing(mn)) mn <- min(major.ticks)
if(missing(mx)) mx <- max(major.ticks)
major.ticks <- major.ticks[major.ticks >= mn & major.ticks <= mx]
labels <- sapply(major.ticks,function(i)
as.expression(bquote(10^ .(i)))
)
axis(ax,at=major.ticks,labels=labels,...)
n <- n+2
minors <- log10(pretty(10^major.ticks[1:2],n))-major.ticks[1]
minors <- minors[-c(1,n)]
minor.ticks = c(outer(minors,major.ticks,`+`))
minor.ticks <- minor.ticks[minor.ticks > mn & minor.ticks < mx]
axis(ax,at=minor.ticks,tcl=par("tcl")*t.ratio,labels=FALSE)
}
Làm cho một số dữ liệu ví dụ tái sản xuất :
x <- 1:8
y <- 10^(sort(runif(8, 1, 10), decreasing = TRUE))
Lô mà không trục:
plot(x, log10(y), # function to plot
xlab="", # suppress x labels
type = 'l', # specify line graph
xlim = c(min(x), (max(x)*1.3)), # extend axis limits to give space for text annotation
ylim = c(0, max(log10(y))), # ditto
axes = FALSE) # suppress both axes
Thêm trục log ưa thích và biến nhãn đánh dấu đúng con đường lên (nhờ @joran!):
minor.ticks.axis(2, 9, mn=0, mx=10, las=1)
Thêm trục x lên phía trên:
axis(3)
Thêm nhãn trục x (thanks for the tip, @WojciechSobala)
mtext("x", side = 3, line = 2)
Và thêm một chú thích vào cuối dòng
0.123.
text(max(x), min(log10(y)), "Example", pos = 1)
Dưới đây là kết quả:
trong cuộc gọi âm mưu của bạn , chỉ định 'axes = FALSE', và sau đó sử dụng' axis() 'một vài lần, xác định đối số' side' để lấy trục của bạn, nơi bạn muốn t hem. –
Tôi sẽ bình luận của tim lần thứ hai: nó không giống như bạn đang thực sự "đảo ngược" bất cứ điều gì. Bạn chỉ vẽ sơ đồ trục x trên đầu chứ không phải ở phía dưới. – joran