9

コードと特定の問題のより完全な例を提供するために編集されました

株価の時系列プロットを作成する関数を書いています。ただし、次のエラーが発生します

eval（expr、envir、enclos）のエラー：オブジェクト'df1234'が見つかりません

関数の例を次に示します。

plot.prices <- function(df1234) {
  require(ggplot2)
  g <- ggplot(df1234, aes(x= as.Date(Date, format= "%Y-%m-%d"), y= df1234[, 3], 
              colour= brewer.pal(12,"Set3")[1])) + geom_point(size=1)
  g + geom_point(aes(x= date, y = df1234[, 4], 
                 colour= brewer.pal(12,"Set3")[2]), size=1)

  # ... code not shown...
  g
}

そしてサンプルデータ：

spy <- read.csv(file= 'http://ichart.finance.yahoo.com/table.csv?s=SPY&d=11&e=1&f=2012&g=d&a=0&b=29&c=1993&ignore=.csv', header= T)

plot.prices(spy) # produces error
g <- ggplot(spy, aes(x= as.Date(Date, format= "%Y-%m-%d"), y= spy[, 3], 
              colour= brewer.pal(12,"Set3")[1])) + geom_point(size=1)
  g + geom_point(aes(x= as.Date(Date), y = spy[, 4], 
                 colour= brewer.pal(12,"Set3")[2]), size=1)
## does not produce error

ご覧のとおり、コードは同じです。ggplot（）の呼び出しが関数の内側にある場合はエラーが発生しますが、ggplot（）の呼び出しが関数の外側にある場合はエラーが発生しません。

なぜ一見矛盾しているのか誰にも分かりますか？

4

2 に答える 2

10

gglpot2でdf[、7]を使用しているため、エラーが発生します。列名Adj.Closeを使用すると、問題が修正されます。

 g <- ggplot(df, aes(x= as.Date(Date, format= "%Y-%m-%d"),
                  y= Adj.Close)) + geom_point(size=1)

実際にはエラー、それはスコーピングエラーです。aesはdf環境を見つけることができません。グローバルスコープで検索しようとします。

インデックス呼び出しを使用する場合は、たとえばaes_stringを使用して、式ではなく文字列を操作できます。

plot.prices <- function(df) {
  require(ggplot2)

  df$Date <- as.Date(df$Date, format= "%Y-%m-%d")

  g <- ggplot(df, aes_string(x= 'Date',
                      y= colnames(df)[7])) + geom_point(size=1)

  # ... code not shown...
  g
}

ここに画像の説明を入力してください

于 2012-12-01T23:02:24.560 に答える
1

これがあなたの望むものかどうかはわかりませんが、役立つかもしれません。agstudyのコードを変更しました：

spy <- read.csv(file= 'http://ichart.finance.yahoo.com/table.csv?s=SPY&d=11&e=1&f=2012&g=d&a=0&b=29&c=1993&ignore=.csv', header= T)

library(ggplot2)
library(RColorBrewer)

 plot.prices <- function(df) {

   df$Date <- as.Date(df$Date, format= "%Y-%m-%d")

   g <- ggplot(df, aes_string(x='Date', y= colnames(df)[3])) + 
                   geom_point(colour= brewer.pal(12,"Set3")[1], size=1)

   gg <- g + geom_point(aes_string(x='Date', y= colnames(df)[4]),
                   colour= brewer.pal(12,"Set3")[2], size=1)
   gg
 }

 plot.prices(spy)

使用しないコードは次のbrewer.palとおりです。

library(ggplot2)

spy <- read.csv(file= 'http://ichart.finance.yahoo.com/table.csv?s=SPY&d=11&e=1&f=2012&g=d&a=0&b=29&c=1993&ignore=.csv', header= T)

 plot.prices <- function(df) {

   df$Date <- as.Date(df$Date, format= "%Y-%m-%d")

   g <- ggplot(df, aes_string(x='Date', y= colnames(df)[3])) + 
                   geom_point(colour= 'green', fill='green', size=1)

   gg <- g + geom_point(aes_string(x='Date', y= colnames(df)[4]),
                   colour= 'black', fill='black', size=1)
   gg
 }

 plot.prices(spy)
于 2012-12-02T02:27:48.150 に答える