[解決済み】二項演算子への非数値引数【非公開

質問

この関数は、データフレーム、データフレームからのxシリーズ、データフレームからのyシリーズを受け取り、散布図を作成するものです。 しかし、オプションのブーリアン引数をチェックしようとすると、問題が発生します。

Rスクリプト

plotScatterChart <- function(data,x,y,scale=y,line=FALSE) {

    require(ggplot2)
    data$x <- as.numeric(x)
    data$y <- as.numeric(y)

    plot <- ggplot(data, aes(x, y)) + 
            geom_point() +  # aes(alpha=0.3,color=scale)
            #scale_color_gradient(high="red")

    if(line) {
        plot <- plot + geom_smooth(method="lm") 
    }

    ggsave(file="plot.svg", plot=plot, height=10, width=10)

    return(plot)
}

plotScatterChart(data=iris,x=iris$Petal.Length,y=iris$Petal.Width,line=TRUE)

エラー

non-numeric argument to binary operator

おまけ

その他、この機能を改善するための提案を歓迎します。

解決方法は？

エラーの原因は、末尾の + の後に geom_point() . これを削除すれば、うまくいくはずです。