{"id":2995,"date":"2024-10-12T21:21:15","date_gmt":"2024-10-12T12:21:15","guid":{"rendered":"https:\/\/secondlife.lol\/?p=2995"},"modified":"2024-10-12T21:54:37","modified_gmt":"2024-10-12T12:54:37","slug":"black-and-white-chef-michelin-curse-r-analysis","status":"publish","type":"post","link":"https:\/\/secondlife.lol\/ja\/black-and-white-chef-michelin-curse-r-analysis\/","title":{"rendered":"\u767d\u9ed2\u6599\u7406\u4eba\u3067\u3082\u907f\u3051\u3089\u308c\u306a\u3044\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u546a\u3044: R\u3067\u5206\u6790\u3057\u305f\u7269\u8a9e"},"content":{"rendered":"<style>.kb-image2995_8e0363-67 .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-image2995_8e0363-67 img.kb-img, .kb-image2995_8e0363-67 .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-image2995_8e0363-67\"><figure class=\"aligncenter size-full\"><img decoding=\"async\" width=\"1200\" height=\"686\" src=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/\ubbf8\uc290\ub7ad\uc758-\uc800\uc8fc-\ud751\ubc31\uc694\ub9ac\uc0ac\ub294-\uacfc\uc5f0.jpg\" alt=\"\ubbf8\uc290\ub7ad \uc800\uc8fc; \ud751\ubc31\uc694\ub9ac\uc0ac\ub294 \uacfc\uc5f0\" class=\"kb-img wp-image-2997\" srcset=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/\ubbf8\uc290\ub7ad\uc758-\uc800\uc8fc-\ud751\ubc31\uc694\ub9ac\uc0ac\ub294-\uacfc\uc5f0.jpg 1200w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/\ubbf8\uc290\ub7ad\uc758-\uc800\uc8fc-\ud751\ubc31\uc694\ub9ac\uc0ac\ub294-\uacfc\uc5f0-300x172.jpg 300w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/\ubbf8\uc290\ub7ad\uc758-\uc800\uc8fc-\ud751\ubc31\uc694\ub9ac\uc0ac\ub294-\uacfc\uc5f0-600x343.jpg 600w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/\ubbf8\uc290\ub7ad\uc758-\uc800\uc8fc-\ud751\ubc31\uc694\ub9ac\uc0ac\ub294-\uacfc\uc5f0-768x439.jpg 768w\" sizes=\"(max-width: 1200px) 100vw, 1200px\" \/><figcaption>( \u51fa\u5178\uff1a <a href=\"https:\/\/pixabay.com\/ko\/illustrations\/ai-%EC%83%9D%EC%84%B1-%EB%82%A8%EC%84%B1-%EC%9A%94%EB%A6%AC%ED%95%98%EB%8B%A4-8239337\/\" target=\"_blank\" rel=\"noopener\">\u30d4\u30af\u30b5\u30fc\u30d9\u30a4<\/a> )<\/figcaption><\/figure><\/div>\n\n\n\n<p class=\"wp-block-paragraph\">\u3082\u3057\u304b\u3057\u3066 <em>\u767d\u3068\u9ed2\u306e\u6599\u7406\u4eba\uff1a\u6599\u7406\u968e\u7d1a\u95d8\u4e89<\/em>\u3092\u3054\u89a7\u306b\u306a\u308a\u307e\u3057\u305f\u304b\uff1f\u53c2\u52a0\u8005\u304c\u767d\u3068\u9ed2\u306b\u5206\u304b\u308c\u3001\u7dca\u5f35\u611f\u3042\u3075\u308c\u308b\u6599\u7406\u5bfe\u6c7a\u3092\u7e70\u308a\u5e83\u3052\u307e\u3059\u3002 \u4e2d\u306b\u306f\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u3092\u7372\u5f97\u3057\u305f\u30b7\u30a7\u30d5\u3082\u767b\u5834\u3057\u3001\u8996\u8074\u8005\u3092\u30ef\u30af\u30ef\u30af\u3055\u305b\u307e\u3057\u305f\u3002 <\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u3057\u304b\u3057\u3001\u305d\u306e\u8f1d\u304f\u661f\u306e\u88cf\u5074\u306b\u306f\u6697\u3044\u5f71\u304c\u3042\u308b\u3053\u3068\u3092\u3054\u5b58\u77e5\u3067\u3059\u304b\uff1f \u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u306f\u6599\u7406\u4eba\u306b\u3068\u3063\u3066\u5922\u306e\u3088\u3046\u306a\u6804\u5149\u3092\u3082\u305f\u3089\u3057\u307e\u3059\u304c\u3001\u6642\u306b\u306f\u91cd\u8377\u3068\u306a\u3063\u3066\u8fd4\u3063\u3066\u304f\u308b\u3053\u3068\u3082\u3042\u308a\u307e\u3059\u3002\u305d\u306e\u305f\u3081\u3001\u4eba\u3005\u306f'\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u306f<strong>\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u306e\u546a\u3044<\/strong>\u3068\u547c\u3076\u3053\u3068\u3082\u3042\u308a\u307e\u3059\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u4eca\u65e5\u306fR\u3092\u4f7f\u3063\u3066\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u546a\u3044\u306b\u3064\u3044\u3066\u8aac\u660e\u3057\u307e\u3059\u3002 <a href=\"https:\/\/www.economist.com\/business\/2024\/09\/24\/the-curse-of-the-michelin-star\" data-type=\"link\" data-id=\"https:\/\/www.economist.com\/business\/2024\/09\/24\/the-curse-of-the-michelin-star\" target=\"_blank\" rel=\"noopener\">\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u3092\u7372\u5f97\u3057\u305f\u30cb\u30e5\u30fc\u30e8\u30fc\u30af\u306e\u30ec\u30b9\u30c8\u30e9\u30f3\u306e\u3046\u3061\u300140%\u304c2019\u5e74\u307e\u3067\u306b\u5ec3\u696d\u3057\u305f\u3068\u3044\u3046\u885d\u6483\u7684\u306a\u8abf\u67fb\u7d50\u679c\u3002<\/a>\u304c\u3042\u308a\u307e\u3059\u3002 <em>\u767d\u9ed2\u6599\u7406\u4eba<\/em>\u306e\u3088\u3046\u306b\u5922\u3092\u53f6\u3048\u3088\u3046\u3068\u3057\u305f\u5f7c\u3089\u304c\u306a\u305c\u3053\u306e\u3088\u3046\u306a\u7d50\u679c\u306b\u306a\u3063\u305f\u306e\u304b\u3001\u30c7\u30fc\u30bf\u3092\u901a\u3058\u3066\u305d\u306e\u79d8\u5bc6\u3092\u6398\u308a\u4e0b\u3052\u3066\u307f\u307e\u3057\u3087\u3046\u3002 \u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u3092\u53d7\u3051\u305f\u30ec\u30b9\u30c8\u30e9\u30f3\u306e\u751f\u5b58\u7387\u3092\u8996\u899a\u7684\u306b\u5206\u6790\u3057\u3001R\u30b3\u30fc\u30c9\u30921\u884c\u305a\u3064\u8aac\u660e\u3057\u306a\u304c\u3089\u4e00\u7dd2\u306b\u5206\u6790\u3057\u3066\u307f\u307e\u3057\u3087\u3046\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\">\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u546a\u3044\u3068\u306f\uff1f<\/h2>\n\n\n\n<p class=\"wp-block-paragraph\">\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u306f\u5358\u306a\u308b\u8a55\u4fa1\u4ee5\u4e0a\u306e\u3082\u306e\u3067\u3059\u3002\u6599\u7406\u4eba\u306f\u3053\u306e\u661f\u3092\u7372\u5f97\u3059\u308b\u305f\u3081\u306b\u591a\u304f\u306e\u52aa\u529b\u3092\u3057\u307e\u3059\u304c\u3001\u305d\u306e\u6804\u5149\u3092\u5f97\u305f\u5f8c\u3082\u3001\u7d42\u308f\u308a\u306e\u306a\u3044\u30d7\u30ec\u30c3\u30b7\u30e3\u30fc\u304c\u5f7c\u3089\u306e\u80a9\u3092\u5727\u8feb\u3057\u307e\u3059\u3002\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u3092\u7372\u5f97\u3057\u305f\u77ac\u9593\u304b\u3089\u3001\u30b7\u30a7\u30d5\u3068\u30ec\u30b9\u30c8\u30e9\u30f3\u306f\u3088\u308a\u591a\u304f\u306e\u671f\u5f85\u3092\u53d7\u3051\u308b\u3088\u3046\u306b\u306a\u308a\u3001\u305d\u306e\u671f\u5f85\u306b\u5fdc\u3048\u308b\u305f\u3081\u306b\u306f\u3001\u3088\u308a\u591a\u304f\u306e\u30b3\u30b9\u30c8\u3068\u30d7\u30ec\u30c3\u30b7\u30e3\u30fc\u304c\u4f34\u3044\u307e\u3059\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u3092\u7372\u5f97\u3057\u305f\u5f8c\u3001\u98df\u6750\u8cbb\u306f\u4e0a\u6607\u3057\u3001\u6599\u7406\u4eba\u306f\u3088\u308a\u9ad8\u3044\u8cc3\u91d1\u3092\u8981\u6c42\u3055\u308c\u3001\u3055\u3089\u306b\u9867\u5ba2\u306e\u76ee\u7dda\u306f\u9650\u308a\u306a\u304f\u9ad8\u304f\u306a\u308a\u307e\u3059\u3002\u3053\u306e\u3088\u3046\u306a\u72b6\u6cc1\u3067\u751f\u304d\u6b8b\u308c\u306a\u3044\u30ec\u30b9\u30c8\u30e9\u30f3\u306f\u5ec3\u696d\u306e\u9053\u3092\u6b69\u3080\u3053\u3068\u306b\u306a\u308a\u307e\u3059\u3002 \u3060\u304b\u3089\u4eba\u3005\u306f\u3053\u306e\u661f\u3092\u300c\u6804\u5149\u300d\u3068\u547c\u3076\u3053\u3068\u3082\u3042\u308a\u307e\u3059\u304c\u3001\u540c\u6642\u306b\u300c\u546a\u3044\u300d\u3068\u3082\u8a00\u308f\u308c\u308b\u306e\u3067\u3059\u3002<\/p>\n\n\n\n<h2 class=\"wp-block-heading\">R\u3067\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u546a\u3044\u3092\u53ef\u8996\u5316\u3059\u308b<\/h2>\n\n\n\n<p class=\"wp-block-paragraph\">\u305d\u308c\u3067\u306f\u3001\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u546a\u3044\u304c\u5b9f\u969b\u306b\u3069\u306e\u7a0b\u5ea6\u5f71\u97ff\u3057\u3066\u3044\u308b\u306e\u304b\u3001\u30c7\u30fc\u30bf\u3067\u5206\u6790\u3057\u3066\u307f\u307e\u3057\u3087\u3046\u3002R\u3092\u6d3b\u7528\u3057\u3066\u3001\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u3092\u7372\u5f97\u3057\u305f\u30ec\u30b9\u30c8\u30e9\u30f3\u306e\u751f\u5b58\u7387\u3092\u53ef\u8996\u5316\u3057\u3066\u307f\u307e\u3057\u3087\u3046\u3002 \u3053\u306e\u904e\u7a0b\u3067\u4f7f\u7528\u3057\u305f\u30b3\u30fc\u30c9\u306f\u4e00\u884c\u4e00\u884c\u8a73\u3057\u304f\u8aac\u660e\u3059\u308b\u306e\u3067\u3001\u521d\u5fc3\u8005\u306e\u65b9\u3067\u3082\u7c21\u5358\u306b\u7406\u89e3\u3067\u304d\u307e\u3059\uff01<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code># \u5fc5\u8981\u306a\u30e9\u30a4\u30d6\u30e9\u30ea\u3092\u547c\u3073\u51fa\u3057\u307e\u3059\u3002\nlibrary(survival)\nlibrary(survminer)\n\n# 2000\u5e74\u304b\u30892014\u5e74\u307e\u3067\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u3092\u53d7\u3051\u305f\u30ec\u30b9\u30c8\u30e9\u30f3\u306e\u30c7\u30fc\u30bf\u3092\u751f\u6210\u3057\u307e\u3059\u3002\n# close_year: \u30ec\u30b9\u30c8\u30e9\u30f3\u304c\u9589\u5e97\u3057\u305f\u5e74\u3001\u3082\u30572019\u5e74\u307e\u3067\u55b6\u696d\u3057\u3066\u3044\u308b\u5834\u5408\u306fNA\u3067\u8868\u793a\u3059\u308b\u3002\ndata &lt;- data.frame(\n  year = c(2000:2014)\u3001\n  close_year = c(2007, NA, 2012, NA, 2013, 2014, NA, 2017, 2018, 2019, NA, NA, NA, 2019, NA, NA)\n)\n\n# \u30ec\u30b9\u30c8\u30e9\u30f3\u304c\u4f55\u5e74\u55b6\u696d\u3057\u3066\u3044\u305f\u304b\u3092\u8a08\u7b97\u3059\u308b\n# \u3082\u30572019\u5e74\u307e\u3067\u958b\u5e97\u3057\u3066\u3044\u308b\u5834\u5408\u30012019\u5e74\u57fa\u6e96\u3067\u904b\u55b6\u671f\u9593\u3092\u8a08\u7b97\u3059\u308b\ndata$time_open &lt;- ifelse(is.na(data$close_year), 2019 - data$year, data$close_year - data$year)\n\n# \u30ec\u30b9\u30c8\u30e9\u30f3\u304c\u9589\u5e97\u3057\u305f\u304b\u3069\u3046\u304b\u30921\u30680\u3067\u8868\u793a (1:\u9589\u5e97\u30010:\u55b6\u696d\u4e2d)\ndata$status &lt;- ifelse(is.na(data$close_year), 0, 1)<\/code><\/pre>\n\n\n\n<p class=\"wp-block-paragraph\"><kbd>\u5b9f\u306f\u3001\u3067\u304d\u308b\u3060\u3051Economist\u306e\u8a18\u4e8b\u306e\u539f\u30c7\u30fc\u30bf\u3092\u63a2\u3057\u307e\u3057\u305f\u304c\u3001\u898b\u3064\u304b\u3089\u306a\u304b\u3063\u305f\u306e\u3067\u3001\u3053\u306e\u30ec\u30d9\u30eb\u3067\u3057\u304b\u8996\u899a\u5316\u3067\u304d\u306a\u3044\u3053\u3068\u3092\u3054\u4e86\u627f\u304f\u3060\u3055\u3044\u3002<\/kbd><\/p>\n\n\n\n<h3 class=\"wp-block-heading\">\u30b3\u30fc\u30c9\u306e\u8aac\u660e\uff1a<\/h3>\n\n\n\n<ol class=\"wp-block-list\">\n<li><code>data.frame<\/code>: \u307e\u305a\u30012000\u5e74\u304b\u30892014\u5e74\u306e\u9593\u306b\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u3092\u7372\u5f97\u3057\u305f\u30ec\u30b9\u30c8\u30e9\u30f3\u306e\u30c7\u30fc\u30bf\u3092\u751f\u6210\u3057\u307e\u3059\u3002 <code>close_year<\/code>\u306f\u305d\u306e\u30ec\u30b9\u30c8\u30e9\u30f3\u304c\u9589\u5e97\u3057\u305f\u5e74\u3092\u8868\u3057\u30012019\u5e74\u307e\u3067\u55b6\u696d\u3057\u3066\u3044\u308b\u306e\u306f <code>NA<\/code>\u3067\u51e6\u7406\u3057\u307e\u3059\u3002<\/li>\n\n\n\n<li><code>time_open<\/code>\u3067\u3059\uff1a\u30ec\u30b9\u30c8\u30e9\u30f3\u304c\u4f55\u5e74\u55b6\u696d\u3057\u3066\u3044\u308b\u304b\u3092\u8a08\u7b97\u3059\u308b\u30b3\u30fc\u30c9\u3067\u3059\u30022019\u5e74\u307e\u3067\u55b6\u696d\u3057\u3066\u3044\u308b\u5834\u5408\u30012019\u5e74\u3092\u57fa\u6e96\u306b\u55b6\u696d\u671f\u9593\u3092\u8a08\u7b97\u3057\u307e\u3059\u3002<\/li>\n\n\n\n<li><code>\u30b9\u30c6\u30fc\u30bf\u30b9<\/code>:\u5ec3\u696d\u306e\u6709\u7121\u3092\u8868\u3059\u5909\u6570\u3067\u3059\u3002\u5ec3\u696d\u3057\u305f\u5834\u5408\u306f1\u3001\u307e\u3060\u55b6\u696d\u4e2d\u306e\u5834\u5408\u306f0\u3067\u8868\u793a\u3055\u308c\u307e\u3059\u3002<\/li>\n<\/ol>\n\n\n\n<p class=\"wp-block-paragraph\">\u4e0a\u8a18\u3067\u4eee\u60f3\u7684\u306b\u751f\u6210\u3057\u305f\u30c7\u30fc\u30bf\u3092\u78ba\u8a8d\u3059\u308b\u3068\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u78ba\u8a8d\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n<div class=\"wp-block-columns is-layout-flex wp-container-core-columns-is-layout-8f761849 wp-block-columns-is-layout-flex\">\n<div class=\"wp-block-column is-layout-flow wp-block-column-is-layout-flow\"><style>.kb-image2995_f00d1c-2d .kb-image-has-overlay:after{opacity:0.3;}<\/style>\n<div class=\"wp-block-kadence-image kb-image2995_f00d1c-2d\"><figure class=\"aligncenter size-full\"><img decoding=\"async\" width=\"295\" height=\"268\" src=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/image-1-23.jpg\" alt=\"\" class=\"kb-img wp-image-2999\"\/><figcaption>( \u30b3\u30f3\u30bd\u30fc\u30eb\u3067\u78ba\u8a8d\u3057\u305f data )<\/figcaption><\/figure><\/div>\n<\/div>\n\n\n\n<div class=\"wp-block-column is-layout-flow wp-block-column-is-layout-flow\"><style>.kb-image2995_f6f2bb-ae .kb-image-has-overlay:after{opacity:0.3;}<\/style>\n<div class=\"wp-block-kadence-image kb-image2995_f6f2bb-ae\"><figure class=\"aligncenter size-full\"><img decoding=\"async\" width=\"322\" height=\"392\" src=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/image-1-24.jpg\" alt=\"\" class=\"kb-img wp-image-3000\" srcset=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/image-1-24.jpg 322w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/image-1-24-300x365.jpg 300w\" sizes=\"(max-width: 322px) 100vw, 322px\" \/><figcaption>( View\u30b3\u30de\u30f3\u30c9\u3067\u78ba\u8a8d\u3057\u305f data )<\/figcaption><\/figure><\/div>\n<\/div>\n<\/div>\n\n\n\n<pre class=\"wp-block-code\"><code># Kaplan-Meier \u751f\u5b58\u30e2\u30c7\u30eb\u3092\u9069\u7528\u3057\u3066\u751f\u5b58\u66f2\u7dda\u3092\u751f\u6210\u3057\u307e\u3059\u3002\nfit &lt;- survfit(Surv(time_open, status) ~ 1, data = data)\n\n# \u751f\u5b58\u66f2\u7dda\u3092\u53ef\u8996\u5316(\u30c7\u30fc\u30bf\u3092\u660e\u793a\u7684\u306b\u6e21\u3059)\nggsurvplot(fit\u3001\n           data = data, # ggsurvplot\u306b\u30c7\u30fc\u30bf\u3092\u6e21\u3057\u307e\u3059\u3002\n           conf.int = TRUE, #\u4fe1\u983c\u533a\u9593\u3092\u8868\u793a\u3059\u308b\n           xlab = &quot;\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u3092\u7372\u5f97\u3057\u3066\u304b\u3089\u7d4c\u904e\u3057\u305f\u5e74&quot;, # x\u8ef8\u30e9\u30d9\u30eb\n           ylab = &quot;\u55b6\u696d\u3057\u3066\u3044\u308b\u30ec\u30b9\u30c8\u30e9\u30f3\u306e\u5272\u5408&quot;, # y\u8ef8\u30e9\u30d9\u30eb\n           title = &quot;\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u3092\u7372\u5f97\u3057\u305f\u30ec\u30b9\u30c8\u30e9\u30f3\u306e\u751f\u5b58\u66f2\u7dda&quot;, # \u30b0\u30e9\u30d5\u30bf\u30a4\u30c8\u30eb\n           palette = &quot;blue&quot;\u3001#\u30b0\u30e9\u30d5\u306e\u8272\n           risk.table = TRUE, # \u5404\u5e74\u5ea6\u306e\u30ea\u30b9\u30af\u30c6\u30fc\u30d6\u30eb\u3092\u8ffd\u52a0\u3057\u307e\u3059\u3002\n           ggtheme = theme_minimal()) # \u30df\u30cb\u30de\u30ea\u30b9\u30c8\u30c6\u30fc\u30de\u306e\u9069\u7528<\/code><\/pre>\n\n\n\n<h3 class=\"wp-block-heading\">\u30b3\u30fc\u30c9\u306e\u8aac\u660e\uff1a<\/h3>\n\n\n\n<ol class=\"wp-block-list\">\n<li><strong>Kaplan-Meier\u30e2\u30c7\u30eb<\/strong>\u3092\u4f7f\u7528\u3057\u3066\u3001\u30ec\u30b9\u30c8\u30e9\u30f3\u306e\u751f\u5b58\u66f2\u7dda\u3092\u63cf\u304d\u307e\u3059\u3002\u3053\u306e\u30b5\u30d0\u30a4\u30d0\u30eb\u30ab\u30fc\u30d6\u306f\u3001\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u3092\u7372\u5f97\u3057\u3066\u304b\u3089\u4f55\u5e74\u5f8c\u306b\u30ec\u30b9\u30c8\u30e9\u30f3\u304c\u751f\u304d\u6b8b\u3063\u305f\u304b\u3092\u8996\u899a\u5316\u3057\u307e\u3059\u3002<\/li>\n\n\n\n<li><code>ggsurvplot<\/code>: \u751f\u5b58\u66f2\u7dda\u3092\u8996\u899a\u5316\u3059\u308b\u95a2\u6570\u3067\u3059\u3002 <code>conf.int = TRUE<\/code>\u306f\u4fe1\u983c\u533a\u9593\u3092\u8868\u793a\u3057\u307e\u3059\u3001 <code>risk.table<\/code>\u3092\u901a\u3058\u3066\u3001\u5404\u5e74\u5ea6\u306e\u6b8b\u3055\u308c\u305f\u30ec\u30b9\u30c8\u30e9\u30f3\u306e\u6570\u3092\u3055\u3089\u306b\u8868\u793a\u3057\u307e\u3059\u3002<\/li>\n\n\n\n<li><code>\u30d1\u30ec\u30c3\u30c8 = \"\u9752\"<\/code>: \u9752\u8272\u3092\u4f7f\u7528\u3057\u3066\u30b0\u30e9\u30d5\u3092\u3088\u308a\u898b\u3084\u3059\u304f\u3057\u307e\u3057\u305f\u3002<\/li>\n<\/ol>\n\n\n\n<h3 class=\"wp-block-heading\">\u53ef\u8996\u5316\u7d50\u679c\u306e\u8aac\u660e\uff1a<\/h3>\n\n\n<style>.kb-image2995_4e1f5f-62 .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-image2995_4e1f5f-62 img.kb-img, .kb-image2995_4e1f5f-62 .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-image2995_4e1f5f-62\"><figure class=\"aligncenter size-full\"><a href=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/image-1-25.jpg\" class=\"kb-advanced-image-link\"><img decoding=\"async\" width=\"1200\" height=\"658\" src=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/image-1-25.jpg\" alt=\"\ubbf8\uc290\ub7ad \uc800\uc8fc \uc2dc\uac01\ud654 \uacb0\uacfc\" class=\"kb-img wp-image-3001\" srcset=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/image-1-25.jpg 1200w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/image-1-25-300x165.jpg 300w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/image-1-25-600x329.jpg 600w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/image-1-25-768x421.jpg 768w\" sizes=\"(max-width: 1200px) 100vw, 1200px\" \/><\/a><figcaption>( \u30df\u30b7\u30e5\u30e9\u30f3\u306e\u546a\u3044\u306e\u53ef\u8996\u5316\u7d50\u679c )<\/figcaption><\/figure><\/div>\n\n\n\n<h4 class=\"wp-block-heading\">1. <strong>\u30b5\u30d0\u30a4\u30d0\u30eb\u30ab\u30fc\u30d6\u306e\u6982\u8981<\/strong>:<\/h4>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\u9752\u3044\u7dda\u306f\u30012000\u5e74\u304b\u30892014\u5e74\u307e\u3067\u306e\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u3092\u7372\u5f97\u3057\u305f\u30ec\u30b9\u30c8\u30e9\u30f3\u306e\u751f\u5b58\u66f2\u7dda\u3092\u793a\u3057\u3066\u3044\u307e\u3059\u3002<\/li>\n\n\n\n<li>x\u8ef8\u306f\u3001\u30ec\u30b9\u30c8\u30e9\u30f3\u304c\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u3092\u7372\u5f97\u3057\u3066\u304b\u3089\u7d4c\u904e\u3057\u305f\u5e74\u6570\u3092\u793a\u3057\u3066\u3044\u307e\u3059\u3002<\/li>\n\n\n\n<li>y\u8ef8\u306f\u307e\u3060\u55b6\u696d\u3057\u3066\u3044\u308b\u30ec\u30b9\u30c8\u30e9\u30f3\u306e\u5272\u5408\u3092\u8868\u3057\u3066\u3044\u307e\u3059\u3002<\/li>\n<\/ul>\n\n\n\n<h4 class=\"wp-block-heading\">2. <strong>\u66f2\u7dda\u306e\u4e3b\u306a\u30dd\u30a4\u30f3\u30c8<\/strong>:<\/h4>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\u66f2\u7dda\u306f0\u5e74\u306e\u6642\u70b9\u3067100%(\u307e\u305f\u306f1.0)\u304b\u3089\u59cb\u307e\u308a\u307e\u3059\u304c\u3001\u3053\u308c\u306f\u3059\u3079\u3066\u306e\u30ec\u30b9\u30c8\u30e9\u30f3\u304c\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u3092\u7372\u5f97\u3057\u305f\u76f4\u5f8c\u306f\u55b6\u696d\u3057\u3066\u3044\u305f\u3053\u3068\u3092\u610f\u5473\u3057\u307e\u3059\u3002<\/li>\n\n\n\n<li>\u6642\u9593\u304c\u7d4c\u3064\u306b\u3064\u308c\u3066\u66f2\u7dda\u304c\u968e\u6bb5\u72b6\u306b\u4e0b\u304c\u3063\u3066\u3044\u304f\u306e\u306f\u3001\u305d\u306e\u6642\u70b9\u3067\u4e00\u90e8\u306e\u30ec\u30b9\u30c8\u30e9\u30f3\u304c\u5ec3\u696d\u3057\u305f\u3053\u3068\u3092\u793a\u3057\u3066\u3044\u307e\u3059\u3002<\/li>\n\n\n\n<li>5\u5e74\u30017\u5e74\u306a\u3069\u306e\u6642\u70b9\u3067\u66f2\u7dda\u304c\u6025\u6fc0\u306b\u4e0b\u304c\u308a\u3001\u305d\u306e\u6642\u70b9\u3067\u591a\u304f\u306e\u30ec\u30b9\u30c8\u30e9\u30f3\u304c\u9589\u5e97\u3057\u305f\u3053\u3068\u3092\u610f\u5473\u3057\u307e\u3059\u3002<\/li>\n\n\n\n<li>\u30b0\u30e9\u30d5\u306e\u6700\u5f8c\uff08\u7d0417\u5e74\uff09\u306b\u306a\u308b\u3068\u3001\u7d0425%\u306e\u30ec\u30b9\u30c8\u30e9\u30f3\u3060\u3051\u304c\u55b6\u696d\u3092\u7dad\u6301\u3057\u3066\u3044\u307e\u3059\u3002<\/li>\n<\/ul>\n\n\n\n<h4 class=\"wp-block-heading\">3. <strong>\u30b0\u30ec\u30fc\u30b7\u30a7\u30fc\u30c9\uff08\u4fe1\u983c\u533a\u9593\uff09<\/strong>:<\/h4>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\u9752\u3044\u7dda\u306e\u5468\u308a\u306e\u30b0\u30ec\u30fc\u306e\u8272\u5408\u3044\u306f\u4fe1\u983c\u533a\u9593\u3092\u793a\u3057\u3066\u3044\u307e\u3059\u3002<\/li>\n\n\n\n<li>\u3053\u308c\u306f\u751f\u5b58\u78ba\u7387\u306e\u4e0d\u78ba\u5b9f\u6027\u3092\u610f\u5473\u3057\u3001\u9670\u5f71\u304c\u5e83\u3044\u307b\u3069\u3001\u305d\u306e\u78ba\u7387\u306e\u4e0d\u78ba\u5b9f\u6027\u304c\u5927\u304d\u3044\u3053\u3068\u3092\u793a\u3057\u307e\u3059\u3002<\/li>\n\n\n\n<li>\u6642\u9593\u304c\u7d4c\u3064\u306b\u3064\u308c\u3066\u4fe1\u983c\u533a\u9593\u304c\u5e83\u304c\u308a\u307e\u3059\u3002\u3053\u308c\u306f\u3001\u6642\u9593\u304c\u7d4c\u3064\u306b\u3064\u308c\u3066\u30c7\u30fc\u30bf\u306e\u4e0d\u78ba\u5b9f\u6027\u304c\u5927\u304d\u304f\u306a\u308b\u3053\u3068\u3092\u610f\u5473\u3057\u307e\u3059\u3002<\/li>\n<\/ul>\n\n\n\n<h4 class=\"wp-block-heading\">4. <strong>\u5371\u967a\u306b\u3055\u3089\u3055\u308c\u3066\u3044\u308b\u6570\uff08Number at Risk\uff09\u8868<\/strong>:<\/h4>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\u30b0\u30e9\u30d5\u306e\u4e0b\u90e8\u306b\u300cNumber at risk\u300d\u3068\u3044\u3046\u8868\u304c\u3042\u308a\u307e\u3059\u3002<\/li>\n\n\n\n<li>\u3053\u308c\u306f\u3001\u5404\u6642\u70b9\u3067\u307e\u3060\u55b6\u696d\u3057\u3066\u3044\u308b\u30ec\u30b9\u30c8\u30e9\u30f3\u306e\u6570\u3092\u793a\u3057\u3066\u3044\u307e\u3059\u3002<\/li>\n\n\n\n<li>\u4f8b\u3048\u3070\u30010\u5e74\u6642\u70b9\u3067\u306f15\u5e97\u8217\u304c\u3042\u308a\u307e\u3057\u305f\u304c\u300110\u5e74\u5f8c\u306b\u306f7\u5e97\u8217\u3057\u304b\u6b8b\u3063\u3066\u3044\u307e\u305b\u3093\u3067\u3057\u305f\u3002<\/li>\n\n\n\n<li>17.5\u5e74\u7d4c\u3064\u3068\u30011\u5e97\u8217\u3060\u3051\u304c\u55b6\u696d\u4e2d\u306e\u307e\u307e\u3067\u3059\u3002<\/li>\n<\/ul>\n\n\n\n<h4 class=\"wp-block-heading\">5. <strong>\u66f2\u7dda\u89e3\u6790<\/strong>:<\/h4>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\u66f2\u7dda\u304c\u6025\u6fc0\u306b\u4e0b\u964d\u3059\u308b\u90e8\u5206\u306f\u3001\u591a\u6570\u306e\u30ec\u30b9\u30c8\u30e9\u30f3\u304c\u5ec3\u696d\u3057\u305f\u6642\u70b9\u3092\u610f\u5473\u3057\u307e\u3059\u3002<\/li>\n\n\n\n<li>10\u5e74\u4ee5\u964d\u306f\u66f2\u7dda\u304c\u3086\u3063\u304f\u308a\u3068\u4e0b\u304c\u308a\u3001\u305d\u306e\u6642\u70b9\u304b\u3089\u5ec3\u696d\u3059\u308b\u30ec\u30b9\u30c8\u30e9\u30f3\u306e\u6570\u306f\u6e1b\u308a\u307e\u3059\u304c\u3001\u305d\u308c\u3067\u3082\u5ec3\u696d\u304c\u767a\u751f\u3057\u3066\u3044\u308b\u3053\u3068\u3092\u793a\u3057\u3066\u3044\u307e\u3059\u3002<\/li>\n\n\n\n<li>\u6700\u7d42\u7684\u306b25%\u7a0b\u5ea6\u306e\u30ec\u30b9\u30c8\u30e9\u30f3\u3060\u3051\u304c\u7d0417.5\u5e74\u5f8c\u3082\u55b6\u696d\u3092\u7dad\u6301\u3057\u3066\u3044\u308b\u3068\u3044\u3046\u7d50\u679c\u3092\u793a\u3057\u3066\u3044\u307e\u3059\u3002<\/li>\n<\/ul>\n\n\n\n<h2 class=\"wp-block-heading\">\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u546a\u3044\u3001\u305d\u306e\u91cd\u3044\u73fe\u5b9f<\/h2>\n\n\n\n<p class=\"wp-block-paragraph\">\u751f\u5b58\u66f2\u7dda\u304b\u3089\u898b\u305f\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u306e\u7d50\u679c\u306f\u660e\u3089\u304b\u3067\u3059\u3002\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u3092\u53d7\u3051\u305f\u30ec\u30b9\u30c8\u30e9\u30f3\u306e\u751f\u5b58\u7387\u306f\u5e74\u3092\u8ffd\u3046\u3054\u3068\u306b\u6025\u6fc0\u306b\u4f4e\u4e0b\u3057\u3001\u591a\u304f\u306e\u30ec\u30b9\u30c8\u30e9\u30f3\u304c\u9589\u5e97\u3059\u308b\u3053\u3068\u3092\u78ba\u8a8d\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002 \u7279\u306b <strong>\u30cb\u30e5\u30fc\u30e8\u30fc\u30af\u3067\u306f\u3001\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u3092\u7372\u5f97\u3057\u305f\u30ec\u30b9\u30c8\u30e9\u30f3\u306e40%\u304c2019\u5e74\u307e\u3067\u5ec3\u696d\u3057\u3066\u3044\u305f\u3068\u3044\u3046\u885d\u6483\u7684\u306a\u4e8b\u5b9f\u3002<\/strong>\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u3053\u308c\u3060\u3051\u591a\u304f\u306e\u30ec\u30b9\u30c8\u30e9\u30f3\u304c\u5ec3\u696d\u3059\u308b\u7406\u7531\u306f\u4f55\u3067\u3057\u3087\u3046\u304b\uff1f \u305d\u308c\u306f\u3001\u307e\u3055\u306b <strong>\u9867\u5ba2\u306e\u671f\u5f85\u306e\u9ad8\u307e\u308a\u3068\u305d\u308c\u306b\u4f34\u3046\u30b3\u30b9\u30c8\u4e0a\u6607<\/strong> \u306a\u305c\u306a\u3089\u3001\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u3092\u7372\u5f97\u3057\u305f\u5e97\u3067\u3042\u308c\u3070\u3001\u9867\u5ba2\u306f\u5f53\u7136\u3001\u6700\u9ad8\u306e\u30b5\u30fc\u30d3\u30b9\u3068\u6700\u9ad8\u306e\u98df\u6750\u3092\u671f\u5f85\u3057\u3001\u30ec\u30b9\u30c8\u30e9\u30f3\u306f\u305d\u306e\u671f\u5f85\u306b\u5fdc\u3048\u308b\u305f\u3081\u306b\u7d76\u3048\u9593\u306a\u304f\u6295\u8cc7\u3092\u3057\u306a\u3051\u308c\u3070\u306a\u308a\u307e\u305b\u3093\u3002 \u3057\u304b\u3057\u3001\u305d\u306e\u904e\u7a0b\u3067\u5897\u5927\u3059\u308b\u7d4c\u6e08\u7684\u8ca0\u62c5\u306b\u8010\u3048\u3089\u308c\u305a\u3001\u6700\u7d42\u7684\u306b\u306f\u5ec3\u696d\u3057\u3066\u3057\u307e\u3046\u306e\u3067\u3059\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u3092\u7372\u5f97\u3059\u308b\u3053\u3068\u306f\u3001\u6599\u7406\u4eba\u306b\u3068\u3063\u3066\u6700\u9ad8\u306e\u6804\u8a89\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\u3001\u540c\u6642\u306b\u305d\u308c\u306f\u91cd\u3044\u8cac\u4efb\u3092\u8ca0\u3046\u3053\u3068\u3067\u3082\u3042\u308a\u307e\u3059\u3002 \u305d\u3053\u3067\u79c1\u305f\u3061\u306f\u3053\u306e\u73fe\u8c61\u3092\u300c\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u546a\u3044\u300d\u3068\u547c\u3093\u3067\u3044\u307e\u3059\u3002\u3053\u306e\u546a\u3044\u304b\u3089\u9003\u308c\u308b\u3053\u3068\u304c\u3067\u304d\u308b\u6599\u7406\u4eba\u306f\u591a\u304f\u3042\u308a\u307e\u305b\u3093\u3002 <em>\u767d\u9ed2\u6599\u7406\u4eba<\/em>\u306b\u51fa\u6f14\u3057\u305f\u30b7\u30a7\u30d5\u306e\u4e2d\u3067\u3082\u3001\u305d\u306e\u3088\u3046\u306a\u30b1\u30fc\u30b9\u3092\u57a3\u9593\u898b\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n<h2 class=\"wp-block-heading\">\u307e\u3068\u3081\uff1a\u9ed2\u3068\u767d\u306e\u30b7\u30a7\u30d5\u3082\u907f\u3051\u3089\u308c\u306a\u3044\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u546a\u3044<\/h2>\n\n\n\n<p class=\"wp-block-paragraph\">\u4eca\u65e5\u306fR\u3067\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u546a\u3044\u306b\u3064\u3044\u3066\u5206\u6790\u3057\u3066\u307f\u307e\u3057\u305f\u304c\u3001\u305d\u306e\u7d50\u679c\u306f\u9a5a\u304f\u3079\u304d\u3082\u306e\u3067\u3057\u305f\u3002\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u306f\u6804\u8a89\u3067\u3059\u304c\u3001\u305d\u306e\u88cf\u306b\u306f\u91cd\u3044\u8ca0\u62c5\u3068\u9ad8\u3044\u671f\u5f85\u304c\u3064\u304d\u307e\u3068\u3044\u3001\u305d\u306e\u305f\u3081\u306b\u591a\u304f\u306e\u30ec\u30b9\u30c8\u30e9\u30f3\u304c\u9589\u5e97\u3057\u3066\u3057\u307e\u3044\u307e\u3059\u3002\u30c7\u30fc\u30bf\u3067\u78ba\u8a8d\u3057\u305f\u7d50\u679c\u3001\u3053\u306e\u546a\u3044\u306f\u795e\u8a71\u3067\u306f\u306a\u304f\u73fe\u5b9f\u3067\u3042\u308b\u3053\u3068\u304c\u308f\u304b\u308a\u307e\u3057\u305f\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u3082\u3057\u7686\u3055\u3093\u3082\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u546a\u3044\u306b\u3064\u3044\u3066\u3082\u3063\u3068\u77e5\u308a\u305f\u3044\u306a\u3089\u3001\u4eca\u65e5\u7d39\u4ecb\u3057\u305fR\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002\u3042\u306a\u305f\u3060\u3051\u306e\u30c7\u30fc\u30bf\u3067\u5206\u6790\u3057\u3066\u307f\u308b\u306e\u3082\u826f\u3044\u7d4c\u9a13\u306b\u306a\u308b\u3068\u601d\u3044\u307e\u3059\uff01\u305d\u3057\u3066\u3001\u4eca\u65e5\u7d39\u4ecb\u3057\u305fKaplan-Meier\u30e2\u30c7\u30eb\u304c\u7c21\u5358\u306b\u7406\u89e3\u3067\u304d\u306a\u3044\u306e\u3067\u3001\u5225\u306e\u30dd\u30b9\u30c8\u3067\u3053\u306e\u5185\u5bb9\u3092\u7c21\u5358\u306b\u7d39\u4ecb\u3057\u307e\u3059\u3002<\/p>\n\n\n\n<h3 class=\"wp-block-heading\">#\u5168R\u30b3\u30fc\u30c9<\/h3>\n\n\n\n<p class=\"wp-block-paragraph\">\u5168\u4f53\u306e\u30b3\u30fc\u30c9\u3092\u3082\u3046\u4e00\u5ea6\u304a\u898b\u305b\u3057\u3066\u3001\u3053\u306e\u6295\u7a3f\u3092\u7d42\u308f\u308a\u307e\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code># \u5fc5\u8981\u306a\u30e9\u30a4\u30d6\u30e9\u30ea\u3092\u547c\u3073\u51fa\u3057\u307e\u3059\u3002\nlibrary(survival)\nlibrary(survminer)\n\n# 2000\u5e74\u304b\u30892014\u5e74\u307e\u3067\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u3092\u7372\u5f97\u3057\u305f\u30ec\u30b9\u30c8\u30e9\u30f3\u306e\u30c7\u30fc\u30bf\u3092\u751f\u6210\u3057\u307e\u3059\u3002\n# close_year: \u30ec\u30b9\u30c8\u30e9\u30f3\u304c\u9589\u5e97\u3057\u305f\u5e74\u30012019\u5e74\u307e\u3067\u55b6\u696d\u3057\u3066\u3044\u308b\u5834\u5408\u306fNA\u3067\u8868\u793a\u3059\u308b\u3002\ndata &lt;- data.frame(\n    year = c(2000:2014)\u3001\n    close_year = c(2007, NA, 2012, NA, 2013, 2014, NA, 2017, 2018, 2019, NA, NA, NA, 2019, NA, NA)\n)\n\n# \u30ec\u30b9\u30c8\u30e9\u30f3\u304c\u4f55\u5e74\u9593\u55b6\u696d\u3057\u3066\u3044\u305f\u304b\u3092\u8a08\u7b97\u3059\u308b\n# 2019\u5e74\u307e\u3067\u55b6\u696d\u3057\u3066\u3044\u308b\u5834\u5408\u30012019\u5e74\u3092\u57fa\u6e96\u306b\u55b6\u696d\u671f\u9593\u3092\u8a08\u7b97\u3057\u307e\u3059\u3002\ndata$time_open &lt;- ifelse(is.na(data$close_year), 2019 - data$year, data$close_year - data$year)\n\n# \u30ec\u30b9\u30c8\u30e9\u30f3\u304c\u9589\u5e97\u3057\u305f\u304b\u3069\u3046\u304b\u30921\u30680\u3067\u8868\u793a (1:\u9589\u5e97\u30010:\u55b6\u696d\u4e2d)\ndata$status &lt;- ifelse(is.na(data$close_year), 0, 1)\n\n# Kaplan-Meier\u751f\u5b58\u30e2\u30c7\u30eb\u3092\u9069\u7528\u3057\u3066\u751f\u5b58\u66f2\u7dda\u3092\u751f\u6210\u3057\u307e\u3059\u3002\nfit &lt;- survfit(Surv(time_open, status) ~ 1, data = data)\n\n# \u751f\u5b58\u66f2\u7dda\u3092\u53ef\u8996\u5316(\u30c7\u30fc\u30bf\u3092\u660e\u793a\u7684\u306b\u6e21\u3059)\nggsurvplot(fit\u3001\n           data = data, # ggsurvplot\u306b\u30c7\u30fc\u30bf\u3092\u6e21\u3057\u307e\u3059\u3002\n           conf.int = TRUE, # \u4fe1\u983c\u533a\u9593\u3092\u8868\u793a\u3059\u308b\n           xlab = &quot;\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u3092\u7372\u5f97\u3057\u3066\u304b\u3089\u7d4c\u904e\u3057\u305f\u5e74&quot;, # x\u8ef8\u30e9\u30d9\u30eb\n           ylab = &quot;\u55b6\u696d\u3057\u3066\u3044\u308b\u30ec\u30b9\u30c8\u30e9\u30f3\u306e\u5272\u5408&quot;, # y\u8ef8\u30e9\u30d9\u30eb\n           title = &quot;\u30df\u30b7\u30e5\u30e9\u30f3\u306e\u661f\u3092\u7372\u5f97\u3057\u305f\u30ec\u30b9\u30c8\u30e9\u30f3\u306e\u751f\u5b58\u66f2\u7dda&quot;, # \u30b0\u30e9\u30d5\u30bf\u30a4\u30c8\u30eb\n           palette = &quot;blue&quot;\u3001#\u30b0\u30e9\u30d5\u306e\u8272\n           risk.table = TRUE, # \u5404\u5e74\u5ea6\u306e\u30ea\u30b9\u30af\u30c6\u30fc\u30d6\u30eb\u3092\u8ffd\u52a0\u3057\u307e\u3059\u3002\n           ggtheme = theme_minimal()) # \u30df\u30cb\u30de\u30ea\u30b9\u30c8\u30c6\u30fc\u30de\u306e\u9069\u7528\n<\/code><\/pre>","protected":false},"excerpt":{"rendered":"<p>\u767d\u3068\u9ed2\u306e\u6599\u7406\u4eba\uff1a\u6599\u7406\u968e\u7d1a\u95d8\u4e89\u3092\u3054\u89a7\u306b\u306a\u308a\u307e\u3057\u305f\u304b\uff1f\u53c2\u52a0\u8005\u304c\u767d\u3068\u9ed2\u306b\u5206\u304b\u308c\u3001\u7dca\u5f35\u611f\u3042\u3075\u308c\u308b...<\/p>","protected":false},"author":3,"featured_media":2998,"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":[380,164,383,378,379,382,381,377],"class_list":["post-2995","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-r-coding","tag-r-","tag-164","tag-383","tag-378","tag-379","tag-382","tag-381","tag-377"],"taxonomy_info":{"category":[{"value":6,"label":"\uc54c(R)"}],"post_tag":[{"value":380,"label":"R \ubd84\uc11d"},{"value":164,"label":"\ub370\uc774\ud130 \uc2dc\uac01\ud654"},{"value":383,"label":"\ub808\uc2a4\ud1a0\ub791"},{"value":378,"label":"\ubbf8\uc290\ub7ad \uc2a4\ud0c0"},{"value":379,"label":"\ubbf8\uc290\ub7ad \uc800\uc8fc"},{"value":382,"label":"\uc0dd\uc874 \ubd84\uc11d"},{"value":381,"label":"\uc694\ub9ac\uc0ac"},{"value":377,"label":"\ud751\ubc31\uc694\ub9ac\uc0ac"}]},"featured_image_src_large":["https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/10\/\ubbf8\uc290\ub7ad-\uc800\uc8fc-\ud751\ubc31\uc694\ub9ac\uc0ac-\uc378\ub124\uc77c-600x600.webp",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":380,"name":"R \ubd84\uc11d","slug":"r-%eb%b6%84%ec%84%9d","term_group":0,"term_taxonomy_id":380,"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":383,"name":"\ub808\uc2a4\ud1a0\ub791","slug":"%eb%a0%88%ec%8a%a4%ed%86%a0%eb%9e%91","term_group":0,"term_taxonomy_id":383,"taxonomy":"post_tag","description":"","parent":0,"count":1,"filter":"raw"},{"term_id":378,"name":"\ubbf8\uc290\ub7ad \uc2a4\ud0c0","slug":"%eb%af%b8%ec%8a%90%eb%9e%ad-%ec%8a%a4%ed%83%80","term_group":0,"term_taxonomy_id":378,"taxonomy":"post_tag","description":"","parent":0,"count":1,"filter":"raw"},{"term_id":379,"name":"\ubbf8\uc290\ub7ad \uc800\uc8fc","slug":"%eb%af%b8%ec%8a%90%eb%9e%ad-%ec%a0%80%ec%a3%bc","term_group":0,"term_taxonomy_id":379,"taxonomy":"post_tag","description":"","parent":0,"count":1,"filter":"raw"},{"term_id":382,"name":"\uc0dd\uc874 \ubd84\uc11d","slug":"%ec%83%9d%ec%a1%b4-%eb%b6%84%ec%84%9d","term_group":0,"term_taxonomy_id":382,"taxonomy":"post_tag","description":"","parent":0,"count":2,"filter":"raw"},{"term_id":381,"name":"\uc694\ub9ac\uc0ac","slug":"%ec%9a%94%eb%a6%ac%ec%82%ac","term_group":0,"term_taxonomy_id":381,"taxonomy":"post_tag","description":"","parent":0,"count":1,"filter":"raw"},{"term_id":377,"name":"\ud751\ubc31\uc694\ub9ac\uc0ac","slug":"%ed%9d%91%eb%b0%b1%ec%9a%94%eb%a6%ac%ec%82%ac","term_group":0,"term_taxonomy_id":377,"taxonomy":"post_tag","description":"","parent":0,"count":1,"filter":"raw"}],"_links":{"self":[{"href":"https:\/\/secondlife.lol\/ja\/wp-json\/wp\/v2\/posts\/2995","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=2995"}],"version-history":[{"count":1,"href":"https:\/\/secondlife.lol\/ja\/wp-json\/wp\/v2\/posts\/2995\/revisions"}],"predecessor-version":[{"id":3002,"href":"https:\/\/secondlife.lol\/ja\/wp-json\/wp\/v2\/posts\/2995\/revisions\/3002"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/secondlife.lol\/ja\/wp-json\/wp\/v2\/media\/2998"}],"wp:attachment":[{"href":"https:\/\/secondlife.lol\/ja\/wp-json\/wp\/v2\/media?parent=2995"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/secondlife.lol\/ja\/wp-json\/wp\/v2\/categories?post=2995"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/secondlife.lol\/ja\/wp-json\/wp\/v2\/tags?post=2995"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}