interactivePlot          package:fUtilities          R Documentation

_I_n_t_e_r_a_c_t_i_v_e _P_l_o_t _U_t_i_l_i_t_y

_D_e_s_c_r_i_p_t_i_o_n:

     Plots with emphasis on interactive plots.

_U_s_a_g_e:

     interactivePlot(x, choices = paste("Plot", 1:9), 
         plotFUN = paste("plot.", 1:9, sep = ""), which = "all", ...)

_A_r_g_u_m_e_n_t_s:

 choices: a vector of character strings for the choice menu. By Default
          '"Plot 1"' ... '"Plot 9"' allowing for 9 plots at maximum. 

 plotFUN: a vector of character strings naming the plot functions. By
          Default '"plot.1"' ... '"plot.9"' allowing for 9 plots at
          maximum. 

   which: plot selection, which graph should be displayed? If '"which"'
          is a character string named "ask" the user is interactively
          asked  which to plot, if a logical vector of length 'N',
          those plots  which are set 'TRUE' are displayed, if a
          character string named '"all"' all plots are displayed. 

       x: an object to be plotted.  

     ...: additional arguments passed to the FUN or plot function. 

_E_x_a_m_p_l_e_s:

     ## Test Plot Function:
        testPlot = function(x, which = "all", ...) {   
          # Plot Function and Addons:
          plot.1 <<- function(x, ...) plot(x, ...)      
          plot.2 <<- function(x, ...) acf(x, ...)
          plot.3 <<- function(x, ...) hist(x, ...)      
          plot.4 <<- function(x, ...) qqnorm(x, ...)
          # Plot:
          interactivePlot(x,
            choices = c("Series Plot", "ACF", "Histogram", "QQ Plot"),
            plotFUN = c("plot.1", "plot.2", "plot.3", "plot.4"),
            which = which, ...)       
          # Return Value:
          invisible()
        }  
        # Plot:
        par(mfrow = c(2, 2), cex = 0.7)
        testPlot(rnorm(500))
           
        # Try:
        # par(mfrow = c(1,1))
        # testPlot(rnorm(500), which = "ask")

