ggplot2小さなものが始まるときと異なる長さの2つのベクトルをプロットする

Question

私はRを使用しています。私は1900年に戻って毎日のテーブルを持っています。1900年に始まるベクトルのいくつかは、各ベクトルを日付ベクトルに対してプロットします。更新のための

structure(list(Date = structure(c(5L, 6L, 7L, 8L, 1L, 2L, 3L, 
4L), .Label = c("1/3/1928", "1/4/1928", "1/5/1928", "1/6/1928", 
"12/28/1927", "12/29/1927", "12/30/1927", "12/31/1927"), class = "factor"), 
DJIA = c(198.6, 199.96, 200.7, 202.4, 203.35, 202.24, 199.61, 
201.45), SPX = c(NA, NA, NA, NA, 17.76, 17.72, 17.55, 17.66 
)), .Names = c("Date", "DJIA", "SPX"), class = "data.frame", row.names = c(NA, 
-8L)) 

Answer 1

ありがとう：しかし、私はいつもここで

1900年に開始Y-ベクトルが始まるといない時に開始するように、各プロットを希望することは一例です！への最も簡単な方法

d$Date <- as.Date(d$Date, "%m/%d/%Y") 

、私は正しく、我々は最初の Dateにそれを変更する必要がありますプロットするために、このデータを持つ最初の問題は、 Dateが要因であるということである d

d <- structure(list(Date = structure(c(5L, 6L, 7L, 8L, 1L, 2L, 3L, 
           4L), .Label = c("1/3/1928", "1/4/1928", "1/5/1928", "1/6/1928", 
               "12/28/1927", "12/29/1927", "12/30/1927", "12/31/1927"), class = "factor"), 
      DJIA = c(198.6, 199.96, 200.7, 202.4, 203.35, 202.24, 199.61, 
        201.45), SPX = c(NA, NA, NA, NA, 17.76, 17.72, 17.55, 17.66 
        )), .Names = c("Date", "DJIA", "SPX"), class = "data.frame", row.names = c(NA, 
                           -8L)) 

あなたのデータを呼ぶことにしましょうあなたの所望の出力を達成することは

ggplot(d[complete.cases(d[,c("Date", "SPX")]), ], aes(x = Date, y = SPX)) + 
    geom_line() 

しかし、私はあなたがグラムだろう容疑者を次のようにNAを削除することですこれらの数字の多くを演奏しています。あなた自身のプロット関数を作成する方がいいでしょう。

myplot <- function(data, myX, myY){ 
    data <- data[complete.cases(data[,c(myX, myY)]), ] 
    ggplot(data, aes_string(x = myX, y = myY))+ 
    geom_line() 
} 

aes_stringに注目してください。これにより、変数名の受け渡しが簡単になります。 aesを使用することは可能ですが、少し複雑です。あなたが提供してください

allPLOT$SPX