gvisMotionChart：デフォルトの変数を変更します

Question

私はdata.framedfの4つのサイト（1〜4）で構成されています。各サイトには、2011年から2014年までの4つのパラメータ（A〜D）の値があります。私はsite1のモーションチャートを作成したいと思います。

library(dplyr) 
siteID <- c(rep("site1", 16), rep("site2", 16), rep("site3", 16), rep("site4", 16)) 
YEAR <- as.numeric(rep(c("2011", "2012", "2013", "2014"), 16)) 
parameter <- c(rep("A", 4), rep("B", 4), rep("C", 4), rep("D", 4), 
       rep("A", 4), rep("B", 4), rep("C", 4), rep("D", 4), 
       rep("A", 4), rep("B", 4), rep("C", 4), rep("D", 4), 
       rep("A", 4), rep("B", 4), rep("C", 4), rep("D", 4)) 
value <- c(seq(1, 4, by=1), seq(10, 40, by=10), seq(12, 18, by=2), seq(5, 20, by=5), 
      seq(3, 12, by=3), sample(13:18, 4), sample(15:22, 4), sample(10:18, 4), 
      seq(7, 1, by=-2), sample(15:22, 4), sample(15:19, 4), sample(10:20, 4), 
      seq(8, 5, by=-1), seq(50, 20, by=-10), seq(16, 10, by=-2), seq(20, 5, by=-5)) 
df <- data.frame(siteID, YEAR, parameter, value) 
df$YEAR <- as.numeric(df$YEAR) 

df1 <- df %>% 
    dplyr::filter(siteID =="site1") 

は、私はそれがうまく働いた

library(googleVis) 
site1 = gvisMotionChart(data=df1, 
         idvar="parameter", 
         timevar="YEAR", 
         chartid="site1") 
plot(site1) 

次のコードを使用して、サイト1用のモーショングラフを作成しました。その結果は、しかし、デフォルトx axisとy axisがvalueたここ

です。私はx axis自分自身を価値から年に変えなければなりませんでした。

私はx-axisがYEAR、colorvarはparameterなり、sizevarはvalueになるだろうように、デフォルト値を変更するようでした。私はこのコードを使ってそれをしました

site1_1 = gvisMotionChart(data=df1, 
         idvar="parameter", 
         timevar="YEAR", 
         chartid="site1", 
         xvar="YEAR", 
         yvar="value", 
         colorvar="parameter", 
         sizevar="value") 

plot(site1_1) 

それはプロットが作成されていませんでした。 何か提案がありがとうございます。

Answer 1

私は以下のことがちょうどそこにあると思います。残っているのは、オプションを適切に設定してコンマなどを取り除くことだけです。

df1 <- df %>% 
    dplyr::filter(siteID =="site1") %>% 
    mutate(Date = YEAR) %>% 
    mutate(colorValue = parameter) %>% 
    mutate(sizeValue = value) 



library(googleVis) 
site1 = gvisMotionChart(data=df1, 
         idvar="parameter", 
         timevar="YEAR", 
         chartid="site1", 
         xvar = "Date", 
         yvar = "value", 
         colorvar = "colorValue", 
         sizevar = "sizeValue") 
plot(site1)