0

ピッカー リストがテーブルから特定の行 (ピッカーにリストとして渡す) を選択するマニピュレータ関数を使用してプロットを生成しようとしています。マニピュレータを実行すると、最初の選択では問題なくプロットが表示されますが、選択を行った後、次のエラーが表示されます:-

Error in plot.window(...) : need finite 'xlim' values

In addition: Warning messages:

1: In is.na(e2) : is.na() applied to non-(list or vector) of type 'NULL'
2: In is.na(e2) : is.na() applied to non-(list or vector) of type 'NULL'    
3: In is.na(e2) : is.na() applied to non-(list or vector) of type 'NULL'    
4: In min(x) : no non-missing arguments to min; returning Inf   
5: In max(x) : no non-missing arguments to max; returning -Inf 
6: In min(x) : no non-missing arguments to min; returning Inf   
7: In max(x) : no non-missing arguments to max; returning -Inf

以下は私のコードです:-

Bivariate_Plots_cont=function(base_table,Table)
{
  c<- subset(base_table$segment_per_book, base_table$var_name==Table)
  print(c)
  plot(c, type="b", col="red", 
   axes=FALSE, xlab="Decile Starting Value", ylab="Event Rate (%)",main=Table,xaxt="n")

  axis(1, at=1:10,labels=subset(base_table$min,     base_table$var_name==Table),cex.axis=0.5)
  par(new=TRUE)

  plot(subset(base_table$per_distribution, base_table$var_name==Table), type="b",   col="blue", 
   axes=TRUE, xlab="", ylab="",xaxt="n")
}



Set_Factors_cont=function(base_table)
{
  Variables<<- unique(base_table$var_name)
  Factors <<- as.list(as.character(Variables))
}


Set_Factors_cont(cont3)


manipulate(
  Bivariate_Plots_cont(cont3,Table),
  Table=picker(Factors)
  )

基本的に上記の 3 ピース コードでは、2 つのプロットを結合するラッパー関数 Bivariate_Plots_cont を定義し、それをマニピュレータ内で呼び出して、"Factors" をリストとしてピッカー オプションに渡します。

4

0 に答える 0