自定义函数，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()