如何画一个空图？

我需要作一个空图。这是我能想到的最好的方法。

plot(0, xaxt = 'n', yaxt = 'n', bty = 'n', pch = '', ylab = '', xlab = '')

还有更简单的解决方案吗？

PS：完全空，无轴等。

怎么样：

plot.new()

我建议有人需要作空图，以便以后添加一些图形。因此，使用

plot(1, type="n", xlab="", ylab="", xlim=c(0, 10), ylim=c(0, 10))

您可以指定图形的轴限制。

这比原始解决方案要简单一些：

plot(0,type='n',axes=FALSE,ann=FALSE)

以下内容在图中未显示任何内容，它将保持为空。

plot(NULL, xlim=c(0,1), ylim=c(0,1), ylab="y label", xlab="x lablel")

当您想在for循环或类似内容之后添加线或点时，此功能很有用。只需记住根据要绘制的数据更改xlim和ylim值。

附带说明： 这也可以用于箱线图，小提琴图和群图。对于那些记得添加add = TRUE到其绘图功能的用户，还请指定at =要在其上绘图的数字（默认值是x轴，除非您horz = TRUE在这些功能中进行了设置）。

亚当，在您上面的评论之后（“我希望空图用作多图（mfrow）图的填充物。”），您真正想要的是mfg选项

    par(mfg=c(row,column))

-控制您要放置下一个绘图的位置。例如，要将图放置在3x3多图的中间，请执行

    par(mfrow=c(3,3))
    par(mfg=c(2,2))
    plot(rnorm(10))

您需要一个新的绘图窗口以及一个坐标系，因此需要plot.new()和plot.window()，然后就可以开始添加图形元素了：

plot.new( )
plot.window( xlim=c(-5,5), ylim=c(-5,5) )

points( rnorm(100), rnorm(100) )
axis( side=1 )

样例

您的解决方案plot.new()尚未引起您的兴趣：在“绘图”的空白图中，您可以使用来在指定坐标处编写文本text(x = ..., y = ..., your_text)。

grid.newpage() ## If you're using ggplot

grid() ## If you just want to activate the device.

如果有人在寻找ggplot2解决方案，则可以使用cowplot或patchwork软件包

library(ggplot2)

### examples from cowplot vignettes
plot.mpg <- ggplot(mpg, aes(x = cty, y = hwy, colour = factor(cyl))) +
  geom_point(size = 2.5)
plot.diamonds <- ggplot(diamonds, aes(clarity, fill = cut)) + 
  geom_bar() +
  theme(axis.text.x = element_text(angle = 0, vjust = 0.5))

library(cowplot)
### use NULL
plot_grid(plot.mpg, NULL, NULL, plot.diamonds,
  labels = c("A", "B", "C", "D"),
  ncol = 2
)

# Note: if you want to initialize an empty drawing canvas, use ggdraw() 

library(patchwork)
### use plot_spacer()
plot.mpg + plot_spacer() + plot_spacer() + plot.diamonds +
  plot_layout(ncol = 2) +
  plot_annotation(
    title = "Plot title",
    subtitle = "Plot subtitle",
    tag_levels = "A",
    tag_suffix = ")"
  )

^{由reprex软件包（v0.2.1.9000）创建于2019-03-17}

一个带有一些已设置位置的文本的空图。

plot(1:10, 1:10,xaxt="n",yaxt="n",bty="n",pch="",ylab="",xlab="", main="", sub="")
mtext("eee", side = 3, line = -0.3, adj = 0.5)
text(5, 10.4, "ddd")
text(5, 7, "ccc")