r - qq在网格中绘制

Question

我想将一些地块安排在一个网格中，其中一个地块是使用包车的 qq-plot。以下

library(car)
library(ggplot2)
library(gridExtra)

n <- 100
df <- data.frame( x=rnorm(n) )
df <- transform(df, y=3*x-1)
p <- ggplot(data=df,aes(x=x,y=y)) + geom_point()
q <- qqPlot(df$x)
grid.arrange(p,q,ncol=2)

发出错误，因为 qqPlot() 总是绘制并返回 NULL。

Answer 1

根据Combine base and ggplot graphics in R figure window问题的答案，我可以找到解决方案

library(ggplot2)
library(grid)

n <- 100
df <- data.frame( x=rnorm(n) )
df <- transform(df, y=3*x-1)
par(mfrow=c(1,2))
p <- ggplot(data=df,aes(x=x,y=y)) + geom_point()
qqPlot(df$x)
vp.right <- viewport(height=unit(.5,"npc"), width=unit(0.5,"npc"),
                     y=0.5, x=0.7)
print(p, vp=vp.right)