R 如何在格子中添加双曲曲线

data(cars)    
xyplot(dist ~ speed, cars)

xyplot(
    dist ~ speed,
    cars,
    panel = function(x, y, fun = sinh, line_scale = 5, text_scale = 1.2, from = 0, to = 25, ...) {
        panel.xyplot(x, y, col = "black")
        panel.lines(x = seq(from, to), y = mean(x), col = "red", lwd = 2)
        panel.text(min(x) * text_scale, mean(x) * text_scale, "mean", col = "red")
        panel.curve(
            fun(x / line_scale),
            from = from,
            to = to,
            type = "l",
            col = "blue",
            lwd = 3
        )
    }
)

R相关问答推荐

在ComplexHeatmap中，如何更改anno_barplot()标题的Angular ？

根据shiny 应用程序中的数字输入更改图标 colored颜色

按R中的组查找相邻列的行累积和的最大值

使用gggrassure减少地块之间的空间

更改默认系列1以更改名称

当月份额减go 当月份额

为什么当用osmdata映射R时会得到相邻状态？

根据日期从参考帧中创建不同的帧

为什么我的基准测试会随着样本量的增加而出现一些波动？

如何在观测缺失的地方添加零

如何从像glm这样的模型中提取系数表的相关性？

根据纬度和距离连接两个数据集

根据约束随机填充向量的元素

在R中，如何将误差条放置在堆叠的每个条上？

R -基线图-图形周围的阴影区域

是否可以将线性模型的p值添加到tbl_summary中

R try Catch in the loop-跳过缺少的值并创建一个DF，显示跳过的内容

将仪表板中的值框大小更改为Quarto

对计算变量所有唯一值的变量进行变异

使用点图调整离散轴比例