用户定义的函数用于绘制许多图形

Question

我有一组3个数据框，其中包含199个国家的出生率和gdp数据。我想创建一个功能，用户只需输入哪个数据框以及他们想要绘制的国家/地区。

以下是我手动操作的方法;

AFG = subset(low.sub, country == "Afghanistan")

AFGplot <- ggplot(AFG,aes(US.,BirthRate)) + stat_summary(fun.AFG=mean_cl_normal) +
  geom_smooth(method='lm') + geom_point() + xlab("GDP, current US$") +
  ylab("Birthrate, cruder per 1,000 people") + ggtitle("Afghanistan's Birthrate as a Function of GDP, 2000-2011")

这就是我对这个功能所拥有的东西，但我还没有很好地掌握如何构建这个，所以我正在寻求一些帮助;

grapher <- function(x,y) {
  df <- subset(x, country ==[y])
  plotter <- ggplot(x,aes(US.,BirthRate)) + stat_summary(fun.x=mean_cl_normal) +
    geom_smooth(method='lm') + geom_point() + xlab("GDP, current US$") +
    ylab("Birthrate, cruder per 1,000 people") + ggtitle("[y] Birthrate as a Function of GDP, 2000-2011")

  print plotter
  return(df)
}

非常感谢任何帮助，谢谢！

约什