olympic                 package:VGAM                 R Documentation

_2_0_0_8 _S_u_m_m_e_r _O_l_y_m_p_i_c _F_i_n_a_l _M_e_d_a_l _C_o_u_n_t _D_a_t_a

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

     Final count of medal winners by country for the 2008 Summer
     Olympic games in Beijing.

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

     data(olympic)

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

     A data frame with 87 observations on the following 6 variables.

     '_r_a_n_k' a numeric vector, overall ranking of the countries. 

     '_c_o_u_n_t_r_y' a character vector. 

     '_g_o_l_d' a numeric vector, number of gold medals. 

     '_s_i_l_v_e_r' a numeric vector, number of silver medals. 

     '_b_r_o_n_z_e' a numeric vector, number of bronze medals. 

     '_t_o_t_a_l_m_e_d_a_l' a numeric vector, total number of medals. 

_D_e_t_a_i_l_s:

     The event was held during August 8-24, 2008, in Beijing.

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

     <URL:
     http://www.associatedcontent.com/article/979484/2008_summer_olympic_medal_count_total.html>.

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

     The official English webite was <URL: http://en.beijing2008.cn>.

_S_e_e _A_l_s_o:

     'grc'.

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

     summary(olympic)
     ## maybe str(olympic) ; plot(olympic) ...
     ## Not run: 
     with(head(olympic, n=8),
          barplot(rbind(gold,silver,bronze),
                  col=c("gold","grey","brown"),  # No "silver" or "bronze"!
                  names.arg=country, cex.names=0.5,
                  beside=TRUE, main="2008 Summer Olympic Final Medal Count",
                  ylab="Medal count", las=1,
                  sub="Top 8 countries; 'gold'=gold, 'grey'=silver, 'brown'=bronze"))
     ## End(Not run)

