r - カスタム関数、ggplot、および戻り値

Question

今日、私は何か奇妙なことに気づきました。データフレームとプロット、ggplot2で生成されたプロットを返す関数を作成しました。

しかし、関数を実行すると、プロットが表示されないか、データフレームが表示されません。

あなたはこの問題を知っていて、私にそれに対する解決策を与えることができますか？

どうもありがとうございます！

レイナー

これは、自分自身を明確にするためのダミー関数です。

dummyfunct<-function(){
df <- data.frame(time = factor(c("Lunch","Dinner"), levels=c("Lunch","Dinner")),
               total_bill = c(14.89, 17.23))

ggplot(data=df, aes(x=time, y=total_bill)) + geom_bar(aes(fill=time))
return(df)
} 

また

dummyfunct<-function(){
df <<- data.frame(time = factor(c("Lunch","Dinner"), levels=c("Lunch","Dinner")),
               total_bill = c(14.89, 17.23))

ggplot(data=df, aes(x=time, y=total_bill)) + geom_bar(aes(fill=time))
}

Answer 1

答えますが、これは繰り返される質問であり、閉鎖される可能性があります。

ggplotでは、次printのように関数内で明示的に使用する必要があります。

dummyfunct <- function(){
    df <- data.frame(time = factor(c("Lunch","Dinner"), levels=c("Lunch","Dinner")),
           total_bill = c(14.89, 17.23))
    x <- ggplot(data=df, aes(x=time, y=total_bill)) + geom_bar(aes(fill=time))
    print(x)
    return(df)
} 

dummyfunct()