我不知道有没有直接的解法，但硬把资料换算後并自行补上轴线可能是可行的做法。 请参考以下例子。 ## 造一组假资料 x，并洗乱大小 x <- sample(c(seq(0.1, 1.9, 0.1), seq(2:500))) ## y 只是用来画图的，不是重点 y <- x + rnorm(length(x), 0.5, 1) ## x >= 2 者进行 log10() + 2 转换，生成 m$xt m <- data.frame(x = x, y = y) m$xt <- m$x m$xt[m$x >= 2] <- log10(m$x[m$x >= 2]) + 2 par(mfrow = c(2, 1)) ## x 和 y 的对应图 plot(y ~ x, data = m) ## newx 和 y 的对应图，但不画 x 轴 plot(y ~ xt, data = m, xaxt = "n") ## 画上 x 轴前段 axis(1, at = c(0, 1, 2), labels = c("0", "1", "2") ) ## 画上 x 轴後段 axis(1, at = c(log10(5)+2, 3, log10(50)+2, 3, log10(500)+2), labels = c("5", "10", "50", "100", "500") ) ※ 引述《coke228 (coke...)》之铭言： : [问题类型]: : 程式谘询(我想用R 做某件事情，但是我不知道要怎麽用R 写出来) : [软体熟悉度]: : 入门(写过其他程式，只是对语法不熟悉) : [问题叙述]: : 我的资料范围是0.1到500 我想画图 但希望2以下是线性坐标 2以上是log坐标 请问可行 : 吗？ -- http://apansharing.blogspot.com/ --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 140.128.117.75 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1427874410.A.2AF.html