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()