qqPlot在一个网格

我想有一些地块排列在一个网格中,其中一个地块是使用包车的qq图。以下qqPlot在一个网格

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。

回答:

基于该问题的答案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在一个网格 的全部内容, 来源链接: utcz.com/qa/258497.html

回到顶部