半对数绘图轴标签和函数不'；t出现在R中

我正在尝试创建一个x轴为对数轴的绘图，从10^-8到10^-3，每隔标记一次刻度，y轴从0到100。
我无法每隔一个勾号标记一次，并且该函数没有出现在图表上
有人知道我哪里出错了吗

参数 作用

---

g这里有两种解决方案：

1） 将每隔一个标签设置为NA（如您所尝试的，不是FALSE）

2） 将轴添加两次。一次不使用标签只获取记号，一次使用您想要的标签

plot(1:10, axes = FALSE)
axis(1, at = 1:10, labels = FALSE)
axis(1, at = seq(2, 10, 2))

您的示例不是完全可复制的，您没有提供
x
输入向量
g <- function(x,c5,K3,R,c4)
{
z = (c5*K3*x)/(R*c4-c5*x)
return(z)
}

z1 <- g(x, c5, K3, R1, c4)
z2 <- g(x, c5,K3,R2,c4)
z3 <- g(x, c5,K3,R3,c4)

plot(x, z1, log="x", lty=3, xaxt="n", yaxt="n", xlim=c(10^-8, 10^-3), ylim=c(0, 100),
 main="Fig 2B", 
 xlab="[Ca2+] in cytosol (M)",
 ylab="[InsP3] (nM))")
 axis(side=2, at= seq(0,100, by=10), labels= c(0, FALSE, 20, FALSE,  40, FALSE, 60, FALSE, 80, FALSE, 100), srt=90)
 xticks <- seq(-7, -3, by=2)
 xlabels <- sapply(xticks, function(i) as.expression(bquote(10^ .(i))))
 axis(side=1, at=c(10^-7, 10^-5, 10^-3), labels=xlabels)
 lines(x, z2, lty=2)
 lines(x, z3, lty=1)

plot(1:10, axes = FALSE)
axis(1, at = 1:10, labels = c(NA, 2, NA, 4, NA, 6, NA, 8, NA, 10))

plot(1:10, axes = FALSE)
axis(1, at = 1:10, labels = FALSE)
axis(1, at = seq(2, 10, 2))