リターンプロットと値が一緒に

Question

私はこのような機能を持っている：

fun <- function(dataset){ 
    require(ggplot2) 
    g <- ggplot(dataset, aes(x = x, y = y)) + geom_smooth(method = "lm") + geom_point() 

l<-lm(y~x) 
return (list(l, g)) 
    } 

を、私はプロットと値の両方を返すようにしたいが、それはプロットを返さないと、私はこのエラーに直面します。

Error in .Call.graphics(C_palette2, .Call(C_palette2, NULL)) :
invalid graphics state

どうすればよいですか？

Answer 1

次のように動作し、プロットが表示されます。しかし、Rはこれを行う方法ではないと警告しています。

fun <- function(dataset){ 
    require(ggplot2) 
    p <- ggplot(dataset, aes(x = x, y = y)) + 
     geom_smooth(method = "lm") + geom_point() 

    l <- lm(y~x, data=dataset) 
    return (list(l, p)) 
} 

dataset <- data.frame(x= 1:10, y=1:10) 
out <- fun(dataset) 

編集：私は警告について見てきましたが、無視できるもののようです。リンクhttps://stat.ethz.ch/pipermail/r-devel/2016-December/073554.html