{"id":4202,"date":"2024-12-26T21:31:23","date_gmt":"2024-12-26T12:31:23","guid":{"rendered":"https:\/\/secondlife.lol\/?p=4202"},"modified":"2024-12-25T21:32:34","modified_gmt":"2024-12-25T12:32:34","slug":"marriage-birth-stacked-bar-graph","status":"publish","type":"post","link":"https:\/\/secondlife.lol\/zh\/marriage-birth-stacked-bar-graph\/","title":{"rendered":"\u6539\u53d8\u5bf9\u5a5a\u5185\u751f\u80b2\u7684\u770b\u6cd5\uff1a\u7528\u53e0\u52a0\u6761\u5f62\u56fe\u5206\u6790\u6570\u636e"},"content":{"rendered":"<style>.kb-image4202_ea3596-0f .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-image4202_ea3596-0f img.kb-img, .kb-image4202_ea3596-0f .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-image4202_ea3596-0f\"><figure class=\"aligncenter size-full\"><img decoding=\"async\" width=\"1120\" height=\"619\" src=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-1-47.jpg\" alt=\"\uacb0\ud63c \ucd9c\uc0b0 \uc778\uc2dd \ubcc0\ud654 \uc774\ubbf8\uc9c0\" class=\"kb-img wp-image-4203\" srcset=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-1-47.jpg 1120w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-1-47-300x166.jpg 300w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-1-47-600x332.jpg 600w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-1-47-768x424.jpg 768w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-1-47-18x10.jpg 18w\" sizes=\"(max-width: 1120px) 100vw, 1120px\" \/><figcaption>( <a href=\"https:\/\/www.index.go.kr\/unity\/potal\/com\/selectPoMainBBSBordDtlt.do?publ=Y\" target=\"_blank\" rel=\"noopener\">2024 \u5e74\u4f4e\u51fa\u751f\u7387\u65b0\u95fb\u7a3f\u63d2\u56fe<\/a> )<\/figcaption><\/figure><\/div>\n\n\n\n<p class=\"wp-block-paragraph\">\"\u4f60\u8ba4\u4e3a\u4eba\u4eec\u7ed3\u5a5a\u540e\u5e94\u8be5\u8981\u5b69\u5b50\u5417\uff1f\"<br>\u5728\u8fc7\u53bb\uff0c\u6211\u4eec\u4e2d\u7684\u5927\u591a\u6570\u4eba\u90fd\u4f1a\u56de\u7b54 \"\u5f53\u7136\"\uff0c\u4f46\u73b0\u5728\u60c5\u51b5\u6709\u4e9b\u4e0d\u540c\u4e86\u3002 \u7ed3\u5a5a\u751f\u80b2\u4e0d\u518d\u662f\u7406\u6240\u5f53\u7136\u7684\u4e8b\u3002 <strong>\u9009\u62e9\u9886\u57df<\/strong>\u6211\u4eec\u53ef\u4ee5\u4ece\u6570\u636e\u4e2d\u770b\u5230\u8fd9\u79cd\u53d8\u5316\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u5728\u672c\u6587\u4e2d\uff0c\u6211\u4eec\u5c06\u4f7f\u7528 <strong>\u5173\u4e8e\u5bf9\u5a5a\u5185\u751f\u80b2\u7684\u6001\u5ea6\u53d8\u5316\u7684\u6570\u636e<\/strong>\u57fa\u4e8e <strong>\u5229\u7528 R \u4ee3\u7801\u521b\u5efa <a href=\"https:\/\/secondlife.lol\/zh\/national-pension-portfolio-r-visualization\/\" data-type=\"post\" data-id=\"4124\">\u5806\u53e0\u6761\u5f62\u56fe<\/a><\/strong>\u5e76\u63a2\u7d22\u8fd9\u79cd\u53d8\u5316\u610f\u5473\u7740\u4ec0\u4e48\u3002\u8ba9\u6211\u4eec\u4e00\u8d77\u5229\u7528\u6570\u636e\u6765\u4e86\u89e3\u6211\u4eec\u7684\u793e\u4f1a\u6b63\u5728\u53d1\u751f\u600e\u6837\u7684\u53d8\u5316\uff0c\u5e76\u83b7\u5f97\u4e3a\u672a\u6765\u505a\u597d\u51c6\u5907\u6240\u9700\u7684\u6d1e\u5bdf\u529b\u3002<\/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\">\u5173\u4e8e\u5a5a\u59fb\u548c\u751f\u80b2\u7387\u7684\u8c03\u67e5\u6570\u636e<\/h2>\n\n\n\n<p class=\"wp-block-paragraph\">\u4ee5\u4e0b\u662f\u56fd\u5bb6\u7edf\u8ba1\u5c40\u793e\u4f1a\u8c03\u67e5\u63d0\u4f9b\u7684\u4e24\u5e74\u6765 13 \u5c81\u53ca\u4ee5\u4e0a\u4eba\u53e3\u5bf9 \"\u7ed3\u5a5a\u540e\u662f\u5426\u5e94\u8be5\u8981\u5b69\u5b50 \"\u8fd9\u4e00\u95ee\u9898\u7684\u56de\u7b54\u6570\u636e\u3002\u5355\u4f4d\u4e3a %\u3002<\/p>\n\n\n\n<figure class=\"wp-block-table\"><table class=\"has-fixed-layout\"><thead><tr><th class=\"has-text-align-center\" data-align=\"center\">\u5e74\u4efd<\/th><th class=\"has-text-align-center\" data-align=\"center\">\u5b8c\u5168\u540c\u610f<\/th><th class=\"has-text-align-center\" data-align=\"center\">\u6709\u70b9\u540c\u610f<\/th><th class=\"has-text-align-center\" data-align=\"center\">\u7565\u5fae\u76f8\u53cd<\/th><th class=\"has-text-align-center\" data-align=\"center\">\u5b8c\u5168\u76f8\u53cd<\/th><\/tr><\/thead><tbody><tr><td class=\"has-text-align-center\" data-align=\"center\">2018<\/td><td class=\"has-text-align-center\" data-align=\"center\">25.4<\/td><td class=\"has-text-align-center\" data-align=\"center\">44.1<\/td><td class=\"has-text-align-center\" data-align=\"center\">21.9<\/td><td class=\"has-text-align-center\" data-align=\"center\">8.6<\/td><\/tr><tr><td class=\"has-text-align-center\" data-align=\"center\">2020<\/td><td class=\"has-text-align-center\" data-align=\"center\">25.5<\/td><td class=\"has-text-align-center\" data-align=\"center\">42.6<\/td><td class=\"has-text-align-center\" data-align=\"center\">22.1<\/td><td class=\"has-text-align-center\" data-align=\"center\">9.8<\/td><\/tr><tr><td class=\"has-text-align-center\" data-align=\"center\">2022<\/td><td class=\"has-text-align-center\" data-align=\"center\">21.6<\/td><td class=\"has-text-align-center\" data-align=\"center\">43.8<\/td><td class=\"has-text-align-center\" data-align=\"center\">23.9<\/td><td class=\"has-text-align-center\" data-align=\"center\">10.8<\/td><\/tr><tr><td class=\"has-text-align-center\" data-align=\"center\">2024<\/td><td class=\"has-text-align-center\" data-align=\"center\">23.4<\/td><td class=\"has-text-align-center\" data-align=\"center\">44.9<\/td><td class=\"has-text-align-center\" data-align=\"center\">22.7<\/td><td class=\"has-text-align-center\" data-align=\"center\">9.0<\/td><\/tr><\/tbody><\/table><\/figure>\n\n\n\n<h2 class=\"wp-block-heading\">\u6539\u53d8\u5df2\u5a5a\u751f\u80b2\u89c2\u5ff5\u7684\u5f71\u54cd<\/h2>\n\n\n<style>.kb-image4202_c02943-e7.kb-image-is-ratio-size, .kb-image4202_c02943-e7 .kb-image-is-ratio-size{max-width:646px;width:100%;}.wp-block-kadence-column > .kt-inside-inner-col > .kb-image4202_c02943-e7.kb-image-is-ratio-size, .wp-block-kadence-column > .kt-inside-inner-col > .kb-image4202_c02943-e7 .kb-image-is-ratio-size{align-self:unset;}.kb-image4202_c02943-e7 figure{max-width:646px;}.kb-image4202_c02943-e7 .image-is-svg, .kb-image4202_c02943-e7 .image-is-svg img{width:100%;}.kb-image4202_c02943-e7 .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-image4202_c02943-e7 img.kb-img, .kb-image4202_c02943-e7 .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-image4202_c02943-e7\"><figure class=\"aligncenter size-medium_large\"><img decoding=\"async\" width=\"768\" height=\"588\" src=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-1-768x588.png\" alt=\"\uacb0\ud63c \ucd9c\uc0b0 \uc778\uc2dd \ubcc0\ud654 \uc694\uc57d \uadf8\ub9bc\" class=\"kb-img wp-image-4209\" srcset=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-1-768x588.png 768w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-1-300x230.png 300w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-1-600x459.png 600w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-1-16x12.png 16w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-1.png 818w\" sizes=\"(max-width: 768px) 100vw, 768px\" \/><figcaption>(\u5a5a\u5185\u751f\u80b2\u89c2\u5ff5\u53d8\u5316\u7b80\u56fe\uff09<\/figcaption><\/figure><\/div>\n\n\n\n<p class=\"wp-block-paragraph\">\u89c2\u5bdf\u8fd9\u4e9b\u6570\u636e\uff0c\u60a8\u4f1a\u53d1\u73b0\u51e0\u4e2a\u91cd\u8981\u7684\u8d8b\u52bf\u3002<\/p>\n\n\n\n<ol class=\"wp-block-list\">\n<li><strong>\u5b8c\u5168\u540c\u610f\u7684\u767e\u5206\u6bd4\u964d\u4f4e<\/strong>\n<ul class=\"wp-block-list\">\n<li>\u4ece 2018 \u5e74\u7684 25.41 TP3T \u51cf\u5c11\u5230 2024 \u5e74\u7684 23.41 TP3T\u3002<\/li>\n\n\n\n<li>\u8fd9\u8868\u660e\uff0c\u56f4\u7ed5\u5a5a\u59fb\u548c\u751f\u80b2\u7684\u4f20\u7edf\u4ef7\u503c\u89c2\u6b63\u5728\u9010\u6e10\u524a\u5f31\u3002<\/li>\n<\/ul>\n<\/li>\n\n\n\n<li><strong>\u589e\u52a0\u4e0b\u62c9\u6295\u7968<\/strong>\n<ul class=\"wp-block-list\">\n<li>\u8f7b\u5fae\u53cd\u5bf9\u548c\u5b8c\u5168\u53cd\u5bf9\u7684\u6bd4\u4f8b\u90fd\u5728\u589e\u52a0\u3002<\/li>\n\n\n\n<li>\u503c\u5f97\u6ce8\u610f\u7684\u662f\uff0c\u5168\u53cd\u5bf9\u7565\u6709\u4e0a\u5347\uff0c\u4ece 2018 \u5e74\u7684 8.61 TP3T \u4e0a\u5347\u5230 2024 \u5e74\u7684 9.01 TP3T\uff0c\u4f46\u4e00\u76f4\u5728\u7a33\u6b65\u4e0a\u5347\u3002<\/li>\n<\/ul>\n<\/li>\n\n\n\n<li><strong>\u4fdd\u6301\u4e00\u5b9a\u7684\u540c\u610f<\/strong>\n<ul class=\"wp-block-list\">\n<li>\u7a0d\u5fae\u540c\u610f\u7684\u6bd4\u4f8b\u53d8\u5316\u4e0d\u5927\uff0c\u4ece 2018 \u5e74\u7684 44.11 TP3T \u5230 2024 \u5e74\u7684 44.91 TP3T\u3002<\/li>\n\n\n\n<li>\u8fd9\u8868\u660e\uff0c\u8bb8\u591a\u4eba\u4ecd\u7136\u8ba4\u4e3a\u81ea\u5df1 \"\u9700\u8981 \"\u751f\u5b69\u5b50\uff0c\u4f46\u5e76\u4e0d\u575a\u5b9a\u3002<\/li>\n<\/ul>\n<\/li>\n<\/ol>\n\n\n\n<h2 class=\"wp-block-heading\">\u7528 R \u4ee3\u7801\u521b\u5efa\u5806\u53e0\u6761\u5f62\u56fe<\/h2>\n\n\n\n<p class=\"wp-block-paragraph\">\u73b0\u5728\uff0c\u8ba9\u6211\u4eec\u7528\u4e0a\u9762\u7684\u6570\u636e\u5728 R \u4e2d\u521b\u5efa\u4e00\u4e2a\u5806\u53e0\u6761\u5f62\u56fe\uff01\u8be5\u56fe\u53ef\u4ee5\u4e00\u76ee\u4e86\u7136\u5730\u663e\u793a\u53d8\u5316\u7684\u660e\u663e\u7a0b\u5ea6\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code># \u52a0\u8f7d\u6240\u9700\u7684\u5e93\nlibrary(ggplot2)\nlibrary(dplyr)\n\n# \u521b\u5efa\u6570\u636e\u96c6\ndata &lt;- data.frame(\n  Year = c(2018, 2020, 2022, 2024)\u3001\n  Strongly_Agree = c(25.4, 25.5, 21.6, 23.4)\u3001\n  \u6709\u70b9\u540c\u610f = c\uff0844.1, 42.6, 43.8, 44.9\uff09\u3001\n  \u6709\u70b9\u4e0d\u540c\u610f = c(21.9,22.1,23.9,22.7)\u3001\n  \u975e\u5e38\u4e0d\u540c\u610f = c(8.6, 9.8, 10.8, 9.0)\n)\n\n# \u5c06\u6570\u636e\u8f6c\u6362\u4e3a\u957f\u683c\u5f0f\ndata_long %\n  tidyr::pivot_longer(\n    cols = starts_with(\"Strongly_\") | starts_with(\"Somewhat_\")\u3001\n    names_to = \"\u54cd\u5e94\"\u3001\n    values_to = \"\u767e\u5206\u6bd4\"\n  )\n\n# \u8bbe\u7f6e\u56de\u590d\u987a\u5e8f\ndata_long$Response &lt;- factor(\n  data_long$Response\u3001\n  levels = c(&quot;Strongly_Agree&quot;, &quot;Somewhat_Agree&quot;, &quot;Somewhat_Disagree&quot;, &quot;Strongly_Disagree&quot;)\n)\n\n# \u521b\u5efa\u5806\u53e0\u6761\u5f62\u56fe\nggplot(data_long, aes(x = factor(Year), y = Percentage, fill = Response)) +\n  geom_bar(stat = &quot;\u8eab\u4efd&quot;, position = position_stack(reverse = TRUE), color = &quot;black&quot;) +\n  geom_text(aes(label = round(Percentage, 1))\u3001\n            position = position_stack(vjust = 0.5, reverse = TRUE), size = 3.5, color = &quot;white&quot;) +\n  scale_fill_manual(\n    values = c(\n      &quot;Strongly_Agree&quot; = &quot;#74C476&quot;\u3001\n      &quot;\u6709\u70b9\u540c\u610f&quot; = &quot;#31A354&quot;\u3001\n      &quot;\u6709\u70b9\u4e0d\u540c\u610f&quot; = &quot;#FD8D3C&quot;\u3001\n      &quot;\u5f3a\u70c8\u4e0d\u540c\u610f&quot;=&quot;#E31A1C&quot;\uff09\u3002\n    ),\n    labels = c(&quot;Strongly Agree&quot;, &quot;Somewhat Agree&quot;, &quot;Somewhat Disagree&quot;, &quot;Strongly Disagree&quot;)\n  ) + +\n  labs(\n    title = &quot;\u5a5a\u540e\u5bf9\u751f\u5b69\u5b50\u770b\u6cd5\u7684\u53d8\u5316&quot;\u3001\n    x = &quot;\u5e74\u4efd&quot;\u3001\n    y = &quot;\u767e\u5206\u6bd4\uff08%\uff09&quot;\u3001\n    fill = &quot;\u54cd\u5e94&quot;.\n  ) + \u0392\n  theme_minimal() +\n  \u4e3b\u9898(\n    plot.title = element_text(hjust = 0.5, size = 16, face = &quot;bold&quot;)\u3001\n    axis.title = element_text(size = 12)\u3001\n    axis.text = element_text\uff08size = 10\uff09\u3001\n    legend.title = element_text\uff08size = 12\uff09\u3001\n    \u56fe\u4f8b\u6587\u672c = element_text(size = 10)\n  ) +\n  coord_flip()\n<\/code><\/pre>\n\n\n<style>.kb-image4202_7c9c19-6d .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-image4202_7c9c19-6d img.kb-img, .kb-image4202_7c9c19-6d .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-image4202_7c9c19-6d\"><figure class=\"aligncenter size-full\"><img decoding=\"async\" width=\"1049\" height=\"528\" src=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-1-48.jpg\" alt=\"\uacb0\ud63c \ucd9c\uc0b0 \uc778\uc2dd \ubcc0\ud654 - R \uc2dc\uac01\ud654 \ub204\uc801\ub9c9\ub300\uadf8\ub798\ud504\" class=\"kb-img wp-image-4205\" srcset=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-1-48.jpg 1049w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-1-48-300x151.jpg 300w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-1-48-600x302.jpg 600w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-1-48-768x387.jpg 768w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/image-1-48-18x9.jpg 18w\" sizes=\"(max-width: 1049px) 100vw, 1049px\" \/><figcaption>(\u5bf9\u5a5a\u59fb\u751f\u80b2\u7387\u770b\u6cd5\u7684\u53d8\u5316--R \u53ef\u89c6\u5316\u53e0\u52a0\u6761\u5f62\u56fe\uff09<\/figcaption><\/figure><\/div>\n\n\n\n<h2 class=\"wp-block-heading\">\u603b\u7ed3<\/h2>\n\n\n\n<p class=\"wp-block-paragraph\">\u6570\u636e\u53ef\u4ee5\u5e2e\u52a9\u6211\u4eec\u4e86\u89e3\u53d8\u5316\uff0c\u505a\u51fa\u66f4\u597d\u7684\u51b3\u7b56\u3002\u4e0d\u4ec5\u4ec5\u662f\u6570\u5b57\uff0c\u4eba\u4eec\u5bf9\u5a5a\u59fb\u548c\u751f\u80b2\u6001\u5ea6\u7684\u8f6c\u53d8\u4e5f\u6e05\u695a\u5730\u8868\u660e\u4e86\u6211\u4eec\u7684\u793e\u4f1a\u6b63\u5728\u53d1\u751f\u600e\u6837\u7684\u53d8\u5316\uff0c\u5bf9\u4e8e\u653f\u7b56\u5236\u5b9a\u8005\u548c\u4e2a\u4eba\u6765\u8bf4\uff0c\u4e86\u89e3\u8fd9\u79cd\u8f6c\u53d8\u90fd\u662f\u975e\u5e38\u91cd\u8981\u7684\uff0c\u5c24\u5176\u662f\u6211\u4eec\u770b\u5f85\u5a5a\u59fb\u548c\u751f\u80b2\u7684\u65b9\u5f0f\u5df2\u7ecf\u4e0e\u8fc7\u53bb\u5927\u4e0d\u76f8\u540c\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u5806\u53e0\u6761\u5f62\u56fe\u662f\u76f4\u89c2\u89e3\u8bfb\u590d\u6742\u6570\u636e\u7684\u597d\u65b9\u6cd5\uff0c\u5229\u7528\u672c\u6587\u4e2d\u7684 R \u4ee3\u7801\uff0c\u60a8\u53ef\u4ee5\u76f4\u89c2\u5730\u5206\u6790\u81ea\u5df1\u7684\u6570\u636e\u3002\u5b83\u5c06\u5e2e\u52a9\u60a8\u4e86\u89e3\u95ee\u9898\u7684\u672c\u8d28\uff0c\u5e76\u6709\u671b\u627e\u5230\u65b0\u7684\u89e3\u51b3\u65b9\u6848\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u867d\u7136\u5a5a\u80b2\u662f\u4e2a\u4eba\u7684\u9009\u62e9\uff0c\u4f46\u5f88\u660e\u663e\uff0c\u5b83\u5728\u8fc8\u5411\u53ef\u6301\u7eed\u53d1\u5c55\u793e\u4f1a\u7684\u8fc7\u7a0b\u4e2d\u53d1\u6325\u7740\u91cd\u8981\u4f5c\u7528\u3002\u65e0\u8bba\u60a8\u4ece\u8fd9\u4e9b\u6570\u636e\u4e2d\u5f97\u5230\u4ec0\u4e48\u542f\u793a\uff0c\u6211\u4eec\u90fd\u5e0c\u671b\u5b83\u80fd\u6210\u4e3a\u5efa\u8bbe\u66f4\u7f8e\u597d\u672a\u6765\u7684\u4e00\u7c92\u5c0f\u5c0f\u7684\u79cd\u5b50\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u53e6\u5916\uff0c\u5a5a\u540e\u751f\u80b2\u89c2\u5ff5\u7684\u53d8\u5316\u5728\u603b\u548c\u751f\u80b2\u7387\u4e2d\u662f\u5982\u4f55\u4f53\u73b0\u7684\uff1f <a href=\"https:\/\/secondlife.lol\/zh\/total-fertility-rate-r-trendy-visualization\/\" data-type=\"post\" data-id=\"4187\">\u603b\u548c\u751f\u80b2\u7387\u7684\u5b9a\u4e49\u548c\u8ba1\u7b97\uff1a\u7528 R \u8fdb\u884c\u8d8b\u52bf\u53ef\u89c6\u5316\u5206\u6790<\/a> \u770b\u770b\u8fd9\u7bc7\u6587\u7ae0\u3002 <\/p>\n\n\n\n<h3 class=\"wp-block-heading\">#<strong>\u4ee3\u7801\u660e\u7ec6<\/strong><\/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\">1. \u52a0\u8f7d\u7a0b\u5e8f\u5e93<\/h4>\n\n\n\n<pre class=\"wp-block-code\"><code>library(ggplot2)\nlibrary(dplyr)<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li>ggplot2\uff1a\u5f3a\u5927\u7684\u6570\u636e\u53ef\u89c6\u5316\u56fe\u5f62\u5e93<\/li>\n\n\n\n<li>dplyr\uff1a\u63d0\u4f9b\u9ad8\u6548\u7684\u6570\u636e\u64cd\u4f5c\u5de5\u5177<\/li>\n<\/ul>\n\n\n\n<h4 class=\"wp-block-heading\">2. \u521b\u5efa\u6570\u636e\u96c6<\/h4>\n\n\n\n<pre class=\"wp-block-code\"><code>data &lt;- data.frame(\n  Year = c(2018, 2020, 2022, 2024)\u3001\n  Strongly_Agree = c(25.4, 25.5, 21.6, 23.4)\u3001\n  \u6709\u70b9\u540c\u610f = c\uff0844.1, 42.6, 43.8, 44.9\uff09\u3001\n  \u6709\u70b9\u4e0d\u540c\u610f = c(21.9,22.1,23.9,22.7)\u3001\n  \u975e\u5e38\u4e0d\u540c\u610f = c(8.6, 9.8, 10.8, 9.0)\n)<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\u6309\u5e74\u4efd\u521b\u5efa\u56de\u590d\u7387\u6570\u636e\u6846<\/li>\n\n\n\n<li>\u6bcf\u5217\u4ee3\u8868\u6309\u5e74\u4efd\u548c\u7b54\u590d\u7c7b\u578b\u5206\u5217\u7684\u767e\u5206\u6bd4<\/li>\n<\/ul>\n\n\n\n<h4 class=\"wp-block-heading\">3. \u8f6c\u6362\u6570\u636e<\/h4>\n\n\n\n<pre class=\"wp-block-code\"><code>data_long %\n  tidyr::pivot_longer(\n    cols = starts_with(\"Strongly_\") | starts_with(\"Somewhat_\")\u3001\n    names_to = \"\u54cd\u5e94\"\u3001\n    values_to = \"\u767e\u5206\u6bd4\"\n  )<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\u4f7f\u7528 tidyr::pivot_longer() \u51fd\u6570\u5c06\u6570\u636e\u8f6c\u6362\u4e3a\u957f\u683c\u5f0f<\/li>\n\n\n\n<li>\u5c06\u4ee5 \"\u5f3a\u70c8_\"\u6216 \"\u6709\u70b9_\"\u5f00\u5934\u7684\u5217\u8f6c\u6362\u4e3a \"\u56de\u590d \"\u5217<\/li>\n\n\n\n<li>\u5c06\u8fd9\u4e9b\u503c\u79fb\u81f3 \"\u767e\u5206\u6bd4 \"\u680f<\/li>\n<\/ul>\n\n\n\n<h4 class=\"wp-block-heading\">4. \u8bbe\u7f6e\u54cd\u5e94\u987a\u5e8f<\/h4>\n\n\n\n<pre class=\"wp-block-code\"><code>data_long$Response &lt;- factor(\n  data_long$Response\u3001\n  levels = c(&quot;Strongly_Agree&quot;, &quot;Somewhat_Agree&quot;, &quot;Somewhat_Disagree&quot;, &quot;Strongly_Disagree&quot;)\n)<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\u5c06 \"\u56de\u590d \"\u5217\u8f6c\u6362\u4e3a\u56e0\u5b50\uff0c\u4ee5\u4fbf\u6309\u7279\u5b9a\u987a\u5e8f\u6392\u5e8f<\/li>\n\n\n\n<li>\u8fd9\u51b3\u5b9a\u4e86\u56fe\u8868\u4e2d\u67f1\u5f62\u7684\u987a\u5e8f<\/li>\n<\/ul>\n\n\n\n<h4 class=\"wp-block-heading\">5. \u7ed8\u5236\u56fe\u8868<\/h4>\n\n\n\n<pre class=\"wp-block-code\"><code>ggplot(data_long, aes(x = factor(Year), y = Percentage, fill = Response)) +\n  geom_bar(stat = \"\u8eab\u4efd\", position = position_stack(reverse = TRUE), color = \"black\") +\n  geom_text(aes(label = round(Percentage, 1))\u3001\n            position = position_stack(vjust = 0.5, reverse = TRUE), size = 3.5, color = \"white\") +<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\u4f7f\u7528 ggplot() \u521b\u5efa\u57fa\u672c\u56fe\u5f62\u5bf9\u8c61<\/li>\n\n\n\n<li>\u4f7f\u7528 geom_bar() \u521b\u5efa\u6761\u5f62\u56fe\uff0c\u4f7f\u7528 position_stack() \u5806\u53e0\u6761\u5f62\u56fe<\/li>\n\n\n\n<li>\u4f7f\u7528 geom_text() \u5728\u6bcf\u4e2a\u6761\u5f62\u56fe\u5185\u663e\u793a\u767e\u5206\u6bd4\u503c<\/li>\n<\/ul>\n\n\n\n<h4 class=\"wp-block-heading\">6. \u8bbe\u7f6e\u989c\u8272\u548c\u6807\u7b7e<\/h4>\n\n\n\n<pre class=\"wp-block-code\"><code>  scale_fill_manual(\n    values = c(\n      \"\u975e\u5e38\u540c\u610f\" = \"#74C476\"\u3001\n      \"\u6709\u70b9\u540c\u610f\" = \"#31A354\"\u3001\n      \"\u6709\u70b9\u4e0d\u540c\u610f\" = \"#FD8D3C\"\u3001\n      \"\u5f3a\u70c8\u4e0d\u540c\u610f\"=\"#E31A1C\"\uff09\u3002\n    ),\n    labels = c(\"Strongly Agree\", \"Somewhat Agree\", \"Somewhat Disagree\", \"Strongly Disagree\")\n  ) + +<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\u4f7f\u7528 scale_fill_manual() \u4e3a\u6bcf\u79cd\u54cd\u5e94\u7c7b\u578b\u6307\u5b9a\u989c\u8272<\/li>\n\n\n\n<li>\u4f7f\u7528\u6807\u7b7e\u53c2\u6570\u4e3a\u56fe\u4f8b\u8bbe\u7f6e\u6807\u7b7e\u6587\u672c<\/li>\n<\/ul>\n\n\n\n<h4 class=\"wp-block-heading\">7. \u8bbe\u7f6e\u56fe\u8868\u6807\u9898\u548c\u5750\u6807\u8f74\u6807\u7b7e<\/h4>\n\n\n\n<pre class=\"wp-block-code\"><code>  labs(\n    title = \"\u5a5a\u540e\u5bf9\u751f\u80b2\u5b50\u5973\u770b\u6cd5\u7684\u53d8\u5316\"\u3001\n    x = \"\u5e74\u4efd\"\u3001\n    y = \"\u767e\u5206\u6bd4\uff08%\uff09\"\u3001\n    fill = \"\u54cd\u5e94\".\n  ) + +<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\u4f7f\u7528 labs() \u51fd\u6570\u8bbe\u7f6e\u56fe\u8868\u6807\u9898\u3001X \u8f74\u6807\u7b7e\u3001Y \u8f74\u6807\u7b7e\u548c\u56fe\u4f8b\u6807\u9898<\/li>\n<\/ul>\n\n\n\n<h4 class=\"wp-block-heading\">8.\u4e3b\u9898\u548c\u98ce\u683c\u8bbe\u7f6e<\/h4>\n\n\n\n<pre class=\"wp-block-code\"><code>  theme_minimal() +\n  theme(\n    plot.title = element_text(hjust = 0.5, size = 16, face = \"bold\")\u3001\n    axis.title = element_text(size = 12)\u3001\n    axis.text = element_text\uff08size = 10\uff09\u3001\n    legend.title = element_text\uff08size = 12\uff09\u3001\n    \u56fe\u4f8b\u6587\u672c = element_text(size = 10)\n  ) +<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\u4f7f\u7528 theme_minimal() \u5e94\u7528\u9ed8\u8ba4\u7684\u6700\u5c0f\u5316\u4e3b\u9898<\/li>\n\n\n\n<li>\u4f7f\u7528 theme() \u51fd\u6570\u5bf9\u6807\u9898\u3001\u8f74\u6807\u7b7e\u3001\u56fe\u4f8b\u7b49\u7684\u6837\u5f0f\u8fdb\u884c\u5fae\u8c03\u3002<\/li>\n<\/ul>\n\n\n\n<h4 class=\"wp-block-heading\">9. \u7ffb\u8f6c\u8f74<\/h4>\n\n\n\n<pre class=\"wp-block-code\"><code>  coord_flip()<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\u4f7f\u7528 coord_flip() \u7ffb\u8f6c x \u8f74\u548c y \u8f74\uff0c\u8f6c\u6362\u4e3a\u6c34\u5e73\u6761\u5f62\u56fe<\/li>\n<\/ul>\n<\/blockquote>","protected":false},"excerpt":{"rendered":"<p>\"\u4f60\u8ba4\u4e3a\u4eba\u4eec\u7ed3\u5a5a\u540e\u5e94\u8be5\u8981\u5b69\u5b50\u5417\uff1f\"\u8fd9\u4e2a\u95ee\u9898\u5728\u8fc7\u53bb\uff0c\u53ef\u80fd\u5927\u591a\u6570\u4eba\u7684\u56de\u7b54\u90fd\u662f\uff1a\"\u5f53\u7136......<\/p>","protected":false},"author":3,"featured_media":4211,"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":[398,670,672,674,671,669,646,164,673,666],"class_list":["post-4202","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-r-coding","tag-r-","tag-670","tag-672","tag-674","tag-671","tag-669","tag-646","tag-164","tag-673","tag-666"],"taxonomy_info":{"category":[{"value":6,"label":"\uc54c(R)"}],"post_tag":[{"value":398,"label":"R \ucf54\ub529"},{"value":670,"label":"\uacb0\ud63c \ucd9c\uc0b0"},{"value":672,"label":"\uacb0\ud63c \ucd9c\uc0b0 \ub370\uc774\ud130"},{"value":674,"label":"\uacb0\ud63c \ucd9c\uc0b0 \ubcc0\ud654"},{"value":671,"label":"\uacb0\ud63c \ucd9c\uc0b0 \uc778\uc2dd"},{"value":669,"label":"\uacb0\ud63c\uacfc \ucd9c\uc0b0"},{"value":646,"label":"\ub204\uc801\ub9c9\ub300\uadf8\ub798\ud504"},{"value":164,"label":"\ub370\uc774\ud130 \uc2dc\uac01\ud654"},{"value":673,"label":"\uc0ac\ud68c \uc870\uc0ac"},{"value":666,"label":"\uc800\ucd9c\uc0b0 \ubb38\uc81c"}]},"featured_image_src_large":["https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/\uacb0\ud63c-\ucd9c\uc0b0-\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":398,"name":"R \ucf54\ub529","slug":"r-%ec%bd%94%eb%94%a9","term_group":0,"term_taxonomy_id":398,"taxonomy":"post_tag","description":"","parent":0,"count":6,"filter":"raw"},{"term_id":670,"name":"\uacb0\ud63c \ucd9c\uc0b0","slug":"%ea%b2%b0%ed%98%bc-%ec%b6%9c%ec%82%b0","term_group":0,"term_taxonomy_id":670,"taxonomy":"post_tag","description":"","parent":0,"count":1,"filter":"raw"},{"term_id":672,"name":"\uacb0\ud63c \ucd9c\uc0b0 \ub370\uc774\ud130","slug":"%ea%b2%b0%ed%98%bc-%ec%b6%9c%ec%82%b0-%eb%8d%b0%ec%9d%b4%ed%84%b0","term_group":0,"term_taxonomy_id":672,"taxonomy":"post_tag","description":"","parent":0,"count":1,"filter":"raw"},{"term_id":674,"name":"\uacb0\ud63c \ucd9c\uc0b0 \ubcc0\ud654","slug":"%ea%b2%b0%ed%98%bc-%ec%b6%9c%ec%82%b0-%eb%b3%80%ed%99%94","term_group":0,"term_taxonomy_id":674,"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":669,"name":"\uacb0\ud63c\uacfc \ucd9c\uc0b0","slug":"%ea%b2%b0%ed%98%bc%ea%b3%bc-%ec%b6%9c%ec%82%b0","term_group":0,"term_taxonomy_id":669,"taxonomy":"post_tag","description":"","parent":0,"count":1,"filter":"raw"},{"term_id":646,"name":"\ub204\uc801\ub9c9\ub300\uadf8\ub798\ud504","slug":"%eb%88%84%ec%a0%81%eb%a7%89%eb%8c%80%ea%b7%b8%eb%9e%98%ed%94%84","term_group":0,"term_taxonomy_id":646,"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":673,"name":"\uc0ac\ud68c \uc870\uc0ac","slug":"%ec%82%ac%ed%9a%8c-%ec%a1%b0%ec%82%ac","term_group":0,"term_taxonomy_id":673,"taxonomy":"post_tag","description":"","parent":0,"count":1,"filter":"raw"},{"term_id":666,"name":"\uc800\ucd9c\uc0b0 \ubb38\uc81c","slug":"%ec%a0%80%ec%b6%9c%ec%82%b0-%eb%ac%b8%ec%a0%9c","term_group":0,"term_taxonomy_id":666,"taxonomy":"post_tag","description":"","parent":0,"count":2,"filter":"raw"}],"_links":{"self":[{"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/posts\/4202","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=4202"}],"version-history":[{"count":6,"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/posts\/4202\/revisions"}],"predecessor-version":[{"id":4213,"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/posts\/4202\/revisions\/4213"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/media\/4211"}],"wp:attachment":[{"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/media?parent=4202"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/categories?post=4202"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/tags?post=4202"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}