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