Sparktable を正常に生成するために使用しているデータ フレーム (長年にわたる MS Office の障害数) があります。
df_Office_final_sparktable
component faults time
Excel 2 2001
Excel 1 2002
Excel 5 2003
Excel 5 2004
Excel 5 2005
Excel 6 2006
Excel 0 2007
Excel 0 2008
Excel 0 2009
Excel 0 2010
Excel 0 2011
Excel 0 2012
PPT 1 2001
PPT 1 2002
PPT 1 2003
PPT 1 2004
PPT 2 2005
PPT 3 2006
PPT 0 2007
PPT 0 2008
PPT 0 2009
PPT 0 2010
PPT 0 2011
PPT 0 2012
Word 5 2001
Word 4 2002
Word 3 2003
Word 1 2004
Word 3 2005
Word 2 2006
Word 5 2007
Word 3 2008
Word 0 2009
Word 1 2010
Word 0 2011
Word 0 2012
対応するコードは次のとおりです。
Office_content<-list(
2001=function(x) { head(x,1) },
2012=function(x) { tail(x,1) },
Office_content[['Office Trend']]<-newSparkLine())
Office_varType<-rep("outages",3) df_Office_final_sparktable<-df_Office_final_sparktable[,c("component","faults","time")] df_Office_final_sparktable$time<-as.numeric(as.character(df_Office_final_sparktable$time)) Office_dat<-reshapeExt(df_Office_final_sparktable,idvar="component",varying=list(2))
Office_sparkTab<-newSparkTable(Office_dat,Office_content,Office_varType)
showSparkTable (Office_sparkTab , outputType = "html", filename = "t1")
ご覧のとおり、head コマンドと対応するスパークラインを使用して、2001 年と 2012 年の断層の表を出力できます。ただし、2002 年から 2011 年までの障害の合計を出力する方法がわかりません。次のコードを使用して、データフレームから 2 行目を取得しようとしました。
df_Office_final_sparktable[2:2, 1:3]
このコマンドを関数にマップする方法がないため、これは正しくないことに気付きました。そのため、各オフィスに必要な障害の合計を取得するために呼び出す必要がある 10 個の個別の関数を作成する必要があるのではないかと考えていました。コンポーネントの年々？
前もって感謝します、ジョナサン