lapplyを介してggplot2のaes_string（）に文字列を渡しても機能しません。

Question

私は1つの引数を必要とし、プロットを出力する関数を作成しました。引数には変数がy軸に文字としてプロットされます。ここではいくつかのサンプルデータは、次のとおりです。

df_year <- data.frame(year = c(2000, 2001), V1 = c(1.7,2.6)) 
df_year_speaker <- data.frame(year = c(2000, 2000, 2001, 2001), 
           speaker = c("Smith", "House", "Smith", "House"), 
           V1 = c(1.5,2,2.3,3), 
           partyaffil = c("rep", "dem", "rep", "dem")) 

そして、ここに私のプロット機能：

require(ggplot2) 
plot_fct <- function(means_year = df_year, 
        means_year_speaker = df_year_speaker, 
        x="year", 
        y="V1"){ 
    ggplot()+ 
    scale_fill_manual(values = c("#778aff","#ff6f54"))+ #blue,red 
    geom_line(data = means_year, aes_string(x, y), 
       color = "#212121")+ 
    geom_point(data = means_year_speaker, aes_string(x, y))+ 
    geom_label(data = means_year_speaker, aes_string(x, y,label="speaker", 
                 fill = "partyaffil"), 
                 color = "#343434") 
} 

私が直接私の機能を実行すると、それだけで正常に動作します：

plot_fct(y = "V1") 

しかし、ときに私はそれを呼び出しますvia lapply私はエラーが発生します：

> lapply(list(A = "V1"), FUN = plot_fct) 
    Error: ggplot2 doesn't know how to deal with data of class character 

トレースバックを実行すると、エラーがfortify.default(data)であることが判明しました。 何が間違っているか、またはlapply経由で私の関数に文字列を渡す方法についてのアイデアはありますか？

Answer 1

問題は、関数のどのパラメータをリストの単一の値に設定する必要があるのか​​不明であるということです。

あなたは

plot_fct <- function(y, means_year = df_year, 
       means_year_speaker = df_year_speaker, 
       x="year") 

に、yのデフォルトのパラメータを除去することにより、関数のシグネチャを変更した場合、それはあなたが意図したとおりに動作するはずです。

Answer 2

plot_fct(y = "V1")を呼び出すときは、特にパラメータにV1を渡していることに注意してください。 lapplyを使用する場合、デフォルトで最初のパラメータに移動し、yは最初のパラメータになりません。できること

lapply(list(A = "V1"), FUN = function(y) plot_fct(y=y))