【R】mapplyでassignができない

Question

irisの各パラメータごとにggplotを行いたいです。

１つずつやることはできています。

assign(paste("g", "Sepal.Length", sep=""), ggplot(iris, aes(y="Sepal.Length", x=Species, fill = Species)))

これでgSepal.Lengthというリストが作成できています。

各パラメータについてやるために、このように関数を作成してみたのですが、

ggP <- function (A) {assign(paste("g", A, sep=""), ggplot(iris, aes(y=A, x=Species, fill=Species)))}
param <- colnames(iris)[1:4]
mapply(ggP,param)

リストは作成されずに、

            Sepal.Length Sepal.Width Petal.Length Petal.Width
data        List,5       List,5      List,5       List,5     
layers      List,0       List,0      List,0       List,0     
scales      ?            ?           ?            ?          
mapping     List,3       List,3      List,3       List,3     
theme       List,0       List,0      List,0       List,0     
coordinates ?            ?           ?            ?          
facet       ?            ?           ?            ?          
plot_env    ?            ?           ?            ?          
labels      List,3       List,3      List,3       List,3

このような結果が返ってくるだけです。
なぜassignが働かないのでしょうか。
gSepal.Length
gSepal.Width
gPetal.Length
gPetal.Width
という４つのリストが作成されてほしいです。

補足情報（FW/ツールのバージョンなど）

R version 3.3.2 (2016-10-31)

Answer 1

functionの中はその外側とは隔絶した環境となり、この中で定義したオブジェクトはその外からは見えません。外から見えるようにオブジェクトを作るには、assign()の中で、envir = .GlobalEnvを指定してやればよいです。しかし、無駄に回りくどいコードになると思います。

mapplyはリストを返してくるので、

g <- mapply(ggP,param)

とでもしておけば、データにはg$Sepal.Lengthのような形でアクセスできます。

しかし、私なら、mapplyとggPで定義している部分を、forループにしてしまいます。いちばん直感的でシンプルだと思います。

Comments

[shimiken]

functionにそういう性質があることを知りませんでした。
forループでやる方法も試してみます。

ありがとうございました。