如何一步完成ggplot图表的创建与自动打印？

我希望找到一种能在一次命令运行中完成图表创建与打印的方法，这样每次修改图表细节时无需反复移动光标。当前的操作方式是分两步：先创建图表对象，再单独调用print()打印，示例代码如下：

data <- data.frame(
  x = runif(5),
  y = runif(5)
)

graph <- data %>% 
  ggplot(aes(x = x, y = y)) +
  geom_point()

print(graph)

每次需要按两次Ctrl+Enter分别执行创建和打印步骤，效率较低。

错误尝试 #

使用+号拼接print() #

尝试将print(graph)通过+添加到ggplot链中，代码如下：

graph <- data %>% 
  ggplot(aes(x = x, y = y)) +
  geom_point() +
  print(graph)

得到错误提示：

Error in `ggplot_add()`:
! Can't add `print(graph)` to a <ggplot> object.
Run `rlang::last_trace()` to see where the error occurred.

使用管道符%>%传递给print() #

尝试用管道符将ggplot对象传递给print()，代码如下：

graph <- data %>% 
  ggplot(aes(x = x, y = y)) +
  geom_point() %>% 
  print()

仅得到命令输出，未打印图表：

geom_point: na.rm = FALSE
stat_identity: na.rm = FALSE
position_identity 

解决方案 #

方法1：将ggplot构建语句直接包裹在print()中 #

不需要先赋值给变量，直接把整个ggplot构建代码作为print()的参数，单次运行即可完成创建和打印：

data <- data.frame(
  x = runif(5),
  y = runif(5)
)

print(
  data %>% 
    ggplot(aes(x = x, y = y)) +
    geom_point()
)

如果需要保留图表对象，可以用分号;分隔赋值与打印语句，合并成一行命令：

graph <- data %>% ggplot(aes(x=x, y=y)) + geom_point(); print(graph)

方法2：调整管道顺序，确保完整ggplot对象传递给print() #

之前的管道错误是因为+的优先级高于%>%，导致geom_point()被单独传递给print()。用括号提升ggplot链的优先级即可解决：

graph <- (data %>% ggplot(aes(x=x, y=y)) + geom_point()) %>% print()

这样完整的ggplot对象会被管道传递给print()，同时赋值给graph变量，一次运行完成创建与打印。

方法3：利用交互式环境的自动打印特性 #

在RStudio等交互式环境中，直接运行ggplot构建语句会自动打印图表，无需显式调用print()。如果不需要保留变量，直接执行以下代码即可：

data %>% 
  ggplot(aes(x = x, y = y)) +
  geom_point()

单次Ctrl+Enter就能直接显示图表。

内容的提问来源于stack exchange，提问作者Muller I.