ÇÁ·Î±×·¥RÀ» È°¿ëÇÑ µ¥ÀÌÅÍ »çÀ̾ð½º

ÇÁ·ÎÁ§Æ® Áß°£ ¸®Æ÷Æ®

±èµµÈì, ȲÀº¼·

11/10/2022

ÆÀ¼Ò°³

• ±èµµÈì: ¿î¾Ï°íµîÇб³, 2Çгâ, ¹é¿£µå ¾Ë°í¸®Áò ¼³°è³ª µ¥ÀÌÅÍ ºÐ¼®¿¡ °ü½ÉÀÌ ÀÖ½À´Ï´Ù.

• ȲÀº¼·: ¿î¾Ï°íµîÇб³, 2Çгâ, Ç®½ºÅà °³¹ßÀÚ¸¦ Èñ¸ÁÇÏ°í µ¥ÀÌÅÍ ºÐ¼®¿¡ °ü½ÉÀÌ ÀÖ½À´Ï´Ù.

1. ¼·Ð

¼·Ð¿¡´Â ´ÙÀ½°ú °°Àº ³»¿ëÀ» Æ÷ÇÔÇÑ´Ù¿äÁò ¸Á»ç¿ë·á°¡ À̽´°¡ µÇ¸é¼ Æ®·¡ÇÈ Áõ°¡¿¡ °üÇØ °ü½ÉÀÌ »ý°å½À´Ï´Ù.

() ÀÌ ÇÁ·ÎÁ§Æ®ÀÇ ¸ñÀûÀº ¸Á»ç¿ë·á ¹®Á¦°¡ ÅÍÁø ÀÌÀ¯¸¦ º¸´Ù ½±°Ô ÀÌÇØÇϱâ À§ÇÔÀÔ´Ï´Ù .

() ¸ÕÀú ÇÁ·ÎÁ§Æ®ÀÇ ¹è°æ°ú ¸ñÀûÀ» ¼³¸íÇÕ´Ï´Ù.

() »ç¿ëµÈ µ¥ÀÌÅÍ(±¹³» Äڷγª È®ÁøÀÚ, ±¹³» Æ®·¡ÇÈ »ç¿ë·® µ¥ÀÌÅÍ)¸¦ ¼Ò°³ÇÕ´Ï´Ù.

() µ¥ÀÌÅ͸¦ ºÐ¼®ÇÏ¿© ½Ã°¢ÈÇÕ´Ï´Ù.

() Áß°£ °á·ÐÀ» ³»¸®°í ´ÙÀ½ °èȹÀ» ¼³Á¤ÇÕ´Ï´Ù.

1.1 ÇÁ·ÎÁ§Æ® ¹è°æ/¸ñÀû

Æ®·¡ÇÈÀÌ Áõ°¡ÇÑ ¿øÀÎÀ» ¾Ë¾Æº¸±â À§ÇØ Å©°Ô ÀÎÅÍ³Ý Æ®·¡ÇÈ Áõ°¡À² µ¥ÀÌÅÍ¿Í Äڷγª 19 È®ÁøÀÚ µ¥ÀÌÅ͸¦ ºñ±³•ºÐ¼®•½Ã°¢ÈÇÏ¿´½À´Ï´Ù.

À̸¦ À§ÇØ ±¹³» ¹«¼±µ¥ÀÌÅÍ Æ®·¡ÇÈ »ç¿ë·®, Äڷγª19È®»ê¿¡ µû¸¥ Æ®·¡ÇÈ Áõ°¡ µ¥ÀÌÅÍ, ¿Â¶óÀÎ µ¿¿µ»ó ¼ºñ½º(OTT ¼ºñ½º) ÀÌ¿ëÀÚ ¼ö µ¥ÀÌÅ͸¦ ºñ±³•ºÐ¼®ÇÏ¿© °ü·Ã¼º¿¡ ´ëÇØ ¾Ë¾Æº¸°íÀÚ ÇÕ´Ï´Ù.

OTT¼ºñ½º ÀÌ¿ëÀÚ ¼ö µ¥ÀÌÅ͸¦ ºÐ¼ÇÏ´Â ÀÌÀ¯´Â Äڷγª19°¡ È®»êµÇ¸é¼ ½Ç³» È°µ¿°ú ¿Â¶óÀÎ ¼ö¾÷ µîÀÌ ´Ã¾î³ª¸ç OTT¼ºñ½º ÀÌ¿ëÀÚ ¼ö°¡ Áõ°¡ÇÔ¿¡ µû¶ó Æ®·¡ÇÈÀÌ Áõ°¡ÇÏ¿´À» °ÍÀ̶ó°í ¿¹»óÇϱ⠶§¹®ÀÔ´Ï´Ù. 

ÀÌ µ¥ÀÌÅ͵鿡 ´ëÇÑ ½Ã°¢È°¡ Àß ÀÌ·ç¾îÁö¸é ¸Á»ç¿ë·á ¹®Á¦°¡ À̽´ÈµÈ ÀÌÀ¯¸¦ ÀÌÇØÇϱ⠽¬¿öÁú °ÍÀÔ´Ï´Ù.

1.2 ¸®Æ÷Æ® °³¿ä

»ç¿ëµÈ µ¥ÀÌÅÍ ¼Ò°³, µ¥ÀÌÅÍ ºÐ¼®, Áß°£ °á·Ð, ¾ÕÀ¸·ÎÀÇ °èȹÀ¸·Î ±¸¼ºµÇ¾î ÀÖ½À´Ï´Ù.

2. ÇÁ·ÎÁ§Æ®¿¡ »ç¿ëµÈ µ¥ÀÌÅÍ

2.1 µ¥ÀÌÅÍ ¼Ò°³/¼³¸í

±¹³» ¹«¼± Åë½Å Æ®·¡ÇÈ »ç¿ë·® ÀÚ·á´Â °úÇбâ¼úÁ¤º¸Åë½ÅºÎ°¡ Á÷¹«»ó ÀÛ¼º ¶Ç´Â ÃëµæÇÏ¿© °ü¸®ÇÏ°í ÀÖ´Â Á¤º¸¸¦ û±¸ÀÎÀÇ Ã»±¸¿¡ ÀÇÇÏ¿© °ø°³ÇÏ´Â Á¦µµÀÎ Á¤º¸°ø°³Á¦µµ¿¡ µû¶ó °ø°³µÈ ÀÚ·áÀÔ´Ï´Ù(https://www.msit.go.kr/publicinfo/view.do?sCode=user&mPid=62&mId=63&publictSeqNo=337&publictListSeqNo=15&formMode=R&referKey=337,15).

Äڷγª19 È®ÁøÀÚ ¼ö ÀÚ·á´Â Áúº´°ü¸®Ã»ÀÌ °ø°³ÇÑ ÀÚ·áÀÔ´Ï´Ù(https://ncov.kdca.go.kr).

2.2 µ¥ÀÌÅÍ Dictionary

3. µ¥ÀÌÅÍ ºÐ¼®

3.1 ºÐ¼® 1

df_covid = covid %>%

  select(³¯Â¥,ÇÕ°è) %>%

  filter(³¯Â¥ >'2020-01-01'&³¯Â¥<'2021-11-01') %>%

ggplot(aes(³¯Â¥,ÇÕ°è)) +

  xlab('Date') + ylab('È®ÁøÀÚ ¼ö(¸í)') + ggtitle('±¹³» Äڷγª19 È®ÁøÀÚ ¼ö ÇÕ°è') + geom_line()

3.2 ºÐ¼® 2

df_traffic1 = traffic_sheet1%>%

  filter(³¯Â¥ >'2020-01-01'&³¯Â¥<'2021-11-01') %>%

ggplot(aes(³¯Â¥,ÇÕ°è)) +

  xlab('Date') + ylab('SumTraffic(TB)') +

ggtitle('±¹³» ¹«¼± Åë½Å Æ®·¡ÇÈ ÇÕ°è') + geom_line()

3.2 ºÐ¼® 3

covid_element = as_vector(sum_covid$ÇÕ°è)

traffic_element = as_vector(df_traffic1$ÇÕ°è)

relation = cor(covid_element,traffic_element)

line_scatter = ggplot(df, aes(covid_element,traffic_element))+ 

geom_point() + stat_smooth() + ggtitle('Äڷγª È®ÁøÀÚ¿Í Æ®·¡ÇÈÀÇ »ó°ü°ü°è')+

xlim(0, 30000) + ylim(580000, 810000)

line_scatter

4. Áß°£ °á·Ð

±¹³» Äڷγª19 È®ÁøÀÚ ¼ö¿Í ±¹³» ¹«¼± Åë½Å Æ®·¡ÇÈ »çÀÌ¿¡´Â À¯ÀǹÌÇÑ ¾çÀÇ »ó°ü°ü°è(0.6179288)°¡ Á¸ÀçÇÕ´Ï´Ù. µû¶ó¼ Äڷγª È®ÁøÀÚ ¼ö¿Í Æ®·¡ÇÈ »ç¿ë·®Àº ºñ·ÊÇÏ´Â °æÇâÀ» º¸ÀÔ´Ï´Ù.

5. ÇÁ·ÎÁ§Æ® Ç÷£

OTT ÀÌ¿ëÀÚ ¼ö µ¥ÀÌÅÍ, ±¹³» ¼ºñ½ºº° Æ®·¡ÇÈ Áõ°¡ Àü¸Á µ¥ÀÌÅÍ ºÐ¼®

±¹³» ¹«¼± µ¥ÀÌÅÍ Æ®·¡ÇÈ »ç¿ë·®°ú OTT¼ºñ½º ÀÌ¿ëÀÚ ¼ö µ¥ÀÌÅÍÀÇ »ó°ü°ü°è ºÐ¼®