把这个用R表示

我想在R中复制这个图，而不是仅仅是数据范围和函数信息的表。问题在于这些函数中的一些，都是在R中完成的。例如，反双曲正弦。。。？！多谢各位

eq <- function(x) {arcsinh(x)}
tmp <- data.frame(x=1:50, y=eq(1:50))
p <- qplot(x, y, data=tmp, xlab="X-axis", ylab="Y-axis")
c <- stat_function(fun=eq)
print(p + c)

---

eq基本R中没有
arcsinh
功能：

?sinh   # note that the function name is `asinh`

这成功：

eq <- function(x) {asinh(x)}
tmp <- data.frame(x=1:50, y=eq(1:50))
p <- qplot(x, y, data=tmp, xlab="X-axis", ylab="Y-axis")
c <- stat_function(fun=eq)
print(p + c)

eq其中一些在base中

cosh(x)
sinh(x)
tanh(x)
acosh(x)
asinh(x)
atanh(x)

但这不包括acsch（x）、asech（x）和acoth（x）。您可以使用日志创建这些

例如，acsch（x）相当于ln（（1/x）+（sqrt（1+x^2）/abs（x）），即

绘图（log（1/（-100:100）/100）+sqrt（1+（（-100:100）/100））^2）/abs（（-100:100）/100））

其他两个可以在这里找到
曲线（acosh，from=1.1，to=10，xlim=c（0,10））
等等？那么为什么我提到的页面会说（在它的顶部）：“它们分别计算双曲余弦、正弦、正切，以及它们的倒数、弧余弦、弧正弦、弧正切（或‘面积余弦’）等等”？也解释为什么Wolfram的Eric Weinstein认为它们是一样的：Arcinh对asinh的转位有额外的旋转
cosh(x)
sinh(x)
tanh(x)
acosh(x)
asinh(x)
atanh(x)