Lifeboats                package:vcd                R Documentation

_L_i_f_e_b_o_a_t_s _o_n _t_h_e _T_i_t_a_n_i_c

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

     Data from Mersey (1912) about the 18 (out of 20) lifeboats
     launched before the sinking of the S. S. Titanic.

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

     data(Lifeboats)

_F_o_r_m_a_t:

     A data frame with 18 observations and 8 variables.

     _l_a_u_n_c_h launch time in '"POSIXt"' format,

     _s_i_d_e factor. Side of the boat,

     _b_o_a_t factor indicating the boat,

     _c_r_e_w number of male crew members on board,

     _m_e_n number of men on board,

     _w_o_m_e_n number of women (including female crew) on board,

     _t_o_t_a_l total number of passengers,

     _c_a_p capacity of the boat.

_S_o_u_r_c_e:

     Michael Friendly (2000), Visualizing Categorical Data: <URL:
     http://hotspur.psych.yorku.ca/ftp/sas/vcd/catdata/lifeboat.sas>

_R_e_f_e_r_e_n_c_e_s:

     L. Mersey (1912), Report on the loss of the ``Titanic'' (S. S.).
     Parliamentary command paper 6452.

     M. Friendly (2000), _Visualizing Categorical Data_. SAS Institute,
     Cary, NC.

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

     data(Lifeboats)
     attach(Lifeboats)
     ternaryplot(
       Lifeboats[,4:6],
       pch = ifelse(side=="Port", 1, 19),
       col = ifelse(side=="Port", "red", "blue"),
       id  = ifelse(men/total > 0.1, as.character(boat), NA),
       prop.size = 2,
       dimnames.position = "edge",
       main = "Lifeboats on the Titanic"
     )
     legend(
       0.7, 0.8,
       legend = c("SIDE", "Port", "Starboard"),
       pch = c(NA, 1, 19),
       col = c("black", "red", "blue"),
     )

