创建可以创建不同类型图表的通用绘图函数的好方法是什么？

Question

我打算为我的包创建一个通用的绘图函数，我想知道根据传递给它的内容创建两种类型的图形有什么好方法？我希望能在今年晚些时候将我的项目提交给CRAN。

例如：

plot.myclass <- function(x, type){
    if(type[1] == "bar"){
        #plot bar chart...
     } else{
        #plot scatter...
     }
}

Answer 1

ggplot2替代方案：

plot.myclass <- function(x, type){
    if(type[1] == "bar"){
        p <- ggplot(barplot)
     } else{
        p <- ggplot(hist)
     }
return(plot(p))
}

plotItOut <- plot.myclass(x,type)