Question

我想在网格中安排一些图表，其中一个图是使用包裹车的qq图。以下

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)

网格中的qqPlot

1 个答案: