如何将散点图添加到填充轮廓？答案

【问题标题】：How to add a scatter plot to a filled contour?如何将散点图添加到填充轮廓？
【发布时间】：2017-11-21 12:21:44
【问题描述】：

我有一个数据集，由 2 个变量组合观察到的 9 个点组成，每个变量有 3 个值，即

x <- c(0,10,100)
y <- c(0,25,30)
z <- matrix(c(1,2,3,4,5,6,7,8,9), nrow = 3, ncol = 3, byrow = TRUE)

用这些数据我创建了一个等高线图

filled.contour(x,y,z)

另外，我从收集数据的点创建了散点图

A <- matrix(c(0,0,0,10,10,10,100,100,100), nrow = 3, ncol = 3) #As x
B <- matrix(c(0,0,0,25,25,25,30,30,30), nrow = 3, ncol = 3, byrow = TRUE) #As y
plot(A,B)

但是，当我尝试将它们放在一起时，效果并不好。任何人都可以帮助我吗？如何正确地将散点图放在等高线图上？

x <- c(0,10,100)
y <- c(0,25,30)
z <- matrix(c(1,2,3,4,5,6,7,8,9), nrow = 3, ncol = 3, byrow = TRUE)
A <- matrix(c(0,0,0,10,10,10,100,100,100), nrow = 3, ncol = 3) #As x
B <- matrix(c(0,0,0,25,25,25,30,30,30), nrow = 3, ncol = 3, byrow = TRUE) #As y
filled.contour(x,y,z)
points(A,B)

【问题讨论】：

似乎它们没有绘制在同一轴上。 Y 轴是相同的刻度，但 X 轴不是。
@Heikki 我该如何解决这个问题？
见?filled.contour：fill.contour 产生的输出实际上是两个绘图的组合；一个是填充轮廓，一个是图例。为这两个绘图设置了两个独立的坐标系，但它们仅在内部使用——一旦函数返回，这些坐标系就会丢失。如果要注释主等高线图，例如添加点，可以在 plot.axes 参数中指定图形命令。请参阅示例。

标签： r scatter-plot contour

【解决方案1】：

正如@Heikki 所说，我做了一些修改：

x <- c(0,10,100)
y <- c(0,25,30)
z <- matrix(c(1,2,3,4,5,6,7,8,9), nrow = 3, ncol = 3, byrow = TRUE)
A <- matrix(c(0,0,0,10,10,10,100,100,100), nrow = 3, ncol = 3) #As x
B <- matrix(c(0,0,0,25,25,25,30,30,30), nrow = 3, ncol = 3, byrow = TRUE) #As y
filled.contour(x,y,z,#
  plot.axes = { axis(1); axis(2); points(A,B)}) #<- New

【讨论】：