다음은 idvar 및 timevar 외에도 xvar, yvar, colorvar 및 sizevar에 대한 기본값을 지정할 수있는 gvisMotionChart의 작은 인터페이스 함수입니다. 제공된 data.frame의 열 순서를 변경하면됩니다. 이 함수는 부울을 숫자로 변환합니다 (그렇지 않으면 gvisMotionChart가 오류를 발생시킵니다). 나도 모션 차트가 단면 데이터를 분석하기에 매우 편리하기 때문에 timevar = NULL을 설정할 수 있습니다.
# Convenience interface to gvisMotionChart that allows to set default columns
myMotionChart = function(df,idvar=colnames(df)[1],timevar=colnames(df)[2],xvar=colnames(df)[3],yvar=colnames(df)[4], colorvar=colnames(df)[5], sizevar = colnames(df)[6],...) {
library(googleVis)
# Generate a constant variable as column for time if not provided
# Unfortunately the motion plot still shows 1900...
if (is.null(timevar)) {
.TIME.VAR = rep(0,NROW(df))
df = cbind(df,.TIME.VAR)
timevar=".TIME.VAR"
}
# Transform booleans into 0 and 1 since otherwise an error will be thrown
for (i in 1:NCOL(df)) {
if (is.logical(df [,i])[1])
df[,i] = df[,i]*1
}
# Rearrange columns in order to have the desired default values for
# xvar, yvar, colorvar and sizevar
firstcols = c(idvar,timevar,xvar,yvar,colorvar,sizevar)
colorder = c(firstcols, setdiff(colnames(df),firstcols))
df = df[,colorder]
gvisMotionChart(df,idvar=idvar,timevar=timevar,...)
}
과거에 비슷한 질문에 대한 답변이왔다 : http://stackoverflow.com/questions/7063410/r-googlevis-problem-embedding-on-blogger http://stackoverflow.com/questions/4646779/embedding-googlevis-chart-into-a-web-site –
DWin 링크를 이용해 주셔서 감사합니다.하지만 기본 변수에는 아무 것도 볼 수 없습니까? –