缩小R笔记本预览中的绘图大小

par(cex = 0.8)  # 设置绘图的缩放比例为0.8
plot(x, y)      # 绘制图形

pdf("output.pdf", width = 4, height = 4)  # 创建一个尺寸为4x4英寸的pdf设备
plot(x, y)                               # 绘制图形
dev.off()                                # 关闭设备

library(ggplot2)

# 创建一个图形对象
p <- ggplot(data = df, aes(x = x, y = y)) +
  geom_point()

# 设置边距，缩小绘图的大小
p + theme(plot.margin = margin(0.5, 0.5, 0.5, 0.5, "cm"))