如何在两个变量（r中的两个y轴图）上添加趋势线？
用户名
我有这个数据集
structure(list(Year = 1988:2012, A = c(1415.6, 1345.3, 1321.7,
1234.5, 1567.8, 1476.6, 1610.1, 1422.6, 1209.1, 1249.3, 1377.5,
1525.7, 1683.7, 1500.1, 1565.3, 1737.4, 1321, 1477.8, 1642, 1608.1,
1427.8, 1608.2, 1404.4, 1688.3, 1795.4), B = c(76, 359, 299,
215, 177, 3112, 12047, 26307, 27173, 6514, 4190, 1776, 1708,
1335, 1012, 8170, 4306, 3716, 23531.986, 34803.012, 22758.7645,
29140.16304, 36369.3619, 56975.62256, 33516.95628)), .Names = c("Year",
"A", "B"), class = "data.frame", row.names = c(NA, -25L))
我使用以下twoord.plot函数创建了该图：
install.packages("plotrix")
library(plotrix)
twoord.plot(Example$Year, Example$B, Example$Year, Example$A, xlim = range(1988:2012))
abline(lm(B ~ Year, data = Example), col="black")
abline(lm(A ~ Year, data = Example), col="red")
我应该如何告诉第二条趋势线（红色趋势线）它属于右手y轴？有可能在r中执行此操作吗？
克莱门特·沃尔特
我想R知道x的一个标度和y的一个标度。如果您看一下该函数，twoord.plot您会发现它以最小缩放比例操作添加了右侧图：
points(rx, ry * ymult + yoff, col = rcol, pch = rpch,
type = type[2], ...)
我的猜测是您必须这样做以添加额外的行。只需在函数中选择一些行，它应该是（ly = Example$B和ry = Example$A）：
lylim <- range(ly, na.rm = TRUE)
rylim <- range(ry, na.rm = TRUE)
ymult <- diff(lylim)/diff(rylim)
yoff <- lylim[1] - rylim[1] * ymult
coef = lm(A ~ Year, data = Example)$coefficients
abline(a = coef[1]*ymult + yoff, b = coef[2]*ymult, col="red")
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
如何在两个变量（r中的两个y轴图）上添加趋势线？
- 2
如何在R中的x轴上使用两个分类变量制作散点图
- 3
R-两个如何在图的中间对齐两个y轴和零
- 4
如何使用ggplot2在R中的2-y轴图的两个轴上添加千位分隔符
- 5
如何使用ggplot2在R中的2-y轴图的两个轴上添加千位分隔符
- 6
使用两个离散变量绘制多个图-如何在两个轴上包括所有离散变量
- 7
ggplot2：散点图，在y轴上具有两个变量（以相同的比例尺进行测量）：如何更改外观并添加单独的回归线？
- 8
如何在R中合并两个图？
- 9
如何在R中制作两个“点图”？
- 10
如何在theano中添加两个共享变量？
- 11
如何在PHP中添加两个时间变量
- 12
如何在jquery的.html（）中添加两个变量
- 13
如何在R中两个图的顶部和中间添加标题
- 14
具有两个y轴的R中的累积图
- 15
在熊猫中，如何在两个不同的轴上分组两次？
- 16
如何在图的底角添加两个图例（ggplot）
- 17
如何在x轴上具有两个类别的R中手动创建箱形图
- 18
如何在一个页面中以绘图方式添加两个堆叠的区域图？
- 19
如何在具有一个 x 轴和两个 y 轴的图中将误差线缩放到右侧 y 轴的尺寸
- 20
合并两个不同的图：一个在X轴上，另一个在Y轴上
- 21
Matplotlib：如何从列表中绘制数据，并添加两个Y轴？
- 22
熊猫：具有两个条和两个y轴的条形图
- 23
如何在单引号之间添加两个变量
- 24
如何在乳胶中对齐两个tikzpicture图
- 25
如何在matplotlib两个y轴图表中对齐条形和线形？
- 26
如何在zingcharts-angularjs中渲染两个Y轴？
- 27
如何在Seaborn中为同一图形的直方图生成两个单独的Y轴
- 28
如何在Excel中创建具有两个Y轴且值不同的图形
- 29
如何在jQuery中的一个变量中添加两个serializeArray（）？
我来说两句