: ※ 引述《coke228 (coke...)》之铭言：
: : [问题类型]:
: : 程式咨询(我想用R 做某件事情，但是我不知道要怎么用R 写出来)
: : [软件熟悉度]:
: : 入门(写过其他程式，只是对语法不熟悉)
: : [问题叙述]:
: : 我的资料范围是0.1到500 我想画图 但希望2以下是线性坐标 2以上是log坐标 请问可行
: : 吗？
library(lattice)
library(data.table)
library(dplyr)
library(magrittr)
# data generation
dat = rnorm(50, 0, 100) %>% abs() %>% tbl_dt() %>%
setnames("x") %>% mutate(y = 3*x+rnorm(nrow(.)))
# scale function
f = function(x) {
xt = x
xt[xt >= 2] = xt[xt >= 2] %>% log10() %>% add(2)
return(xt)
}
# plot
label = c(0, 2, 50*c(1,2,4))
xyplot(y ~ f(x), dat, scale = list(
x = list(at = f(label), label = label,
limit = c(0, f(max(dat$x))*1.1))))