让我们定义功能
f <- function(N) 1 / (N * ceiling(log2(N)) * 1/70/60)
以R为底数[1,20]
的图
curve(f, from = 1, to = 20, n = 10^3, type = "p", cex = 0.1)
以ggplot2
在[1,20]
范围内进行绘图
library(ggplot2)
ggplot(data.frame(N = c(1, 20)), aes(N)) + stat_function(fun = f, geom = "point")