{"id":4217,"date":"2024-12-29T15:08:46","date_gmt":"2024-12-29T06:08:46","guid":{"rendered":"https:\/\/secondlife.lol\/?p=4217"},"modified":"2024-12-30T15:29:37","modified_gmt":"2024-12-30T06:29:37","slug":"fertility-rate-opinion-trends","status":"publish","type":"post","link":"https:\/\/secondlife.lol\/zh\/fertility-rate-opinion-trends\/","title":{"rendered":"\u603b\u548c\u751f\u80b2\u7387\u8d8b\u52bf\u548c\u5bf9\u5a5a\u59fb\u751f\u80b2\u7387\u770b\u6cd5\u7684\u53d8\u5316\uff1a\u5728 R \u4e2d\u53ef\u89c6\u5316"},"content":{"rendered":"\n<p class=\"wp-block-paragraph\"><a href=\"https:\/\/secondlife.lol\/total-fertility-rate-r-trendy-visualization\/\" data-type=\"post\" data-id=\"4187\">\ud569\uacc4\ucd9c\uc0b0\uc728 \ucd94\uc774<\/a>\ub97c \uc0b4\ud3b4\ubcf4\ub294 \uac83\uc740 \ud55c \uc0ac\ud68c\uc758 \ubbf8\ub798\ub97c \uc608\uce21\ud558\ub294 \uc911\uc694\ud55c \uc694\uc18c\ub85c, \uc774\uc5d0 \ub300\ud55c \uc0ac\ud68c\uc801 \uc758\uacac\uacfc \uacb0\ud63c \ucd9c\uc0b0 \uc778\uc2dd \ubcc0\ud654\ub294 \uc815\ucc45 \ubc29\ud5a5 \uc124\uc815\uacfc \ubb38\ud654\uc801 \ud750\ub984\uc744 \uc774\ud574\ud558\ub294 \ub370 \ud575\uc2ec\uc801\uc778 \uc5ed\ud560\uc744 \ud569\ub2c8\ub2e4.<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\uc774\ubc88 \ud3ec\uc2a4\ud2b8\uc5d0\uc11c\ub294 R\uc758 <code>ggplot2<\/code>\uc640 <code>patchwork<\/code> \ud328\ud0a4\uc9c0\ub97c \ud65c\uc6a9\ud574 \ud569\uacc4\ucd9c\uc0b0\uc728 \ucd94\uc774\uacfc <a href=\"https:\/\/secondlife.lol\/marriage-birth-stacked-bar-graph\/\" data-type=\"post\" data-id=\"4202\">\uacb0\ud63c \ucd9c\uc0b0 \uc778\uc2dd \ubcc0\ud654<\/a>\ub97c \uc2dc\uac01\ud654\ud558\uace0, \ub450 \uc694\uc18c \uac04\uc758 \uc0c1\uad00\uad00\uacc4\ub97c \ubd84\uc11d\ud558\ub294 \ubc29\ubc95\uc744 \uc18c\uac1c\ud569\ub2c8\ub2e4. \uc544\ub798\uc5d0\uc11c \uc81c\uc2dc\ud558\ub294 \uc608\uc81c\ub294 \ud604\uc2e4 \ub370\uc774\ud130\ub97c \uae30\ubc18\uc73c\ub85c \ud55c \uac00\uc0c1\uc758 \ub370\uc774\ud130\ub97c \uc0ac\uc6a9\ud574 \ud2b8\ub80c\ub4dc\uc640 \uc0c1\uad00\uad00\uacc4\ub97c \uc2dc\uac01\uc801\uc73c\ub85c \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/p>\n\n\n<style>.kb-table-of-content-nav.kb-table-of-content-id83_5f28a6-34 .kb-table-of-content-wrap{padding-top:var(--global-kb-spacing-sm, 1.5rem);padding-right:var(--global-kb-spacing-sm, 1.5rem);padding-bottom:var(--global-kb-spacing-sm, 1.5rem);padding-left:var(--global-kb-spacing-sm, 1.5rem);border-top:3px solid var(--global-palette2, #2B6CB0);border-right:3px solid var(--global-palette2, #2B6CB0);border-bottom:3px solid var(--global-palette2, #2B6CB0);border-left:3px solid var(--global-palette2, #2B6CB0);border-top-left-radius:5px;border-top-right-radius:5px;border-bottom-right-radius:5px;border-bottom-left-radius:5px;box-shadow:0px 0px 14px 0px rgba(0, 0, 0, 0.2);}.kb-table-of-content-nav.kb-table-of-content-id83_5f28a6-34 .kb-table-of-contents-title-wrap{padding-top:0px;padding-right:0px;padding-bottom:0px;padding-left:0px;}.kb-table-of-content-nav.kb-table-of-content-id83_5f28a6-34 .kb-table-of-contents-title-wrap{color:var(--global-palette2, #2B6CB0);}.kb-table-of-content-nav.kb-table-of-content-id83_5f28a6-34 .kb-table-of-contents-title{color:var(--global-palette2, #2B6CB0);font-size:28px;font-weight:regular;font-style:normal;}.kb-table-of-content-nav.kb-table-of-content-id83_5f28a6-34 .kb-table-of-content-wrap .kb-table-of-content-list{color:var(--global-palette1, #3182CE);line-height:2em;font-weight:regular;font-style:normal;margin-top:var(--global-kb-spacing-sm, 1.5rem);margin-right:0px;margin-bottom:0px;margin-left:0px;}.kb-table-of-content-nav.kb-table-of-content-id83_5f28a6-34 .kb-table-of-content-wrap .kb-table-of-content-list .kb-table-of-contents__entry:hover{color:var(--global-palette6, #718096);}@media all and (max-width: 1024px){.kb-table-of-content-nav.kb-table-of-content-id83_5f28a6-34 .kb-table-of-content-wrap{border-top:3px solid var(--global-palette2, #2B6CB0);border-right:3px solid var(--global-palette2, #2B6CB0);border-bottom:3px solid var(--global-palette2, #2B6CB0);border-left:3px solid var(--global-palette2, #2B6CB0);}}@media all and (max-width: 1024px){.kb-table-of-content-nav.kb-table-of-content-id83_5f28a6-34 .kb-table-of-contents-title{font-size:28px;}}@media all and (max-width: 767px){.kb-table-of-content-nav.kb-table-of-content-id83_5f28a6-34 .kb-table-of-content-wrap{border-top:3px solid var(--global-palette2, #2B6CB0);border-right:3px solid var(--global-palette2, #2B6CB0);border-bottom:3px solid var(--global-palette2, #2B6CB0);border-left:3px solid var(--global-palette2, #2B6CB0);}.kb-table-of-content-nav.kb-table-of-content-id83_5f28a6-34 .kb-table-of-contents-title{font-size:28px;}}<\/style>\n\n\n<h2 class=\"wp-block-heading\">\ud569\uacc4\ucd9c\uc0b0\uc728 \ucd94\uc774\uacfc \uacb0\ud63c \ucd9c\uc0b0 \uc778\uc2dd \ubcc0\ud654 \ub370\uc774\ud130 \uc0dd\uc131<\/h2>\n\n\n\n<p class=\"wp-block-paragraph\">\uc774 \ubd84\uc11d\uc740 2018\ub144\ubd80\ud130 2024\ub144\uae4c\uc9c0\uc758 \ud569\uacc4\ucd9c\uc0b0\uc728 \ucd94\uc774 \ub370\uc774\ud130\uc640 \uacb0\ud63c\u00b7\ucd9c\uc0b0\uc5d0 \ub300\ud55c \uc0ac\ud68c\uc801 \uc758\uacac \ubcc0\ud654 \ub370\uc774\ud130\ub97c \uae30\ubc18\uc73c\ub85c \ud569\ub2c8\ub2e4. \ub370\uc774\ud130\ub97c \uac04\ub2e8\ud788 \uc0dd\uc131\ud558\uace0 \uc774\ub97c \uc2dc\uac01\ud654\ud558\uc5ec \ud2b8\ub80c\ub4dc\ub97c \ubd84\uc11d\ud569\ub2c8\ub2e4.(\ub370\uc774\ud130\ub294 <a href=\"https:\/\/www.index.go.kr\/lbirth\" target=\"_blank\" rel=\"noopener\">\ud1b5\uacc4\uccad \ubc1c\ud45c<\/a>\uc5d0 \uadfc\uac70\ud569\ub2c8\ub2e4.)<\/p>\n\n\n\n<h3 class=\"wp-block-heading\"><strong>R \uc2dc\uac01\ud654 \ucf54\ub4dc<\/strong><\/h3>\n\n\n\n<pre class=\"wp-block-code\"><code># \ud544\uc694\ud55c \ub77c\uc774\ube0c\ub7ec\ub9ac \ub85c\ub4dc\nlibrary(ggplot2)\nlibrary(dplyr)\nlibrary(tidyr)\nlibrary(patchwork)\nlibrary(ggrepel)\n\n# \ub370\uc774\ud130 \uc0dd\uc131: \ud569\uacc4\ucd9c\uc0b0\uc728\ntfr_data &lt;- data.frame(\n    Year = 2018:2024,\n    TFR = c(0.977, 0.918, 0.837, 0.808, 0.778, 0.720, 0.701)\n)\n\n# \ub370\uc774\ud130 \uc0dd\uc131: \uacb0\ud63c \ucd9c\uc0b0 \uc778\uc2dd \ubcc0\ud654\nopinion_data &lt;- data.frame(\n    Year = c(2018, 2020, 2022, 2024),\n    Strongly_Agree = c(25.4, 25.5, 21.6, 23.4),\n    Somewhat_Agree = c(44.1, 42.6, 43.8, 44.9),\n    Somewhat_Disagree = c(21.9, 22.1, 23.9, 22.7),\n    Strongly_Disagree = c(8.6, 9.8, 10.8, 9.0)\n)\n\n# \uae34 \ud615\uc2dd\uc73c\ub85c \ubcc0\ud658\nopinion_long &lt;- opinion_data %&gt;%\n    pivot_longer(\n        cols = starts_with(\"Strongly\") | starts_with(\"Somewhat\"),\n        names_to = \"Opinion\",\n        values_to = \"Percentage\"\n    )\n\n# \uacb0\ud569 \ub370\uc774\ud130 \uc0dd\uc131\nmerged_data &lt;- left_join(opinion_long, tfr_data, by = \"Year\")\n\n# \uc0c1\uad00\uad00\uacc4 \ubd84\uc11d\uc744 \uc704\ud55c \ub370\uc774\ud130 \uc900\ube44\ncorrelation_data &lt;- opinion_data %&gt;%\n    select(-Year) %&gt;%\n    mutate(TFR = tfr_data$TFR&#91;match(opinion_data$Year, tfr_data$Year)])\n\n# \uc0c1\uad00\uacc4\uc218 \uacc4\uc0b0\ncor_matrix &lt;- cor(correlation_data, use = \"complete.obs\")\ncor_data &lt;- as.data.frame(cor_matrix&#91;\"TFR\", ])\ncor_data$Variable &lt;- rownames(cor_data)\ncolnames(cor_data)&#91;1] &lt;- \"TFR\"\ncor_data &lt;- cor_data %&gt;%\n    filter(Variable != \"TFR\") %&gt;%\n    arrange(desc(abs(TFR)))\n\n# \uc0c1\uad00\uad00\uacc4 \uc2dc\uac01\ud654\ncorrelation_plot &lt;- ggplot(cor_data, aes(x = reorder(Variable, abs(TFR)), y = TFR)) +\n    geom_bar(stat = \"identity\", aes(fill = TFR), width = 0.6) +\n    scale_fill_gradient2(\n        low = \"#D73027\",\n        mid = \"white\",\n        high = \"#1A9850\",\n        midpoint = 0\n    ) +\n    geom_text(\n        aes(label = sprintf(\"%.3f\", TFR)),\n        vjust = ifelse(cor_data$TFR &gt;= 0, -0.5, 1.5),\n        size = 4\n    ) +\n    labs(\n        title = \"Correlation Analysis: TFR vs Opinion Categories\",\n        x = \"Opinion Category\",\n        y = \"Correlation Coefficient\"\n    ) +\n    coord_flip() +\n    theme_minimal() +\n    theme(\n        axis.text = element_text(size = 10),\n        axis.title = element_text(size = 12, face = \"bold\"),\n        plot.title = element_text(size = 14, face = \"bold\"),\n        legend.position = \"none\"\n    )\n\n# \uc0b0\uc810\ub3c4 \ub9e4\ud2b8\ub9ad\uc2a4 \uc0dd\uc131\nscatter_matrix &lt;- ggplot(merged_data, aes(x = TFR, y = Percentage)) +\n    geom_point(aes(color = Opinion), size = 3, alpha = 0.6) +\n    geom_smooth(aes(color = Opinion), method = \"lm\", se = FALSE, linetype = \"dashed\") +\n    scale_color_manual(\n        values = c(\n            \"Strongly_Agree\" = \"#1F78B4\",\n            \"Somewhat_Agree\" = \"#33A02C\",\n            \"Somewhat_Disagree\" = \"#FB9A99\",\n            \"Strongly_Disagree\" = \"#E31A1C\"\n        )\n    ) +\n    labs(\n        title = \"TFR vs Opinion Categories Relationship\",\n        x = \"Total Fertility Rate\",\n        y = \"Percentage (%)\"\n    ) +\n    theme_minimal() +\n    theme(\n        legend.position = \"bottom\",\n        plot.title = element_text(size = 14, face = \"bold\"),\n        axis.title = element_text(size = 12, face = \"bold\")\n    )\n\n# \uc2dc\uac01\ud654 \ucd9c\ub825\nprint(correlation_plot)\nprint(scatter_matrix)<\/code><\/pre>\n\n\n\n<h2 class=\"wp-block-heading\">\ubd84\uc11d \ubc0f \uc778\uc0ac\uc774\ud2b8<\/h2>\n\n\n<style>.kb-image4217_b6b6f9-1e .kb-image-has-overlay:after{opacity:0.3;border-top-left-radius:5px;border-top-right-radius:5px;border-bottom-right-radius:5px;border-bottom-left-radius:5px;}.kb-image4217_b6b6f9-1e img.kb-img, .kb-image4217_b6b6f9-1e .kb-img img{border-top-left-radius:5px;border-top-right-radius:5px;border-bottom-right-radius:5px;border-bottom-left-radius:5px;box-shadow:0px 0px 14px 0px rgba(0, 0, 0, 0.2);}<\/style>\n<div class=\"wp-block-kadence-image kb-image4217_b6b6f9-1e\"><figure class=\"aligncenter size-full\"><img decoding=\"async\" width=\"1168\" height=\"615\" src=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-2-1.jpg\" alt=\"\ud569\uacc4\ucd9c\uc0b0\uc728 \ucd94\uc774\uc640 \uacb0\ud63c \ucd9c\uc0b0 \uc778\uc2dd \ubcc0\ud654 \uc0c1\uad00\uacc4\uc218 \uc774\ubbf8\uc9c0\" class=\"kb-img wp-image-4218\" srcset=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-2-1.jpg 1168w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-2-1-300x158.jpg 300w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-2-1-600x316.jpg 600w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-2-1-768x404.jpg 768w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-2-1-18x9.jpg 18w\" sizes=\"(max-width: 1168px) 100vw, 1168px\" \/><figcaption>( \ud569\uacc4\ucd9c\uc0b0\uc728 \ucd94\uc774\uc640 \uacb0\ud63c \ucd9c\uc0b0 \uc778\uc2dd \ubcc0\ud654 \uc0c1\uad00\uacc4\uc218 \uc774\ubbf8\uc9c0 )<\/figcaption><\/figure><\/div>\n\n\n\n<h3 class=\"wp-block-heading\">1. TFR\uacfc \uc0ac\ud68c\uc801 \uc778\uc2dd \uac04 \uc0c1\uad00\uad00\uacc4 \ubd84\uc11d<\/h3>\n\n\n\n<ul class=\"wp-block-list\">\n<li><strong>\uae0d\uc815\uc801 \uc758\uacac(Agree)\uacfc\uc758 \uc0c1\uad00\uad00\uacc4<\/strong>:\n<ul class=\"wp-block-list\">\n<li>&#8220;Strongly Agree&#8221;\ub294 TFR\uacfc \uac00\uc7a5 \ub192\uc740 \uc0c1\uad00\uacc4\uc218(0.644)\ub97c \ubcf4\uc774\uba70, \uacb0\ud63c\uacfc \ucd9c\uc0b0\uc5d0 \ub300\ud55c \uac15\ud55c \uae0d\uc815\uc801 \uacac\ud574\uac00 \ucd9c\uc0b0\uc728 \uc0c1\uc2b9\uacfc \ubc00\uc811\ud55c \uad00\uacc4\uac00 \uc788\uc74c\uc744 \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/li>\n\n\n\n<li>&#8220;Somewhat Agree&#8221;\uc758 \uc0c1\uad00\uacc4\uc218\ub294 -0.314\ub85c, \uae0d\uc815\uc801\uc774\uc9c0\ub9cc \ub2e4\uc18c \uc720\ubcf4\uc801\uc778 \uc758\uacac\uc740 TFR\uc5d0 \uc0c1\ub300\uc801\uc73c\ub85c \uc801\uc740 \uc601\ud5a5\uc744 \ubbf8\uce58\ub294 \uac83\uc73c\ub85c \ub098\ud0c0\ub0ac\uc2b5\ub2c8\ub2e4.<\/li>\n<\/ul>\n<\/li>\n\n\n\n<li><strong>\ubd80\uc815\uc801 \uc758\uacac(Disagree)\uacfc\uc758 \uc0c1\uad00\uad00\uacc4<\/strong>:\n<ul class=\"wp-block-list\">\n<li>&#8220;Somewhat Disagree&#8221;\uc640 &#8220;Strongly Disagree&#8221;\ub294 \uac01\uac01 -0.589\uc640 -0.388\uc758 \uc0c1\uad00\uacc4\uc218\ub97c \ubcf4\uc774\uba70, \ubd80\uc815\uc801 \uc758\uacac\uc774 \ud655\uc0b0\ub420\uc218\ub85d TFR \uac10\uc18c\uc5d0 \uae30\uc5ec\ud558\uace0 \uc788\uc74c\uc744 \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/li>\n\n\n\n<li>\ud2b9\ud788 &#8220;Somewhat Disagree&#8221;\uc758 \uc0c1\uad00\uacc4\uc218\uac00 \uac00\uc7a5 \ub192\uc544, \uac15\ud55c \ubd80\uc815\ubcf4\ub2e4\ub294 \ubd80\ubd84\uc801\uc778 \ubd80\uc815 \uc758\uacac\uc774 \ucd9c\uc0b0\uc728 \uac10\uc18c\uc5d0 \ub354 \ud070 \uc601\ud5a5\uc744 \ubbf8\uce60 \uac00\ub2a5\uc131\uc744 \uc2dc\uc0ac\ud569\ub2c8\ub2e4.<\/li>\n<\/ul>\n<\/li>\n<\/ul>\n\n\n<style>.kb-image4217_c058f4-17 .kb-image-has-overlay:after{opacity:0.3;border-top-left-radius:5px;border-top-right-radius:5px;border-bottom-right-radius:5px;border-bottom-left-radius:5px;}.kb-image4217_c058f4-17 img.kb-img, .kb-image4217_c058f4-17 .kb-img img{border-top-left-radius:5px;border-top-right-radius:5px;border-bottom-right-radius:5px;border-bottom-left-radius:5px;box-shadow:0px 0px 14px 0px rgba(0, 0, 0, 0.2);}<\/style>\n<div class=\"wp-block-kadence-image kb-image4217_c058f4-17\"><figure class=\"aligncenter size-full\"><img decoding=\"async\" width=\"1168\" height=\"615\" src=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-2-2.jpg\" alt=\"\ucd9c\uc0b0\ud569\uacc4\uc728\uacfc \uacb0\ud63c \ucd9c\uc0b0 \uc778\uc2dd \ubcc0\ud654 \ub370\uc774\ud130 \uac04\uc758 \uc0b0\uc810\ub3c4\" class=\"kb-img wp-image-4220\" srcset=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-2-2.jpg 1168w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-2-2-300x158.jpg 300w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-2-2-600x316.jpg 600w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-2-2-768x404.jpg 768w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-2-2-18x9.jpg 18w\" sizes=\"(max-width: 1168px) 100vw, 1168px\" \/><figcaption>( \ucd9c\uc0b0\ud569\uacc4\uc728\uacfc \uacb0\ud63c \ucd9c\uc0b0 \uc778\uc2dd \ubcc0\ud654 \ub370\uc774\ud130 \uac04\uc758 \uc0b0\uc810\ub3c4 )<\/figcaption><\/figure><\/div>\n\n\n\n<h3 class=\"wp-block-heading\">2. \uc0c1\uad00\ubd84\uc11d\uc744 \ud1b5\ud55c \uc0ac\ud68c\uc801 \uc778\uc2dd\uacfc TFR \uac04 \uad00\uacc4<\/h3>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\uc0c1\uad00\ubd84\uc11d \uacb0\uacfc\ub97c \uc2dc\uac01\ud654\ud55c <strong>Correlation Plot<\/strong>\uc5d0\uc11c\ub294 &#8220;Strongly Agree&#8221;\uc640 TFR \uac04\uc758 \uac15\ud55c \uc591\uc758 \uc0c1\uad00\uad00\uacc4\uac00 \uac15\uc870\ub429\ub2c8\ub2e4.<\/li>\n\n\n\n<li><strong>Scatter Matrix Plot<\/strong>\uc5d0\uc11c\ub294 TFR\uacfc \ub2e4\uc591\ud55c \uc758\uacac \ubc94\uc8fc \uac04\uc758 \ubd84\ud3ec\uc640 \uad00\uacc4\uac00 \uba85\ud655\ud788 \ub4dc\ub7ec\ub0a9\ub2c8\ub2e4. \ud2b9\ud788 \uae0d\uc815\uc801 \uc758\uacac\uc774 \ub192\uc744\uc218\ub85d TFR\uc774 \uc0c1\uc2b9\ud558\ub294 \uacbd\ud5a5\uc774 \ub098\ud0c0\ub098\uba70, \ubd80\uc815\uc801 \uc758\uacac\uc774 \ub9ce\uc744\uc218\ub85d \ucd9c\uc0b0\uc728 \uac10\uc18c \uacbd\ud5a5\uc774 \uac15\ud654\ub418\ub294 \ud328\ud134\uc744 \ud655\uc778\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/li>\n<\/ul>\n\n\n\n<h2 class=\"wp-block-heading\">\uacb0\ub860 \ubc0f \uc815\ucc45\uc801 \uc81c\uc5b8<\/h2>\n\n\n<style>.kb-image4217_7358fa-dc .kb-image-has-overlay:after{opacity:0.3;border-top-left-radius:5px;border-top-right-radius:5px;border-bottom-right-radius:5px;border-bottom-left-radius:5px;}.kb-image4217_7358fa-dc img.kb-img, .kb-image4217_7358fa-dc .kb-img img{border-top-left-radius:5px;border-top-right-radius:5px;border-bottom-right-radius:5px;border-bottom-left-radius:5px;box-shadow:0px 0px 14px 0px rgba(0, 0, 0, 0.2);}<\/style>\n<div class=\"wp-block-kadence-image kb-image4217_7358fa-dc\"><figure class=\"aligncenter size-medium_large\"><img decoding=\"async\" width=\"768\" height=\"694\" src=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-2-768x694.png\" alt=\"\ucd9c\uc0b0\uc728 \ubb38\uc81c \ud574\uacb0 \uc694\uc57d \uadf8\ub9bc\" class=\"kb-img wp-image-4221\" srcset=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-2-768x694.png 768w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-2-300x271.png 300w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-2-600x542.png 600w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-2-13x12.png 13w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-2.png 866w\" sizes=\"(max-width: 768px) 100vw, 768px\" \/><\/figure><\/div>\n\n\n\n<h4 class=\"wp-block-heading\">1. \ucd9c\uc0b0\uc728 \uac10\uc18c\uc5d0 \ub300\ud55c \ub2e4\uac01\uc801 \uc811\uadfc \ud544\uc694<\/h4>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\ucd9c\uc0b0\uc728 \uac10\uc18c\ub294 \ub2e8\uc21c\ud788 \uacbd\uc81c\uc801 \uc9c0\uc6d0\uc73c\ub85c \ud574\uacb0\ud560 \uc218 \uc5c6\ub294 \ub2e4\uce35\uc801 \ubb38\uc81c\uc785\ub2c8\ub2e4. <strong>\uc0ac\ud68c\uc801 \uc778\uc2dd \ubcc0\ud654<\/strong>\uc640 <strong>\uc815\ucc45\uc801 \uc9c0\uc6d0<\/strong>\uc774 \ubcd1\ud589\ub418\uc5b4\uc57c \ud569\ub2c8\ub2e4.<\/li>\n\n\n\n<li>\uc8fc\uc694 \uc815\ucc45 \ubc29\ud5a5:\n<ul class=\"wp-block-list\">\n<li>\uc8fc\uac70 \uc548\uc815\ud654: \uc8fc\ud0dd \ube44\uc6a9 \ubd80\ub2f4\uc744 \uc904\uc5ec \uc548\uc815\uc801\uc778 \uac00\uc815\uc744 \uafb8\ub9b4 \uc218 \uc788\ub294 \ud658\uacbd\uc744 \uc870\uc131.<\/li>\n\n\n\n<li>\uc591\uc721\ube44 \uc9c0\uc6d0 \ud655\ub300: \uacf5\uacf5 \ubcf4\uc721 \uc2dc\uc2a4\ud15c \uac15\ud654\uc640 \uc591\uc721\ube44 \ubcf4\uc870\uae08 \uc9c0\uae09.<\/li>\n\n\n\n<li>\uc77c\uacfc \uac00\uc815\uc758 \uade0\ud615 \uc9c0\uc6d0: \uc721\uc544\ud734\uc9c1 \uc81c\ub3c4 \uac1c\uc120\uacfc \uc5ec\uc131 \uacbd\ub825 \ub2e8\uc808 \ubc29\uc9c0.<\/li>\n<\/ul>\n<\/li>\n<\/ul>\n\n\n\n<h4 class=\"wp-block-heading\">2. \uae0d\uc815\uc801 \uc778\uc2dd \ud655\ub300\ub97c \uc704\ud55c \ub178\ub825<\/h4>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\uacb0\ud63c\uacfc \ucd9c\uc0b0\uc5d0 \ub300\ud55c \uae0d\uc815\uc801 \uba54\uc2dc\uc9c0\ub97c \ud655\uc0b0\uc2dc\ud0a4\ub294 <strong>\ucea0\ud398\uc778<\/strong>\uacfc <strong>\uc0ac\ud68c\uc801 \ub2f4\ub860<\/strong>\uc744 \uac15\ud654\ud574\uc57c \ud569\ub2c8\ub2e4.<\/li>\n\n\n\n<li>\ud2b9\ud788, \uc80a\uc740 \uc138\ub300\ub97c \ub300\uc0c1\uc73c\ub85c \ucd9c\uc0b0\uacfc \uacb0\ud63c\uc758 \uae0d\uc815\uc801 \uce21\uba74\uc744 \uc54c\ub9ac\uace0, \uc120\ud0dd\uad8c\uc744 \uc874\uc911\ud558\ub294 \ud658\uacbd\uc744 \ub9cc\ub4e4\uc5b4\uc57c \ud569\ub2c8\ub2e4.<\/li>\n<\/ul>\n\n\n\n<h4 class=\"wp-block-heading\">3. \ubd80\uc815\uc801 \uc758\uacac \uc644\ud654<\/h4>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\uacb0\ud63c\uacfc \ucd9c\uc0b0\uc744 \uc8fc\uc800\ud558\uac8c \ub9cc\ub4dc\ub294 \uc0ac\ud68c\uc801, \uacbd\uc81c\uc801, \ubb38\ud654\uc801 \uc694\uc778\uc744 \ubd84\uc11d\ud558\uace0, \uc774\ub97c \ud574\uacb0\ud558\uae30 \uc704\ud55c \uadfc\ubcf8\uc801\uc778 \uc811\uadfc\uc774 \ud544\uc694\ud569\ub2c8\ub2e4.<\/li>\n\n\n\n<li>\ucd9c\uc0b0\uacfc \uacb0\ud63c\uc774 \uac1c\uc778\uc801 \ud76c\uc0dd\uc774 \uc544\ub2cc, \uac1c\uc778\uc758 \uc131\uc7a5\uacfc \ub9cc\uc871\uc744 \uac00\uc838\uc624\ub294 \uacfc\uc815\uc73c\ub85c \uc778\uc2dd\ub420 \uc218 \uc788\ub3c4\ub85d \ud574\uc57c \ud569\ub2c8\ub2e4.<\/li>\n<\/ul>\n\n\n\n<h4 class=\"wp-block-heading\">4. \ub370\uc774\ud130 \uae30\ubc18 \uc815\ucc45 \uc218\ub9bd<\/h4>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\uc0c1\uad00\ubd84\uc11d \uacb0\uacfc\ub294 \uc0ac\ud68c\uc801 \uc778\uc2dd \ubcc0\ud654\uac00 \ucd9c\uc0b0\uc728\uc5d0 \uc2e4\uc9c8\uc801\uc778 \uc601\ud5a5\uc744 \ubbf8\uce58\uace0 \uc788\uc74c\uc744 \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/li>\n\n\n\n<li>\ub370\uc774\ud130\ub97c \uc9c0\uc18d\uc801\uc73c\ub85c \ubaa8\ub2c8\ud130\ub9c1\ud558\uace0, \uc774\ub97c \uae30\ubc18\uc73c\ub85c \ud55c \uc815\ucc45 \uc218\ub9bd\uc740 \ud5a5\ud6c4 \ucd9c\uc0b0\uc728 \uc548\uc815\ud654\uc5d0 \ud070 \uae30\uc5ec\ub97c \ud560 \uac83\uc785\ub2c8\ub2e4.<\/li>\n<\/ul>\n\n\n\n<p class=\"wp-block-paragraph\">\uc704 \ubd84\uc11d\uacfc \uc2dc\uac01\ud654\ub97c \ud1b5\ud574 \uacb0\ud63c\uacfc \ucd9c\uc0b0\uc5d0 \ub300\ud55c \uc778\uc2dd \ubcc0\ud654\uac00 \ucd9c\uc0b0\uc728\uc5d0 \uc5b4\ub5a4 \uc601\ud5a5\uc744 \ubbf8\uce58\ub294\uc9c0 \uba85\ud655\ud788 \uc774\ud574\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4. \uc774\ub97c \uae30\ubc18\uc73c\ub85c \uc0ac\ud68c\uc801 \ub17c\uc758\uc640 \uc815\ucc45\uc774 \ubcf4\ub2e4 \uc2ec\uce35\uc801\uc774\uace0 \ud6a8\uacfc\uc801\uc73c\ub85c \uc804\uac1c\ub418\uae38 \uae30\ub300\ud569\ub2c8\ub2e4.<\/p>\n\n\n\n<h3 class=\"wp-block-heading\"># \ucf54\ub4dc \uc0c1\uc138\ud574\uc124<\/h3>\n\n\n\n<blockquote class=\"wp-block-quote is-layout-flow wp-block-quote-is-layout-flow\">\n<h4 class=\"wp-block-heading\">\ud544\uc694\ud55c \ub77c\uc774\ube0c\ub7ec\ub9ac \ub85c\ub4dc<\/h4>\n\n\n\n<pre class=\"wp-block-code\"><code>library(ggplot2)\nlibrary(dplyr)\nlibrary(tidyr)\nlibrary(patchwork)\nlibrary(ggrepel)\n<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li><strong>ggplot2<\/strong>: \ub370\uc774\ud130 \uc2dc\uac01\ud654\ub97c \uc704\ud55c R\uc758 \ub300\ud45c\uc801\uc778 \uadf8\ub798\ud504 \ud328\ud0a4\uc9c0.<\/li>\n\n\n\n<li><strong>dplyr<\/strong>: \ub370\uc774\ud130 \uc870\uc791\uacfc \ubcc0\ud658\uc744 \uc27d\uac8c \ud574\uc8fc\ub294 \ud328\ud0a4\uc9c0.<\/li>\n\n\n\n<li><strong>tidyr<\/strong>: \ub370\uc774\ud130\ub97c \uae34 \ud615\uc2dd\uc73c\ub85c \ubcc0\ud658\ud558\uac70\ub098 \uc815\ub9ac\ud558\ub294 \ub370 \uc0ac\uc6a9.<\/li>\n\n\n\n<li><strong>patchwork<\/strong>: \uc5ec\ub7ec \uadf8\ub798\ud504\ub97c \ud558\ub098\uc758 \ub808\uc774\uc544\uc6c3\uc73c\ub85c \uacb0\ud569\ud560 \ub54c \uc0ac\uc6a9.<\/li>\n\n\n\n<li><strong>ggrepel<\/strong>: \uadf8\ub798\ud504\uc5d0\uc11c \uacb9\uce58\uc9c0 \uc54a\ub294 \ub808\uc774\ube14\uc744 \ucd94\uac00\ud558\uae30 \uc704\ud574 \uc0ac\uc6a9.<\/li>\n<\/ul>\n\n\n\n<h4 class=\"wp-block-heading\">\ub370\uc774\ud130 \uc0dd\uc131: \ud569\uacc4\ucd9c\uc0b0\uc728<\/h4>\n\n\n\n<pre class=\"wp-block-code\"><code>tfr_data &lt;- data.frame(\n    Year = 2018:2024,\n    TFR = c(0.977, 0.918, 0.837, 0.808, 0.778, 0.720, 0.701)\n)\n<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li><code>Year<\/code>: 2018\ub144\ubd80\ud130 2024\ub144\uae4c\uc9c0\uc758 \uc5f0\ub3c4.<\/li>\n\n\n\n<li><code>TFR<\/code>: \ud574\ub2f9 \uc5f0\ub3c4\uc758 \ud569\uacc4\ucd9c\uc0b0\uc728 \ub370\uc774\ud130\ub97c \uac00\uc0c1\uc758 \uac12\uc73c\ub85c \uc0dd\uc131.<\/li>\n<\/ul>\n\n\n\n<h4 class=\"wp-block-heading\">\ub370\uc774\ud130 \uc0dd\uc131: \uacb0\ud63c\u00b7\ucd9c\uc0b0 \uc778\uc2dd \ubcc0\ud654<\/h4>\n\n\n\n<pre class=\"wp-block-code\"><code>opinion_data &lt;- data.frame(\n    Year = c(2018, 2020, 2022, 2024),\n    Strongly_Agree = c(25.4, 25.5, 21.6, 23.4),\n    Somewhat_Agree = c(44.1, 42.6, 43.8, 44.9),\n    Somewhat_Disagree = c(21.9, 22.1, 23.9, 22.7),\n    Strongly_Disagree = c(8.6, 9.8, 10.8, 9.0)\n)\n<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li><code>Year<\/code>: \uc758\uacac \ubcc0\ud654\uac00 \uce21\uc815\ub41c \uc5f0\ub3c4.<\/li>\n\n\n\n<li>\ub124 \uac1c\uc758 \uc758\uacac \ubc94\uc8fc(<code>Strongly_Agree<\/code>, <code>Somewhat_Agree<\/code>, <code>Somewhat_Disagree<\/code>, <code>Strongly_Disagree<\/code>)\uc5d0 \ub300\ud55c \ube44\uc728(%) \ub370\uc774\ud130\ub97c \uc0dd\uc131.<\/li>\n<\/ul>\n\n\n\n<h4 class=\"wp-block-heading\">\uae34 \ud615\uc2dd\uc73c\ub85c \ubcc0\ud658<\/h4>\n\n\n\n<pre class=\"wp-block-code\"><code>opinion_long &lt;- opinion_data %&gt;%\n    pivot_longer(\n        cols = starts_with(\"Strongly\") | starts_with(\"Somewhat\"),\n        names_to = \"Opinion\",\n        values_to = \"Percentage\"\n    )\n<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li><strong><code>pivot_longer()<\/code><\/strong>: \ub370\uc774\ud130\ub97c &#8220;\uae34 \ud615\uc2dd&#8221;\uc73c\ub85c \ubcc0\ud658\ud558\uc5ec <code>Opinion<\/code> \uc5f4\uc5d0 \uc758\uacac \ubc94\uc8fc\ub97c, <code>Percentage<\/code> \uc5f4\uc5d0 \uac01 \uc758\uacac\uc758 \ube44\uc728\uc744 \uc800\uc7a5.\n<ul class=\"wp-block-list\">\n<li><code>cols = starts_with(\"Strongly\") | starts_with(\"Somewhat\")<\/code>: \uc5f4 \uc774\ub984\uc774 <code>Strongly<\/code> \ub610\ub294 <code>Somewhat<\/code>\ub85c \uc2dc\uc791\ud558\ub294 \uc5f4\uc744 \ubcc0\ud658 \ub300\uc0c1\uc73c\ub85c \uc9c0\uc815.<\/li>\n\n\n\n<li><code>names_to = \"Opinion\"<\/code>: \uc758\uacac \ubc94\uc8fc\ub97c <code>Opinion<\/code> \uc5f4\uc5d0 \uc800\uc7a5.<\/li>\n\n\n\n<li><code>values_to = \"Percentage\"<\/code>: \uac01 \ubc94\uc8fc\uc758 \ube44\uc728 \uac12\uc744 <code>Percentage<\/code> \uc5f4\uc5d0 \uc800\uc7a5.<\/li>\n<\/ul>\n<\/li>\n<\/ul>\n\n\n\n<h4 class=\"wp-block-heading\">\uacb0\ud569 \ub370\uc774\ud130 \uc0dd\uc131<\/h4>\n\n\n\n<pre class=\"wp-block-code\"><code>merged_data &lt;- left_join(opinion_long, tfr_data, by = \"Year\")\n<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li><code>left_join<\/code>: \ub450 \ub370\uc774\ud130\ud504\ub808\uc784(<code>opinion_long<\/code>\uacfc <code>tfr_data<\/code>)\uc744 <code>Year<\/code>\ub97c \uae30\uc900\uc73c\ub85c \uacb0\ud569.<\/li>\n\n\n\n<li>\uacb0\uacfc\uc801\uc73c\ub85c, \uac01 \uc5f0\ub3c4\ubcc4\ub85c \uc758\uacac \ube44\uc728(<code>Percentage<\/code>)\uacfc \ud569\uacc4\ucd9c\uc0b0\uc728(<code>TFR<\/code>)\uc774 \ud3ec\ud568\ub41c \ub370\uc774\ud130\ud504\ub808\uc784\uc744 \uc0dd\uc131.<\/li>\n<\/ul>\n\n\n\n<h4 class=\"wp-block-heading\">\uc0c1\uad00\uad00\uacc4 \ubd84\uc11d\uc744 \uc704\ud55c \ub370\uc774\ud130 \uc900\ube44<\/h4>\n\n\n\n<pre class=\"wp-block-code\"><code>correlation_data &lt;- opinion_data %&gt;%\n    select(-Year) %&gt;%\n    mutate(TFR = tfr_data$TFR&#91;match(opinion_data$Year, tfr_data$Year)])\n<\/code><\/pre>\n\n\n\n<ol class=\"wp-block-list\">\n<li><strong><code>select(-Year)<\/code><\/strong>: <code>Year<\/code> \uc5f4\uc744 \uc81c\uc678\ud55c \ub370\uc774\ud130\ud504\ub808\uc784\uc744 \uc0dd\uc131.<\/li>\n\n\n\n<li><strong><code>mutate(TFR = ...)<\/code><\/strong>: <code>TFR<\/code> \uc5f4\uc744 \ucd94\uac00. <code>match<\/code>\ub97c \uc0ac\uc6a9\ud558\uc5ec <code>opinion_data<\/code>\uc640 <code>tfr_data<\/code>\uc758 \uc5f0\ub3c4\ub97c \ub9e4\uce6d\uc2dc\ucf1c <code>TFR<\/code> \uac12\uc744 \uac00\uc838\uc634.<\/li>\n<\/ol>\n\n\n\n<h4 class=\"wp-block-heading\">\uc0c1\uad00\uacc4\uc218 \uacc4\uc0b0<\/h4>\n\n\n\n<pre class=\"wp-block-code\"><code>cor_matrix &lt;- cor(correlation_data, use = \"complete.obs\")\ncor_data &lt;- as.data.frame(cor_matrix&#91;\"TFR\", ])\ncor_data$Variable &lt;- rownames(cor_data)\ncolnames(cor_data)&#91;1] &lt;- \"TFR\"\ncor_data &lt;- cor_data %&gt;%\n    filter(Variable != \"TFR\") %&gt;%\n    arrange(desc(abs(TFR)))\n<\/code><\/pre>\n\n\n\n<ol class=\"wp-block-list\">\n<li><strong><code>cor()<\/code><\/strong>: \uc0c1\uad00\uacc4\uc218 \ud589\ub82c\uc744 \uacc4\uc0b0. <code>use = \"complete.obs\"<\/code>\ub294 \uacb0\uce21\uce58\ub97c \uc81c\uc678\ud558\uace0 \uacc4\uc0b0.<\/li>\n\n\n\n<li><strong><code>cor_matrix[\"TFR\", ]<\/code><\/strong>: <code>TFR<\/code>\uacfc \ub2e4\ub978 \uc5f4 \uc0ac\uc774\uc758 \uc0c1\uad00\uacc4\uc218\ub9cc \ucd94\ucd9c.<\/li>\n\n\n\n<li><strong><code>filter(Variable != \"TFR\")<\/code><\/strong>: <code>TFR<\/code>\uacfc \uc790\uae30 \uc790\uc2e0(TFR)\uc758 \uc0c1\uad00\uacc4\uc218\ub97c \uc81c\uc678.<\/li>\n\n\n\n<li><strong><code>arrange(desc(abs(TFR)))<\/code><\/strong>: \uc808\ub300\uac12 \uae30\uc900\uc73c\ub85c \uc0c1\uad00\uacc4\uc218\ub97c \ub0b4\ub9bc\ucc28\uc21c \uc815\ub82c.<\/li>\n<\/ol>\n\n\n\n<h4 class=\"wp-block-heading\">\uc0c1\uad00\uad00\uacc4 \uc2dc\uac01\ud654<\/h4>\n\n\n\n<pre class=\"wp-block-code\"><code>correlation_plot &lt;- ggplot(cor_data, aes(x = reorder(Variable, abs(TFR)), y = TFR)) +\n    geom_bar(stat = \"identity\", aes(fill = TFR), width = 0.6) +\n    scale_fill_gradient2(\n        low = \"#D73027\",\n        mid = \"white\",\n        high = \"#1A9850\",\n        midpoint = 0\n    ) +\n    geom_text(\n        aes(label = sprintf(\"%.3f\", TFR)),\n        vjust = ifelse(cor_data$TFR &gt;= 0, -0.5, 1.5),\n        size = 4\n    ) +\n    labs(\n        title = \"Correlation Analysis: TFR vs Opinion Categories\",\n        x = \"Opinion Category\",\n        y = \"Correlation Coefficient\"\n    ) +\n    coord_flip() +\n    theme_minimal()\n<\/code><\/pre>\n\n\n\n<ol class=\"wp-block-list\">\n<li><strong><code>aes(x = reorder(Variable, abs(TFR)), y = TFR)<\/code><\/strong>: \uc0c1\uad00\uacc4\uc218\ub97c \uc808\ub300\uac12 \uae30\uc900\uc73c\ub85c \uc815\ub82c\ud558\uc5ec \uadf8\ub798\ud504 \ucd95\uc5d0 \ubc30\uce58.<\/li>\n\n\n\n<li><strong><code>geom_bar()<\/code><\/strong>: \ub9c9\ub300 \uadf8\ub798\ud504 \uc0dd\uc131.<\/li>\n\n\n\n<li><strong><code>scale_fill_gradient2()<\/code><\/strong>: \uc0c9\uc0c1\uc744 \uc0c1\uad00\uacc4\uc218 \uac12\uc5d0 \ub530\ub77c \ubcc0\ud658(\uc591\uc218\ub294 \ub179\uc0c9, \uc74c\uc218\ub294 \ube68\uac04\uc0c9).<\/li>\n\n\n\n<li><strong><code>geom_text()<\/code><\/strong>: \uc0c1\uad00\uacc4\uc218\ub97c \uadf8\ub798\ud504\uc5d0 \ud14d\uc2a4\ud2b8\ub85c \ucd94\uac00.<\/li>\n\n\n\n<li><strong><code>coord_flip()<\/code><\/strong>: X\ucd95\uacfc Y\ucd95\uc744 \ub4a4\uc9d1\uc5b4 \uac00\ub85c\ud615 \ub9c9\ub300 \uadf8\ub798\ud504 \uc0dd\uc131.<\/li>\n<\/ol>\n\n\n\n<h4 class=\"wp-block-heading\">\uc0b0\uc810\ub3c4 \ub9e4\ud2b8\ub9ad\uc2a4 \uc0dd\uc131<\/h4>\n\n\n\n<pre class=\"wp-block-code\"><code>scatter_matrix &lt;- ggplot(merged_data, aes(x = TFR, y = Percentage)) +\n    geom_point(aes(color = Opinion), size = 3, alpha = 0.6) +\n    geom_smooth(aes(color = Opinion), method = \"lm\", se = FALSE, linetype = \"dashed\") +\n    geom_text_repel(\n        aes(\n            label = paste0(\"(\", round(TFR, 3), \", \", round(Percentage, 1), \")\"),\n            color = Opinion\n        ),\n        size = 3,\n        box.padding = 0.5,\n        point.padding = 0.3,\n        force = 2,\n        max.overlaps = Inf,\n        show.legend = FALSE\n    ) +\n    labs(\n        title = \"TFR vs Opinion Categories Relationship\",\n        x = \"Total Fertility Rate\",\n        y = \"Percentage (%)\"\n    ) +\n    theme_minimal()\n<\/code><\/pre>\n\n\n\n<ol class=\"wp-block-list\">\n<li><strong><code>geom_point()<\/code><\/strong>: \uc758\uacac\ubcc4 \uc810 \uadf8\ub798\ud504 \uc0dd\uc131.<\/li>\n\n\n\n<li><strong><code>geom_smooth()<\/code><\/strong>: \uac01 \uc758\uacac \ubc94\uc8fc\uc5d0 \ub300\ud574 \uc120\ud615 \ud68c\uadc0\uc120\uc744 \ucd94\uac00.<\/li>\n\n\n\n<li><strong><code>geom_text_repel()<\/code><\/strong>: \uac01 \uc810\uc5d0 \uacb9\uce58\uc9c0 \uc54a\ub294 \ud14d\uc2a4\ud2b8 \ub808\uc774\ube14 \ucd94\uac00. \ud14d\uc2a4\ud2b8\uc5d0\ub294 <code>TFR<\/code>\uacfc <code>Percentage<\/code> \uac12\uc774 \ud45c\uc2dc\ub428.<\/li>\n\n\n\n<li><strong><code>scale_color_manual()<\/code><\/strong>: \uc758\uacac \ubc94\uc8fc\ubcc4\ub85c \uc11c\ub85c \ub2e4\ub978 \uc0c9\uc0c1 \uc9c0\uc815.<\/li>\n<\/ol>\n\n\n\n<h4 class=\"wp-block-heading\">\uacb0\uacfc\ubb3c \ucd9c\ub825<\/h4>\n\n\n\n<pre class=\"wp-block-code\"><code>print(correlation_plot)\nprint(scatter_matrix)\n<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\uac01\uac01 \uc0c1\uad00\uad00\uacc4 \ub9c9\ub300 \uadf8\ub798\ud504\uc640 \uc0b0\uc810\ub3c4\ub97c \ucd9c\ub825\ud558\uc5ec \ub370\uc774\ud130\ub97c \uc2dc\uac01\uc801\uc73c\ub85c \ubd84\uc11d\ud569\ub2c8\ub2e4.<\/li>\n<\/ul>\n<\/blockquote>\n","protected":false},"excerpt":{"rendered":"<p>\u89c2\u5bdf\u603b\u548c\u751f\u80b2\u7387\u7684\u8d8b\u52bf\u662f\u9884\u6d4b\u4e00\u4e2a\u793e\u4f1a\u672a\u6765\u7684\u91cd\u8981\u6307\u6807\u3002<\/p>","protected":false},"author":3,"featured_media":4270,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_kad_blocks_custom_css":"","_kad_blocks_head_custom_js":"","_kad_blocks_body_custom_js":"","_kad_blocks_footer_custom_js":"","_kad_post_transparent":"","_kad_post_title":"","_kad_post_layout":"","_kad_post_sidebar_id":"","_kad_post_content_style":"","_kad_post_vertical_padding":"","_kad_post_feature":"","_kad_post_feature_position":"","_kad_post_header":false,"_kad_post_footer":false,"_kad_post_classname":"","footnotes":""},"categories":[6],"tags":[675,671,164,676,664],"class_list":["post-4217","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-r-coding","tag-r-ggplot2","tag-671","tag-164","tag-676","tag-664"],"taxonomy_info":{"category":[{"value":6,"label":"\uc54c(R)"}],"post_tag":[{"value":675,"label":"R ggplot2"},{"value":671,"label":"\uacb0\ud63c \ucd9c\uc0b0 \uc778\uc2dd"},{"value":164,"label":"\ub370\uc774\ud130 \uc2dc\uac01\ud654"},{"value":676,"label":"\uc0ac\ud68c\uc801 \uc758\uacac"},{"value":664,"label":"\ud569\uacc4\ucd9c\uc0b0\uc728"}]},"featured_image_src_large":["https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/\ucd9c\uc0b0\ud569\uacc4\uc728\uacfc-\uacb0\ud63c-\ucd9c\uc0b0-\uc778\uc2dd-\ubcc0\ud654-\ud3ec\uc2a4\ud2b8-\uc378\ub124\uc77c-600x600.jpg",600,600,true],"author_info":{"display_name":"TERE","author_link":"https:\/\/secondlife.lol\/zh\/author\/tere\/"},"comment_info":0,"category_info":[{"term_id":6,"name":"\uc54c(R)","slug":"r-coding","term_group":0,"term_taxonomy_id":6,"taxonomy":"category","description":"","parent":20,"count":61,"filter":"raw","cat_ID":6,"category_count":61,"category_description":"","cat_name":"\uc54c(R)","category_nicename":"r-coding","category_parent":20}],"tag_info":[{"term_id":675,"name":"R ggplot2","slug":"r-ggplot2","term_group":0,"term_taxonomy_id":675,"taxonomy":"post_tag","description":"","parent":0,"count":1,"filter":"raw"},{"term_id":671,"name":"\uacb0\ud63c \ucd9c\uc0b0 \uc778\uc2dd","slug":"%ea%b2%b0%ed%98%bc-%ec%b6%9c%ec%82%b0-%ec%9d%b8%ec%8b%9d","term_group":0,"term_taxonomy_id":671,"taxonomy":"post_tag","description":"","parent":0,"count":2,"filter":"raw"},{"term_id":164,"name":"\ub370\uc774\ud130 \uc2dc\uac01\ud654","slug":"%eb%8d%b0%ec%9d%b4%ed%84%b0-%ec%8b%9c%ea%b0%81%ed%99%94","term_group":0,"term_taxonomy_id":164,"taxonomy":"post_tag","description":"","parent":0,"count":52,"filter":"raw"},{"term_id":676,"name":"\uc0ac\ud68c\uc801 \uc758\uacac","slug":"%ec%82%ac%ed%9a%8c%ec%a0%81-%ec%9d%98%ea%b2%ac","term_group":0,"term_taxonomy_id":676,"taxonomy":"post_tag","description":"","parent":0,"count":1,"filter":"raw"},{"term_id":664,"name":"\ud569\uacc4\ucd9c\uc0b0\uc728","slug":"%ed%95%a9%ea%b3%84%ec%b6%9c%ec%82%b0%ec%9c%a8","term_group":0,"term_taxonomy_id":664,"taxonomy":"post_tag","description":"","parent":0,"count":2,"filter":"raw"}],"_links":{"self":[{"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/posts\/4217","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/comments?post=4217"}],"version-history":[{"count":5,"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/posts\/4217\/revisions"}],"predecessor-version":[{"id":4225,"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/posts\/4217\/revisions\/4225"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/media\/4270"}],"wp:attachment":[{"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/media?parent=4217"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/categories?post=4217"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/tags?post=4217"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}