¡ìR ±â¹Ý µ¥ÀÌÅÍ ºÐ¼® ŸÀ̵ð¹ö½º(tidyverse) Á¢±Ù¡í µ¥ÀÌÅÍ ÆÄÀÏÀÔ´Ï´Ù.
¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡
Ã¥À» ¼¼úÇÏ´ø ½ÃÁ¡°ú ÇöÀçÀÇ Å¸À̵ð¹ö½º ÆÐÅ°Áö°¡ Á¶±Ý ´Þ¶óÁø °Í °ü·ÃÇÏ¿© °øÁöµå¸³´Ï´Ù.
tidyverse ÆÐÅ°Áö°¡ ¾÷µ¥ÀÌÆ® µÇ¸é¼ º¯¼öÀ̸§ÀÌ Çѱ¹¾îÀÎ °æ¿ì ¿À·ù°¡ ¹ß»ýÇÒ ¼ö ÀÖ½À´Ï´Ù. ¿¹¸¦ µé¾î Ã¥¿¡ ¼Ò°³µÇ¾î ÀÖ´Â select() ÇÔ¼öÀÇ °æ¿ì Çѱ¹¾î º¯¼öÀ̸§ÀÇ °æ¿ì ´ÙÀ½°ú °°Àº ¿À·ù°¡ ¹ß»ýÇϱ⵵ ÇÕ´Ï´Ù.
> read_xls("data_library.xls") %>% select(±â°£) Error in FUN(X[[i]], ...) : object '±â°£' not found
ÀÌ ¶§´Â º¯¼öÀ̸§¿¡ µû¿ÈÇ¥¸¦ ºÙ¿©Áֽðųª contains() ÇÔ¼ö µîÀ» ÀÌ¿ëÇÏ¸é ¹®Á¦¾øÀÌ µ¥ÀÌÅ͸¦ Àо ¼ö ÀÖ½À´Ï´Ù.
> read_xls("data_library.xls") %>% select("±â°£") # A tibble: 182 x 1 ±â°£ 1 2010 2 2010 3 2010
> read_xls("data_library.xls") %>% select(contains("±â°£"):contains("°è")) # A tibble: 182 x 3 ±â°£ ÀÚÄ¡±¸ °è 1 2010 ÇÕ°è 464 2 2010 Á¾·Î±¸ 50.0 3 2010 Áß±¸ 57.0
ÇØ´ç ¹®Á¦Á¡Àº ŸÀ̵ð¹ö½º ¹öÀüÀÌ ¾÷µ¥ÀÌÆ®µÇ¸é¼ ÇØ°áµÉ °ÍÀ¸·Î ±â´ëÇÏ°í ÀÖ½À´Ï´Ù.
¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡ |