从函数中绘制数据

Question

我想从函数中绘制数据。例如：

制作数据并加载库：

# Load ggplot2
library(ggplot2)

# Create Data
data <- data.frame(
  group=LETTERS[1:5],
  value=c(13,7,9,21,2)
)

此绘图按预期工作：

# Basic piechart
ggplot(data, aes(x="", y=value, fill=group)) +
  geom_bar(stat="identity", width=1, color="white") +
  coord_polar("y", start=0) +

  theme_void() # remove background, grid, numeric labels

但如果我尝试从函数内部进行绘图：

a <- function(data)
{
  # Basic piechart
  ggplot(data, aes(x="", y=value, fill=group)) +
    geom_bar(stat="identity", width=1, color="white") +
    coord_polar("y", start=0) +

    theme_void() # remove background, grid, numeric labels
  return()
}


a(data)

它只是给我输出：

NULL

不画任何情节。

问题：在我的示例中如何从函数中绘制绘图？

示例取自：https://www.r-graph-gallery.com/piechart-ggplot2.html

Answer 1

使您的功能发挥作用的选项。

选项 - 我

去掉return ()这行，基本是在函数结束的时候返回NULL（你的plot是函数a的局部，而且plot在函数外是无法访问的，没有传参返回） .

a <- function(data)
{
  # Basic piechart
  ggplot(data, aes(x="", y=value, fill=group)) +
    geom_bar(stat="identity", width=1, color="white") +
    coord_polar("y", start=0) +
    theme_void() # remove background, grid, numeric labels
}

选项-II

将局部变量上的绘图保存到函数中，并在完成时返回。

a <- function(data)
{
  # Basic piechart
  p <- ggplot(data, aes(x="", y=value, fill=group)) +
    geom_bar(stat="identity", width=1, color="white") +
    coord_polar("y", start=0) +
   theme_void() # remove background, grid, numeric labels
  return(p)
}

选项 - III

使用environment = environment()，它在调用ggplot 时将环境变量显式设置为当前环境。你可以在Use of ggplot() within another function in R阅读更多信息。

a <- function(data)
{
  # Basic piechart
  p <- ggplot(data, aes(x="", y=value, fill=group), environment = environment()) 
    p + geom_bar(stat="identity", width=1, color="white") +
    coord_polar("y", start=0) +  
    
    theme_void() # remove background, grid, numeric labels
  
}

现在您可以使用a(data) 来打印输出。

输出