R 功能已创建ggplot到ggplot对象

R 功能已创建ggplot到ggplot对象,r,ggplot2,R,Ggplot2,如何从函数生成的绘图创建ggplot对象。我正在使用一个函数在ggplot中创建双y轴绘图,它可以工作,但我无法将它转换为类为gg和ggplot的ggplot对象,就像其他ggplot对象一样 如果我们有两个这样的图: p1 <- qplot(wt, mpg, data=mtcars) p2 <- ggplot(diamonds, aes(price, colour = cut)) + geom_density() p1使用grid::grid.draw打印gtable由grid.

如何从函数生成的绘图创建
ggplot
对象。我正在使用一个函数在
ggplot
中创建双y轴绘图,它可以工作,但我无法将它转换为类为
gg
ggplot
ggplot
对象,就像其他
ggplot
对象一样

如果我们有两个这样的图:

p1 <- qplot(wt, mpg, data=mtcars)
p2 <- ggplot(diamonds, aes(price, colour = cut)) + geom_density()

p1使用
grid::grid.draw
打印
gtable
grid.arrange创建的对象。
如果您希望在组合
p1
p2
时抑制输出,请使用
arrangeGrob
而不是
网格。arrange

library(ggplot2)
library(gridExtra)
library(grid)

p1 <- qplot(wt, mpg, data=mtcars)
p2 <- ggplot(diamonds, aes(price, colour = cut)) + geom_density()

p3 <- arrangeGrob(p1,p2,ncol=2)
grid.draw(p3)
库(ggplot2)
图书馆(gridExtra)
图书馆(网格)

p1请分享一些代码,你到目前为止是如何尝试的。谢谢Sumedh。这真的很有帮助。
library(ggplot2)
library(gridExtra)
library(grid)

p1 <- qplot(wt, mpg, data=mtcars)
p2 <- ggplot(diamonds, aes(price, colour = cut)) + geom_density()

p3 <- arrangeGrob(p1,p2,ncol=2)
grid.draw(p3)
p4 <- arrangeGrob(p3, p1, nrow=2)
grid.draw(p4)