{"id":4717,"date":"2026-08-09T18:47:21","date_gmt":"2026-08-09T09:47:21","guid":{"rendered":"https:\/\/best-biostatistics.com\/toukei-er\/?p=4717"},"modified":"2026-08-09T18:47:21","modified_gmt":"2026-08-09T09:47:21","slug":"why-does-treating-non-cancer-death-as-censoring-overestimate-event-rates-solutions-using-cumulative-incidence-functions-and-tidycmprsk","status":"publish","type":"post","link":"https:\/\/best-biostatistics.com\/toukei-er\/entry\/why-does-treating-non-cancer-death-as-censoring-overestimate-event-rates-solutions-using-cumulative-incidence-functions-and-tidycmprsk\/","title":{"rendered":"\u306a\u305c\u4ed6\u75c5\u6b7b\u3092\u6253\u5207\u308a\u306b\u3059\u308b\u3068\u30a4\u30d9\u30f3\u30c8\u767a\u751f\u7387\u304c\u9ad8\u304f\u898b\u7a4d\u3082\u3089\u308c\u308b\u306e\u304b\uff1f\u7d2f\u7a4d\u767a\u751f\u95a2\u6570\uff08CIF\uff09\u3068tidycmprsk\u306b\u3088\u308b\u5b9f\u8df5\u89e3\u6c7a"},"content":{"rendered":"\n<p class=\"wp-block-paragraph\">\u300c\u5148\u751f\uff01\u304c\u3093\u60a3\u8005\u3055\u3093\u306e5\u5e74\u304c\u3093\u7279\u7570\u6b7b\u4ea1\u7387\u3092\u8abf\u3079\u305f\u304f\u3066\u3001\u8ffd\u8de1\u9014\u4e2d\u3067\u4ed6\u75c5\u6b7b\uff08\u8001\u8870\u3084\u5fc3\u4e0d\u5168\u306a\u3069\uff09\u3055\u308c\u305f\u60a3\u8005\u3055\u3093\u3092\u300e\u4e2d\u9014\u6253\u5207\u308a\uff08Censoring\uff09\u300f\u3068\u3057\u30661-KM\uff081 &#8211; Kaplan-Meier\uff09\u66f2\u7dda\u3092\u63cf\u304d\u307e\u3057\u305f\uff01\u7dba\u9e97\u306b\u6b7b\u4ea1\u7387\u304c\u4e0a\u6607\u3057\u3066\u3044\u304f\u30b0\u30e9\u30d5\u304c\u63cf\u3051\u307e\u3057\u305f\uff01\u300d<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u2026\u2026\u3061\u3087\u3063\u3068\u5f85\u3063\u3066\u307b\u3057\u3044\u3002\u305d\u308c\u306f\u81e8\u5e8a\u7814\u7a76\u306e\u8ad6\u6587\u67fb\u8aad\uff08Peer Review\uff09\u306b\u304a\u3044\u3066\u3001\u7d71\u8a08\u67fb\u8aad\u8005\u304b\u3089\u300c\u7af6\u5408\u30ea\u30b9\u30af\u3092\u8003\u616e\u3057\u3066\u304a\u3089\u305a\u3001\u30a4\u30d9\u30f3\u30c8\u7387\u304c\u8457\u3057\u304f\u904e\u5927\u8a55\u4fa1\uff08Overestimate\uff09\u3055\u308c\u3066\u3044\u308b\u300d\u3068\u4e00\u767a\u3067\u5374\u4e0b\u3055\u308c\u308b\u4ee3\u8868\u7684\u306a\u7f60\u3067\u3042\u308b\u3002<\/p>\n\n\n\n<!--more-->\n\n\n\n<p class=\"wp-block-paragraph\">\u304c\u3093\u7279\u7570\u6b7b\u4ea1\u3084\u7279\u5b9a\u306e\u5fc3\u8840\u7ba1\u30a4\u30d9\u30f3\u30c8\u306a\u3069\u3001<strong>\u300c\u76ee\u7684\u3068\u3059\u308b\u30a4\u30d9\u30f3\u30c8\u304c\u8d77\u3053\u308b\u524d\u306b\u3001\u5225\u306e\u30a4\u30d9\u30f3\u30c8\uff08\u4ed6\u75c5\u6b7b\u306a\u3069\uff09\u304c\u767a\u751f\u3057\u3066\u76ee\u7684\u30a4\u30d9\u30f3\u30c8\u304c\u7d76\u5bfe\u306b\u8d77\u3053\u3089\u306a\u304f\u306a\u308b\u72b6\u6cc1\u300d<\/strong> \u3092\u7d71\u8a08\u5b66\u3067\u306f <strong>\u7af6\u5408\u30ea\u30b9\u30af\uff08Competing Risks\uff09<\/strong> \u3068\u547c\u3076\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u7af6\u5408\u30a4\u30d9\u30f3\u30c8\u3092\u8d77\u3053\u3057\u305f\u4eba\u3092\u5358\u306a\u308b\u300c\u8ffd\u8de1\u4e0d\u80fd\u300d\u3068\u540c\u3058\u300c\u6253\u5207\u308a\u300d\u3068\u3057\u3066\u51e6\u7406\u3057\u3066\u3057\u307e\u3046\u3068\u3001\u5206\u6bcd\uff08\u30ea\u30b9\u30af\u96c6\u5408\uff09\u304c\u4e0d\u5f53\u306b\u5c0f\u3055\u304f\u306a\u308a\u3001\u76ee\u7684\u30a4\u30d9\u30f3\u30c8\u306e\u767a\u751f\u7387\u304c\u5b9f\u969b\u3088\u308a\u3082\u5927\u5e45\u306b\u9ad8\u304f\u898b\u7a4d\u3082\u3089\u308c\u3066\u3057\u307e\u3046\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u672c\u8a18\u4e8b\u3067\u306f\u3001\u306a\u305c1-KM\u66f2\u7dda\u304c\u30a4\u30d9\u30f3\u30c8\u7387\u3092\u904e\u5927\u8a55\u4fa1\u3057\u3066\u3057\u307e\u3046\u306e\u304b\u3068\u3044\u3046\u30e1\u30ab\u30cb\u30ba\u30e0\u304b\u3089\u3001\u7af6\u5408\u30ea\u30b9\u30af\u4e0b\u306e\u6b63\u653b\u6cd5\u3067\u3042\u308b <strong>\u7d2f\u7a4d\u767a\u751f\u95a2\u6570\uff08CIF: Cumulative Incidence Function\uff09<\/strong>\u3001\u7fa4\u9593\u6bd4\u8f03\u306e <strong>Gray\u306e\u691c\u5b9a\uff08Gray&#8217;s test\uff09<\/strong>\u3001\u591a\u5909\u91cf\u89e3\u6790\u3067\u3042\u308b <strong>Fine-Gray\u30e2\u30c7\u30eb<\/strong>\u3001\u6700\u65b0\u306eR\u30d1\u30c3\u30b1\u30fc\u30b8 <code>tidycmprsk<\/code> \u306b\u3088\u308b\u5b9f\u8df5\u3001\u305d\u3057\u3066\u8ad6\u6587\u3067\u305d\u306e\u307e\u307e\u4f7f\u3048\u308b\u82f1\u6587\u30c6\u30f3\u30d7\u30ec\u30fc\u30c8\u307e\u3067\u3092\u5fb9\u5e95\u7684\u306b\u89e3\u8aac\u3059\u308b\u3002<\/p>\n\n\n\n<h2 class=\"wp-block-heading\">1. \u306a\u305c\u4ed6\u75c5\u6b7b\u3092\u300c\u6253\u5207\u308a\u300d\u306b\u3059\u308b\u3068\u904e\u5927\u8a55\u4fa1\uff08Overestimate\uff09\u304c\u8d77\u304d\u308b\u306e\u304b\uff1f<\/h2>\n\n\n\n<h3 class=\"wp-block-heading\">\u300c\u901a\u5e38\u306e\u6253\u5207\u308a\u300d\u3068\u300c\u7af6\u5408\u30ea\u30b9\u30af\u300d\u306e\u81f4\u547d\u7684\u306a\u9055\u3044<\/h3>\n\n\n\n<p class=\"wp-block-paragraph\">1-KM\uff081 &#8211; Kaplan-Meier\uff09\u66f2\u7dda\u3084\u901a\u5e38\u306eCox\u6bd4\u4f8b\u30cf\u30b6\u30fc\u30c9\u30e2\u30c7\u30eb\u304c\u524d\u63d0\u3068\u3057\u3066\u3044\u308b\u300c\u6253\u5207\u308a\uff08\u53f3\u5074\u6253\u5207\u308a\uff09\u300d\u306f\u3001<strong>\u72ec\u7acb\u6253\u5207\u308a\uff08Independent censoring\uff09<\/strong> \u3068\u547c\u3070\u308c\u308b\u3002\u3053\u308c\u306f\u300c\u305f\u307e\u305f\u307e\u7814\u7a76\u671f\u9593\u304c\u7d42\u4e86\u3057\u305f\u300d\u300c\u5f15\u3063\u8d8a\u3057\u3067\u8ffd\u8de1\u4e0d\u80fd\u306b\u306a\u3063\u305f\u300d\u306a\u3069\u3001<strong>\u300c\u3082\u3057\u8ffd\u8de1\u3092\u7d9a\u3051\u3089\u308c\u3066\u3044\u308c\u3070\u3001\u5c06\u6765\u7684\u306b\u76ee\u7684\u30a4\u30d9\u30f3\u30c8\u304c\u767a\u751f\u3057\u3066\u3044\u305f\u304b\u3082\u3057\u308c\u306a\u3044\u300d<\/strong> \u3068\u3044\u3046\u4eee\u5b9a\u3067\u3042\u308b\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u3057\u304b\u3057\u3001\u300c\u304c\u3093\u7279\u7570\u6b7b\u4ea1\u300d\u3092\u76ee\u7684\u30a4\u30d9\u30f3\u30c8\u3068\u3057\u305f\u5834\u5408\u3001\u9014\u4e2d\u3067\u300c\u4ed6\u75c5\u6b7b\uff08\u4f8b\uff1a\u80ba\u708e\u6b7b\uff09\u300d\u3057\u305f\u60a3\u8005\u306f\u3069\u3046\u3060\u308d\u3046\u304b\uff1f<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u6b7b\u4ea1\u3057\u305f\u6642\u70b9\u3067\u3001\u305d\u306e\u60a3\u8005\u304c\u5c06\u6765\u300c\u304c\u3093\u7279\u7570\u6b7b\u4ea1\u300d\u3092\u8d77\u3053\u3059\u53ef\u80fd\u6027\u306f\u7269\u7406\u7684\u306b<strong>\u30bc\u30ed<\/strong>\u306b\u306a\u308b\u3002\u3053\u308c\u3092\u300c\u3082\u3057\u8ffd\u8de1\u3067\u304d\u3066\u3044\u308c\u3070\u5c06\u6765\u304c\u3093\u6b7b\u3057\u305f\u304b\u3082\u3057\u308c\u306a\u3044\u4eba\uff08\u6253\u5207\u308a\uff09\u300d\u3068\u3057\u3066\u6271\u3046\u306e\u306f\u3001\u7d71\u8a08\u5b66\u7684\u306a\u524d\u63d0\u6761\u4ef6\u305d\u306e\u3082\u306e\u306b\u9055\u53cd\u3057\u3066\u3044\u308b\u306e\u3067\u3042\u308b\u3002<\/p>\n\n\n\n<h3 class=\"wp-block-heading\">\u5206\u6bcd\uff08At-risk population\uff09\u304c\u524a\u3089\u308c\u308b\u904e\u5927\u8a55\u4fa1\u306e\u30e1\u30ab\u30cb\u30ba\u30e0<\/h3>\n\n\n\n<p class=\"wp-block-paragraph\">\u306a\u305c\u4ed6\u75c5\u6b7b\u3092\u6253\u5207\u308a\u306b\u3059\u308b\u3068\u3001\u30a4\u30d9\u30f3\u30c8\u7387\u304c\u9ad8\u304f\u898b\u7a4d\u3082\u3089\u308c\u3066\u3057\u307e\u3046\u306e\u304b\uff1f\u305d\u306e\u7406\u7531\u306f\u3001\u8a08\u7b97\u306e<strong>\u5206\u6bcd\uff08\u30ea\u30b9\u30af\u96c6\u5408: Risk set\uff09\u306e\u524a\u3089\u308c\u65b9<\/strong>\u306b\u3042\u308b\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u751f\u5b58\u6642\u9593\u89e3\u6790\u3067\u306f\u3001\u5404\u30bf\u30a4\u30e0\u30dd\u30a4\u30f3\u30c8\u306b\u304a\u3044\u3066\u300c\u307e\u3060\u30a4\u30d9\u30f3\u30c8\u3092\u8d77\u3053\u3057\u3066\u304a\u3089\u305a\u3001\u751f\u5b58\u3057\u3066\u3044\u308b\u4eba\u6570\uff08\u5206\u6bcd\uff09\u300d\u306b\u5bfe\u3057\u3066\u300c\u305d\u306e\u6642\u70b9\u3067\u30a4\u30d9\u30f3\u30c8\u3092\u8d77\u3053\u3057\u305f\u4eba\u6570\uff08\u5206\u5b50\uff09\u300d\u306e\u5272\u5408\u3092\u8a08\u7b97\u3057\u3001\u7d2f\u7a4d\u3057\u3066\u3044\u304f\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u4ed6\u75c5\u6b7b\u3057\u305f\u60a3\u8005\u3092\u300c\u6253\u5207\u308a\u300d\u306b\u6307\u5b9a\u3059\u308b\u3068\u3001\u305d\u306e\u60a3\u8005\u306f\u300c\u89b3\u5bdf\u7d42\u4e86\u300d\u3068\u3057\u3066<strong>\u5206\u6bcd\u304b\u3089\u9664\u5916\uff08\u6d88\u53bb\uff09<\/strong> \u3055\u308c\u308b\u3002<\/p>\n\n\n\n<ul class=\"wp-block-list\">\n<li><strong>\u5b9f\u969b\u306e\u4e16\u754c<\/strong>: \u4ed6\u75c5\u6b7b\u3057\u305f\u60a3\u8005\u306f\u300c\u304c\u3093\u6b7b\u3092\u8d77\u3053\u3055\u306a\u3044\u78ba\u5b9a\u8005\u300d\u3068\u3057\u3066\u5b58\u5728\u3057\u3066\u3044\u308b\u3002<\/li>\n\n\n\n<li><strong>1-KM\u306e\u4e16\u754c<\/strong>: \u4ed6\u75c5\u6b7b\u3057\u305f\u4eba\u3092\u5206\u6bcd\u304b\u3089\u6d88\u3057\u3066\u3057\u307e\u3046\u305f\u3081\u3001<strong>\u300c\u751f\u304d\u6b8b\u3063\u3066\u3044\u308b\u5206\u6bcd\uff08At-risk\u4eba\u6570\uff09\u300d\u304c\u5b9f\u969b\u3088\u308a\u3082\u65e9\u304f\u5c0f\u3055\u304f\u306a\u308b<\/strong>\u3002<\/li>\n<\/ul>\n\n\n\n<p class=\"wp-block-paragraph\">\u5206\u5b50\uff08\u304c\u3093\u6b7b\u3057\u305f\u4eba\u6570\uff09\u304c\u5909\u308f\u3089\u306a\u3044\u306e\u306b\u3001\u5206\u6bcd\u3060\u3051\u304c\u5b9f\u969b\u3088\u308a\u3082\u65e9\u304f\u6e1b\u3063\u3066\u3057\u307e\u3046\u305f\u3081\u3001\u5272\u308a\u7b97\u306e\u7d50\u679c\uff08\u7d2f\u7a4d\u767a\u73fe\u7387\uff09\u304c\u8df3\u306d\u4e0a\u304c\u308a\u3001\u672c\u6765\u306e\u78ba\u7387\u3088\u308a\u3082\u8457\u3057\u304f\u904e\u5927\u8a55\u4fa1\uff08Overestimate\uff09\u3055\u308c\u3066\u3057\u307e\u3046\u306e\u3067\u3042\u308b\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u7279\u306b\u3001<strong>\u9ad8\u9f62\u8005\u30b3\u30db\u30fc\u30c8<\/strong>\u3084<strong>\u9577\u671f\u9593\u306e\u8ffd\u8de1\u7814\u7a76<\/strong>\u306a\u3069\u3001\u4ed6\u75c5\u6b7b\u306e\u5272\u5408\u304c\u9ad8\u3044\u7814\u7a76\u306b\u306a\u308c\u3070\u306a\u308b\u307b\u3069\u3001\u3053\u306e\u30d0\u30a4\u30a2\u30b9\uff08KM-bias\uff09\u306f\u7121\u8996\u3067\u304d\u306a\u3044\u307b\u3069\u5de8\u5927\u306b\u306a\u308b\u3002<\/p>\n\n\n\n<h2 class=\"wp-block-heading\">2. \u6b63\u3057\u3044\u7d2f\u7a4d\u30a4\u30d9\u30f3\u30c8\u767a\u73fe\u7387\u3092\u63cf\u304f\u300cCIF\uff08\u7d2f\u7a4d\u767a\u751f\u95a2\u6570\uff09\u300d\u3068\u300cGray\u306e\u691c\u5b9a\u300d<\/h2>\n\n\n\n<h3 class=\"wp-block-heading\">\u89e3\u6c7a\u7b56\uff1a\u7d2f\u7a4d\u767a\u751f\u95a2\u6570\uff08CIF: Cumulative Incidence Function\uff09<\/h3>\n\n\n\n<p class=\"wp-block-paragraph\">\u7af6\u5408\u30ea\u30b9\u30af\u304c\u5b58\u5728\u3059\u308b\u30c7\u30fc\u30bf\u306b\u304a\u3044\u3066\u3001\u6b63\u3057\u3044\u30a4\u30d9\u30f3\u30c8\u767a\u73fe\u7387\u3092\u63cf\u304f\u305f\u3081\u306e\u552f\u4e00\u306e\u6b63\u653b\u6cd5\u304c <strong>\u7d2f\u7a4d\u767a\u751f\u95a2\u6570\uff08CIF: Cumulative Incidence Function\uff09<\/strong> \u3067\u3042\u308b\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">Kaplan-Meier\u6cd5\u304c\u300c\u5168\u54e1\u304c\u76ee\u7684\u30a4\u30d9\u30f3\u30c8\u3092\u8d77\u3053\u3059\u304b\u751f\u304d\u6b8b\u308b\u304b\u300d\u306e2\u629e\u3057\u304b\u60f3\u5b9a\u3057\u3066\u3044\u306a\u3044\u306e\u306b\u5bfe\u3057\u3001CIF\u306f\u300c\u751f\u5b58\u300d\u300c\u76ee\u7684\u30a4\u30d9\u30f3\u30c8\uff08\u304c\u3093\u6b7b\uff09\u300d\u300c\u7af6\u5408\u30a4\u30d9\u30f3\u30c8\uff08\u4ed6\u75c5\u6b7b\uff09\u300d \u306e3\u8981\u7d20\u3092\u540c\u6642\u306b\u8003\u616e\u3057\u3066\u8a08\u7b97\u3059\u308b\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">CIF\u306e\u6700\u5927\u306e\u7279\u5fb4\u306f\u3001\u4ee5\u4e0b\u306e\u6574\u5408\u6027\u304c\u5e38\u306b\u4fdd\u305f\u308c\u308b\u70b9\u306b\u3042\u308b\u3002$$\\text{\u5168\u751f\u5b58\u7387} + \\text{CIF}_1(\\text{\u76ee\u7684\u30a4\u30d9\u30f3\u30c8}) + \\text{CIF}_2(\\text{\u7af6\u5408\u30a4\u30d9\u30f3\u30c8}) = 100\\%$$<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u4ed6\u75c5\u6b7b\u3057\u305f\u4eba\u3092\u300c\u5206\u6bcd\u306b\u6b8b\u3057\u305f\u307e\u307e\u3001\u4ed6\u75c5\u6b7b\u30a4\u30d9\u30f3\u30c8\u3068\u3057\u3066\u6b63\u3057\u304f\u30ab\u30a6\u30f3\u30c8\u300d\u3059\u308b\u305f\u3081\u3001\u5206\u6bcd\u304c\u4e0d\u5f53\u306b\u524a\u3089\u308c\u308b\u3053\u3068\u304c\u306a\u304f\u3001\u76ee\u7684\u30a4\u30d9\u30f3\u30c8\u306e\u771f\u306e\u767a\u73fe\u7387\u3092\u6b63\u78ba\u306b\u63cf\u753b\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u308b\u3002<\/p>\n\n\n\n<h3 class=\"wp-block-heading\">\u7fa4\u9593\u6bd4\u8f03\u306e\u691c\u5b9a\uff1aGray\u306e\u691c\u5b9a\uff08Gray&#8217;s test\uff09<\/h3>\n\n\n\n<p class=\"wp-block-paragraph\">Kaplan-Meier\u66f2\u7dda\u306b\u304a\u3044\u30662\u7fa4\u9593\u306e\u751f\u5b58\u66f2\u7dda\u3092\u6bd4\u8f03\u3059\u308b\u969b\u306f\u300c\u30ed\u30b0\u30e9\u30f3\u30af\u691c\u5b9a\uff08Log-rank test\uff09\u300d\u3092\u7528\u3044\u308b\u306e\u304c\u4e00\u822c\u7684\u3067\u3042\u308b\u3002\u3057\u304b\u3057\u3001\u7af6\u5408\u30ea\u30b9\u30af\u304c\u5b58\u5728\u3059\u308bCIF\u66f2\u7dda\u306b\u5bfe\u3057\u3066\u30ed\u30b0\u30e9\u30f3\u30af\u691c\u5b9a\u3092\u9069\u7528\u3059\u308b\u3053\u3068\u306f\u3067\u304d\u306a\u3044\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u7af6\u5408\u30ea\u30b9\u30af\u4e0b\u3067\u306e\u7fa4\u9593\u6bd4\u8f03\u306b\u306f\u3001<strong>Gray\u306e\u691c\u5b9a\uff08Gray&#8217;s test\uff09<\/strong> \u3092\u4f7f\u7528\u3059\u308b\u306e\u304c\u30b0\u30ed\u30fc\u30d0\u30eb\u30b9\u30bf\u30f3\u30c0\u30fc\u30c9\uff08\u9244\u5247\uff09\u3067\u3042\u308b\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">Gray\u306e\u691c\u5b9a\u306f\u3001\u7af6\u5408\u30a4\u30d9\u30f3\u30c8\u306e\u767a\u751f\u78ba\u7387\u3092\u9069\u5207\u306b\u91cd\u307f\u4ed8\u3051\u3057\u306a\u304c\u3089\u3001\u76ee\u7684\u30a4\u30d9\u30f3\u30c8\u306e\u7d2f\u7a4d\u767a\u751f\u95a2\u6570\uff08CIF\uff09\u306b\u7fa4\u9593\u5dee\u304c\u3042\u308b\u304b\u3069\u3046\u304b\u3092\u6b63\u3057\u304f\u691c\u5b9a\u3057\u3066\u304f\u308c\u308b\u3002<\/p>\n\n\n\n<div id=\"biost-1909540491\" class=\"biost- biost-entity-placement\"><p style=\"text-align: center;\"><span style=\"font-size: 20px;\"><strong><a href=\"https:\/\/best-biostatistics.com\/kmhl\">\uff1e\uff1e\u3082\u3046\u7d71\u8a08\u3067\u60a9\u3080\u306e\u306f\u7d42\u308f\u308a\u306b\u3057\u307e\u305b\u3093\u304b\uff1f\u00a0<\/a><\/strong><\/span><\/p>\r\n<a href=\"https:\/\/best-biostatistics.com\/kmhl\"><img class=\"aligncenter wp-image-2794 size-full\" src=\"https:\/\/best-biostatistics.com\/wp\/wp-content\/uploads\/2023\/11\/bn_r_03.png\" alt=\"\" width=\"500\" height=\"327\" \/><\/a>\r\n<p style=\"text-align: center;\"><span style=\"color: #ff0000; font-size: 20px;\"><strong><span class=\"marker2\">\u21911\u4e07\u4eba\u4ee5\u4e0a\u306e\u533b\u7642\u5f93\u4e8b\u8005\u304c\u8cfc\u8aad\u4e2d<\/span><\/strong><\/span><\/p><\/div><h2 class=\"wp-block-heading\">3. \u7af6\u5408\u30ea\u30b9\u30af\u4e0b\u306e\u591a\u5909\u91cf\u89e3\u6790\u300cFine-Gray\uff08Subdistribution Hazard\uff09\u30e2\u30c7\u30eb\u300d<\/h2>\n\n\n\n<h3 class=\"wp-block-heading\">Fine-Gray\u30e2\u30c7\u30eb\u306e\u6982\u5ff5\u3068\u81e8\u5e8a\u7684\u610f\u7fa9<\/h3>\n\n\n\n<p class=\"wp-block-paragraph\">\u81e8\u5e8a\u7814\u7a76\u3067\u306f\u3001\u5358\u5909\u91cf\u3067\u306eCIF\u63cf\u753b\uff08Gray\u306e\u691c\u5b9a\uff09\u3060\u3051\u3067\u306a\u304f\u3001\u80cc\u666f\u56e0\u5b50\uff08\u5e74\u9f62\u3001\u6027\u5225\u3001\u75c5\u671f\u306a\u3069\uff09\u3092\u8abf\u6574\u3057\u305f\u591a\u5909\u91cf\u89e3\u6790\u3092\u884c\u3044\u305f\u3044\u5834\u9762\u304c\u5fc5\u305a\u8a2a\u308c\u308b\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u901a\u5e38\u306eCox\u6bd4\u4f8b\u30cf\u30b6\u30fc\u30c9\u30e2\u30c7\u30eb\u3067\u4ed6\u75c5\u6b7b\u3092\u6253\u5207\u308a\u306b\u3059\u308b\u3068\u30d0\u30a4\u30a2\u30b9\u304c\u751f\u3058\u308b\u305f\u3081\u3001\u7af6\u5408\u30ea\u30b9\u30af\u306b\u5bfe\u5fdc\u3057\u305f\u30e2\u30c7\u30eb\u304c\u5fc5\u8981\u3068\u306a\u308b\u3002\u305d\u3053\u3067\u7528\u3044\u3089\u308c\u308b\u306e\u304c <strong>Fine-Gray\u30e2\u30c7\u30eb\uff08Subdistribution Hazard Model\uff09<\/strong> \u3067\u3042\u308b\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">Fine-Gray\u30e2\u30c7\u30eb\u306e\u6700\u5927\u306e\u7279\u5fb4\u306f\u3001<strong>\u300c\u7af6\u5408\u30a4\u30d9\u30f3\u30c8\uff08\u4ed6\u75c5\u6b7b\uff09\u3092\u8d77\u3053\u3057\u305f\u60a3\u8005\u3092\u3001\u305d\u308c\u4ee5\u964d\u306e\u6642\u9593\u5e2f\u3067\u3082\u5206\u6bcd\uff08\u30ea\u30b9\u30af\u96c6\u5408\uff09\u306b\u4eee\u60f3\u7684\u306b\u6b8b\u3057\u7d9a\u3051\u308b\u300d<\/strong> \u3068\u3044\u3046\u7279\u6b8a\u306a\u8a08\u7b97\u3092\u884c\u3046\u70b9\u306b\u3042\u308b\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u901a\u5e38\u306eCox\u56de\u5e30\u3067\u306f\u3001\u30a4\u30d9\u30f3\u30c8\u767a\u751f\u8005\u3084\u6253\u5207\u308a\u8005\u306f\u5206\u6bcd\u304b\u3089\u5373\u5ea7\u306b\u6d88\u53bb\u3055\u308c\u308b\u3002\u3057\u304b\u3057Fine-Gray\u30e2\u30c7\u30eb\u3067\u306f\u3001\u300c\u4ed6\u75c5\u6b7b\u3057\u305f\u4eba\u300d\u3092\u300c\u76ee\u7684\u30a4\u30d9\u30f3\u30c8\u672a\u767a\u751f\u8005\uff08\u5206\u6bcd\u306e\u69cb\u6210\u54e1\uff09\u300d\u3068\u3057\u3066\u30da\u30ca\u30eb\u30c6\u30a3\u7684\u306b\u5206\u6bcd\u306b\u6b8b\u3057\u7d9a\u3051\u308b\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u3053\u308c\u306b\u3088\u308a\u7b97\u51fa\u3055\u308c\u308b\u30cf\u30b6\u30fc\u30c9\u6bd4\u306f <strong>Subdistribution Hazard Ratio\uff08SHR\uff09<\/strong> \u3068\u547c\u3070\u308c\u3001<strong>\u300cCIF\uff08\u7d2f\u7a4d\u767a\u751f\u95a2\u6570\uff09\u306e\u9ad8\u3055\u306e\u5dee\u300d\u3068\u76f4\u63a5\u9023\u52d5\u3059\u308b<\/strong> \u3068\u3044\u3046\u975e\u5e38\u306b\u5f37\u529b\u306a\u81e8\u5e8a\u7684\u6027\u8cea\u3092\u6301\u3064\u3002<\/p>\n\n\n\n<ul class=\"wp-block-list\">\n<li><strong>SHR > 1.0<\/strong>: \u80cc\u666f\u56e0\u5b50\u3092\u8abf\u6574\u3057\u3066\u3082\u3001\u305d\u306e\u7fa4\uff08\u307e\u305f\u306f\u30ea\u30b9\u30af\u56e0\u5b50\uff09\u306f\u76ee\u7684\u30a4\u30d9\u30f3\u30c8\u306e\u7d2f\u7a4d\u767a\u73fe\u7387\uff08CIF\uff09\u3092\u4e0a\u6607\u3055\u305b\u308b\u3002<\/li>\n\n\n\n<li><strong>SHR &lt; 1.0<\/strong>: \u76ee\u7684\u30a4\u30d9\u30f3\u30c8\u306e\u7d2f\u7a4d\u767a\u73fe\u7387\uff08CIF\uff09\u3092\u4f4e\u4e0b\u3055\u305b\u308b\u3002<\/li>\n<\/ul>\n\n\n\n<p class=\"wp-block-paragraph\">\u60a3\u8005\u306b\u300c\u5c06\u6765\u7684\u306b\u76ee\u7684\u30a4\u30d9\u30f3\u30c8\u304c\u3069\u306e\u304f\u3089\u3044\u306e\u78ba\u7387\u3067\u8d77\u3053\u308a\u305d\u3046\u304b\u300d\u3068\u3044\u3046\u4e88\u5f8c\u4e88\u6e2c\u3084\u7d2f\u7a4d\u767a\u751f\u7387\u306e\u8a55\u4fa1\u3092\u63d0\u793a\u3057\u305f\u3044\u5834\u5408\u3001Fine-Gray\u30e2\u30c7\u30eb\u306b\u3088\u308bSHR\u306e\u63d0\u793a\u304c\u5fc5\u9808\u3068\u306a\u308b\u3002<\/p>\n\n\n\n<h2 class=\"wp-block-heading\">4. \u3010\u5b9f\u8df5R\u30b3\u30fc\u30c9\u3011tidycmprsk \u306b\u3088\u308bCIF\u66f2\u7dda\u63cf\u753b\u3068Fine-Gray\u30e2\u30c7\u30eb\uff08Step by Step\uff09<\/h2>\n\n\n\n<p class=\"wp-block-paragraph\">\u3053\u3053\u304b\u3089\u306f\u3001\u6700\u65b0\u306e\u6a19\u6e96\u30d1\u30c3\u30b1\u30fc\u30b8\u3067\u3042\u308b <code>tidycmprsk<\/code> \u304a\u3088\u3073 <code>ggsurvfit<\/code>\uff08<code>tidyverse<\/code> \u30d5\u30a1\u30df\u30ea\u30fc\uff09\u3092\u7528\u3044\u3066\u3001\u7af6\u5408\u30ea\u30b9\u30af\u89e3\u6790\u3092Step by Step\u3067\u5b9f\u884c\u3059\u308b\u624b\u9806\u3092\u89e3\u8aac\u3059\u308b\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u30af\u30e9\u30b7\u30c3\u30af\u306a <code>cmprsk<\/code> \u30d1\u30c3\u30b1\u30fc\u30b8\u3088\u308a\u3082\u306f\u308b\u304b\u306b\u76f4\u611f\u7684\u3067\u3001\u7f8e\u3057\u3044\u30ea\u30b9\u30af\u30c6\u30fc\u30d6\u30eb\u4ed8\u304d\u30b0\u30e9\u30d5\u3084\u8ad6\u6587\u7528\u30c6\u30fc\u30d6\u30eb\u304c\u7c21\u5358\u306b\u4f5c\u6210\u3067\u304d\u308b\u3002<\/p>\n\n\n\n<h3 class=\"wp-block-heading\">Step 1: \u7591\u4f3c\u81e8\u5e8a\u30c7\u30fc\u30bf\u306e\u4f5c\u6210\u3068\u78ba\u8a8d<\/h3>\n\n\n\n<p class=\"wp-block-paragraph\">\u65b0\u6cbb\u7642\u7fa4\uff08New\uff09\u3068\u6a19\u6e96\u6cbb\u7642\u7fa4\uff08Standard\uff09\u306e2\u7fa4\u306b\u304a\u3044\u3066\u3001\u6642\u9593\uff08<code>time<\/code>\uff09\u3068\u30a4\u30d9\u30f3\u30c8\u30b9\u30c6\u30fc\u30bf\u30b9\uff08<code>status<\/code>\uff09\u3092\u6301\u3064\u7591\u4f3c\u30c7\u30fc\u30bf\u3092\u751f\u6210\u3059\u308b\u3002<\/p>\n\n\n\n<ul class=\"wp-block-list\">\n<li><code>status = 0<\/code>: \u6253\u5207\u308a\uff08Censoring: \u8ffd\u8de1\u7d42\u4e86\u30fb\u751f\u5b58\uff09<\/li>\n\n\n\n<li><code>status = 1<\/code>: \u76ee\u7684\u30a4\u30d9\u30f3\u30c8\uff08Target Event: \u4f8b\uff1a\u304c\u3093\u7279\u7570\u6b7b\u4ea1\uff09<\/li>\n\n\n\n<li><code>status = 2<\/code>: \u7af6\u5408\u30a4\u30d9\u30f3\u30c8\uff08Competing Event: \u4f8b\uff1a\u4ed6\u75c5\u6b7b\uff09<\/li>\n<\/ul>\n\n\n\n<pre class=\"wp-block-code\"><code>library(tidyverse)\nlibrary(tidycmprsk)\nlibrary(ggsurvfit)\n\n# \u4e71\u6570\u30b7\u30fc\u30c9\u306e\u8a2d\u5b9a\nset.seed(123)\nn &lt;- 300\n\n# \u7591\u4f3c\u81e8\u5e8a\u30c7\u30fc\u30bf\u306e\u4f5c\u6210\ndf_competing &lt;- tibble(\n  id = 1:n,\n  group = factor(rep(c(\"Standard\", \"New\"), each = n \/ 2), levels = c(\"Standard\", \"New\")),\n  age = round(rnorm(n, mean = 68, sd = 8)),\n  # \u751f\u5b58\u6642\u9593\u306e\u751f\u6210\n  time = round(runif(n, min = 1, max = 60), 1),\n  # \u78ba\u7387\u7684\u306b\u30b9\u30c6\u30fc\u30bf\u30b9\u3092\u4ed8\u4e0e\uff080:\u6253\u5207\u308a, 1:\u76ee\u7684\u30a4\u30d9\u30f3\u30c8, 2:\u7af6\u5408\u30a4\u30d9\u30f3\u30c8\uff09\n  status_code = sample(c(0, 1, 2), size = n, replace = TRUE, prob = c(0.3, 0.4, 0.3))\n) %&gt;%\n  mutate(\n    # status\u3092\u30d5\u30a1\u30af\u30bf\u30fc\u578b\uff08\u30e9\u30d9\u30eb\u4ed8\u304d\uff09\u306b\u5909\u63db\uff08tidycmprsk\u306e\u63a8\u5968\u8868\u8a18\uff09\n    status = factor(status_code, levels = c(0, 1, 2), labels = c(\"censor\", \"cancer_death\", \"other_death\"))\n  )\n\n# \u30c7\u30fc\u30bf\u306e\u5148\u982d\u3092\u78ba\u8a8d\nhead(df_competing)\n<\/code><\/pre>\n\n\n\n<h3 class=\"wp-block-heading\">Step 2: \u7d2f\u7a4d\u767a\u751f\u95a2\u6570\uff08CIF\uff09\u306e\u63cf\u753b\u3068Gray\u306e\u691c\u5b9a\uff08<code>tidycmprsk::cuminc<\/code>\uff09<\/h3>\n\n\n\n<p class=\"wp-block-paragraph\"><code>tidycmprsk::cuminc()<\/code> \u95a2\u6570\u3092\u7528\u3044\u3066CIF\u3092\u8a08\u7b97\u3057\u3001<code>ggcuminc()<\/code> \u3067\u8996\u899a\u5316\u3059\u308b\u3002Gray\u306e\u691c\u5b9a\u306e $P$ \u5024\u3082\u81ea\u52d5\u7684\u306b\u7b97\u51fa\u30fb\u8868\u793a\u3067\u304d\u308b\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code># CIF\uff08\u7d2f\u7a4d\u767a\u751f\u95a2\u6570\uff09\u306e\u8a08\u7b97\ncif_fit &lt;- cuminc(Surv(time, status) ~ group, data = df_competing)\n\n# \u7d50\u679c\u306e\u30b5\u30de\u30ea\u30fc\u8868\u793a\uff08Gray\u306e\u691c\u5b9a P\u5024\u542b\u3080\uff09\ncif_fit\n\n# ggcuminc \u3092\u7528\u3044\u305f\u6d17\u7df4\u3055\u308c\u305fCIF\u66f2\u7dda\u306e\u63cf\u753b\ncif_fit %>%\n  ggcuminc(outcome = \"cancer_death\") + # \u63cf\u753b\u3057\u305f\u3044\u76ee\u7684\u30a4\u30d9\u30f3\u30c8\u3092\u6307\u5b9a\n  add_confidence_interval() +           # 95%\u4fe1\u983c\u533a\u9593\u306e\u5e2f\u3092\u8ffd\u52a0\n  add_risktable() +                      # \u30ea\u30b9\u30af\u30c6\u30fc\u30d6\u30eb\uff08At-risk\u4eba\u6570\uff09\u3092\u8ffd\u52a0\n  add_pvalue() +                         # Gray\u306e\u691c\u5b9a P\u5024\u3092\u8868\u793a\n  scale_y_continuous(labels = scales::percent, limits = c(0, 1)) + # Y\u8ef8\u3092\u30d1\u30fc\u30bb\u30f3\u30c8\u8868\u8a18\u306b\u8abf\u6574\n  labs(\n    x = \"Months\",\n    y = \"Cumulative Incidence of Cancer Death\",\n    title = \"Cumulative Incidence Function (CIF) by Treatment Group\"\n  ) +\n  scale_ggsurvfit()\n<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"575\" height=\"483\" src=\"https:\/\/best-biostatistics.com\/toukei-er\/wp-content\/uploads\/2026\/08\/image-8.png\" alt=\"\" class=\"wp-image-4719\" srcset=\"https:\/\/best-biostatistics.com\/toukei-er\/wp-content\/uploads\/2026\/08\/image-8.png 575w, https:\/\/best-biostatistics.com\/toukei-er\/wp-content\/uploads\/2026\/08\/image-8-300x252.png 300w\" sizes=\"(max-width: 575px) 100vw, 575px\" \/><\/figure>\n\n\n\n<h3 class=\"wp-block-heading\">Step 3: Fine-Gray\u30e2\u30c7\u30eb\u306e\u5b9f\u884c\u3068\u30cf\u30b6\u30fc\u30c9\u6bd4\uff08SHR\uff09\u306e\u7b97\u51fa<\/h3>\n\n\n\n<p class=\"wp-block-paragraph\">\u80cc\u666f\u56e0\u5b50\uff08<code>group<\/code> \u304a\u3088\u3073 <code>age<\/code>\uff09\u3092\u8abf\u6574\u3057\u305f\u591a\u5909\u91cf Fine-Gray\u30e2\u30c7\u30eb\u3092\u5b9f\u884c\u3059\u308b\u3002<code>tidycmprsk::crr()<\/code> \u95a2\u6570\u3092\u4f7f\u7528\u3059\u308b\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code># Fine-Gray\u30e2\u30c7\u30eb\uff08Subdistribution Hazard Model\uff09\u306e\u5b9f\u884c\nfg_model &lt;- crr(Surv(time, status) ~ group + age, data = df_competing, failcode = \"cancer_death\")\n\n# \u30e2\u30c7\u30eb\u7d50\u679c\u306e\u8868\u793a\uff08Subdistribution Hazard Ratio: SHR \u3068 95% CI\uff09\nfg_model\n\n# gtsummary \u3092\u7528\u3044\u305f\u8ad6\u6587\u8868\u793a\u7528\u30c6\u30fc\u30d6\u30eb\u306e\u4f5c\u6210\nfg_model %>%\n  tbl_regression(exponentiate = TRUE) \n<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"571\" height=\"253\" src=\"https:\/\/best-biostatistics.com\/toukei-er\/wp-content\/uploads\/2026\/08\/fine-gray_result_table-2.png\" alt=\"\" class=\"wp-image-4723\" srcset=\"https:\/\/best-biostatistics.com\/toukei-er\/wp-content\/uploads\/2026\/08\/fine-gray_result_table-2.png 571w, https:\/\/best-biostatistics.com\/toukei-er\/wp-content\/uploads\/2026\/08\/fine-gray_result_table-2-300x133.png 300w\" sizes=\"(max-width: 571px) 100vw, 571px\" \/><\/figure>\n\n\n\n<h2 class=\"wp-block-heading\">5. \u8ad6\u6587\u3067\u305d\u306e\u307e\u307e\u4f7f\u3048\u308b\u82f1\u6587\u30c6\u30f3\u30d7\u30ec\u30fc\u30c8\uff08Methods &amp; Results\uff09<\/h2>\n\n\n\n<p class=\"wp-block-paragraph\">\u8ad6\u6587\uff08Methods\u304a\u3088\u3073Results\u30bb\u30af\u30b7\u30e7\u30f3\uff09\u306b\u305d\u306e\u307e\u307e\u8a18\u8ff0\u3067\u304d\u308b\u6a19\u6e96\u7684\u306a\u82f1\u6587\u8868\u73fe\u30c6\u30f3\u30d7\u30ec\u30fc\u30c8\u3092\u63d0\u793a\u3059\u308b\u3002<\/p>\n\n\n\n<h3 class=\"wp-block-heading\">Methods \u30bb\u30af\u30b7\u30e7\u30f3\u82f1\u6587\u30c6\u30f3\u30d7\u30ec\u30fc\u30c8<\/h3>\n\n\n\n<blockquote class=\"wp-block-quote is-layout-flow wp-block-quote-is-layout-flow\">\n<p class=\"wp-block-paragraph\">&#8220;To evaluate the cumulative incidence of [target event, e.g., cancer-specific mortality] in the presence of competing risks (e.g., non-cancer deaths), the cumulative incidence function (CIF) was estimated for each group and compared using Gray&#8217;s test. Non-cancer death was treated as a competing risk rather than an independent censoring event to avoid overestimation of the event rate. For multivariable analysis adjusting for potential confounders, Fine-Gray subdistribution hazard models were fitted to estimate subdistribution hazard ratios (SHRs) and their 95% confidence intervals (CIs). All statistical analyses were performed using R (version 4.x.x) with the <code>tidycmprsk<\/code> package.&#8221;<\/p>\n<\/blockquote>\n\n\n\n<h3 class=\"wp-block-heading\">Results \u30bb\u30af\u30b7\u30e7\u30f3\u82f1\u6587\u30c6\u30f3\u30d7\u30ec\u30fc\u30c8<\/h3>\n\n\n\n<blockquote class=\"wp-block-quote is-layout-flow wp-block-quote-is-layout-flow\">\n<p class=\"wp-block-paragraph\">&#8220;During the follow-up period, [40] patients experienced [cancer-specific death] and [30] patients died from competing causes. The 5-year cumulative incidence of [cancer-specific death] estimated by the CIF was [24.5]% (95% CI, [18.2]% to [31.5]%) in the [New Treatment] group compared with [38.2]% (95% CI, [30.1]% to [46.3]%) in the [Standard Treatment] group (Gray&#8217;s test,$P = 0.018$). In the multivariable Fine-Gray model adjusting for age and baseline covariates, [New Treatment] was associated with a significantly lower risk of [cancer-specific death] (Subdistribution Hazard Ratio [SHR], [0.58]; 95% CI, [0.37] to [0.91];$P = 0.018$).&#8221;<\/p>\n<\/blockquote>\n\n\n\n<h2 class=\"wp-block-heading\">\u307e\u3068\u3081\uff06\u4e00\u62ec\u30b3\u30d4\u30da\u7528R\u30b9\u30af\u30ea\u30d7\u30c8<\/h2>\n\n\n\n<h3 class=\"wp-block-heading\">\u672c\u8a18\u4e8b\u306e\u30dd\u30a4\u30f3\u30c8\u304a\u3055\u3089\u3044<\/h3>\n\n\n\n<ol class=\"wp-block-list\">\n<li><strong>\u4ed6\u75c5\u6b7b\u3092\u5358\u306a\u308b\u300c\u6253\u5207\u308a\u300d\u306b\u3057\u3066\u63cf\u3044\u305f1-KM\u66f2\u7dda\u306f\u5373\u5374\u4e0b<\/strong>: \u5206\u6bcd\uff08\u30ea\u30b9\u30af\u96c6\u5408\uff09\u304c\u4e0d\u5f53\u306b\u524a\u3089\u308c\u3001\u7d2f\u7a4d\u30a4\u30d9\u30f3\u30c8\u767a\u751f\u7387\u304c\u8457\u3057\u304f\u904e\u5927\u8a55\u4fa1\uff08Overestimate\uff09\u3055\u308c\u308b\u3002<\/li>\n\n\n\n<li><strong>\u6b63\u653b\u6cd5\u306fCIF\uff08\u7d2f\u7a4d\u767a\u751f\u95a2\u6570\uff09\uff0b Gray\u306e\u691c\u5b9a<\/strong>: \u7af6\u5408\u30a4\u30d9\u30f3\u30c8\u3092\u6b63\u3057\u304f\u30ab\u30a6\u30f3\u30c8\u3057\u3001\u5168\u751f\u5b58\u7387\uff0b\u76ee\u7684\u30a4\u30d9\u30f3\u30c8\u767a\u751f\u7387\uff0b\u7af6\u5408\u30a4\u30d9\u30f3\u30c8\u767a\u751f\u7387\u306e\u5408\u8a08\u304c100%\u306b\u306a\u308b\u6574\u5408\u6027\u3092\u4fdd\u3064\u3002<\/li>\n\n\n\n<li><strong>\u591a\u5909\u91cf\u89e3\u6790\u306fFine-Gray\u30e2\u30c7\u30eb<\/strong>: \u7af6\u5408\u30a4\u30d9\u30f3\u30c8\u767a\u751f\u8005\u3092\u5206\u6bcd\u306b\u6b8b\u3057\u7d9a\u3051\u308b\u3053\u3068\u3067\u3001\u5b9f\u969b\u306e\u7d2f\u7a4d\u767a\u751f\u7387\uff08CIF\uff09\u306e\u9ad8\u3055\u3068\u76f4\u7d50\u3059\u308b Subdistribution Hazard Ratio\uff08SHR\uff09\u3092\u7b97\u51fa\u3059\u308b\u3002<\/li>\n<\/ol>\n\n\n\n<h3 class=\"wp-block-heading\">\u4e00\u62ec\u5b9f\u884c\u7528R\u30b9\u30af\u30ea\u30d7\u30c8<\/h3>\n\n\n\n<p class=\"wp-block-paragraph\">\u4ee5\u4e0b\u306e\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\uff06\u30da\u30fc\u30b9\u30c8\u3059\u308b\u3053\u3068\u3067\u3001\u7591\u4f3c\u30c7\u30fc\u30bf\u306e\u751f\u6210\u304b\u3089CIF\u63cf\u753b\u3001Gray\u306e\u691c\u5b9a\u3001Fine-Gray\u30e2\u30c7\u30eb\u306e\u5b9f\u884c\u3001\u8ad6\u6587\u7528\u30b5\u30de\u30ea\u30fc\u51fa\u529b\u307e\u3067\u3092\u4e00\u6c17\u901a\u8cab\u3067\u5b9f\u884c\u3067\u304d\u308b\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code># ==============================================================================\n# \u7af6\u5408\u30ea\u30b9\u30af\u751f\u5b58\u6642\u9593\u89e3\u6790\uff08CIF &amp; Fine-Gray Model\uff09\u4e00\u62ec\u5b9f\u884c\u30b9\u30af\u30ea\u30d7\u30c8\n# \u30d1\u30c3\u30b1\u30fc\u30b8: tidycmprsk, ggsurvfit, tidyverse\n# ==============================================================================\n\n# \u5fc5\u8981\u306a\u30e9\u30a4\u30d6\u30e9\u30ea\u306e\u8aad\u307f\u8fbc\u307f\nif (!requireNamespace(\"tidycmprsk\", quietly = TRUE)) install.packages(\"tidycmprsk\")\nif (!requireNamespace(\"ggsurvfit\", quietly = TRUE)) install.packages(\"ggsurvfit\")\nif (!requireNamespace(\"gtsummary\", quietly = TRUE)) install.packages(\"gtsummary\")\n\nlibrary(tidyverse)\nlibrary(tidycmprsk)\nlibrary(ggsurvfit)\nlibrary(gtsummary)\n\n# 1. \u7591\u4f3c\u81e8\u5e8a\u30c7\u30fc\u30bf\u306e\u4f5c\u6210\nset.seed(123)\nn &lt;- 300\ndf_competing &lt;- tibble(\n  id = 1:n,\n  group = factor(rep(c(\"Standard\", \"New\"), each = n \/ 2), levels = c(\"Standard\", \"New\")),\n  age = round(rnorm(n, mean = 68, sd = 8)),\n  time = round(runif(n, min = 1, max = 60), 1),\n  status_code = sample(c(0, 1, 2), size = n, replace = TRUE, prob = c(0.3, 0.4, 0.3))\n) %>%\n  mutate(\n    status = factor(status_code, levels = c(0, 1, 2), labels = c(\"censor\", \"target_event\", \"competing_event\"))\n  )\n\n# 2. \u7d2f\u7a4d\u767a\u751f\u95a2\u6570\uff08CIF\uff09\u306e\u8a08\u7b97\u3068Gray\u306e\u691c\u5b9a\ncat(\"\\n--- \u7d2f\u7a4d\u767a\u751f\u95a2\u6570\uff08CIF\uff09\u3068Gray\u306e\u691c\u5b9a\u7d50\u679c ---\\n\")\ncif_fit &lt;- cuminc(Surv(time, status) ~ group, data = df_competing)\nprint(cif_fit)\n\n# 3. CIF\u66f2\u7dda\u306e\u63cf\u753b\np_cif &lt;- cif_fit %>%\n  ggcuminc(outcome = \"target_event\") +\n  add_confidence_interval() +\n  add_risktable() +\n  add_pvalue() +\n  scale_y_continuous(labels = scales::percent, limits = c(0, 1)) +\n  labs(\n    x = \"Follow-up Time (Months)\",\n    y = \"Cumulative Incidence of Target Event\",\n    title = \"Cumulative Incidence Function (CIF) with Competing Risks\"\n  ) +\n  scale_ggsurvfit()\n\n# \u30b0\u30e9\u30d5\u306e\u8868\u793a\nprint(p_cif)\n\n# 4. \u591a\u5909\u91cf Fine-Gray \u30e2\u30c7\u30eb\u306e\u5b9f\u884c\ncat(\"\\n--- Fine-Gray \u30e2\u30c7\u30eb (Subdistribution Hazard Ratio) ---\\n\")\nfg_model &lt;- crr(Surv(time, status) ~ group + age, data = df_competing, failcode = \"target_event\")\nprint(fg_model)\n\n# 5. \u8ad6\u6587\u8868\u793a\u7528\u30c6\u30fc\u30d6\u30eb\u306e\u4f5c\u6210\ntbl_fg &lt;- fg_model %>%\n  tbl_regression(exponentiate = TRUE) \n\nprint(tbl_fg)\n<\/code><\/pre>\n\n\n\n<h2 class=\"wp-block-heading\">\u304a\u3059\u3059\u3081\u66f8\u7c4d<\/h2>\n\n\n\n<p class=\"wp-block-paragraph\"><a href=\"https:\/\/amzn.to\/4hXCYbC\">\u8ab0\u3082\u6559\u3048\u3066\u304f\u308c\u306a\u304b\u3063\u305f\u3000\u533b\u7642\u7d71\u8a08\u306e\u4f7f\u3044\u5206\u3051\u301c\u8ff7\u3044\u3084\u3059\u3044\u89e3\u6790\u624b\u6cd5\u306e\u9078\u3073\u65b9\u304c\uff0cR\u3067\u5b9f\u611f\u3057\u306a\u304c\u3089\u308f\u304b\u308b\uff01<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u300c\u5148\u751f\uff01\u304c\u3093\u60a3\u8005\u3055\u3093\u306e5\u5e74\u304c\u3093\u7279\u7570\u6b7b\u4ea1\u7387\u3092\u8abf\u3079\u305f\u304f\u3066\u3001\u8ffd\u8de1\u9014\u4e2d\u3067\u4ed6\u75c5\u6b7b\uff08\u8001\u8870\u3084\u5fc3\u4e0d\u5168\u306a\u3069\uff09\u3055\u308c\u305f\u60a3\u8005\u3055\u3093\u3092\u300e\u4e2d\u9014\u6253\u5207\u308a\uff08Censoring\uff09\u300f\u3068\u3057\u30661-KM\uff081 &#8211; Kaplan-Meier\uff09\u66f2\u7dda\u3092\u63cf\u304d\u307e\u3057\u305f [&hellip;]<\/p>\n","protected":false},"author":2,"featured_media":4724,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"swell_btn_cv_data":"","_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_feature_clip_id":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2},"jetpack_post_was_ever_published":false},"categories":[52],"tags":[],"class_list":["post-4717","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-52"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/best-biostatistics.com\/toukei-er\/wp-content\/uploads\/2026\/08\/\u7af6\u5408\u30ea\u30b9\u30afCIF\u3068tidycmprsk-scaled.png","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/posts\/4717","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/comments?post=4717"}],"version-history":[{"count":1,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/posts\/4717\/revisions"}],"predecessor-version":[{"id":4725,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/posts\/4717\/revisions\/4725"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/media\/4724"}],"wp:attachment":[{"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/media?parent=4717"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/categories?post=4717"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/tags?post=4717"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}