如何在 R 中创建一个酒吧推车

Question

我需要 R 方面的帮助：

使用 nycflights13 包中的航班数据集

https://github.com/hadley/nycflights13

我需要生成原始变量的条形图，但出现错误

tab_orig <- sort(table(flights$origin))
> tab_orig

   LGA    JFK    EWR 
104662 111279 120835 

> barplot(tab_orig)
Error in plot.new() : figure margins too large

Answer 1

您看不到条形图可能有两个原因。

1. 您的查看器窗口太小，无法包含图表。在这种情况下，只需拖动 RStudio 右上角的查看器窗口，使其足够大以合并您的图表。

2. 接下来可能是由于数据。可能是您的数据太大，因此机器无法自动为数据分配边距。 您将不得不重新分配边距参数。

在此之前，您可以使用par("mar") 查看边距。 你应该得到：

5.1 4.1 4.1 2.1

您可以使用 par(mar=c(1,1,1,1)) 并调用 dev.off() 让 R 在单独的窗口中打开您的绘图。

您的代码将如下所示：

par(mar=c(1,1,1,1))
pdf('filename.pdf')
barplot(tab_orig, main="Graph title",xlab="X-axis legend", ylab="Y-axis legend", pch=20, cex=2)
dev.off()

在这里，par：设置或调整绘图参数。 mar：长度为 4 的数字向量，按以下顺序设置边距大小：底部、左侧、顶部和右侧。