{"id":489,"date":"2018-07-16T10:07:34","date_gmt":"2018-07-16T01:07:34","guid":{"rendered":"https:\/\/best-biostatistics.com\/toukei-er\/entry\/two-group-comparison-of-continuous-data-in-r\/"},"modified":"2024-10-13T23:17:24","modified_gmt":"2024-10-13T14:17:24","slug":"two-group-comparison-of-continuous-data-in-r","status":"publish","type":"post","link":"https:\/\/best-biostatistics.com\/toukei-er\/entry\/two-group-comparison-of-continuous-data-in-r\/","title":{"rendered":"R \u3067\u9023\u7d9a\u30c7\u30fc\u30bf\u306e 2 \u7fa4\u6bd4\u8f03\u3092\u884c\u3046\u65b9\u6cd5"},"content":{"rendered":"\n

\u5b9f\u9a13\u7fa4\u3068\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u7fa4\u3001\u30ea\u30b9\u30af\u56e0\u5b50\u3042\u308a\u7fa4\u3068\u306a\u3057\u7fa4\u3001\u4ecb\u5165\u7fa4\u3068\u975e\u4ecb\u5165\u7fa4\u3001\u306a\u3069\u4e8c\u7fa4\u6bd4\u8f03 \u3092 R \u3067\u5b9f\u884c\u3059\u308b\u65b9\u6cd5\u3002<\/p>\n\n\n\n\n\n\n\n

\u7fa4\u3054\u3068\u306b\u5e73\u5747\u5024\u30fb\u6a19\u6e96\u504f\u5dee\u30fb\u4e2d\u592e\u5024\u3092\u6c42\u3081\u308b<\/h2>\n\n\n\n

\u5e73\u5747\u5024\u3092\u8a08\u7b97\u3059\u308b\u306a\u3089 tapply(var1, grp, mean)<\/code> \u3092\u4f7f\u7528\u3059\u308b\u3002<\/p>\n\n\n\n

grp\u306e\u30b0\u30eb\u30fc\u30d7\u3054\u3068\u306b\u3001var1\u306e\u5e73\u5747\u5024\u3092\u8a08\u7b97\u3059\u308b\u3002<\/p>\n\n\n\n

\u6a19\u6e96\u504f\u5dee\u3092\u8a08\u7b97\u3059\u308b\u306a\u3089\u3001mean\u3092sd\u306b\u5909\u3048\u308b\u3002<\/p>\n\n\n\n

tapply(var1, grp, sd)<\/code><\/p>\n\n\n\n

\u4e2d\u592e\u5024\u306fmedian\u3068\u6307\u5b9a\u3059\u308b\u3002<\/p>\n\n\n\n

tapply(var1, grp, median)<\/code><\/p>\n\n\n\n

\u4f8b\uff1a<\/p>\n\n\n\n

with<\/span>(<\/span>sleep,<\/span> tapply<\/span>(<\/span>extra,<\/span> group,<\/span> mean))<\/span>\nwith<\/span>(<\/span>sleep,<\/span> tapply<\/span>(<\/span>extra,<\/span> group,<\/span> sd))<\/span>\nwith<\/span>(<\/span>sleep,<\/span> tapply<\/span>(<\/span>extra,<\/span> group,<\/span> median))<\/span>\n<\/code><\/pre>\n\n\n\n
><\/span> with<\/span>(<\/span>sleep,<\/span> tapply<\/span>(<\/span>extra,<\/span> group,<\/span> mean))<\/span>\n1<\/span>    2<\/span>\n0.75<\/span> 2.33<\/span>\n><\/span>\n><\/span> with<\/span>(<\/span>sleep,<\/span> tapply<\/span>(<\/span>extra,<\/span> group,<\/span> sd))<\/span>\n1<\/span>        2<\/span>\n1.789010<\/span> 2.002249<\/span>\n><\/span>\n><\/span> with<\/span>(<\/span>sleep,<\/span> tapply<\/span>(<\/span>extra,<\/span> group,<\/span> median))<\/span>\n1<\/span>    2<\/span>\n0.35<\/span> 1.75<\/span>\n<\/code><\/pre>\n\n\n\n
\u5e73\u5747\u5024\u306e\u5dee\u306e\u691c\u5b9a\u3000\u30a6\u30a7\u30eb\u30c1\u306e\u65b9\u6cd5<\/h2>\n\n\n\n
t.test()\u3092\u4f7f\u3046\u3002<\/p>\n\n\n\n
\u7d71\u8a08\u30bd\u30d5\u30c8R\u3067\u306f\u3001\u5e73\u5747\u5024\u306e\u5dee\u306e\u691c\u5b9a\u306f\u3001\u30a6\u30a7\u30eb\u30c1\uff08Welch\uff09\u306e\u65b9\u6cd5\u304c\u30c7\u30d5\u30a9\u30eb\u30c8\u3002<\/p>\n\n\n\n
\u30a6\u30a7\u30eb\u30c1\u306e\u65b9\u6cd5\u306f\u3001\u4e8c\u7fa4\u304c\u7b49\u5206\u6563\u304b\u3069\u3046\u304b\u3092\u554f\u984c\u306b\u3057\u306a\u3044\u3002<\/p>\n\n\n\n
\u7b49\u5206\u6563\u3068\u307f\u306a\u305b\u308b\u3068\u304d\u306f\u3001\u7b49\u5206\u6563\u306e\u5f0f\u3067\u8a08\u7b97\u3057\u305f\u7d50\u679c\u3068\u540c\u69d8\u306b\u306a\u308b\u3002<\/p>\n\n\n\n
\u306a\u306e\u3067\u3001\u3044\u3064\u3067\u3082\u30a6\u30a7\u30eb\u30c1\u3092\u4f7f\u3063\u3066\u304a\u3051\u3070\u3088\u3044\u3002<\/p>\n\n\n\n
\u4f8b\uff1a<\/p>\n\n\n\n
library<\/span>(<\/span>MASS)<\/span>\nwith<\/span>(<\/span>birthwt,<\/span> t.test<\/span>(<\/span>bwt~<\/span>smoke))<\/span>\n<\/code><\/pre>\n\n\n\n
><\/span> with<\/span>(<\/span>birthwt,<\/span> t.test<\/span>(<\/span>bwt~<\/span>smoke))<\/span>\nWelch Two Sample t-<\/span>test\ndata:<\/span>  bwt by smoke\nt =<\/span> 2.7299<\/span>,<\/span> df =<\/span> 170.1<\/span>,<\/span> p-<\/span>value =<\/span> 0.007003<\/span>\nalternative hypothesis:<\/span> true difference in<\/span> means is not equal to 0<\/span>\n95<\/span> percent confidence interval:<\/span>\n78.57486<\/span> 488.97860<\/span>\nsample estimates:<\/span>\nmean in<\/span> group 0<\/span> mean in<\/span> group 1<\/span>\n3055.696<\/span>        2771.919<\/span>\n<\/code><\/pre>\n\n\n\n
\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>\r\n
\u21911\u4e07\u4eba\u4ee5\u4e0a\u306e\u533b\u7642\u5f93\u4e8b\u8005\u304c\u8cfc\u8aad\u4e2d<\/span><\/strong><\/span><\/p><\/div>
\u30a6\u30a3\u30eb\u30b3\u30af\u30bd\u30f3\u306e\u9806\u4f4d\u548c\u6b63\u78ba\u691c\u5b9a<\/h2>\n\n\n\n
coin\u30d1\u30c3\u30b1\u30fc\u30b8\u306ewilcox_test()\u3092\u4f7f\u3046\u3002<\/p>\n\n\n\n
\u30a6\u30a3\u30eb\u30b3\u30af\u30bd\u30f3\uff08Wilcoxon\uff09\u306e\u9806\u4f4d\u548c\u691c\u5b9a\u306f\u3001\u30de\u30f3\u30fb\u30db\u30a4\u30c3\u30c8\u30cb\u30fc\uff08Mann-Whitney\uff09\u306eU\u691c\u5b9a\u3068\u3044\u3046\u540d\u524d\u3067\u3082\u77e5\u3089\u308c\u308b\u30ce\u30f3\u30d1\u30e9\u30e1\u30c8\u30ea\u30c3\u30af\u691c\u5b9a\u3002<\/p>\n\n\n\n
\u6bcd\u96c6\u56e3\u304c\u6b63\u898f\u5206\u5e03\u3057\u3066\u3044\u308b\u304b\u3069\u3046\u304b\u4e0d\u660e\u306a\u30c7\u30fc\u30bf\u3067\u4e8c\u7fa4\u306e\u6bd4\u8f03\u3057\u305f\u3044\u5834\u5408\u306b\u4f7f\u3046\u3002<\/p>\n\n\n\n
\u307e\u305f\u3001\u7b49\u5206\u6563\u304b\u3069\u3046\u304b\u3092\u6c17\u306b\u3057\u306a\u304f\u3066\u3044\u3044\u3088\u3046\u306b\u3001\u6b63\u78ba\u78ba\u7387\u691c\u5b9a Exact Test\u3092\u884c\u3046\u3002<\/p>\n\n\n\n
\u6700\u521d\u306b\u4e00\u56de\u3060\u3051\u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3059\u308b\u3002<\/p>\n\n\n\n
\u4f8b\uff1a<\/p>\n\n\n\n
install.packages<\/span>(<\/span>\"coin\"<\/span>)<\/span>\nlibrary<\/span>(<\/span>coin)<\/span>\nwilcox_test<\/span>(<\/span>bwt ~<\/span> factor<\/span>(<\/span>smoke),<\/span> data=<\/span>birthwt)<\/span>\n<\/code><\/pre>\n\n\n\n
><\/span> wilcox_test<\/span>(<\/span>bwt ~<\/span> factor<\/span>(<\/span>smoke),<\/span> data=<\/span>birthwt,<\/span> distribution=<\/span>\"exact\"<\/span>)<\/span>\nExact Wilcoxon-<\/span>Mann-<\/span>Whitney Test\ndata:<\/span>  bwt by factor<\/span>(<\/span>smoke)<\/span> (<\/span>0<\/span>,<\/span> 1<\/span>)<\/span>\nZ =<\/span> 2.7094<\/span>,<\/span> p-<\/span>value =<\/span> 0.006549<\/span>\nalternative hypothesis:<\/span> true mu is not equal to 0<\/span>\n<\/code><\/pre>\n\n\n\n
\u307e\u3068\u3081<\/h2>\n\n\n\n
\u9023\u7d9a\u91cf\u306e\u4e8c\u7fa4\u6bd4\u8f03\u306e\u57fa\u672c\u3068\u3057\u3066\u3001<\/p>\n\n\n\n