{"id":2794,"date":"2024-10-07T20:17:46","date_gmt":"2024-10-07T11:17:46","guid":{"rendered":"https:\/\/secondlife.lol\/?p=2794"},"modified":"2024-10-07T18:33:39","modified_gmt":"2024-10-07T09:33:39","slug":"confusion-matrix-visualization-with-ggplot2","status":"publish","type":"post","link":"https:\/\/secondlife.lol\/ja\/confusion-matrix-visualization-with-ggplot2\/","title":{"rendered":"ggplot2\u3092\u6d3b\u7528\u3057\u305f\u6df7\u540c\u884c\u5217\u306e\u53ef\u8996\u5316\u65b9\u6cd5"},"content":{"rendered":"<p class=\"wp-block-paragraph\">\u30c7\u30fc\u30bf\u5206\u6790\u304b\u3089 <strong><a href=\"https:\/\/ailib.secondlife.lol\/understanding-confusion-matrix\/\">\u6df7\u540c\u884c\u5217(Confusion Matrix)<\/a><\/strong>\u306f\u3001\u5206\u985e\u30e2\u30c7\u30eb\u306e\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u3092\u8a55\u4fa1\u3059\u308b\u969b\u306b\u91cd\u8981\u306a\u30c4\u30fc\u30eb\u3067\u3059\u3002 \u4eca\u56de\u306f\u3001R\u306e <a href=\"https:\/\/cran.r-project.org\/package=ggplot2\" target=\"_blank\" rel=\"noopener\"><strong>ggplot2<\/strong> \u30d1\u30c3\u30b1\u30fc\u30b8<\/a>\u3092\u4f7f\u7528\u3057\u3066\u4e0b\u306e\u56f3\u306e\u3088\u3046\u306b\u6df7\u540c\u884c\u5217\u306e\u8996\u899a\u5316\u65b9\u6cd5\u3092\u8aac\u660e\u3057\u3001\u6df7\u540c\u884c\u5217\u306e\u5404\u8981\u7d20\u3092\u7c21\u5358\u306b\u7406\u89e3\u3067\u304d\u308b\u3088\u3046\u306b\u8996\u899a\u7684\u306b\u8868\u73fe\u3059\u308b\u65b9\u6cd5\u3092\u7d39\u4ecb\u3057\u307e\u3059\u3002<\/p>\n\n\n<style>.kb-image2794_66ca1a-3d .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-image2794_66ca1a-3d img.kb-img, .kb-image2794_66ca1a-3d .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-image2794_66ca1a-3d\"><figure class=\"aligncenter size-full\"><img decoding=\"async\" width=\"1200\" height=\"649\" src=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/image-17.jpg\" alt=\"\ud63c\ub3d9\ud589\ub82c \uc2dc\uac01\ud654 \uadf8\ub9bc\" class=\"kb-img wp-image-2795\" srcset=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/image-17.jpg 1200w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/image-17-300x162.jpg 300w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/image-17-600x325.jpg 600w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/image-17-768x415.jpg 768w\" sizes=\"(max-width: 1200px) 100vw, 1200px\" \/><figcaption>( ggplot2\u3092\u6d3b\u7528\u3057\u305f\u6df7\u540c\u884c\u5217\u306e\u53ef\u8996\u5316 )<\/figcaption><\/figure><\/div>\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\">ggplot2\u3092\u4f7f\u3063\u305f\u6df7\u540c\u884c\u5217\u306e\u53ef\u8996\u5316<\/h2>\n\n\n<style>.kb-image2794_52a69e-df .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-image2794_52a69e-df img.kb-img, .kb-image2794_52a69e-df .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-image2794_52a69e-df\"><figure class=\"aligncenter size-full\"><img decoding=\"async\" width=\"1200\" height=\"474\" src=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/image-1-8.jpg\" alt=\"\ud63c\ub3d9\ud589\ub82c \uc2dc\uac01\ud654 \uac1c\uc694 \uadf8\ub9bc\" class=\"kb-img wp-image-2960\" srcset=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/image-1-8.jpg 1200w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/image-1-8-300x119.jpg 300w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/image-1-8-600x237.jpg 600w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/image-1-8-768x303.jpg 768w\" sizes=\"(max-width: 1200px) 100vw, 1200px\" \/><figcaption>( \u6df7\u540c\u884c\u5217\u306e\u53ef\u8996\u5316\u306e\u6982\u8981 )<\/figcaption><\/figure><\/div>\n\n\n\n<p class=\"wp-block-paragraph\">\u307e\u305a\u3001 <strong>ggplot2<\/strong>\u306fR\u3067\u4e00\u756a\u3088\u304f\u4f7f\u308f\u308c\u308b\u53ef\u8996\u5316\u30e9\u30a4\u30d6\u30e9\u30ea\u306e\u4e00\u3064\u3067\u3059\u3002 \u3053\u308c\u3092\u4f7f\u3063\u3066\u6df7\u540c\u884c\u5217\u3092\u76f4\u89b3\u7684\u306b\u8868\u73fe\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002\u4e0b\u8a18\u306e\u30b3\u30fc\u30c9\u3067\u6df7\u540c\u884c\u5217\u3092\u30c7\u30fc\u30bf\u30d5\u30ec\u30fc\u30e0\u306e\u5f62\u3067\u751f\u6210\u3057\u3066\u3001\u3053\u308c\u3092 <strong>ggplot2<\/strong>\u3092\u4f7f\u3063\u3066\u6df7\u540c\u884c\u5217\u3092\u53ef\u8996\u5316\u3059\u308b\u65b9\u6cd5\u3092\u6bb5\u968e\u7684\u306b\u8aac\u660e\u3057\u307e\u3059\u3002<\/p>\n\n\n\n<h3 class=\"wp-block-heading\">1.\u5fc5\u9808\u30e9\u30a4\u30d6\u30e9\u30ea\u306e\u8aad\u307f\u8fbc\u307f<\/h3>\n\n\n\n<p class=\"wp-block-paragraph\">\u6df7\u540c\u884c\u5217\u3092\u53ef\u8996\u5316\u3059\u308b\u305f\u3081\u306b\u306f\u3001\u307e\u305a\u3001ggplot2\u30e9\u30a4\u30d6\u30e9\u30ea\u3092\u30ed\u30fc\u30c9\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002 ggplot2\u306fR\u3067\u69d8\u3005\u306a\u53ef\u8996\u5316\u3092\u3059\u308b\u3068\u304d\u306b\u5fc5\u9808\u3067\u3001\u76f4\u611f\u7684\u3067\u6d17\u7df4\u3055\u308c\u305f\u30d7\u30ed\u30c3\u30c8\u3092\u4f5c\u308b\u3053\u3068\u304c\u3067\u304d\u308b\u5f37\u529b\u306a\u30c4\u30fc\u30eb\u3067\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code># \u5fc5\u9808\u30e9\u30a4\u30d6\u30e9\u30ea\u306e\u8aad\u307f\u8fbc\u307f\nlibrary(ggplot2)<\/code><\/pre>\n\n\n\n<h3 class=\"wp-block-heading\">2.\u6df7\u540c\u884c\u5217\u30c7\u30fc\u30bf\u306e\u751f\u6210<\/h3>\n\n\n\n<p class=\"wp-block-paragraph\">\u6df7\u540c\u884c\u5217\u3092\u8868\u3059\u30c7\u30fc\u30bf\u3092 <strong>\u30c7\u30fc\u30bf\u30d5\u30ec\u30fc\u30e0<\/strong>\u3067\u751f\u6210\u3057\u307e\u3059\u3002\u4e88\u6e2c\u5024\u3068\u5b9f\u969b\u306e\u5024\u3092\u8a2d\u5b9a\u3057\u3001\u6df7\u540c\u884c\u5217\u306e\u5404\u9805\u76ee\u306e\u30e9\u30d9\u30eb(TP, FP, FN, TN)\u3092\u8ffd\u52a0\u3057\u307e\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code># \u6df7\u4e71\u884c\u5217\u3092\u8868\u3059\u30c7\u30fc\u30bf\u30d5\u30ec\u30fc\u30e0\u3092\u751f\u6210\u3057\u307e\u3059\u3002\nconfusion_data &lt;- data.frame(\n  Predicted = factor(c(&quot;Y&quot;, &quot;Y&quot;, &quot;Y&quot;, &quot;N&quot;, &quot;N&quot;), levels = c(&quot;N&quot;, &quot;Y&quot;)), # \u4e88\u6e2c\u5024: N\u3068Y\u30ec\u30d9\u30eb\u3092\u8a2d\u5b9a (N\u304c\u4e0b)\n  Actual = factor(c(&quot;Y&quot;, &quot;N&quot;, &quot;Y&quot;, &quot;N&quot;), levels = c(&quot;Y&quot;, &quot;N&quot;)), # \u5b9f\u6e2c\u5024: Y\u3068N\u306e\u30ec\u30d9\u30eb\u8a2d\u5b9a (Y\u304c\u5de6)\n  Label = c(&quot;True Positive (TP)&quot;, &quot;False Positive (FP)&quot;, &quot;False Negative (FN)&quot;, &quot;True Negative (TN)&quot;)  # \u5404\u9805\u76ee\u306e\u30e9\u30d9\u30eb\n)<\/code><\/pre>\n\n\n\n<p class=\"wp-block-paragraph\"><strong>\u30b3\u30fc\u30c9\u8aac\u660e<\/strong>:<\/p>\n\n\n\n<ul class=\"wp-block-list\">\n<li><strong>\u4e88\u6e2c<\/strong> \u5217\u306f\u30e2\u30c7\u30eb\u304c\u4e88\u6e2c\u3057\u305f\u5024\u3067\u3059\u3002\u3053\u3053\u3067\u306f <code>Y<\/code>\u3068 <code>N<\/code>\u3067\u69cb\u6210\u3055\u308c\u3001Y\u306f\u80af\u5b9a\u3001N\u306f\u5426\u5b9a\u3092\u8868\u3057\u307e\u3059\u3002<\/li>\n\n\n\n<li><strong>\u5b9f\u969b\u306e<\/strong> \u5217\u306f\u5b9f\u6e2c\u5024\u3067\u3042\u308a\u3001\u4e88\u6e2c\u5024\u3068\u540c\u3058\u3088\u3046\u306b <code>Y<\/code>\u3068 <code>N<\/code>\u3092\u4f7f\u7528\u3057\u307e\u3059\u3002<\/li>\n\n\n\n<li><strong>\u30e9\u30d9\u30eb<\/strong>\u306f\u6df7\u540c\u884c\u5217\u306e\u5404\u9805\u76ee\u306b\u5bfe\u5fdc\u3059\u308b\u30e9\u30d9\u30eb\u3067\u3001TP(\u771f\u80af\u5b9a), FP(\u507d\u80af\u5b9a), FN(\u507d\u5426\u5b9a), TN(\u771f\u5426\u5b9a)\u3092\u8868\u3057\u307e\u3059\u3002<\/li>\n<\/ul>\n\n\n\n<h3 class=\"wp-block-heading\">3.ggplot2\u3067\u6df7\u540c\u884c\u5217\u306e\u53ef\u8996\u5316<\/h3>\n\n\n\n<p class=\"wp-block-paragraph\">\u3067\u306f\u3001ggplot2\u3092\u4f7f\u3063\u3066\u6df7\u540c\u884c\u5217\u3092\u53ef\u8996\u5316\u3057\u3066\u307f\u307e\u3057\u3087\u3046\u3002 <strong>geom_<\/strong>\u30bf\u30a4\u30eb<strong>()<\/strong>\u3092\u4f7f\u7528\u3057\u3066\u5404\u9805\u76ee\u3092\u30bf\u30a4\u30eb\u5f62\u5f0f\u3067\u8868\u73fe\u3057\u3001\u5404\u30bf\u30a4\u30eb\u306b\u30c6\u30ad\u30b9\u30c8\u30e9\u30d9\u30eb(TP, FP, FN, TN)\u3092\u8ffd\u52a0\u3057\u307e\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code># ggplot2\u3092\u4f7f\u3063\u3066\u6df7\u540c\u884c\u5217\u3092\u53ef\u8996\u5316\u3057\u307e\u3059\u3002\nggplot(confusion_data, aes(x = Actual, y = Predicted)) + # \u30bf\u30a4\u30eb\n  geom_tile(fill = \"lightblue\", color = \"black\", width = 1, height = 1) + # \u30bf\u30a4\u30eb\u751f\u6210\u3001\u8272\u3068\u5883\u754c\u7dda\u8a2d\u5b9a\n  geom_text(aes(label = Label), size = 5) + #\u30bf\u30a4\u30eb\u306b\u30c6\u30ad\u30b9\u30c8\u30e9\u30d9\u30eb\u3092\u8ffd\u52a0\u3059\u308b\u3002\n  labs(title = \"Confusion Matrix\", subtitle = \"Actual (Reference)\") + # \u30bf\u30a4\u30c8\u30eb\u3068\u526f\u984c\u8ffd\u52a0\n  scale_x_discrete(position = \"top\") + # x\u8ef8\u30e9\u30d9\u30eb\u3092\u4e0a\u90e8\u306b\u914d\u7f6e\u3059\u308b\n  theme_minimal() + # \u7c21\u6f54\u306a\u30c6\u30fc\u30de\u306e\u8a2d\u5b9a\n  theme(\n    plot.title = element_text(hjust = 0.5, size = 16, face = \"bold\", margin = margin(b = 10)), # \u30bf\u30a4\u30c8\u30eb\u8a2d\u5b9a\n    plot.subtitle = element_text(hjust = 0.5, size = 12, face = \"bold\", margin = margin(b = 20)), # \u30b5\u30d6\u30bf\u30a4\u30c8\u30eb\u8a2d\u5b9a\n    axis.title.x = element_blank(), # x\u8ef8\u30bf\u30a4\u30c8\u30eb\u306e\u524a\u9664\n    axis.title.y = element_text(size = 12, face = \"bold\", margin = margin(r = 20)), # y\u8ef8\u30bf\u30a4\u30c8\u30eb\u8a2d\u5b9a\n    axis.text.x = element_text(size = 12, face = \"bold\", margin = margin(b = 10)), # x\u8ef8\u30e9\u30d9\u30eb\u8a2d\u5b9a\n    axis.text.y = element_text(size = 12, face = \"bold\"), # y\u8ef8\u30e9\u30d9\u30eb\u8a2d\u5b9a\n    panel.grid = element_blank(), # \u30b0\u30ea\u30c3\u30c9\u3092\u524a\u9664\u3057\u307e\u3059\u3002\n    axis.ticks = element_blank(), # \u8ef8\u76ee\u76db\u308a\u306e\u524a\u9664\n    plot.margin = margin(t = 50, b = 40) # \u4f59\u767d\u3092\u8a2d\u5b9a\u3057\u307e\u3059\u3002\n  )<\/code><\/pre>\n\n\n\n<p class=\"wp-block-paragraph\"><strong>\u30b3\u30fc\u30c9\u8aac\u660e<\/strong>:<\/p>\n\n\n\n<ul class=\"wp-block-list\">\n<li><strong>geom_tile()<\/strong>: \u6df7\u540c\u884c\u5217\u306e\u5404\u9805\u76ee\u3092\u30bf\u30a4\u30eb\u5f62\u5f0f\u3067\u63cf\u753b\u3057\u307e\u3059\u3002\u30bf\u30a4\u30eb\u306e\u8272\u306f\u6c34\u8272\u3001\u5883\u754c\u7dda\u306f\u9ed2\u306b\u8a2d\u5b9a\u3057\u307e\u3057\u305f\u3002<\/li>\n\n\n\n<li><strong>geom_text()<\/strong>: \u5404\u30bf\u30a4\u30eb\u306e\u4e0a\u306b\u6df7\u540c\u884c\u5217\u306e\u30e9\u30d9\u30eb(TP, FP, FN, TN)\u3092\u8868\u793a\u3057\u307e\u3059\u3002<\/li>\n\n\n\n<li><strong>labs()<\/strong>: \u30bf\u30a4\u30c8\u30eb\u3068\u526f\u984c\u3092\u8a2d\u5b9a\u3057\u307e\u3059\u3002\u526f\u984c\u306b\u306f\u300cActual (Reference)\u300d\u3092\u8ffd\u52a0\u3057\u3066\u3001\u5b9f\u969b\u306e\u5024\u304c\u53c2\u7167\u30c7\u30fc\u30bf\u3067\u3042\u308b\u3053\u3068\u3092\u793a\u3057\u307e\u3059\u3002<\/li>\n\n\n\n<li><strong>theme_minimal()<\/strong>\u80cc\u666f\u3092\u767d\u306b\u8a2d\u5b9a\u3057\u3001\u4e0d\u8981\u306a\u8981\u7d20\u3092\u524a\u9664\u3057\u3066\u30b0\u30e9\u30d5\u3092\u7c21\u6f54\u306b\u3057\u307e\u3059\u3002<\/li>\n<\/ul>\n\n\n\n<h3 class=\"wp-block-heading\">4.\u7d50\u679c\u306e\u53ef\u8996\u5316\u3068\u30b0\u30e9\u30d5\u30b9\u30bf\u30a4\u30eb\u306e\u8a2d\u5b9a<\/h3>\n\n\n\n<p class=\"wp-block-paragraph\">\u6df7\u540c\u884c\u5217\u3092\u8996\u899a\u5316\u3057\u305f\u7d50\u679c\u306f\u30dd\u30b9\u30c8\u306e\u5192\u982d\u306e\u3088\u3046\u306b\u8868\u793a\u3055\u308c\u307e\u3059\u3002\u30bf\u30a4\u30eb\u5f62\u5f0f\u3067\u8868\u793a\u3055\u308c\u305f\u5404\u9805\u76ee\u306b\u306f <strong>\u30c8\u30a5\u30eb\u30fc\u30dd\u30b8\u30c6\u30a3\u30d6<\/strong>, <strong>\u507d\u967d\u6027<\/strong>, <strong>\u507d\u9670\u6027<\/strong>, <strong>\u30c8\u30a5\u30eb\u30fc\u30cd\u30ac\u30c6\u30a3\u30d6<\/strong>\u3068\u3044\u3046\u30e9\u30d9\u30eb\u304c\u8ffd\u52a0\u3055\u308c\u3001\u6df7\u540c\u884c\u5217\u306e\u610f\u5473\u3092\u7c21\u5358\u306b\u7406\u89e3\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n<h2 class=\"wp-block-heading\">\u6700\u7d42\u7684\u306a\u5168\u4f53\u30b3\u30fc\u30c9<\/h2>\n\n\n\n<pre class=\"wp-block-code\"><code># \u5fc5\u9808\u30e9\u30a4\u30d6\u30e9\u30ea\u306e\u8aad\u307f\u8fbc\u307f\nlibrary(ggplot2)\n\n# \u6df7\u4e71\u884c\u5217\u3092\u8868\u3059\u30c7\u30fc\u30bf\u30d5\u30ec\u30fc\u30e0\u3092\u751f\u6210\u3057\u307e\u3059\u3002\nconfusion_data &lt;- data.frame(\n  Predicted = factor(c(&quot;Y&quot;, &quot;Y&quot;, &quot;Y&quot;, &quot;N&quot;, &quot;N&quot;), levels = c(&quot;N&quot;, &quot;Y&quot;)), # \u4e88\u6e2c\u5024: N\u3068Y\u30ec\u30d9\u30eb\u3092\u8a2d\u5b9a (N\u304c\u4e0b)\n  Actual = factor(c(&quot;Y&quot;, &quot;N&quot;, &quot;Y&quot;, &quot;N&quot;), levels = c(&quot;Y&quot;, &quot;N&quot;)), # \u5b9f\u6e2c\u5024: Y\u3068N\u306e\u30ec\u30d9\u30eb\u8a2d\u5b9a (Y\u304c\u4e0a)\n  Label = c(&quot;True Positive (TP)&quot;, &quot;False Positive (FP)&quot;, &quot;False Negative (FN)&quot;, &quot;True Negative (TN)&quot;)  # \u5404\u9805\u76ee\u306e\u30e9\u30d9\u30eb\n)\n\n# ggplot2\u3092\u4f7f\u3063\u3066\u6df7\u540c\u884c\u5217\u3092\u53ef\u8996\u5316\u3057\u307e\u3059\u3002\nggplot(confusion_data, aes(x = Actual, y = Predicted)) + ggplot(confusion_data, aes(x = Actual, y = Predicted))\n  geom_tile(fill = &quot;lightblue&quot;, color = &quot;black&quot;, width = 1, height = 1) + + geom_tile(fill = &quot;lightblue&quot;, color = &quot;black&quot;, width = 1, height = 1)\n  geom_text(aes(aes(label = Label), size = 5) +\n  labs(title = &quot;\u30b3\u30f3\u30d5\u30e5\u30fc\u30b8\u30e7\u30f3\u30de\u30c8\u30ea\u30af\u30b9&quot;, subtitle = &quot;\u5b9f\u6e2c(\u53c2\u8003)&quot;) +\n  scale_x_discrete(position = &quot;top&quot;) +\n  theme_minimal() +\n  theme(\n    plot.title = element_text(hjust = 0.5, size = 16, face = &quot;bold&quot;, margin = margin(b = 10))\u3001\n    plot.subtitle = element_text(hjust = 0.5, size = 12, face = &quot;bold&quot;, margin = margin(b = 20))\u3001\n    axis.title.x = element_blank()\u3001\n    axis.title.y = element_text(size = 12, face = &quot;bold&quot;, margin = margin(r = 20))\u3001\n    axis.text.x = element_text(size = 12, face = &quot;bold&quot;, margin = margin(b = 10))\u3001\n    axis.text.y = element_text(size = 12, face = &quot;bold&quot;)\u3001\n    panel.grid = element_blank()\u3001\n    axis.ticks = element_blank()\u3001\n    plot.margin = margin(t = 50, b = 40)\n  )<\/code><\/pre>\n\n\n\n<h2 class=\"wp-block-heading\">\u4ed5\u4e0a\u3052<\/h2>\n\n\n\n<p class=\"wp-block-paragraph\">\u4eca\u56de\u306e\u8a18\u4e8b\u3067\u306f\u3001R\u306eggplot2\u3092\u6d3b\u7528\u3057\u3066 <strong>\u6df7\u540c\u884c\u5217<\/strong> \u8996\u899a\u5316\u3059\u308b\u65b9\u6cd5\u3092\u5b66\u3073\u307e\u3057\u305f\u3002\u6df7\u540c\u884c\u5217\u306f\u5206\u985e\u30e2\u30c7\u30eb\u306e\u6027\u80fd\u3092\u8a55\u4fa1\u3059\u308b\u91cd\u8981\u306a\u30c4\u30fc\u30eb\u3067\u3042\u308a\u3001\u5404\u9805\u76ee(TP\u3001FP\u3001FN\u3001TN)\u306e\u610f\u5473\u3092\u8996\u899a\u7684\u306b\u8868\u73fe\u3059\u308b\u3053\u3068\u3067\u3001\u30e2\u30c7\u30eb\u306e\u7cbe\u5ea6\u3092\u7c21\u5358\u306b\u7406\u89e3\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002\u3053\u306e\u65b9\u6cd5\u306b\u3088\u308a\u3001\u6df7\u540c\u884c\u5217\u3092\u3088\u308a\u76f4\u611f\u7684\u306b\u5206\u6790\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u3001\u69d8\u3005\u306a\u30c7\u30fc\u30bf\u306b\u9069\u7528\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\uff01<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u6df7\u540c\u884c\u5217\u3092\u5b9f\u969b\u306b\u6d3b\u7528\u3059\u308b\u305f\u3081\u306b\u305d\u306e\u610f\u5473\u3092\u77e5\u308b\u305f\u3081\u306b <a href=\"https:\/\/secondlife.lol\/ja\/r-%eb%8d%b0%ec%9d%b4%ed%84%b0%eb%b6%84%ec%84%9d-%ec%98%88%ec%a0%9c-%eb%b6%93%ea%bd%83-iris-%eb%8d%b0%ec%9d%b4%ed%84%b0%ec%85%8b%ec%9c%bc%eb%a1%9c-%eb%b0%b0%ec%9a%b0%eb%8a%94-%eb%b6%84%eb%a5%98\/\" data-type=\"post\" data-id=\"2785\">R\u30c7\u30fc\u30bf\u5206\u6790\u306e\u4f8b\uff1aIris\u30c7\u30fc\u30bf\u30bb\u30c3\u30c8\u3067\u5b66\u3076\u5206\u985e\u3068\u53ef\u8996\u5316\u306e\u4f8b<\/a> \u30dd\u30b9\u30c8\u3092\u30ec\u30d3\u30e5\u30fc\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002\u7cbe\u5ea6\u3001\u518d\u73fe\u6027\u306a\u3069\u3001\u30e2\u30c7\u30eb\u306e\u6027\u80fd\u3092\u78ba\u8a8d\u3059\u308b\u610f\u5473\u3092\u3054\u7406\u89e3\u3044\u305f\u3060\u3051\u308b\u3068\u601d\u3044\u307e\u3059\u3002<\/p>","protected":false},"excerpt":{"rendered":"<p>\u30c7\u30fc\u30bf\u5206\u6790\u306b\u304a\u3044\u3066\u3001\u6df7\u540c\u884c\u5217(Confusion Matrix)\u306f\u5206\u985e\u30e2\u30c7\u30eb\u306e\u6027\u80fd\u3092\u8a55\u4fa1\u3059\u308b\u969b\u306b\u91cd\u8981\u306a...<\/p>","protected":false},"author":3,"featured_media":2962,"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":[328,176,174,327,164,224,209,326,329],"class_list":["post-2794","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-r-coding","tag-false-positive","tag-ggplot2","tag-r-","tag-true-positive","tag-164","tag-224","tag-209","tag-326","tag-329"],"taxonomy_info":{"category":[{"value":6,"label":"\uc54c(R)"}],"post_tag":[{"value":328,"label":"False Positive"},{"value":176,"label":"ggplot2"},{"value":174,"label":"R \ud504\ub85c\uadf8\ub798\ubc0d"},{"value":327,"label":"True Positive"},{"value":164,"label":"\ub370\uc774\ud130 \uc2dc\uac01\ud654"},{"value":224,"label":"\uba38\uc2e0\ub7ec\ub2dd"},{"value":209,"label":"\ubd84\ub958 \ubaa8\ub378"},{"value":326,"label":"\ud63c\ub3d9 \ud589\ub82c"},{"value":329,"label":"\ud63c\ub3d9 \ud589\ub82c \uc2dc\uac01\ud654"}]},"featured_image_src_large":["https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/\ud63c\ub3d9\ud589\ub82c-\uc2dc\uac01\ud654-\ud3ec\uc2a4\ud2b8-\uc378\ub124\uc77c-1-600x600.jpg",600,600,true],"author_info":{"display_name":"TERE","author_link":"https:\/\/secondlife.lol\/ja\/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":328,"name":"False Positive","slug":"false-positive","term_group":0,"term_taxonomy_id":328,"taxonomy":"post_tag","description":"","parent":0,"count":1,"filter":"raw"},{"term_id":176,"name":"ggplot2","slug":"ggplot2","term_group":0,"term_taxonomy_id":176,"taxonomy":"post_tag","description":"","parent":0,"count":15,"filter":"raw"},{"term_id":174,"name":"R \ud504\ub85c\uadf8\ub798\ubc0d","slug":"r-%ed%94%84%eb%a1%9c%ea%b7%b8%eb%9e%98%eb%b0%8d","term_group":0,"term_taxonomy_id":174,"taxonomy":"post_tag","description":"","parent":0,"count":15,"filter":"raw"},{"term_id":327,"name":"True Positive","slug":"true-positive","term_group":0,"term_taxonomy_id":327,"taxonomy":"post_tag","description":"","parent":0,"count":1,"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":224,"name":"\uba38\uc2e0\ub7ec\ub2dd","slug":"%eb%a8%b8%ec%8b%a0%eb%9f%ac%eb%8b%9d","term_group":0,"term_taxonomy_id":224,"taxonomy":"post_tag","description":"","parent":0,"count":7,"filter":"raw"},{"term_id":209,"name":"\ubd84\ub958 \ubaa8\ub378","slug":"%eb%b6%84%eb%a5%98-%eb%aa%a8%eb%8d%b8","term_group":0,"term_taxonomy_id":209,"taxonomy":"post_tag","description":"","parent":0,"count":2,"filter":"raw"},{"term_id":326,"name":"\ud63c\ub3d9 \ud589\ub82c","slug":"%ed%98%bc%eb%8f%99-%ed%96%89%eb%a0%ac","term_group":0,"term_taxonomy_id":326,"taxonomy":"post_tag","description":"","parent":0,"count":1,"filter":"raw"},{"term_id":329,"name":"\ud63c\ub3d9 \ud589\ub82c \uc2dc\uac01\ud654","slug":"%ed%98%bc%eb%8f%99-%ed%96%89%eb%a0%ac-%ec%8b%9c%ea%b0%81%ed%99%94","term_group":0,"term_taxonomy_id":329,"taxonomy":"post_tag","description":"","parent":0,"count":1,"filter":"raw"}],"_links":{"self":[{"href":"https:\/\/secondlife.lol\/ja\/wp-json\/wp\/v2\/posts\/2794","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/secondlife.lol\/ja\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/secondlife.lol\/ja\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/secondlife.lol\/ja\/wp-json\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/secondlife.lol\/ja\/wp-json\/wp\/v2\/comments?post=2794"}],"version-history":[{"count":9,"href":"https:\/\/secondlife.lol\/ja\/wp-json\/wp\/v2\/posts\/2794\/revisions"}],"predecessor-version":[{"id":2963,"href":"https:\/\/secondlife.lol\/ja\/wp-json\/wp\/v2\/posts\/2794\/revisions\/2963"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/secondlife.lol\/ja\/wp-json\/wp\/v2\/media\/2962"}],"wp:attachment":[{"href":"https:\/\/secondlife.lol\/ja\/wp-json\/wp\/v2\/media?parent=2794"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/secondlife.lol\/ja\/wp-json\/wp\/v2\/categories?post=2794"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/secondlife.lol\/ja\/wp-json\/wp\/v2\/tags?post=2794"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}