下面的代码将估计适当的C项，因为y=C/log(x)与y=C*(1/log(x))相同，您可以使用OLS进行估计。

library(ggplot2)
set.seed(519)
x <- c(runif(90, 10,100), runif(10, 100, 2000))
y <- 2/log(x) + rnorm(100, 0, .05)
dat <- data.frame(x=x, y=y)
ggplot(dat, aes(x=x, y=y)) + 
  geom_point() + 
  geom_smooth(method="lm", formula = y ~ I(1/log(x))-1, col="red", se=FALSE) + 
  theme_classic()

由reprex package（v2.0.1）于2022年12月31日创建
如果您想直接设置C的值，您可以通过设置const来完成以下操作：

library(ggplot2)
const <- 2
set.seed(519)
x <- c(runif(90, 10,100), runif(10, 100, 2000))
y <- 2/log(x) + rnorm(100, 0, .05)
dat <- data.frame(x=x, y=y)
dat <- dat[order(dat$x), ]
ggplot(dat, aes(x=x, y=y)) + 
  geom_point() + 
  geom_function(fun = ~const/log(.x), col="red") + 
  theme_classic()

由reprex package（v2.0.1）于2022年12月31日创建