\u30d5\u30ed\u30fc\u5236\u5fa1\u6587\u306e\u6761\u4ef6\u5236\u5fa1\u306b\u3064\u3044\u3066\u8a73\u3057\u304f\u6559\u3048\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
R\u8a00\u8a9e\u3067\u306f\u3001\u6761\u4ef6\u4ed8\u304d\u5236\u5fa1\u306f\u3001\u6761\u4ef6\u306b\u5fdc\u3058\u3066\u7570\u306a\u308b\u30b3\u30fc\u30c9\u5b9f\u884c\u30d1\u30b9\u3092\u9078\u629e\u3059\u308b\u305f\u3081\u306b\u4f7f\u7528\u3055\u308c\u308b\u30d5\u30ed\u30fc\u5236\u5fa1\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3067\u3059\u3002R \u8a00\u8a9e\u306b\u306f\u3001if \u6587\u3084 switch \u6587\u306a\u3069\u306e\u6761\u4ef6\u5236\u5fa1\u6587\u304c\u7528\u610f\u3055\u308c\u3066\u3044\u307e\u3059\u304c\u3001\u3053\u308c\u3089\u306e\u6587\u306b\u3064\u3044\u3066\u8a73\u3057\u304f\u8aac\u660e\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
1. if \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8<\/p>\n\n\n\n
if \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306f\u3001\u6761\u4ef6\u306b\u57fa\u3065\u3044\u3066\u3055\u307e\u3056\u307e\u306a\u30b3\u30fc\u30c9\u5b9f\u884c\u30d1\u30b9\u3092\u9078\u629e\u3059\u308b\u305f\u3081\u306b\u4f7f\u7528\u3055\u308c\u307e\u3059\u3002if \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306e\u57fa\u672c\u7684\u306a\u69cb\u6587\u306f\u6b21\u306e\u3068\u304a\u308a\u3067\u3059\u3002<\/p>\n\n\n\n
sql\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9if (condition) {\n # if-true code\n} else {\n # if-false code\n}\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u69cb\u6587\u3067\u306f\u3001\u6761\u4ef6\u306f\u8ad6\u7406\u5f0f\u3067\u3059\u3002\u8ad6\u7406\u5f0f\u306e\u5024\u304c TRUE \u306e\u5834\u5408\u306f\u3001\u771f\u306e\u5834\u5408\u306e\u30b3\u30fc\u30c9 \u30d6\u30ed\u30c3\u30af\u304c\u5b9f\u884c\u3055\u308c\u307e\u3059\u3002\u305d\u308c\u4ee5\u5916\u306e\u5834\u5408\u306f\u3001\u507d\u306e\u5834\u5408\u306e\u30b3\u30fc\u30c9 \u30d6\u30ed\u30c3\u30af\u304c\u5b9f\u884c\u3055\u308c\u307e\u3059\u3002<\/p>\n\n\n\n
if \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u5185\u3067\u306f\u3001else \u30b3\u30fc\u30c9 \u30d6\u30ed\u30c3\u30af\u306f\u30aa\u30d7\u30b7\u30e7\u30f3\u3067\u3059\u3002else \u30b3\u30fc\u30c9 \u30d6\u30ed\u30c3\u30af\u3092\u7701\u7565\u3057\u305f\u5834\u5408\u3001\u8ad6\u7406\u5f0f\u304c FALSE \u306e\u5834\u5408\u3001if \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306f\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3057\u307e\u305b\u3093\u3002<\/p>\n\n\n\n
\u6b21\u306b\u3001if \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306e\u4f8b\u3092\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
bash\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308bx <- 10\n\nif (x > 5) {\n print(\"x is greater than 5\")\n} else {\n print(\"x is less than or equal to 5\")\n}\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001\u8ad6\u7406\u5f0f x > 5 \u304c TRUE \u3068\u8a55\u4fa1\u3055\u308c\u308b\u305f\u3081\u3001if-true \u30b3\u30fc\u30c9 \u30d6\u30ed\u30c3\u30af\u304c\u5b9f\u884c\u3055\u308c\u3001\u300cx is greater than 5\u300d\u304c\u51fa\u529b\u3055\u308c\u307e\u3059\u3002<\/p>\n\n\n\n
2\u3001switch\u6587<\/p>\n\n\n\n
switch \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306f\u3001\u3055\u307e\u3056\u307e\u306a\u5024\u306b\u57fa\u3065\u3044\u3066\u3055\u307e\u3056\u307e\u306a\u30b3\u30fc\u30c9\u5b9f\u884c\u30d1\u30b9\u3092\u9078\u629e\u3059\u308b\u305f\u3081\u306b\u4f7f\u7528\u3055\u308c\u307e\u3059\u3002switch \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306e\u57fa\u672c\u7684\u306a\u69cb\u6587\u306f\u6b21\u306e\u3068\u304a\u308a\u3067\u3059\u3002<\/p>\n\n\n\n
arduino\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fcswitch (expr, case1, case2, ...)\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u69cb\u6587\u3067\u3001 expr \u306f\u3001\u5b9f\u884c\u3059\u308b case \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u9078\u629e\u3059\u308b\u5f0f\u3067\u3059\u3002case1\u3001case2 \u306a\u3069\u306f\u3001\u3055\u307e\u3056\u307e\u306a\u30b3\u30fc\u30c9 \u30d6\u30ed\u30c3\u30af\u3092\u5b9f\u884c\u3059\u308b\u305f\u3081\u306b\u4f7f\u7528\u3055\u308c\u308b 1 \u3064\u4ee5\u4e0a\u306e case \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3067\u3059\u3002<\/p>\n\n\n\n
\u6b21\u306b\u3001switch \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306e\u4f8b\u3092\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
go\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9x <- 3\n\nswitch (x,\n \"one\" = {\n print(\"The value is one\")\n },\n \"two\" = {\n print(\"The value is two\")\n },\n \"three\" = {\n print(\"The value is three\")\n }\n)\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001\u5909\u6570 x \u306e\u5024\u306b\u5fdc\u3058\u3066\u7570\u306a\u308b\u30b3\u30fc\u30c9\u5b9f\u884c\u30d1\u30b9\u304c\u9078\u629e\u3055\u308c\u307e\u3059\u3002x \u306e\u5024\u306f 3 \u306a\u306e\u3067\u30013 \u756a\u76ee\u306e case \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u304c\u5b9f\u884c\u3055\u308c\u3001\u300cThe value is three\u300d\u304c\u51fa\u529b\u3055\u308c\u307e\u3059\u3002<\/p>\n\n\n\n
\u4e00\u822c\u306b\u3001R \u8a00\u8a9e\u3067\u306f\u3001\u6761\u4ef6\u4ed8\u304d\u5236\u5fa1\u306f\u91cd\u8981\u306a\u30d5\u30ed\u30fc\u5236\u5fa1\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3067\u3042\u308a\u3001\u3055\u307e\u3056\u307e\u306a\u6761\u4ef6\u306b\u5f93\u3063\u3066\u3055\u307e\u3056\u307e\u306a\u30b3\u30fc\u30c9 \u30d6\u30ed\u30c3\u30af\u3092\u5b9f\u884c\u3059\u308b\u306e\u306b\u5f79\u7acb\u3061\u307e\u3059\u3002if \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3084 switch \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306a\u3069\u306e\u6761\u4ef6\u4ed8\u304d\u5236\u5fa1\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u30de\u30b9\u30bf\u30fc\u3059\u308b\u3068\u3001\u30c7\u30fc\u30bf\u5206\u6790\u3084\u7d71\u8a08\u30e2\u30c7\u30ea\u30f3\u30b0\u306a\u3069\u306e\u30bf\u30b9\u30af\u3092\u3088\u308a\u9069\u5207\u306b\u5b9f\u884c\u3059\u308b\u306e\u306b\u5f79\u7acb\u3061\u307e\u3059\u3002<\/p>\n\n\n\n\u30d5\u30ed\u30fc\u5236\u5fa1\u6587\u306e\u30eb\u30fc\u30d7\u5236\u5fa1\u306b\u3064\u3044\u3066\u8a73\u3057\u304f\u6559\u3048\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
R \u8a00\u8a9e\u3067\u306f\u3001\u30eb\u30fc\u30d7\u5236\u5fa1\u306f\u3001\u540c\u3058\u30b3\u30fc\u30c9\u3092\u7e70\u308a\u8fd4\u3057\u5b9f\u884c\u3059\u308b\u305f\u3081\u306b\u4f7f\u7528\u3055\u308c\u308b\u30d5\u30ed\u30fc\u5236\u5fa1\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3067\u3059\u3002R \u8a00\u8a9e\u306b\u306f\u3001for \u30eb\u30fc\u30d7\u3001while \u30eb\u30fc\u30d7\u3001repeat \u30eb\u30fc\u30d7\u306a\u3069\u306e\u30eb\u30fc\u30d7\u5236\u5fa1\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u304c\u7528\u610f\u3055\u308c\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n
1. for \u30eb\u30fc\u30d7<\/p>\n\n\n\n
for \u30eb\u30fc\u30d7\u306f\u3001\u7279\u5b9a\u306e\u6761\u4ef6\u304c\u6e80\u305f\u3055\u308c\u308b\u307e\u3067\u540c\u3058\u30b3\u30fc\u30c9\u3092\u7e70\u308a\u8fd4\u3057\u5b9f\u884c\u3059\u308b\u305f\u3081\u306b\u4f7f\u7528\u3055\u308c\u307e\u3059\u3002for \u30eb\u30fc\u30d7\u306e\u57fa\u672c\u7684\u306a\u69cb\u6587\u306f\u6b21\u306e\u3068\u304a\u308a\u3067\u3059\u3002<\/p>\n\n\n\n
bash\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308bfor (var in seq) {\n # loop body\n}\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u69cb\u6587\u3067\u306f\u3001var \u306f\u30eb\u30fc\u30d7\u5909\u6570\u3067\u3042\u308a\u3001seq \u306f\u30d9\u30af\u30c8\u30eb\u3001\u30ea\u30b9\u30c8\u3001\u884c\u5217\u306a\u3069\u306e\u30b7\u30fc\u30b1\u30f3\u30b9\u3067\u3059\u3002\u5404\u30eb\u30fc\u30d7\u3067\u3001\u30eb\u30fc\u30d7\u5909\u6570\u306f seq \u306e\u5024\u3092\u53d6\u308a\u3001\u30eb\u30fc\u30d7\u672c\u4f53\u3092 1 \u56de\u5b9f\u884c\u3057\u307e\u3059\u3002seq \u306e\u3059\u3079\u3066\u306e\u5024\u304c\u53d6\u308a\u51fa\u3055\u308c\u308b\u3068\u3001for \u30eb\u30fc\u30d7\u306f\u7d42\u4e86\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
\u30eb\u30fc\u30d7\u306e\u4f8b\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
css\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fcfor (i in 1:5) {\n print(i)\n}\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001\u30eb\u30fc\u30d7\u5909\u6570 i \u306f 1 \u304b\u3089 5 \u307e\u3067\u306e\u5024\u3092\u9806\u756a\u306b\u53d6\u308a\u3001\u30eb\u30fc\u30d7\u672c\u4f53\u3092 5 \u56de\u5b9f\u884c\u3057\u3066\u30011\u30012\u30013\u30014\u30015 \u3092\u51fa\u529b\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
\u4e8c\u3001while\u5faa\u73af<\/p>\n\n\n\n
while \u30eb\u30fc\u30d7\u306f\u3001\u7279\u5b9a\u306e\u6761\u4ef6\u304c\u6e80\u305f\u3055\u308c\u308b\u307e\u3067\u540c\u3058\u30b3\u30fc\u30c9\u3092\u7e70\u308a\u8fd4\u3057\u5b9f\u884c\u3059\u308b\u305f\u3081\u306b\u4f7f\u7528\u3055\u308c\u307e\u3059\u3002while \u30eb\u30fc\u30d7\u306e\u57fa\u672c\u7684\u306a\u69cb\u6587\u306f\u6b21\u306e\u3068\u304a\u308a\u3067\u3059\u3002<\/p>\n\n\n\n
arduino\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fcwhile (condition) {\n # loop body\n}\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u69cb\u6587\u3067\u306f\u3001\u6761\u4ef6\u306f\u8ad6\u7406\u5f0f\u3067\u3042\u308a\u3001\u8ad6\u7406\u5f0f\u304c TRUE \u3068\u8a55\u4fa1\u3055\u308c\u305f\u5834\u5408\u306b\u306e\u307f\u30eb\u30fc\u30d7\u672c\u4f53\u304c\u5b9f\u884c\u3055\u308c\u307e\u3059\u3002while \u30eb\u30fc\u30d7\u306f\u3001\u8ad6\u7406\u5f0f\u304c FALSE \u3068\u8a55\u4fa1\u3055\u308c\u308b\u3068\u7d42\u4e86\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
while \u30eb\u30fc\u30d7\u306e\u4f8b\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
css\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fci <- 1\n\nwhile (i <= 5) {\n print(i)\n i <- i + 1\n}\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001\u30eb\u30fc\u30d7\u5909\u6570 i \u306f 1 \u304b\u3089\u59cb\u307e\u308a\u3001\u30eb\u30fc\u30d7\u672c\u4f53\u306f 5 \u56de\u5b9f\u884c\u3055\u308c\u30011\u30012\u30013\u30014\u3001\u304a\u3088\u3073 5 \u304c\u51fa\u529b\u3055\u308c\u307e\u3059\u3002\u5404\u30eb\u30fc\u30d7\u3067\u3001i \u304c 5 \u3088\u308a\u5927\u304d\u304f\u306a\u308b\u307e\u3067 i \u306e\u5024\u304c 1 \u305a\u3064\u5897\u52a0\u3057\u3001while \u30eb\u30fc\u30d7\u304c\u7d42\u4e86\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
\u4e09\u3001\u30b5\u30a4\u30af\u30eb\u3092\u7e70\u308a\u8fd4\u3059<\/p>\n\n\n\n
\u7e70\u308a\u8fd4\u3057\u30eb\u30fc\u30d7\u306f\u3001\u30eb\u30fc\u30d7\u304c\u624b\u52d5\u3067\u505c\u6b62\u3055\u308c\u308b\u307e\u3067\u540c\u3058\u30b3\u30fc\u30c9\u3092\u7e70\u308a\u8fd4\u3057\u5b9f\u884c\u3059\u308b\u305f\u3081\u306b\u4f7f\u7528\u3055\u308c\u307e\u3059\u3002\u7e70\u308a\u8fd4\u3057\u30eb\u30fc\u30d7\u306e\u57fa\u672c\u7684\u306a\u69cb\u6587\u306f\u6b21\u306e\u3068\u304a\u308a\u3067\u3059\u3002<\/p>\n\n\n\n
r\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9repeat {\n # loop body\n if (condition) {\n break\n }\n}\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u69cb\u6587\u3067\u306f\u3001\u7e70\u308a\u8fd4\u3057\u30eb\u30fc\u30d7\u306f\u3001\u30eb\u30fc\u30d7\u304c\u624b\u52d5\u3067\u505c\u6b62\u3055\u308c\u308b\u307e\u3067\u30eb\u30fc\u30d7\u672c\u4f53\u3092\u7121\u671f\u9650\u306b\u5b9f\u884c\u3057\u307e\u3059\u3002condition \u306e\u5024\u304c TRUE \u306e\u5834\u5408\u3001break \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u5b9f\u884c\u3057\u3001\u30eb\u30fc\u30d7\u304b\u3089\u98db\u3073\u51fa\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
\u7e70\u308a\u8fd4\u3057\u30eb\u30fc\u30d7\u306e\u4f8b\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
css\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fci <- 1\n\nrepeat {\n print(i)\n i <- i + 1\n if (i > 5) {\n break\n }\n}\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001\u30eb\u30fc\u30d7\u5909\u6570 i \u306f 1 \u304b\u3089\u59cb\u307e\u308a\u3001\u30eb\u30fc\u30d7\u672c\u4f53\u306f 5 \u56de\u5b9f\u884c\u3055\u308c\u30011\u30012\u30013\u30014\u3001\u304a\u3088\u3073 5 \u304c\u51fa\u529b\u3055\u308c\u307e\u3059\u3002i \u304c 5 \u3088\u308a\u5927\u304d\u3044\u5834\u5408\u3001break \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u5b9f\u884c\u3057\u3001\u30eb\u30fc\u30d7\u304b\u3089\u98db\u3073\u51fa\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
\u4e00\u822c\u306b\u3001R \u8a00\u8a9e\u3067\u306f\u30eb\u30fc\u30d7\u5236\u5fa1\u304c\u91cd\u8981\u3067\u3059\u3002<\/p>\n\n\n\n\u7d9a\u3051\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
\u30d5\u30ed\u30fc\u5236\u5fa1\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306f\u3001\u540c\u3058\u30b3\u30fc\u30c9\u3092\u7e70\u308a\u8fd4\u3057\u5b9f\u884c\u3057\u3066\u3001\u7e70\u308a\u8fd4\u3057\u51e6\u7406\u3059\u308b\u5fc5\u8981\u304c\u3042\u308b\u3044\u304f\u3064\u304b\u306e\u30bf\u30b9\u30af\u3092\u5b8c\u4e86\u3059\u308b\u306e\u306b\u5f79\u7acb\u3061\u307e\u3059\u3002for \u30eb\u30fc\u30d7\u3001while \u30eb\u30fc\u30d7\u3001repeat \u30eb\u30fc\u30d7\u306a\u3069\u306e\u30eb\u30fc\u30d7\u5236\u5fa1\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u30de\u30b9\u30bf\u30fc\u3059\u308b\u3068\u3001\u30c7\u30fc\u30bf\u5206\u6790\u3084\u7d71\u8a08\u30e2\u30c7\u30ea\u30f3\u30b0\u306a\u3069\u306e\u30bf\u30b9\u30af\u3092\u3088\u308a\u9069\u5207\u306b\u5b9f\u884c\u3059\u308b\u306e\u306b\u5f79\u7acb\u3061\u307e\u3059\u3002<\/p>\n\n\n\n
\u30eb\u30fc\u30d7\u5236\u5fa1\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u4f5c\u6210\u3059\u308b\u3068\u304d\u306f\u3001\u6b21\u306e\u70b9\u306b\u7279\u306b\u6ce8\u610f\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n\n\n\n
\n\u30eb\u30fc\u30d7\u5909\u6570\u306e\u521d\u671f\u5316\u3068\u66f4\u65b0\u3002\u30eb\u30fc\u30d7\u5236\u5fa1\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3067\u306f\u3001\u30eb\u30fc\u30d7\u5909\u6570\u306e\u521d\u671f\u5316\u3068\u66f4\u65b0\u304c\u975e\u5e38\u306b\u91cd\u8981\u3067\u3042\u308a\u3001\u7121\u9650\u30eb\u30fc\u30d7\u3084\u8ad6\u7406\u30a8\u30e9\u30fc\u306a\u3069\u306e\u554f\u984c\u3092\u56de\u907f\u3059\u308b\u305f\u3081\u306b\u3001\u7279\u5b9a\u306e\u30d3\u30b8\u30cd\u30b9\u8981\u4ef6\u306b\u5f93\u3063\u3066\u9069\u5207\u306a\u521d\u671f\u5024\u3068\u30b9\u30c6\u30c3\u30d7 \u30b5\u30a4\u30ba\u3092\u8a2d\u5b9a\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/li>\n\n\n\n \u30eb\u30fc\u30d7\u5236\u5fa1\u6761\u4ef6\u306e\u8a2d\u5b9a\u3002\u30eb\u30fc\u30d7\u5236\u5fa1\u6587\u3067\u306f\u3001\u30eb\u30fc\u30d7\u5236\u5fa1\u6761\u4ef6\u306e\u8a2d\u5b9a\u3082\u975e\u5e38\u306b\u91cd\u8981\u3067\u3001\u30eb\u30fc\u30d7\u3092\u6b63\u5e38\u306b\u7d42\u4e86\u3055\u305b\u308b\u305f\u3081\u306b\u306f\u3001\u696d\u52d9\u8981\u4ef6\u306b\u5fdc\u3058\u305f\u9069\u5207\u306a\u8ad6\u7406\u6761\u4ef6\u3092\u8a2d\u5b9a\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/li>\n\n\n\n \u30eb\u30fc\u30d7\u5236\u5fa1\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306e\u30cd\u30b9\u30c8\u3002\u8907\u96d1\u306a\u30eb\u30fc\u30d7\u5236\u5fa1\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u8a18\u8ff0\u3059\u308b\u5834\u5408\u3001\u30eb\u30fc\u30d7\u5236\u5fa1\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306e\u30cd\u30b9\u30c8\u304c\u5fc5\u8981\u306b\u306a\u308b\u5834\u5408\u304c\u3042\u308a\u307e\u3059\u3002\u6df7\u4e71\u3084\u8ad6\u7406\u30a8\u30e9\u30fc\u306a\u3069\u306e\u554f\u984c\u3092\u56de\u907f\u3059\u308b\u305f\u3081\u306b\u3001\u30cd\u30b9\u30c8\u3055\u308c\u305f\u30ec\u30a4\u30e4\u30fc\u306e\u6570\u3068\u30eb\u30fc\u30d7\u5909\u6570\u306e\u547d\u540d\u306b\u7279\u5225\u306a\u6ce8\u610f\u3092\u6255\u3046\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/li>\n<\/ol>\n\n\n\n\u4e00\u822c\u306b\u3001\u30d5\u30ed\u30fc\u5236\u5fa1\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306f\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u306e\u57fa\u790e\u3067\u3042\u308a\u3001\u6ce8\u610f\u6df1\u304f\u7406\u89e3\u3057\u7fd2\u5f97\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002\u5b9f\u969b\u306e\u30c7\u30fc\u30bf\u5206\u6790\u3068\u7d71\u8a08\u30e2\u30c7\u30ea\u30f3\u30b0\u3067\u306f\u3001\u30d7\u30ed\u30bb\u30b9\u5236\u5fa1\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306f\u3001\u8907\u96d1\u306a\u30c7\u30fc\u30bf\u51e6\u7406\u3068\u5206\u6790\u30bf\u30b9\u30af\u3092\u5b8c\u4e86\u3059\u308b\u306e\u306b\u5f79\u7acb\u3064\u975e\u5e38\u306b\u91cd\u8981\u306a\u30c4\u30fc\u30eb\u3067\u3059\u3002<\/p>\n\n\n\n\u30d9\u30af\u30bf\u30fc\uff08\u30d9\u30af\u30bf\u30fc\uff09\u306e\u30c7\u30fc\u30bf\u69cb\u9020\u3068\u6f14\u7b97\u3092\u8a73\u3057\u304f\u6559\u3048\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
R \u8a00\u8a9e\u3067\u306f\u3001\u30d9\u30af\u30c8\u30eb (\u30d9\u30af\u30c8\u30eb) \u306f\u3001\u540c\u3058\u578b\u306e\u30c7\u30fc\u30bf\u306e\u30bb\u30c3\u30c8\u3092\u683c\u7d0d\u3059\u308b\u305f\u3081\u306b\u4f7f\u7528\u3067\u304d\u308b\u4e00\u822c\u7684\u306a\u30c7\u30fc\u30bf\u69cb\u9020\u3067\u3059\u3002\u30d9\u30af\u30c8\u30eb\u306b\u306f\u3001\u6570\u5024\u30c7\u30fc\u30bf\u3001\u6587\u5b57\u30c7\u30fc\u30bf\u3001\u8ad6\u7406\u30c7\u30fc\u30bf\u3001\u56e0\u5b50\u30c7\u30fc\u30bf\u3092\u542b\u3081\u308b\u3053\u3068\u304c\u3067\u304d\u3001\u30d9\u30af\u30c8\u30eb\u306e\u4f5c\u6210\u3001\u30a2\u30af\u30bb\u30b9\u3001\u5909\u66f4\u3001\u64cd\u4f5c\u306a\u3069\u306e\u57fa\u672c\u7684\u306a\u30d9\u30af\u30c8\u30eb\u64cd\u4f5c\u3092\u30b5\u30dd\u30fc\u30c8\u3057\u307e\u3059\u3002\u30d9\u30af\u30c8\u30eb\u306e\u8a73\u7d30\u306a\u8aac\u660e\u306f\u6b21\u306e\u3068\u304a\u308a\u3067\u3059\u3002<\/p>\n\n\n\n
1. \u30d9\u30af\u30bf\u30fc\u306e\u4f5c\u6210<\/p>\n\n\n\n
\u30d9\u30af\u30c8\u30eb\u306e\u4f5c\u6210\u306f\u3001c() \u95a2\u6570\u3001seq() \u95a2\u6570\u3001rep() \u95a2\u6570\u306a\u3069\u3092\u4f7f\u7528\u3059\u308b\u306a\u3069\u3001\u3055\u307e\u3056\u307e\u306a\u65b9\u6cd5\u3067\u5b9f\u73fe\u3067\u304d\u307e\u3059\u3002\u30d9\u30af\u30c8\u30eb\u3092\u4f5c\u6210\u3059\u308b\u4f8b\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
scss\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308b# \u4f7f\u7528c()\u51fd\u6570\u521b\u5efa\u6570\u503c\u578b\u5411\u91cf\nx <- c(1, 2, 3, 4, 5)\n\n# \u4f7f\u7528c()\u51fd\u6570\u521b\u5efa\u5b57\u7b26\u578b\u5411\u91cf\ny <- c(\"apple\", \"banana\", \"orange\")\n\n# \u4f7f\u7528seq()\u51fd\u6570\u521b\u5efa\u6570\u503c\u578b\u5411\u91cf\nz <- seq(from = 1, to = 10, by = 2)\n\n# \u4f7f\u7528rep()\u51fd\u6570\u521b\u5efa\u6570\u503c\u578b\u5411\u91cf\nw <- rep(1:3, times = 2)\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001 c() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u8907\u6570\u306e\u30c7\u30fc\u30bf\u3092 1 \u3064\u306e\u30d9\u30af\u30c8\u30eb\u306b\u7d50\u5408\u3057\u3001 seq() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u6570\u5024\u30d9\u30af\u30c8\u30eb\u3092\u751f\u6210\u3057\u3001 rep() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u30d9\u30af\u30c8\u30eb\u3092\u6570\u56de\u7e70\u308a\u8fd4\u3057\u3066\u65b0\u3057\u3044 vector \u3092\u751f\u6210\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
2. \u30d9\u30af\u30bf\u30fc\u3078\u306e\u30a2\u30af\u30bb\u30b9\u3068\u5909\u66f4<\/p>\n\n\n\n
\u30d9\u30af\u30c8\u30eb\u5185\u306e\u8981\u7d20\u306f\u3001\u6dfb\u3048\u5b57\u306b\u3088\u3063\u3066\u30a2\u30af\u30bb\u30b9\u304a\u3088\u3073\u5909\u66f4\u3067\u304d\u307e\u3059\u3002\u6dfb\u5b57\u306f 1 \u304b\u3089\u59cb\u307e\u308a\u3001\u9806\u6b21\u5897\u52a0\u3057\u307e\u3059\u3002\u4ee5\u4e0b\u306f\u3001\u30d9\u30af\u30c8\u30eb\u3078\u306e\u30a2\u30af\u30bb\u30b9\u3068\u5909\u66f4\u306e\u4f8b\u3067\u3059\u3002<\/p>\n\n\n\n
scss\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308b# \u8bbf\u95ee\u5411\u91cf\u4e2d\u7684\u5143\u7d20\nx <- c(1, 2, 3, 4, 5)\nprint(x[2]) # \u8f93\u51fa2\n\n# \u4fee\u6539\u5411\u91cf\u4e2d\u7684\u5143\u7d20\nx[2] <- 10\nprint(x) # \u8f93\u51fa1 10 3 4 5\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001\u30d9\u30af\u30c8\u30eb x \u306e 2 \u756a\u76ee\u306e\u8981\u7d20\u306f x[2] \u3067\u30a2\u30af\u30bb\u30b9\u3067\u304d\u30012 \u756a\u76ee\u306e\u8981\u7d20\u306e\u5024\u306f x[2] <- 10 \u3067 10 \u306b\u5909\u66f4\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n
3. \u30d9\u30af\u30c8\u30eb\u6f14\u7b97<\/p>\n\n\n\n
\u30d9\u30af\u30c8\u30eb\u306f\u3001\u3055\u307e\u3056\u307e\u306a\u7b97\u8853\u6f14\u7b97\u3001\u6bd4\u8f03\u6f14\u7b97\u3001\u304a\u3088\u3073\u8ad6\u7406\u6f14\u7b97\u3092\u30b5\u30dd\u30fc\u30c8\u3057\u3066\u3044\u307e\u3059\u3002\u6f14\u7b97\u3092\u5b9f\u884c\u3059\u308b\u3068\u304d\u3001R \u306f 2 \u3064\u306e\u30d9\u30af\u30c8\u30eb\u306e\u5bfe\u5fdc\u3059\u308b\u8981\u7d20\u306b\u5bfe\u3057\u3066\u6f14\u7b97\u3092\u81ea\u52d5\u7684\u306b\u5b9f\u884c\u3057\u307e\u3059\u3002\u4ee5\u4e0b\u306f\u3001\u30d9\u30af\u30c8\u30eb\u306b\u5bfe\u3059\u308b\u64cd\u4f5c\u306e\u4f8b\u3067\u3059\u3002<\/p>\n\n\n\n
r\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9# \u5411\u91cf\u7684\u7b97\u672f\u8fd0\u7b97\nx <- c(1, 2, 3, 4, 5)\ny <- c(2, 4, 6, 8, 10)\nprint(x + y) # \u8f93\u51fa3 6 9 12 15\n\n# \u5411\u91cf\u7684\u6bd4\u8f83\u8fd0\u7b97\nx <- c(1, 2, 3, 4, 5)\ny <- c(2, 4, 6, 8, 10)\nprint(x > y) # \u8f93\u51faFALSE FALSE FALSE FALSE FALSE\n\n# \u5411\u91cf\u7684\u903b\u8f91\u8fd0\u7b97\nx <- c(TRUE, FALSE, TRUE, FALSE)\ny <- c(FALSE, FALSE, TRUE, TRUE)\nprint(x & y) # \u8f93\u51faFALSE FALSE TRUE FALSE\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001+ \u6f14\u7b97\u5b50\u306b\u3088\u3063\u3066 2 \u3064\u306e\u6570\u5024\u30d9\u30af\u30c8\u30eb\u304c\u52a0\u7b97\u3055\u308c\u3001> \u6f14\u7b97\u5b50\u306b\u3088\u3063\u3066 2 \u3064\u306e\u6570\u5024\u30d9\u30af\u30c8\u30eb\u304c\u52a0\u7b97\u3055\u308c\u307e\u3059\u3002<\/p>\n\n\n\n\u7d9a\u3051\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
\u30d9\u30af\u30c8\u30eb\u3092\u6bd4\u8f03\u3057\u3066\u8ad6\u7406\u30d9\u30af\u30c8\u30eb\u3092\u53d6\u5f97\u3057\u307e\u3059\u3002& \u6f14\u7b97\u5b50\u3092\u4f7f\u7528\u3057\u3066\u30012 \u3064\u306e\u8ad6\u7406\u30d9\u30af\u30c8\u30eb\u306b\u5bfe\u3057\u3066\u8ad6\u7406 AND \u6f14\u7b97\u3092\u5b9f\u884c\u3057\u3001\u65b0\u3057\u3044\u8ad6\u7406\u30d9\u30af\u30c8\u30eb\u3092\u53d6\u5f97\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
4. \u30d9\u30af\u30c8\u30eb\u306e\u6027\u8cea<\/p>\n\n\n\n
\u30d9\u30af\u30c8\u30eb\u306e\u5c5e\u6027\u306b\u306f\u3001\u9577\u3055\u3001\u30e2\u30fc\u30c9\u3001\u304a\u3088\u3073\u5c5e\u6027\u304c\u542b\u307e\u308c\u307e\u3059\u3002\u4ee5\u4e0b\u306f\u3001\u30d9\u30af\u30c8\u30eb\u5c5e\u6027\u306e\u4f8b\u3067\u3059\u3002<\/p>\n\n\n\n
r\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9# \u5411\u91cf\u7684\u957f\u5ea6\u5c5e\u6027\nx <- c(1, 2, 3, 4, 5)\nprint(length(x)) # \u8f93\u51fa5\n\n# \u5411\u91cf\u7684\u7c7b\u578b\u5c5e\u6027\nx <- c(1, 2, 3, 4, 5)\nprint(mode(x)) # \u8f93\u51fanumeric\n\n# \u5411\u91cf\u7684\u5c5e\u6027\u5c5e\u6027\nx <- c(1, 2, 3, 4, 5)\nnames(x) <- c(\"a\", \"b\", \"c\", \"d\", \"e\")\nprint(attributes(x)) # \u8f93\u51fanames\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001\u30d9\u30af\u30c8\u30eb\u306e\u9577\u3055\u306f length() \u95a2\u6570\u3067\u53d6\u5f97\u3067\u304d\u3001\u30d9\u30af\u30c8\u30eb\u306e\u30bf\u30a4\u30d7\u306f mode() \u95a2\u6570\u3067\u53d6\u5f97\u3067\u304d\u3001\u30d9\u30af\u30c8\u30eb\u306e\u5c5e\u6027\u306f attributes() \u95a2\u6570\u3067\u53d6\u5f97\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n
\u4e00\u822c\u306b\u3001R \u8a00\u8a9e\u3067\u306f\u3001\u30d9\u30af\u30c8\u30eb\u306f\u975e\u5e38\u306b\u4e00\u822c\u7684\u306a\u30c7\u30fc\u30bf\u69cb\u9020\u3067\u3042\u308a\u3001\u540c\u3058\u578b\u306e\u30c7\u30fc\u30bf \u30bb\u30c3\u30c8\u3092\u683c\u7d0d\u3059\u308b\u305f\u3081\u306b\u4f7f\u7528\u3067\u304d\u307e\u3059\u3002\u30d9\u30af\u30bf\u30fc\u306e\u4f5c\u6210\u3001\u30a2\u30af\u30bb\u30b9\u3001\u5909\u66f4\u3001\u64cd\u4f5c\u306e\u57fa\u672c\u7684\u306a\u64cd\u4f5c\u3092\u901a\u3058\u3066\u3001\u3055\u307e\u3056\u307e\u306a\u30c7\u30fc\u30bf\u5206\u6790\u3068\u7d71\u8a08\u30e2\u30c7\u30ea\u30f3\u30b0\u306e\u30bf\u30b9\u30af\u3092\u5b8c\u4e86\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002\u30d9\u30af\u30c8\u30eb\u306e\u9577\u3055\u3001\u30bf\u30a4\u30d7\u3001\u5c5e\u6027\u306a\u3069\u306e\u5c5e\u6027\u306f\u975e\u5e38\u306b\u91cd\u8981\u3067\u3042\u308a\u3001\u30c7\u30fc\u30bf\u51e6\u7406\u4e2d\u306b\u7279\u5225\u306a\u6ce8\u610f\u3068\u6ce8\u610f\u304c\u5fc5\u8981\u3067\u3042\u308b\u3053\u3068\u306b\u6ce8\u610f\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n\n\n\n\u30c7\u30fc\u30bf\u69cb\u9020\u3068\u64cd\u4f5c\u306e\u30de\u30c8\u30ea\u30c3\u30af\u30b9\u3092\u8a73\u3057\u304f\u8aac\u660e\u3057\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
R \u8a00\u8a9e\u3067\u306f\u3001\u884c\u5217 (\u30de\u30c8\u30ea\u30c3\u30af\u30b9) \u306f\u3001\u540c\u3058\u578b\u306e 2 \u6b21\u5143\u30c7\u30fc\u30bf\u3092\u683c\u7d0d\u3059\u308b\u305f\u3081\u306b\u4f7f\u7528\u3067\u304d\u308b\u4e00\u822c\u7684\u306a\u30c7\u30fc\u30bf\u69cb\u9020\u3067\u3059\u3002\u30de\u30c8\u30ea\u30c3\u30af\u30b9\u306b\u306f\u3001\u6570\u5024\u3001\u6587\u5b57\u3001\u8ad6\u7406\u3001\u304a\u3088\u3073\u56e0\u5b50\u30c7\u30fc\u30bf\u3092\u542b\u3081\u308b\u3053\u3068\u304c\u3067\u304d\u3001\u30de\u30c8\u30ea\u30c3\u30af\u30b9\u306e\u4f5c\u6210\u3001\u30a2\u30af\u30bb\u30b9\u3001\u5909\u66f4\u3001\u64cd\u4f5c\u306a\u3069\u306e\u57fa\u672c\u7684\u306a\u30de\u30c8\u30ea\u30c3\u30af\u30b9\u64cd\u4f5c\u3092\u30b5\u30dd\u30fc\u30c8\u3057\u307e\u3059\u3002\u30de\u30c8\u30ea\u30c3\u30af\u30b9\u306e\u8a73\u7d30\u306a\u8aac\u660e\u306f\u6b21\u306e\u3068\u304a\u308a\u3067\u3059\u3002<\/p>\n\n\n\n
\u307e\u305a\u3001\u30de\u30c8\u30ea\u30c3\u30af\u30b9\u306e\u4f5c\u6210<\/p>\n\n\n\n
\u884c\u5217\u306e\u4f5c\u6210\u306f\u3001matrix() \u95a2\u6570\u3001cbind() \u95a2\u6570\u3001\u304a\u3088\u3073 rbind() \u95a2\u6570\u3092\u4f7f\u7528\u3059\u308b\u306a\u3069\u3001\u3055\u307e\u3056\u307e\u306a\u65b9\u6cd5\u3067\u5b9f\u73fe\u3067\u304d\u307e\u3059\u3002\u30de\u30c8\u30ea\u30c3\u30af\u30b9\u3092\u4f5c\u6210\u3059\u308b\u4f8b\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
scss\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308b# \u4f7f\u7528matrix()\u51fd\u6570\u521b\u5efa\u6570\u503c\u578b\u77e9\u9635\nx <- matrix(data = 1:9, nrow = 3, ncol = 3)\n\n# \u4f7f\u7528cbind()\u51fd\u6570\u548crbind()\u51fd\u6570\u521b\u5efa\u6570\u503c\u578b\u77e9\u9635\nx <- cbind(c(1, 2, 3), c(4, 5, 6), c(7, 8, 9))\ny <- rbind(c(1, 2, 3), c(4, 5, 6), c(7, 8, 9))\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001matrix() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u6570\u5024\u884c\u5217\u3092\u751f\u6210\u3057\u3001cbind() \u304a\u3088\u3073 rbind() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u8907\u6570\u306e\u30d9\u30af\u30c8\u30eb\u3092\u7d50\u5408\u3057\u3066\u884c\u5217\u3092\u4f5c\u6210\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
2. \u30de\u30c8\u30ea\u30c3\u30af\u30b9\u3078\u306e\u30a2\u30af\u30bb\u30b9\u3068\u5909\u66f4<\/p>\n\n\n\n
\u30de\u30c8\u30ea\u30c3\u30af\u30b9\u5185\u306e\u8981\u7d20\u306f\u3001\u6dfb\u3048\u5b57\u306b\u3088\u3063\u3066\u30a2\u30af\u30bb\u30b9\u304a\u3088\u3073\u5909\u66f4\u3067\u304d\u307e\u3059\u3002\u6dfb\u5b57\u306f 1 \u304b\u3089\u59cb\u307e\u308a\u3001\u9806\u6b21\u5897\u52a0\u3057\u307e\u3059\u3002\u4ee5\u4e0b\u306f\u3001\u30de\u30c8\u30ea\u30c3\u30af\u30b9\u3078\u306e\u30a2\u30af\u30bb\u30b9\u3068\u5909\u66f4\u306e\u4f8b\u3067\u3059\u3002<\/p>\n\n\n\n
bash\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308b# \u8bbf\u95ee\u77e9\u9635\u4e2d\u7684\u5143\u7d20\nx <- matrix(data = 1:9, nrow = 3, ncol = 3)\nprint(x[2, 3]) # \u8f93\u51fa6\n\n# \u4fee\u6539\u77e9\u9635\u4e2d\u7684\u5143\u7d20\nx[2, 3] <- 10\nprint(x) # \u8f93\u51fa1 4 7\n # 2 5 10\n # 3 8 9\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001\u884c\u5217 x \u306e 2 \u884c 3 \u5217\u76ee\u306e\u8981\u7d20\u306f x[2, 3] \u3067\u30a2\u30af\u30bb\u30b9\u3067\u304d\u3001\u8981\u7d20\u306e\u5024\u306f x[2, 3] \u3067 10 \u306b\u5909\u66f4\u3067\u304d\u307e\u3059 <- 10.<\/p>\n\n\n\n
3. \u884c\u5217\u6f14\u7b97<\/p>\n\n\n\n
\u884c\u5217\u306f\u3001\u3055\u307e\u3056\u307e\u306a\u7b97\u8853\u6f14\u7b97\u3001\u6bd4\u8f03\u6f14\u7b97\u3001\u304a\u3088\u3073\u8ad6\u7406\u6f14\u7b97\u3092\u30b5\u30dd\u30fc\u30c8\u3057\u3066\u3044\u307e\u3059\u3002\u6f14\u7b97\u3092\u5b9f\u884c\u3059\u308b\u3068\u304d\u3001R \u306f 2 \u3064\u306e\u884c\u5217\u306e\u5bfe\u5fdc\u3059\u308b\u8981\u7d20\u306b\u5bfe\u3057\u3066\u6f14\u7b97\u3092\u81ea\u52d5\u7684\u306b\u5b9f\u884c\u3057\u307e\u3059\u3002\u4ee5\u4e0b\u306f\u3001\u884c\u5217\u306b\u5bfe\u3059\u308b\u64cd\u4f5c\u306e\u4f8b\u3067\u3059\u3002<\/p>\n\n\n\n
r\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9# \u77e9\u9635\u7684\u7b97\u672f\u8fd0\u7b97\nx <- matrix(data = 1:9, nrow = 3, ncol = 3)\ny <- matrix(data = 2, nrow = 3, ncol = 3)\nprint(x + y) # \u8f93\u51fa3 6 9\n # 4 7 10\n # 5 8 11\n\n# \u77e9\u9635\u7684\u6bd4\u8f83\u8fd0\u7b97\nx <- matrix(data\n<\/code><\/pre>\n\n\n\n\u7d9a\u3051\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
= 1:9, nrow = 3, ncol = 3) y <- matrix(data = 5, nrow = 3, ncol = 3) print(x > y) # \u8f93\u51faFALSE FALSE FALSE # FALSE FALSE FALSE # FALSE FALSE FALSE<\/p>\n\n\n\n
\u884c\u5217\u306e\u8ad6\u7406\u6f14\u7b97<\/h1>\n\n\n\n x <- \u884c\u5217(\u30c7\u30fc\u30bf = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), nrow = 2, ncol = 3) y <- \u884c\u5217(\u30c7\u30fc\u30bf = c(TRUE, TRUE, FALSE, FALSE, TRUE, TRUE) ), nrow = 2, ncol = 3) print(x & y) # \u8f93\u51faTRUE FALSE FALSE # FALSE TRUE FALSE<\/p>\n\n\n\n
r\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9\n\u5728\u4ee5\u4e0a\u793a\u4f8b\u4e2d\uff0c\u901a\u8fc7+\u8fd0\u7b97\u7b26\u5bf9\u4e24\u4e2a\u6570\u503c\u578b\u77e9\u9635\u8fdb\u884c\u4e86\u52a0\u6cd5\u8fd0\u7b97\uff1b\u901a\u8fc7>\u8fd0\u7b97\u7b26\u5bf9\u4e24\u4e2a\u6570\u503c\u578b\u77e9\u9635\u8fdb\u884c\u4e86\u6bd4\u8f83\u8fd0\u7b97\uff0c\u5f97\u5230\u4e86\u4e00\u4e2a\u903b\u8f91\u578b\u77e9\u9635\uff1b\u901a\u8fc7&\u8fd0\u7b97\u7b26\u5bf9\u4e24\u4e2a\u903b\u8f91\u578b\u77e9\u9635\u8fdb\u884c\u4e86\u903b\u8f91\u4e0e\u8fd0\u7b97\uff0c\u5f97\u5230\u4e86\u4e00\u4e2a\u65b0\u7684\u903b\u8f91\u578b\u77e9\u9635\u3002\n\n\u56db\u3001\u77e9\u9635\u7684\u5c5e\u6027\n\n\u77e9\u9635\u7684\u5c5e\u6027\u5305\u62ec\u884c\u6570\uff08nrow\uff09\u3001\u5217\u6570\uff08ncol\uff09\u3001\u7ef4\u6570\uff08dim\uff09\u3001\u7c7b\u578b\uff08mode\uff09\u548c\u5c5e\u6027\uff08attributes\uff09\u7b49\u3002\u4ee5\u4e0b\u662f\u77e9\u9635\u5c5e\u6027\u7684\u793a\u4f8b\uff1a\n\n<\/code><\/pre>\n\n\n\n\u884c\u5217\u306e\u884c\u3068\u5217\u306e\u30d7\u30ed\u30d1\u30c6\u30a3<\/h1>\n\n\n\n x <- matrix(data = 1:9, nrow = 3, ncol = 3) print(nrow(x)) # \u51fa\u529b 3 print(ncol(x)) # \u51fa\u529b 3<\/p>\n\n\n\n
\u884c\u5217\u306e\u6b21\u5143\u7279\u6027<\/h1>\n\n\n\n x <- \u30de\u30c8\u30ea\u30c3\u30af\u30b9(\u30c7\u30fc\u30bf = 1:9\u3001nrow = 3\u3001ncol = 3) print(dim(x)) # \u51fa\u529b 3 3<\/p>\n\n\n\n
\u884c\u5217\u306e\u578b\u30d7\u30ed\u30d1\u30c6\u30a3<\/h1>\n\n\n\n x <- matrix(data = 1:9, nrow = 3, ncol = 3) print(mode(x)) # \u6570\u5024\u3092\u51fa\u529b<\/p>\n\n\n\n
\u884c\u5217\u306e\u5c5e\u6027\u30d7\u30ed\u30d1\u30c6\u30a3<\/h1>\n\n\n\n x <- \u30de\u30c8\u30ea\u30c3\u30af\u30b9(\u30c7\u30fc\u30bf = 1:9\u3001nrow = 3\u3001ncol = 3) dimnames(x) <- list(c(\u201ca\u201d, \u201cb\u201d, \u201cc\u201d), c(\u201cx\u201d, \u201cy \u201d, \u201cz\u201d)) print(attributes(x)) # \u8f93\u51fadimnames<\/p>\n\n\n\n
scss\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308b\n\u5728\u4ee5\u4e0a\u793a\u4f8b\u4e2d\uff0c\u901a\u8fc7nrow()\u51fd\u6570\u548cncol()\u51fd\u6570\u53ef\u4ee5\u83b7\u53d6\u77e9\u9635\u7684\u884c\u6570\u548c\u5217\u6570\uff1b\u901a\u8fc7dim()\u51fd\u6570\u53ef\u4ee5\u83b7\u53d6\u77e9\u9635\u7684\u7ef4\u6570\uff1b\u901a\u8fc7mode()\u51fd\u6570\u53ef\u4ee5\u83b7\u53d6\u77e9\u9635\u7684\u7c7b\u578b\uff1b\u901a\u8fc7attributes()\u51fd\u6570\u53ef\u4ee5\u83b7\u53d6\u77e9\u9635\u7684\u5c5e\u6027\u3002\n\n\u603b\u7684\u6765\u8bf4\uff0c\u5728R\u8bed\u8a00\u4e2d\uff0c\u77e9\u9635\u662f\u4e00\u79cd\u975e\u5e38\u5e38\u89c1\u7684\u6570\u636e\u7ed3\u6784\uff0c\u53ef\u4ee5\u7528\u6765\u5b58\u50a8\u4e8c\u7ef4\u7684\u540c\u7c7b\u578b\u6570\u636e\u3002\u901a\u8fc7\u77e9\u9635\u7684\u521b\u5efa\u3001\u8bbf\u95ee\u3001\u4fee\u6539\u548c\u8fd0\u7b97\u7b49\u57fa\u672c\u64cd\u4f5c\uff0c\u6211\u4eec\u53ef\u4ee5\u5b8c\u6210\u5404\u79cd\u6570\u636e\u5206\u6790\u548c\u7edf\u8ba1\u5efa\u6a21\u4efb\u52a1\u3002\u9700\u8981\u6ce8\u610f\u7684\u662f\uff0c\u77e9\u9635\u7684\u884c\u6570\u3001\u5217\u6570\u3001\u7c7b\u578b\u548c\u5c5e\u6027\u7b49\u5c5e\u6027\u662f\u975e\u5e38\u91cd\u8981\u7684\uff0c\u9700\u8981\u5728\u8fdb\u884c\u6570\u636e\u5904\u7406\u65f6\u7279\u522b\u5173\u6ce8\u548c\u6ce8\u610f\u3002\n<\/code><\/pre>\n\n\n\n\u914d\u5217\u306e\u30c7\u30fc\u30bf\u69cb\u9020\u3068\u64cd\u4f5c\u3092\u8a73\u3057\u304f\u8aac\u660e\u3057\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
R \u8a00\u8a9e\u3067\u306f\u3001\u914d\u5217 (\u914d\u5217) \u306f\u3001\u540c\u3058\u578b\u306e\u591a\u6b21\u5143\u30c7\u30fc\u30bf\u3092\u683c\u7d0d\u3059\u308b\u305f\u3081\u306b\u4f7f\u7528\u3067\u304d\u308b\u4e00\u822c\u7684\u306a\u30c7\u30fc\u30bf\u69cb\u9020\u3067\u3059\u3002\u914d\u5217\u306b\u306f\u3001\u6570\u5024\u30c7\u30fc\u30bf\u3001\u6587\u5b57\u30c7\u30fc\u30bf\u3001\u8ad6\u7406\u30c7\u30fc\u30bf\u3001\u56e0\u5b50\u30c7\u30fc\u30bf\u3092\u542b\u3081\u308b\u3053\u3068\u304c\u3067\u304d\u3001\u914d\u5217\u306e\u4f5c\u6210\u3001\u30a2\u30af\u30bb\u30b9\u3001\u5909\u66f4\u3001\u64cd\u4f5c\u306a\u3069\u306e\u57fa\u672c\u7684\u306a\u914d\u5217\u64cd\u4f5c\u3092\u30b5\u30dd\u30fc\u30c8\u3057\u307e\u3059\u3002\u914d\u5217\u306e\u8a73\u7d30\u306a\u8aac\u660e\u306f\u6b21\u306e\u3068\u304a\u308a\u3067\u3059\u3002<\/p>\n\n\n\n
\u307e\u305a\u3001\u914d\u5217\u306e\u4f5c\u6210<\/p>\n\n\n\n
\u914d\u5217\u306f\u3001array() \u95a2\u6570\u3001dim() \u95a2\u6570\u3001aperm() \u95a2\u6570\u3092\u4f7f\u7528\u3059\u308b\u306a\u3069\u3001\u3055\u307e\u3056\u307e\u306a\u65b9\u6cd5\u3067\u4f5c\u6210\u3067\u304d\u307e\u3059\u3002\u914d\u5217\u3092\u4f5c\u6210\u3059\u308b\u4f8b\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
r\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9# \u4f7f\u7528array()\u51fd\u6570\u521b\u5efa\u6570\u503c\u578b\u6570\u7ec4\nx <- array(data = 1:24, dim = c(2, 3, 4))\n\n# \u4f7f\u7528dim()\u51fd\u6570\u521b\u5efa\u6570\u503c\u578b\u6570\u7ec4\nx <- 1:24\ndim(x) <- c(2, 3, 4)\n\n# \u4f7f\u7528aperm()\u51fd\u6570\u521b\u5efa\u6570\u503c\u578b\u6570\u7ec4\nx <- matrix(data = 1:12, nrow = 3, ncol = 4)\nx <- aperm(x, c(3, 1, 2))\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001array() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066 3 \u6b21\u5143\u306e\u6570\u5024\u914d\u5217\u3092\u751f\u6210\u3057\u3001dim() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u30d9\u30af\u30c8\u30eb\u3092\u591a\u6b21\u5143\u914d\u5217\u306b\u5909\u63db\u3057\u3001aperm() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u914d\u5217\u306e\u6b21\u5143\u3092\u5909\u66f4\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
2. \u914d\u5217\u3078\u306e\u30a2\u30af\u30bb\u30b9\u3068\u5909\u66f4<\/p>\n\n\n\n
\u914d\u5217\u5185\u306e\u8981\u7d20\u306f\u3001\u6dfb\u5b57\u3092\u4f7f\u7528\u3057\u3066\u30a2\u30af\u30bb\u30b9\u304a\u3088\u3073\u5909\u66f4\u3067\u304d\u307e\u3059\u3002\u6dfb\u5b57\u306f 1 \u304b\u3089\u59cb\u307e\u308a\u3001\u9806\u6b21\u5897\u52a0\u3057\u307e\u3059\u3002\u4ee5\u4e0b\u306f\u3001\u914d\u5217\u3078\u306e\u30a2\u30af\u30bb\u30b9\u3068\u5909\u66f4\u306e\u4f8b\u3067\u3059\u3002<\/p>\n\n\n\n
php\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308b# \u8bbf\u95ee\u6570\u7ec4\u4e2d\u7684\u5143\u7d20\nx <- array(data = 1:24, dim = c(2, 3, 4))\nprint(x[1, 2, 3]) # \u8f93\u51fa9\n\n# \u4fee\u6539\u6570\u7ec4\u4e2d\u7684\u5143\u7d20\nx[1, 2, 3] <- 10\nprint(x[1, 2, 3]) # \u8f93\u51fa10\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001x[1, 2, 3] \u306f\u914d\u5217 x \u306e 1 \u5c64\u76ee\u30012 \u884c\u76ee\u30013 \u5217\u76ee\u306e\u8981\u7d20\u306b\u30a2\u30af\u30bb\u30b9\u3067\u304d\u3001\u8981\u7d20\u306e\u5024\u306f x[1, 2, 3] \u306b\u3088\u3063\u3066\u5909\u66f4\u3067\u304d\u307e\u3059\u3002 <- 10 \u5206\u306e 10\u3002<\/p>\n\n\n\n
\u4e09\u3001\u914d\u5217\u64cd\u4f5c<\/p>\n\n\n\n
\u914d\u5217\u306f\u3001\u3055\u307e\u3056\u307e\u306a\u7b97\u8853\u6f14\u7b97\u3001\u6bd4\u8f03\u6f14\u7b97\u3001\u304a\u3088\u3073\u8ad6\u7406\u6f14\u7b97\u3092\u30b5\u30dd\u30fc\u30c8\u3057\u3066\u3044\u307e\u3059\u3002\u64cd\u4f5c\u3092\u5b9f\u884c\u3059\u308b\u3068\u304d\u3001R \u306f 2 \u3064\u306e\u914d\u5217\u306e\u5bfe\u5fdc\u3059\u308b\u8981\u7d20\u306b\u5bfe\u3057\u3066\u81ea\u52d5\u7684\u306b\u64cd\u4f5c\u3092\u5b9f\u884c\u3057\u307e\u3059\u3002\u914d\u5217\u306b\u5bfe\u3059\u308b\u64cd\u4f5c\u306e\u4f8b\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
r\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9# \u6570\u7ec4\u7684\u7b97\u672f\u8fd0\u7b97\nx <- array(data = 1:24, dim = c(2, 3, 4))\ny <- array(data = 2, dim = c(2, 3, 4))\nprint(x + y) # \u8f93\u51fa3 5 7 9\n # 4 6 8 10\n # 5 7 9 11\n\n# \u6570\u7ec4\u7684\u6bd4\u8f83\u8fd0\u7b97\nx <- array(data = 1:24, dim = c(2, 3, 4))\ny <- array(data = 5, dim = c(2, 3, 4))\nprint(x > y) # \u8f93\u51faFALSE FALSE FALSE FALSE\n # FALSE FALSE FALSE FALSE\n # FALSE FALSE FALSE FALSE\n\n# \u6570\u7ec4\u7684\u903b\u8f91\u8fd0\u7b97\nx <- array\n<\/code><\/pre>\n\n\n\n\u7d9a\u3051\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
(data = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), dim = c(2, 3, 2)) \u304a\u3088\u3073 <- array(data = c(TRUE, TRUE, FALSE, FALSE, TRUE, TRUE) ; , dim = c(2, 3, 2)) print(x & y) # \u8f93\u51faTRUE FALSE FALSE FALSE TRUE FALSE # FALSE TRUE FALSE FALSE TRUE TRUE<\/p>\n\n\n\n
r\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9\n\u5728\u4ee5\u4e0a\u793a\u4f8b\u4e2d\uff0c\u901a\u8fc7+\u8fd0\u7b97\u7b26\u5bf9\u4e24\u4e2a\u6570\u503c\u578b\u6570\u7ec4\u8fdb\u884c\u4e86\u52a0\u6cd5\u8fd0\u7b97\uff1b\u901a\u8fc7>\u8fd0\u7b97\u7b26\u5bf9\u4e24\u4e2a\u6570\u503c\u578b\u6570\u7ec4\u8fdb\u884c\u4e86\u6bd4\u8f83\u8fd0\u7b97\uff0c\u5f97\u5230\u4e86\u4e00\u4e2a\u903b\u8f91\u578b\u6570\u7ec4\uff1b\u901a\u8fc7&\u8fd0\u7b97\u7b26\u5bf9\u4e24\u4e2a\u903b\u8f91\u578b\u6570\u7ec4\u8fdb\u884c\u4e86\u903b\u8f91\u4e0e\u8fd0\u7b97\uff0c\u5f97\u5230\u4e86\u4e00\u4e2a\u65b0\u7684\u903b\u8f91\u578b\u6570\u7ec4\u3002\n\n\u56db\u3001\u6570\u7ec4\u7684\u5c5e\u6027\n\n\u6570\u7ec4\u7684\u5c5e\u6027\u5305\u62ec\u7ef4\u6570\uff08dim\uff09\u3001\u7c7b\u578b\uff08mode\uff09\u548c\u5c5e\u6027\uff08attributes\uff09\u7b49\u3002\u4ee5\u4e0b\u662f\u6570\u7ec4\u5c5e\u6027\u7684\u793a\u4f8b\uff1a\n\n<\/code><\/pre>\n\n\n\n\u914d\u5217\u306e\u6b21\u5143\u30d7\u30ed\u30d1\u30c6\u30a3<\/h1>\n\n\n\n x <- array(data = 1:24, dim = c(2, 3, 4)) print(dim(x)) # \u51fa\u529b 2 3 4<\/p>\n\n\n\n
\u914d\u5217\u578b\u306e\u30d7\u30ed\u30d1\u30c6\u30a3<\/h1>\n\n\n\n x <- array(data = 1:24, dim = c(2, 3, 4)) print(mode(x)) # \u6570\u5024\u3092\u51fa\u529b<\/p>\n\n\n\n
\u914d\u5217\u30d7\u30ed\u30d1\u30c6\u30a3 \u30d7\u30ed\u30d1\u30c6\u30a3<\/h1>\n\n\n\n x <- array(data = 1:24, dim = c(2, 3, 4)) dimnames(x) <- list(c(\u201ca\u201d, \u201cb\u201d), c(\u201cx\u201d, \u201cy\u201d , \u201cz\u201d), c(\u201cm\u201d, \u201cn\u201d, \u201cp\u201d, \u201cq\u201d)) print(attributes(x)) # \u8f93\u51fadimnames<\/p>\n\n\n\n
scss\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308b\n\u5728\u4ee5\u4e0a\u793a\u4f8b\u4e2d\uff0c\u901a\u8fc7dim()\u51fd\u6570\u53ef\u4ee5\u83b7\u53d6\u6570\u7ec4\u7684\u7ef4\u6570\uff1b\u901a\u8fc7mode()\u51fd\u6570\u53ef\u4ee5\u83b7\u53d6\u6570\u7ec4\u7684\u7c7b\u578b\uff1b\u901a\u8fc7attributes()\u51fd\u6570\u53ef\u4ee5\u83b7\u53d6\u6570\u7ec4\u7684\u5c5e\u6027\u3002\n\n\u603b\u7684\u6765\u8bf4\uff0c\u5728R\u8bed\u8a00\u4e2d\uff0c\u6570\u7ec4\u662f\u4e00\u79cd\u975e\u5e38\u5e38\u89c1\u7684\u6570\u636e\u7ed3\u6784\uff0c\u53ef\u4ee5\u7528\u6765\u5b58\u50a8\u591a\u7ef4\u7684\u540c\u7c7b\u578b\u6570\u636e\u3002\u901a\u8fc7\u6570\u7ec4\u7684\u521b\u5efa\u3001\u8bbf\u95ee\u3001\u4fee\u6539\u548c\u8fd0\u7b97\u7b49\u57fa\u672c\u64cd\u4f5c\uff0c\u6211\u4eec\u53ef\u4ee5\u5b8c\u6210\u5404\u79cd\u6570\u636e\u5206\u6790\u548c\u7edf\u8ba1\u5efa\u6a21\u4efb\u52a1\u3002\u9700\u8981\u6ce8\u610f\u7684\u662f\uff0c\u6570\u7ec4\u7684\u7ef4\u6570\u3001\u7c7b\u578b\u548c\u5c5e\u6027\u7b49\u5c5e\u6027\u662f\u975e\u5e38\u91cd\u8981\u7684\uff0c\u9700\u8981\u5728\u8fdb\u884c\u6570\u636e\u5904\u7406\u65f6\u7279\u522b\u5173\u6ce8\u548c\u6ce8\u610f\u3002\n<\/code><\/pre>\n\n\n\n\u30c7\u30fc\u30bf\u69cb\u9020\u3068\u64cd\u4f5c\u306e\u30ea\u30b9\u30c8\uff08\u30ea\u30b9\u30c8\uff09\u3092\u8a73\u3057\u304f\u8aac\u660e\u3057\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
R \u8a00\u8a9e\u3067\u306f\u3001\u30ea\u30b9\u30c8 (\u30ea\u30b9\u30c8) \u306f\u3001\u6570\u5024\u3001\u6587\u5b57\u3001\u8ad6\u7406\u3001\u30d9\u30af\u30c8\u30eb\u3001\u884c\u5217\u3001\u30c7\u30fc\u30bf \u30d5\u30ec\u30fc\u30e0\u3001\u95a2\u6570\u306a\u3069\u3001\u3055\u307e\u3056\u307e\u306a\u7a2e\u985e\u306e\u30c7\u30fc\u30bf\u3092\u683c\u7d0d\u3059\u308b\u305f\u3081\u306b\u4f7f\u7528\u3067\u304d\u308b\u5171\u901a\u306e\u30c7\u30fc\u30bf\u69cb\u9020\u3067\u3059\u3002\u30ea\u30b9\u30c8\u5185\u306e\u5404\u8981\u7d20\u306f\u3001\u4efb\u610f\u306e\u30bf\u30a4\u30d7\u306e\u30c7\u30fc\u30bf \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u307e\u305f\u306f\u5225\u306e\u30ea\u30b9\u30c8\u306b\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002\u30ea\u30b9\u30c8\u306e\u8a73\u7d30\u306a\u8aac\u660e\u306f\u6b21\u306e\u3068\u304a\u308a\u3067\u3059\u3002<\/p>\n\n\n\n
1.\u30ea\u30b9\u30c8\u4f5c\u6210<\/p>\n\n\n\n
\u30ea\u30b9\u30c8\u306e\u4f5c\u6210\u306f\u3001list() \u95a2\u6570\u3001unlist() \u95a2\u6570\u3001\u304a\u3088\u3073 as.list() \u95a2\u6570\u3092\u4f7f\u7528\u3059\u308b\u306a\u3069\u3001\u3055\u307e\u3056\u307e\u306a\u65b9\u6cd5\u3067\u5b9f\u73fe\u3067\u304d\u307e\u3059\u3002\u30ea\u30b9\u30c8\u3092\u4f5c\u6210\u3059\u308b\u4f8b\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
r\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9# \u4f7f\u7528list()\u51fd\u6570\u521b\u5efa\u5217\u8868\nx <- list(1, \"hello\", TRUE, c(1, 2, 3))\ny <- list(matrix(data = 1:4, nrow = 2, ncol = 2), data.frame(x = 1:3, y = 4:6))\n\n# \u4f7f\u7528unlist()\u51fd\u6570\u521b\u5efa\u5217\u8868\nx <- list(1, \"hello\", TRUE, c(1, 2, 3))\ny <- unlist(x, recursive = FALSE)\n\n# \u4f7f\u7528as.list()\u51fd\u6570\u521b\u5efa\u5217\u8868\nx <- c(1, \"hello\", TRUE, c(1, 2, 3))\ny <- as.list(x)\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001list() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066 4 \u3064\u306e\u8981\u7d20\u306e\u30ea\u30b9\u30c8\u3092\u751f\u6210\u3057\u3001unlist() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u30ea\u30b9\u30c8\u3092\u30d9\u30af\u30c8\u30eb\u306b\u5909\u63db\u3057\u3001recursive \u30d1\u30e9\u30e1\u30fc\u30bf\u30fc\u3092\u4f7f\u7528\u3057\u3066\u518d\u5e30\u7684\u306b\u5c55\u958b\u3059\u308b\u304b\u3069\u3046\u304b\u3092\u5236\u5fa1\u3057\u3001as.list \u3092\u4f7f\u7528\u3057\u307e\u3059\u3002\u30d9\u30af\u30c8\u30eb\u3092\u30ea\u30b9\u30c8\u306b\u5909\u63db\u3059\u308b () \u95a2\u6570\u3002<\/p>\n\n\n\n
2. \u30ea\u30b9\u30c8\u3078\u306e\u30a2\u30af\u30bb\u30b9\u3068\u5909\u66f4<\/p>\n\n\n\n
\u30ea\u30b9\u30c8\u5185\u306e\u8981\u7d20\u306f\u3001\u6dfb\u3048\u5b57\u306b\u3088\u3063\u3066\u30a2\u30af\u30bb\u30b9\u304a\u3088\u3073\u5909\u66f4\u3067\u304d\u307e\u3059\u3002\u6dfb\u5b57\u306f 1 \u304b\u3089\u59cb\u307e\u308a\u3001\u9806\u6b21\u5897\u52a0\u3057\u307e\u3059\u3002\u30ea\u30b9\u30c8\u3078\u306e\u30a2\u30af\u30bb\u30b9\u3068\u5909\u66f4\u306e\u4f8b\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
lua\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc# \u8bbf\u95ee\u5217\u8868\u4e2d\u7684\u5143\u7d20\nx <- list(1, \"hello\", TRUE, c(1, 2, 3))\nprint(x[[2]]) # \u8f93\u51fahello\n\n# \u4fee\u6539\u5217\u8868\u4e2d\u7684\u5143\u7d20\nx[[2]] <- \"world\"\nprint(x[[2]]) # \u8f93\u51faworld\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001\u30ea\u30b9\u30c8 x \u306e 2 \u756a\u76ee\u306e\u8981\u7d20\u306f x[[2]] \u306b\u3088\u3063\u3066\u30a2\u30af\u30bb\u30b9\u3067\u304d\u3001\u8981\u7d20\u306e\u5024\u306f x[[2]] <- “world” \u306b\u3088\u3063\u3066 “world” \u306b\u5909\u66f4\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n
3. \u30ea\u30b9\u30c8\u64cd\u4f5c<\/p>\n\n\n\n
\u30ea\u30b9\u30c8\u306f\u3001\u3055\u307e\u3056\u307e\u306a\u7b97\u8853\u6f14\u7b97\u3001\u6bd4\u8f03\u6f14\u7b97\u3001\u304a\u3088\u3073\u8ad6\u7406\u6f14\u7b97\u3092\u30b5\u30dd\u30fc\u30c8\u3057\u3066\u3044\u307e\u3059\u3002\u64cd\u4f5c\u3092\u5b9f\u884c\u3059\u308b\u3068\u304d\u3001R \u306f 2 \u3064\u306e\u30ea\u30b9\u30c8\u306e\u5bfe\u5fdc\u3059\u308b\u8981\u7d20\u306b\u5bfe\u3057\u3066\u81ea\u52d5\u7684\u306b\u64cd\u4f5c\u3092\u5b9f\u884c\u3057\u307e\u3059\u3002\u30ea\u30b9\u30c8\u306b\u5bfe\u3059\u308b\u64cd\u4f5c\u306e\u4f8b\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
r\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9# \u5217\u8868\u7684\u7b97\u672f\u8fd0\u7b97\nx <- list(a = 1:3, b = 4:6)\ny <- list(a = 2:4, b = 5:7)\nprint(x + y) # \u8f93\u51fa$a 1 3 5\n # $b 9 11 13\n\n# \u5217\u8868\u7684\u6bd4\u8f83\u8fd0\u7b97\nx <- list(a = 1:3, b = 4:6)\ny <- list(a = 2:4, b = 5:7)\nprint(x > y) # \u8f93\u51fa$a FALSE FALSE FALSE\n # $b FALSE FALSE FALSE\n\n# \u5217\u8868\u7684\u903b\u8f91\u8fd0\u7b97\nx <- list(a = c(TRUE, FALSE, TRUE), b = c(FALSE, TRUE, FALSE))\ny <- list(a = c(TRUE, TRUE\n<\/code><\/pre>\n\n\n\n\u7d9a\u3051\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
, FALSE), b = c(TRUE, FALSE, TRUE)) print(x & y) # \u8f93\u51fa$a TRUE FALSE FALSE # $b FALSE FALSE FALSE<\/p>\n\n\n\n
r\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9\n\u5728\u4ee5\u4e0a\u793a\u4f8b\u4e2d\uff0c\u901a\u8fc7+\u8fd0\u7b97\u7b26\u5bf9\u4e24\u4e2a\u5217\u8868\u8fdb\u884c\u4e86\u52a0\u6cd5\u8fd0\u7b97\uff1b\u901a\u8fc7>\u8fd0\u7b97\u7b26\u5bf9\u4e24\u4e2a\u5217\u8868\u8fdb\u884c\u4e86\u6bd4\u8f83\u8fd0\u7b97\uff0c\u5f97\u5230\u4e86\u4e00\u4e2a\u903b\u8f91\u578b\u5217\u8868\uff1b\u901a\u8fc7&\u8fd0\u7b97\u7b26\u5bf9\u4e24\u4e2a\u903b\u8f91\u578b\u5217\u8868\u8fdb\u884c\u4e86\u903b\u8f91\u4e0e\u8fd0\u7b97\uff0c\u5f97\u5230\u4e86\u4e00\u4e2a\u65b0\u7684\u903b\u8f91\u578b\u5217\u8868\u3002\n\n\u56db\u3001\u5217\u8868\u7684\u5c5e\u6027\n\n\u5217\u8868\u7684\u5c5e\u6027\u5305\u62ec\u957f\u5ea6\uff08length\uff09\u3001\u540d\u79f0\uff08names\uff09\u548c\u5c5e\u6027\uff08attributes\uff09\u7b49\u3002\u4ee5\u4e0b\u662f\u5217\u8868\u5c5e\u6027\u7684\u793a\u4f8b\uff1a\n\n<\/code><\/pre>\n\n\n\n\u30ea\u30b9\u30c8\u306e\u9577\u3055\u306e\u30d7\u30ed\u30d1\u30c6\u30a3<\/h1>\n\n\n\n x <- list(a = 1:3, b = 4:6) print(length(x)) # \u8f93\u51fa2<\/p>\n\n\n\n
\u30ea\u30b9\u30c8\u306e name \u30d7\u30ed\u30d1\u30c6\u30a3<\/h1>\n\n\n\n x <- list(a = 1:3, b = 4:6) print(names(x)) # \u51fa\u529b “a” “b”<\/p>\n\n\n\n
\u30d7\u30ed\u30d1\u30c6\u30a3 \u30d7\u30ed\u30d1\u30c6\u30a3\u306e\u4e00\u89a7\u8868\u793a<\/h1>\n\n\n\n x <- list(a = 1:3, b = 4:6) names(x) <- c(\u201cfirst\u201d, \u201csecond\u201d) print(attributes(x)) # \u8f93\u51fanames<\/p>\n\n\n\n
scss\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308b\n\u5728\u4ee5\u4e0a\u793a\u4f8b\u4e2d\uff0c\u901a\u8fc7length()\u51fd\u6570\u53ef\u4ee5\u83b7\u53d6\u5217\u8868\u7684\u957f\u5ea6\uff1b\u901a\u8fc7names()\u51fd\u6570\u53ef\u4ee5\u83b7\u53d6\u5217\u8868\u7684\u540d\u79f0\uff1b\u901a\u8fc7attributes()\u51fd\u6570\u53ef\u4ee5\u83b7\u53d6\u5217\u8868\u7684\u5c5e\u6027\u3002\n\n\u603b\u7684\u6765\u8bf4\uff0c\u5728R\u8bed\u8a00\u4e2d\uff0c\u5217\u8868\u662f\u4e00\u79cd\u975e\u5e38\u5e38\u89c1\u7684\u6570\u636e\u7ed3\u6784\uff0c\u53ef\u4ee5\u7528\u6765\u5b58\u50a8\u4e0d\u540c\u7c7b\u578b\u7684\u6570\u636e\u5bf9\u8c61\uff0c\u5982\u6570\u503c\u3001\u5b57\u7b26\u3001\u903b\u8f91\u3001\u5411\u91cf\u3001\u77e9\u9635\u3001\u6570\u636e\u6846\u548c\u51fd\u6570\u7b49\u3002\u901a\u8fc7\u5217\u8868\u7684\u521b\u5efa\u3001\u8bbf\u95ee\u3001\u4fee\u6539\u548c\u8fd0\u7b97\u7b49\u57fa\u672c\u64cd\u4f5c\uff0c\u6211\u4eec\u53ef\u4ee5\u5b8c\u6210\u5404\u79cd\u6570\u636e\u5904\u7406\u548c\u7f16\u7a0b\u4efb\u52a1\u3002\u9700\u8981\u6ce8\u610f\u7684\u662f\uff0c\u5217\u8868\u7684\u5c5e\u6027\u3001\u540d\u79f0\u548c\u957f\u5ea6\u7b49\u5c5e\u6027\u662f\u975e\u5e38\u91cd\u8981\u7684\uff0c\u9700\u8981\u5728\u8fdb\u884c\u6570\u636e\u5904\u7406\u548c\u7f16\u7a0b\u65f6\u7279\u522b\u5173\u6ce8\u548c\u6ce8\u610f\u3002\n<\/code><\/pre>\n\n\n\n\u30c7\u30fc\u30bf\u30d5\u30ec\u30fc\u30e0\uff08data frame\uff09\u306e\u30c7\u30fc\u30bf\u69cb\u9020\u3068\u52d5\u4f5c\u3092\u8a73\u3057\u304f\u8aac\u660e\u3057\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
R \u8a00\u8a9e\u3067\u306f\u3001\u30c7\u30fc\u30bf \u30d5\u30ec\u30fc\u30e0\u306f\u30012 \u6b21\u5143\u306e\u30c7\u30fc\u30bf \u30c6\u30fc\u30d6\u30eb\u3092\u683c\u7d0d\u3059\u308b\u305f\u3081\u306b\u4f7f\u7528\u3067\u304d\u308b\u4e00\u822c\u7684\u306a\u30c7\u30fc\u30bf\u69cb\u9020\u3067\u3059\u3002\u30c7\u30fc\u30bf \u30d5\u30ec\u30fc\u30e0\u306e\u5404\u5217\u306f\u30d9\u30af\u30c8\u30eb\u306b\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u3001\u7570\u306a\u308b\u5217\u306b\u306f\u6570\u5024\u3001\u6587\u5b57\u3001\u8ad6\u7406\u3001\u56e0\u5b50\u306a\u3069\u306e\u7570\u306a\u308b\u7a2e\u985e\u306e\u30c7\u30fc\u30bf\u3092\u542b\u3081\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002\u30c7\u30fc\u30bf \u30d5\u30ec\u30fc\u30e0\u306f\u3001\u30c7\u30fc\u30bf\u306e\u30a4\u30f3\u30dd\u30fc\u30c8\u3001\u30c7\u30fc\u30bf\u306e\u30af\u30ea\u30fc\u30cb\u30f3\u30b0\u3001\u30c7\u30fc\u30bf\u306e\u5206\u6790\u3001\u30c7\u30fc\u30bf\u306e\u8996\u899a\u5316\u306a\u3069\u3001\u3055\u307e\u3056\u307e\u306a\u30c7\u30fc\u30bf\u306e\u64cd\u4f5c\u3068\u51e6\u7406\u3092\u5b9f\u884c\u3067\u304d\u307e\u3059\u3002\u30c7\u30fc\u30bf\u30d5\u30ec\u30fc\u30e0\u306e\u8a73\u7d30\u306a\u8aac\u660e\u306f\u6b21\u306e\u3068\u304a\u308a\u3067\u3059\u3002<\/p>\n\n\n\n
\u307e\u305a\u3001\u30c7\u30fc\u30bf\u30d5\u30ec\u30fc\u30e0\u306e\u4f5c\u6210<\/p>\n\n\n\n
\u30c7\u30fc\u30bf \u30d5\u30ec\u30fc\u30e0\u306e\u4f5c\u6210\u306f\u3001data.frame() \u95a2\u6570\u3001read.table() \u95a2\u6570\u3001read.csv() \u95a2\u6570\u306a\u3069\u3092\u4f7f\u7528\u3059\u308b\u306a\u3069\u3001\u3055\u307e\u3056\u307e\u306a\u65b9\u6cd5\u3067\u5b9f\u73fe\u3067\u304d\u307e\u3059\u3002\u4ee5\u4e0b\u306f\u3001\u30c7\u30fc\u30bf \u30d5\u30ec\u30fc\u30e0\u306e\u4f5c\u6210\u4f8b\u3067\u3059\u3002<\/p>\n\n\n\n
lua\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc# \u4f7f\u7528data.frame()\u51fd\u6570\u521b\u5efa\u6570\u636e\u6846\nx <- data.frame(name = c(\"John\", \"Tom\", \"Jack\"), age = c(25, 30, 35), sex = c(\"male\", \"male\", \"female\"))\n\n# \u4f7f\u7528read.table()\u51fd\u6570\u521b\u5efa\u6570\u636e\u6846\nx <- read.table(\"data.txt\", header = TRUE, sep = \"\\t\")\n\n# \u4f7f\u7528read.csv()\u51fd\u6570\u521b\u5efa\u6570\u636e\u6846\nx <- read.csv(\"data.csv\", header = TRUE)\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001data.frame() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066 3 \u5217\u306e\u30c7\u30fc\u30bf\u3092\u542b\u3080\u30c7\u30fc\u30bf \u30d5\u30ec\u30fc\u30e0\u3092\u751f\u6210\u3057\u3001read.table() \u95a2\u6570\u3068 read.csv() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u30d5\u30a1\u30a4\u30eb\u304b\u3089\u30c7\u30fc\u30bf\u3092\u8aad\u307f\u53d6\u308a\u3001\u30c7\u30fc\u30bf \u30d5\u30ec\u30fc\u30e0\u3092\u751f\u6210\u3057\u307e\u3059\u3002 .<\/p>\n\n\n\n
2. \u30c7\u30fc\u30bf\u30d5\u30ec\u30fc\u30e0\u3078\u306e\u30a2\u30af\u30bb\u30b9\u3068\u5909\u66f4<\/p>\n\n\n\n
\u30c7\u30fc\u30bf \u30d5\u30ec\u30fc\u30e0\u5185\u306e\u8981\u7d20\u306f\u3001\u884c\u540d\u3068\u5217\u540d\u3067\u30a2\u30af\u30bb\u30b9\u304a\u3088\u3073\u5909\u66f4\u3067\u304d\u307e\u3059\u3002\u30c7\u30fc\u30bf \u30d5\u30ec\u30fc\u30e0\u3078\u306e\u30a2\u30af\u30bb\u30b9\u3068\u5909\u66f4\u306e\u4f8b\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
bash\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308b# \u8bbf\u95ee\u6570\u636e\u6846\u4e2d\u7684\u5143\u7d20\nx <- data.frame(name = c(\"John\", \"Tom\", \"Jack\"), age = c(25, 30, 35), sex = c(\"male\", \"male\", \"female\"))\nprint(x[1, 2]) # \u8f93\u51fa25\nprint(x[\"Tom\", \"sex\"]) # \u8f93\u51famale\n\n# \u4fee\u6539\u6570\u636e\u6846\u4e2d\u7684\u5143\u7d20\nx[1, 2] <- 26\nprint(x[1, 2]) # \u8f93\u51fa26\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001x[1, 2] \u306f\u30c7\u30fc\u30bf \u30d5\u30ec\u30fc\u30e0 x \u306e\u6700\u521d\u306e\u884c\u3068 2 \u756a\u76ee\u306e\u5217\u8981\u7d20\u306b\u30a2\u30af\u30bb\u30b9\u3067\u304d\u3001x[“Tom”, “sex”] \u306f\u30c7\u30fc\u30bf \u30d5\u30ec\u30fc\u30e0 x \u306e Tom \u3068\u3044\u3046\u540d\u524d\u306e\u884c\u306b\u30a2\u30af\u30bb\u30b9\u3067\u304d\u307e\u3059\u3002\u306e\u6027\u5225\u5217\u8981\u7d20\u3001\u8981\u7d20\u306e\u5024\u306f x[1, 2] <- 26 \u306b\u3088\u3063\u3066 26 \u306b\u5909\u66f4\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n
\u7b2c\u4e09\u306b\u3001\u30c7\u30fc\u30bf\u30d5\u30ec\u30fc\u30e0\u306e\u64cd\u4f5c<\/p>\n\n\n\n
\u30c7\u30fc\u30bf \u30d5\u30ec\u30fc\u30e0\u306f\u3001\u3055\u307e\u3056\u307e\u306a\u7b97\u8853\u6f14\u7b97\u3001\u6bd4\u8f03\u6f14\u7b97\u3001\u304a\u3088\u3073\u8ad6\u7406\u6f14\u7b97\u3092\u30b5\u30dd\u30fc\u30c8\u3057\u3066\u3044\u307e\u3059\u3002\u64cd\u4f5c\u3092\u5b9f\u884c\u3059\u308b\u3068\u304d\u3001R \u306f 2 \u3064\u306e\u30c7\u30fc\u30bf \u30d5\u30ec\u30fc\u30e0\u306e\u5bfe\u5fdc\u3059\u308b\u8981\u7d20\u306b\u5bfe\u3057\u3066\u64cd\u4f5c\u3092\u81ea\u52d5\u7684\u306b\u5b9f\u884c\u3057\u307e\u3059\u3002\u4ee5\u4e0b\u306f\u3001\u30c7\u30fc\u30bf \u30d5\u30ec\u30fc\u30e0\u306b\u5bfe\u3059\u308b\u64cd\u4f5c\u306e\u4f8b\u3067\u3059\u3002<\/p>\n\n\n\n
less\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc# \u6570\u636e\u6846\u7684\u7b97\u672f\u8fd0\u7b97\nx <- data.frame(name = c(\"John\", \"Tom\", \"Jack\"), age = c(25, 30, 35), sex = c(\"male\", \"male\", \"female\"))\ny <- data.frame(name = c(\"Mike\", \"Jerry\", \"Alice\"), age = c(20, 28, 40), sex = c(\"male\", \"male\", \"female\"))\nprint(x + y) # \u8f93\u51faname age sex\n # 1 JohnMike 45 \n<\/code><\/pre>\n\n\n\n\u7d9a\u3051\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
\u96c4 \uff032 \u30c8\u30e0\u30b8\u30a7\u30ea\u30fc 58 \u96c4 \uff033 \u30b8\u30e3\u30c3\u30af\u30a2\u30ea\u30b9 75 \u96cc<\/p>\n\n\n\n
\u30c7\u30fc\u30bf \u30d5\u30ec\u30fc\u30e0\u306e\u6bd4\u8f03\u64cd\u4f5c<\/h1>\n\n\n\n x <- data.frame(\u540d\u524d = c(\u201c\u30b8\u30e7\u30f3\u201d, \u201c\u30c8\u30e0\u201d, \u201c\u30b8\u30e3\u30c3\u30af\u201d), \u5e74\u9f62 = c(25, 30, 35), \u6027\u5225 = c(\u201c\u7537\u6027\u201d, \u201c\u7537\u6027\u201d, \u201c\u5973\u6027\u201d )) y <- data.frame(\u540d\u524d = c(\u201c\u30de\u30a4\u30af\u201d, \u201c\u30b8\u30a7\u30ea\u30fc\u201d, \u201c\u30a2\u30ea\u30b9\u201d), \u5e74\u9f62 = c(20, 28, 40), \u6027\u5225 = c(\u201c\u7537\u6027\u201d, \u201c\u7537\u6027\u201d, \u201c female\u201d)) print(x > y) # \u8f93\u51fa\u540d \u5e74\u9f62 \u6027\u5225 # 1 FALSE TRUE FALSE # 2 TRUE TRUE FALSE # 3 TRUE TRUE FALSE<\/p>\n\n\n\n
\u30c7\u30fc\u30bf \u30d5\u30ec\u30fc\u30e0\u306e\u8ad6\u7406\u6f14\u7b97<\/h1>\n\n\n\n x <- data.frame(\u540d\u524d = c(\u201c\u30b8\u30e7\u30f3\u201d, \u201c\u30c8\u30e0\u201d, \u201c\u30b8\u30e3\u30c3\u30af\u201d), \u5e74\u9f62 = c(25, 30, 35), \u6027\u5225 = c(\u201c\u7537\u6027\u201d, \u201c\u7537\u6027\u201d, \u201c\u5973\u6027\u201d )) y <- data.frame(\u540d\u524d = c(\u201c\u30de\u30a4\u30af\u201d, \u201c\u30b8\u30a7\u30ea\u30fc\u201d, \u201c\u30a2\u30ea\u30b9\u201d), \u5e74\u9f62 = c(20, 28, 40), \u6027\u5225 = c(\u201c\u7537\u6027\u201d, \u201c\u7537\u6027\u201d, \u201c female”)) print(x$age > 30 & y$age > 30) # \u8f93\u51faFALSE FALSE TRUE<\/p>\n\n\n\n
r\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9\n\u5728\u4ee5\u4e0a\u793a\u4f8b\u4e2d\uff0c\u901a\u8fc7+\u8fd0\u7b97\u7b26\u5bf9\u4e24\u4e2a\u6570\u636e\u6846\u8fdb\u884c\u4e86\u52a0\u6cd5\u8fd0\u7b97\uff1b\u901a\u8fc7>\u8fd0\u7b97\u7b26\u5bf9\u4e24\u4e2a\u6570\u636e\u6846\u8fdb\u884c\u4e86\u6bd4\u8f83\u8fd0\u7b97\uff0c\u5f97\u5230\u4e86\u4e00\u4e2a\u903b\u8f91\u578b\u6570\u636e\u6846\uff1b\u901a\u8fc7&\u8fd0\u7b97\u7b26\u5bf9\u4e24\u4e2a\u903b\u8f91\u578b\u5411\u91cf\u8fdb\u884c\u4e86\u903b\u8f91\u4e0e\u8fd0\u7b97\uff0c\u5f97\u5230\u4e86\u4e00\u4e2a\u65b0\u7684\u903b\u8f91\u578b\u5411\u91cf\u3002\n\n\u56db\u3001\u6570\u636e\u6846\u7684\u5c5e\u6027\n\n\u6570\u636e\u6846\u7684\u5c5e\u6027\u5305\u62ec\u5217\u540d\uff08colnames\uff09\u3001\u884c\u540d\uff08rownames\uff09\u548c\u5c5e\u6027\uff08attributes\uff09\u7b49\u3002\u4ee5\u4e0b\u662f\u6570\u636e\u6846\u5c5e\u6027\u7684\u793a\u4f8b\uff1a\n\n<\/code><\/pre>\n\n\n\n\u30c7\u30fc\u30bf \u30d5\u30ec\u30fc\u30e0\u5217\u540d\u30d7\u30ed\u30d1\u30c6\u30a3<\/h1>\n\n\n\n x <- data.frame(\u540d\u524d = c(\u201c\u30b8\u30e7\u30f3\u201d, \u201c\u30c8\u30e0\u201d, \u201c\u30b8\u30e3\u30c3\u30af\u201d), \u5e74\u9f62 = c(25, 30, 35), \u6027\u5225 = c(\u201c\u7537\u6027\u201d, \u201c\u7537\u6027\u201d, \u201c\u5973\u6027\u201d )) print(colnames(x)) # \u8f93\u51fa\u201d\u540d\u524d\u201d \u201c\u5e74\u9f62\u201d \u201c\u6027\u5225\u201d<\/p>\n\n\n\n
\u30c7\u30fc\u30bf \u30d5\u30ec\u30fc\u30e0\u306e Rownames \u30d7\u30ed\u30d1\u30c6\u30a3<\/h1>\n\n\n\n x <- data.frame(\u540d\u524d = c(\u201c\u30b8\u30e7\u30f3\u201d, \u201c\u30c8\u30e0\u201d, \u201c\u30b8\u30e3\u30c3\u30af\u201d), \u5e74\u9f62 = c(25, 30, 35), \u6027\u5225 = c(\u201c\u7537\u6027\u201d, \u201c\u7537\u6027\u201d, \u201c\u5973\u6027\u201d )) rownames(x) <- c(\u201ca\u201d, \u201cb\u201d, \u201cc\u201d) print(rownames(x)) # \u8f93\u51fa\u201da\u201d \u201cb\u201d \u201cc\u201d<\/p>\n\n\n\n
\u30c7\u30fc\u30bf \u30d5\u30ec\u30fc\u30e0\u306e\u30d7\u30ed\u30d1\u30c6\u30a3<\/h1>\n\n\n\n x <- data.frame(\u540d\u524d = c(\u201c\u30b8\u30e7\u30f3\u201d, \u201c\u30c8\u30e0\u201d, \u201c\u30b8\u30e3\u30c3\u30af\u201d), \u5e74\u9f62 = c(25, 30, 35), \u6027\u5225 = c(\u201c\u7537\u6027\u201d, \u201c\u7537\u6027\u201d, \u201c\u5973\u6027\u201d )) attr(x, \u201ccomment\u201d) <- \u201c\u3053\u308c\u306f\u30c7\u30fc\u30bf\u30d5\u30ec\u30fc\u30e0\u3067\u3059\u201d print(attributes(x)) # \u8f93\u51fa\u30b3\u30e1\u30f3\u30c8<\/p>\n\n\n\n
scss\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308b\n\u5728\u4ee5\u4e0a\u793a\u4f8b\u4e2d\uff0c\u901a\u8fc7colnames()\u51fd\u6570\u53ef\u4ee5\u83b7\u53d6\u6570\u636e\u6846\u7684\u5217\u540d\uff1b\u901a\u8fc7rownames()\u51fd\u6570\u53ef\u4ee5\u83b7\u53d6\u6570\u636e\u6846\u7684\u884c\u540d\uff1b\u901a\u8fc7attributes()\u51fd\u6570\u53ef\u4ee5\u83b7\u53d6\u6570\u636e\u6846\u7684\u5c5e\u6027\u3002\n\n\u603b\u7684\u6765\u8bf4\uff0c\u5728R\u8bed\u8a00\u4e2d\uff0c\u6570\u636e\u6846\u662f\u4e00\u79cd\u975e\u5e38\u5e38\u89c1\u7684\u6570\u636e\u7ed3\u6784\uff0c\u53ef\u4ee5\u7528\u6765\u5b58\u50a8\u4e8c\u7ef4\u7684\u6570\u636e\u8868\u683c\u3002\u901a\u8fc7\u6570\u636e\u6846\u7684\u521b\u5efa\u3001\u8bbf\u95ee\u3001\u4fee\u6539\u548c\u8fd0\u7b97\u7b49\u57fa\u672c\u64cd\u4f5c\uff0c\u6211\u4eec\u53ef\u4ee5\u5b8c\u6210\u5404\u79cd\u6570\u636e\u5904\u7406\u548c\u7edf\u8ba1\u5efa\u6a21\u4efb\u52a1\u3002\u9700\u8981\u6ce8\u610f\u7684\u662f\uff0c\n<\/code><\/pre>\n\n\n\n\u7d44\u307f\u8fbc\u307f\u95a2\u6570\u3092\u8a73\u3057\u304f\u8aac\u660e\u3057\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
R \u8a00\u8a9e\u3067\u306f\u3001\u7d44\u307f\u8fbc\u307f\u95a2\u6570 (\u7d44\u307f\u8fbc\u307f\u95a2\u6570) \u306f\u3001R \u8a00\u8a9e\u306b\u4ed8\u5c5e\u3059\u308b\u95a2\u6570\u3092\u6307\u3057\u3001\u4ed6\u306e\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u307e\u305f\u306f\u30a4\u30f3\u30dd\u30fc\u30c8\u64cd\u4f5c\u306a\u3057\u3067 R \u8a00\u8a9e\u3067\u76f4\u63a5\u547c\u3073\u51fa\u3059\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002\u7d44\u307f\u8fbc\u307f\u95a2\u6570\u306b\u306f\u3001\u3055\u307e\u3056\u307e\u306a\u6570\u5b66\u95a2\u6570\u3001\u7d71\u8a08\u95a2\u6570\u3001\u30b0\u30e9\u30d5\u30a3\u30c3\u30af\u95a2\u6570\u3001\u6587\u5b57\u5217\u95a2\u6570\u306a\u3069\u304c\u542b\u307e\u308c\u3066\u304a\u308a\u3001\u3055\u307e\u3056\u307e\u306a\u30c7\u30fc\u30bf\u51e6\u7406\u3001\u30c7\u30fc\u30bf\u5206\u6790\u3001\u30c7\u30fc\u30bf\u8996\u899a\u5316\u30bf\u30b9\u30af\u3092\u5b9f\u73fe\u3067\u304d\u307e\u3059\u3002\u7d44\u307f\u8fbc\u307f\u95a2\u6570\u306e\u8a73\u7d30\u306a\u8aac\u660e\u306f\u6b21\u306e\u3068\u304a\u308a\u3067\u3059\u3002<\/p>\n\n\n\n
\u307e\u305a\u3001\u7d44\u307f\u8fbc\u307f\u95a2\u6570\u306e\u547c\u3073\u51fa\u3057<\/p>\n\n\n\n
\u7d44\u307f\u8fbc\u307f\u95a2\u6570\u306e\u547c\u3073\u51fa\u3057\u306f\u3001\u95a2\u6570\u540d\u3068\u5bfe\u5fdc\u3059\u308b\u30d1\u30e9\u30e1\u30fc\u30bf\u30fc\u3092\u76f4\u63a5\u4f7f\u7528\u3059\u308b\u3053\u3068\u3067\u5b9f\u73fe\u3067\u304d\u307e\u3059\u3002\u4ee5\u4e0b\u306f\u3001\u7d44\u307f\u8fbc\u307f\u95a2\u6570\u3092\u547c\u3073\u51fa\u3059\u4f8b\u3067\u3059\u3002<\/p>\n\n\n\n
r\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9# \u5185\u7f6e\u51fd\u6570\u7684\u8c03\u7528\nx <- c(1, 2, 3, 4, 5)\ny <- sum(x) # \u8ba1\u7b97x\u7684\u548c\nz <- mean(x) # \u8ba1\u7b97x\u7684\u5e73\u5747\u503c\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001\u30d9\u30af\u30c8\u30eb x \u306e\u5408\u8a08\u306f sum() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u8a08\u7b97\u3067\u304d\u3001\u30d9\u30af\u30c8\u30eb x \u306e\u5e73\u5747\u306f mean() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u8a08\u7b97\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n
2. \u7d44\u307f\u8fbc\u307f\u95a2\u6570\u306e\u5206\u985e<\/p>\n\n\n\n
\u7d44\u307f\u8fbc\u307f\u95a2\u6570\u306f\u3001\u305d\u306e\u6a5f\u80fd\u306b\u5f93\u3063\u3066\u5206\u985e\u3067\u304d\u307e\u3059\u3002\u4e3b\u306b\u6b21\u306e\u30ab\u30c6\u30b4\u30ea\u304c\u542b\u307e\u308c\u307e\u3059\u3002<\/p>\n\n\n\n
1. \u6570\u5b66\u95a2\u6570: \u57fa\u672c\u7684\u306a\u7b97\u8853\u6f14\u7b97\u3001\u4e09\u89d2\u95a2\u6570\u3001\u6307\u6570\u95a2\u6570\u3001\u5bfe\u6570\u95a2\u6570\u3001\u4e71\u6570\u751f\u6210\u95a2\u6570 (sin()\u3001cos()\u3001exp()\u3001log()\u3001runif() \u306a\u3069) \u306a\u3069\u3002<\/p>\n\n\n\n
2. \u7d71\u8a08\u95a2\u6570: mean()\u3001t.test()\u3001lm()\u3001anova() \u306a\u3069\u306e\u8a18\u8ff0\u7d71\u8a08\u95a2\u6570\u3001\u4eee\u8aac\u691c\u5b9a\u95a2\u6570\u3001\u7dda\u5f62\u56de\u5e30\u95a2\u6570\u3001\u5206\u6563\u5206\u6790\u95a2\u6570\u306a\u3069\u3002<\/p>\n\n\n\n
3. \u30b0\u30e9\u30d5\u30a3\u30c3\u30af\u95a2\u6570: plot()\u3001hist()\u3001boxplot()\u3001par() \u306a\u3069\u306e\u3055\u307e\u3056\u307e\u306a\u63cf\u753b\u95a2\u6570\u3068\u30b0\u30e9\u30d5\u30a3\u30c3\u30af\u5236\u5fa1\u95a2\u6570\u3092\u542b\u307f\u307e\u3059\u3002<\/p>\n\n\n\n
4. \u6587\u5b57\u5217\u95a2\u6570: \u6587\u5b57\u51e6\u7406\u95a2\u6570\u3068\u3001paste()\u3001gsub()\u3001grep() \u306a\u3069\u306e\u6b63\u898f\u8868\u73fe\u95a2\u6570\u3092\u542b\u307f\u307e\u3059\u3002<\/p>\n\n\n\n
3. \u7d44\u307f\u8fbc\u307f\u95a2\u6570\u306e\u30c9\u30ad\u30e5\u30e1\u30f3\u30c8<\/p>\n\n\n\n
\u7d44\u307f\u8fbc\u307f\u95a2\u6570\u306f\u3001help() \u95a2\u6570\u3068 ? \u6f14\u7b97\u5b50\u306e\u5b9f\u88c5\u3001\u5bfe\u5fdc\u3059\u308b\u95a2\u6570\u306e\u30c9\u30ad\u30e5\u30e1\u30f3\u30c8\u3068\u30b5\u30f3\u30d7\u30eb \u30b3\u30fc\u30c9\u3092\u8868\u793a\u3067\u304d\u307e\u3059\u3002\u7d44\u307f\u8fbc\u307f\u95a2\u6570\u306e\u30c9\u30ad\u30e5\u30e1\u30f3\u30c8\u306e\u4f8b\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
scss\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308b# \u67e5\u770b\u5185\u7f6e\u51fd\u6570\u6587\u6863\nhelp(sum) # \u663e\u793asum()\u51fd\u6570\u7684\u6587\u6863\n?sum # \u663e\u793asum()\u51fd\u6570\u7684\u6587\u6863\n\n# \u67e5\u770b\u5185\u7f6e\u51fd\u6570\u793a\u4f8b\u4ee3\u7801\nexample(sum) # \u663e\u793asum()\u51fd\u6570\u7684\u793a\u4f8b\u4ee3\u7801\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001\u7d44\u307f\u8fbc\u307f\u95a2\u6570\u306e\u30c9\u30ad\u30e5\u30e1\u30f3\u30c8\u306f help() \u95a2\u6570\u307e\u305f\u306f ? \u6f14\u7b97\u5b50\u3092\u4ecb\u3057\u3066\u8868\u793a\u3067\u304d\u3001\u7d44\u307f\u8fbc\u307f\u95a2\u6570\u306e\u30b5\u30f3\u30d7\u30eb \u30b3\u30fc\u30c9\u306f example() \u95a2\u6570\u3092\u4ecb\u3057\u3066\u8868\u793a\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n
\u4e00\u822c\u306b\u3001R \u8a00\u8a9e\u3067\u306f\u3001\u7d44\u307f\u8fbc\u307f\u95a2\u6570\u306f R \u8a00\u8a9e\u306b\u4ed8\u5c5e\u3059\u308b\u95a2\u6570\u3067\u3042\u308a\u3001R \u8a00\u8a9e\u3067\u76f4\u63a5\u547c\u3073\u51fa\u3057\u3066\u3001\u3055\u307e\u3056\u307e\u306a\u30c7\u30fc\u30bf\u51e6\u7406\u304a\u3088\u3073\u7d71\u8a08\u30e2\u30c7\u30ea\u30f3\u30b0 \u30bf\u30b9\u30af\u3092\u5b9f\u88c5\u3067\u304d\u307e\u3059\u3002\u306a\u304a\u3001\u7d44\u307f\u8fbc\u307f\u95a2\u6570\u3092\u4f7f\u7528\u3059\u308b\u5834\u5408\u306f\u3001\u95a2\u6570\u306e\u30d1\u30e9\u30e1\u30fc\u30bf\u3084\u623b\u308a\u5024\u306b\u6ce8\u610f\u304c\u5fc5\u8981\u3067\u3001\u95a2\u6570\u30c9\u30ad\u30e5\u30e1\u30f3\u30c8\u3084\u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9\u3092\u95b2\u89a7\u3059\u308b\u3053\u3068\u3067\u3001\u305d\u306e\u4f7f\u3044\u65b9\u3084\u6a5f\u80fd\u3092\u77e5\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n\u30ab\u30b9\u30bf\u30e0\u6a5f\u80fd\u306b\u3064\u3044\u3066\u8a73\u3057\u304f\u6559\u3048\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
R \u8a00\u8a9e\u3067\u306f\u3001\u30e6\u30fc\u30b6\u30fc\u5b9a\u7fa9\u95a2\u6570\u306f\u30e6\u30fc\u30b6\u30fc\u81ea\u8eab\u304c\u4f5c\u6210\u3057\u305f\u95a2\u6570\u3092\u6307\u3057\u3001\u30e6\u30fc\u30b6\u30fc\u306e\u30cb\u30fc\u30ba\u306b\u5fdc\u3058\u3066\u3055\u307e\u3056\u307e\u306a\u30c7\u30fc\u30bf\u51e6\u7406\u3084\u7d71\u8a08\u30e2\u30c7\u30ea\u30f3\u30b0\u306e\u30bf\u30b9\u30af\u3092\u5b9f\u88c5\u3067\u304d\u307e\u3059\u3002\u30ab\u30b9\u30bf\u30e0\u95a2\u6570\u306e\u4f5c\u6210\u306f\u3001\u65e2\u5b58\u306e\u7d44\u307f\u8fbc\u307f\u95a2\u6570\u3068\u30ab\u30b9\u30bf\u30e0\u95a2\u6570\u306e\u7d44\u307f\u5408\u308f\u305b\u306b\u57fa\u3065\u304f\u3053\u3068\u3082\u3001\u30bc\u30ed\u304b\u3089\u76f4\u63a5\u4f5c\u6210\u3059\u308b\u3053\u3068\u3082\u3067\u304d\u307e\u3059\u3002\u4ee5\u4e0b\u306f\u3001\u30ab\u30b9\u30bf\u30e0\u95a2\u6570\u306e\u8a73\u7d30\u306a\u8aac\u660e\u3067\u3059\u3002<\/p>\n\n\n\n
1. \u30ab\u30b9\u30bf\u30e0\u95a2\u6570\u306e\u5b9a\u7fa9<\/p>\n\n\n\n
\u30ab\u30b9\u30bf\u30e0\u95a2\u6570\u306e\u5b9a\u7fa9\u306f\u3001\u95a2\u6570\u540d\u3001\u30d1\u30e9\u30e1\u30fc\u30bf\u30fc\u3001\u304a\u3088\u3073\u95a2\u6570\u672c\u4f53\u3092\u6307\u5b9a\u3059\u308b\u5fc5\u8981\u304c\u3042\u308b function() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u5b9f\u88c5\u3067\u304d\u307e\u3059\u3002\u30ab\u30b9\u30bf\u30e0\u95a2\u6570\u306e\u5b9a\u7fa9\u306e\u4f8b\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
r\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9# \u81ea\u5b9a\u4e49\u51fd\u6570\u7684\u5b9a\u4e49\nmy_sum <- function(x, y) {\n z <- x + y\n return(z)\n}\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001function() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u3001my_sum \u3068\u3044\u3046\u540d\u524d\u306e\u95a2\u6570\u3092\u5b9a\u7fa9\u3057\u3066\u3044\u307e\u3059\u3002\u3053\u306e\u95a2\u6570\u306f\u3001x \u3068 y \u306e 2 \u3064\u306e\u30d1\u30e9\u30e1\u30fc\u30bf\u30fc\u3092\u6301\u3061\u3001\u95a2\u6570\u672c\u4f53\u306b x \u3068 y \u3092\u8ffd\u52a0\u3057\u3001\u7d50\u679c\u3092 z \u306b\u4ee3\u5165\u3057\u3001z \u3092\u623b\u308a\u5024\u3068\u3057\u3066\u4f7f\u7528\u3057\u307e\u3059\u3002\u95a2\u6570\u3002<\/p>\n\n\n\n
\u6b21\u306b\u3001\u30ab\u30b9\u30bf\u30e0\u95a2\u6570\u306e\u547c\u3073\u51fa\u3057<\/p>\n\n\n\n
\u30ab\u30b9\u30bf\u30e0\u95a2\u6570\u306e\u547c\u3073\u51fa\u3057\u306f\u3001\u95a2\u6570\u540d\u3068\u5bfe\u5fdc\u3059\u308b\u30d1\u30e9\u30e1\u30fc\u30bf\u30fc\u3092\u4f7f\u7528\u3057\u3066\u5b9f\u73fe\u3067\u304d\u307e\u3059\u3002\u30ab\u30b9\u30bf\u30e0\u95a2\u6570\u3092\u547c\u3073\u51fa\u3059\u4f8b\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
r\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9# \u81ea\u5b9a\u4e49\u51fd\u6570\u7684\u8c03\u7528\na <- 5\nb <- 10\nc <- my_sum(a, b) # \u8c03\u7528my_sum()\u51fd\u6570\nprint(c) # \u8f93\u51fa15\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001my_sum() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066 a \u3068 b \u3092\u52a0\u7b97\u3057\u3001\u7d50\u679c\u3092 c \u306b\u5272\u308a\u5f53\u3066\u3001c \u306e\u5024\u3092\u51fa\u529b\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n
3. \u30ab\u30b9\u30bf\u30e0\u95a2\u6570\u306e\u30d1\u30e9\u30e1\u30fc\u30bf<\/p>\n\n\n\n
\u30ab\u30b9\u30bf\u30e0\u95a2\u6570\u306e\u30d1\u30e9\u30e1\u30fc\u30bf\u30fc\u306b\u306f\u3001\u4eee\u30d1\u30e9\u30e1\u30fc\u30bf\u30fc\u3068\u5b9f\u30d1\u30e9\u30e1\u30fc\u30bf\u30fc\u304c\u3042\u308a\u307e\u3059\u3002\u4eee\u30d1\u30e9\u30e1\u30fc\u30bf\u30fc\u306f\u3001\u95a2\u6570\u5b9a\u7fa9\u3067\u6307\u5b9a\u3055\u308c\u305f\u30d1\u30e9\u30e1\u30fc\u30bf\u30fc\u3067\u3042\u308a\u3001\u95a2\u6570\u304c\u547c\u3073\u51fa\u3055\u308c\u305f\u3068\u304d\u306b\u6e21\u3055\u308c\u308b\u5024\u3092\u53d7\u3051\u53d6\u308b\u305f\u3081\u306b\u4f7f\u7528\u3055\u308c\u307e\u3059\u3002\u5b9f\u30d1\u30e9\u30e1\u30fc\u30bf\u30fc\u306f\u3001\u95a2\u6570\u547c\u3073\u51fa\u3057\u3067\u4eee\u30d1\u30e9\u30e1\u30fc\u30bf\u30fc\u306b\u6e21\u3055\u308c\u308b\u7279\u5b9a\u306e\u5024\u3067\u3059\u3002\u30ab\u30b9\u30bf\u30e0\u95a2\u6570\u306e\u30d1\u30e9\u30e1\u30fc\u30bf\u30fc\u306e\u4f8b\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
r\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9# \u81ea\u5b9a\u4e49\u51fd\u6570\u7684\u53c2\u6570\nmy_sum <- function(x, y = 0) { # y\u53c2\u6570\u6709\u9ed8\u8ba4\u503c0\n z <- x + y\n return(z)\n}\na <- 5\nb <- my_sum(a) # y\u53c2\u6570\u91c7\u7528\u9ed8\u8ba4\u503c0\nc <- my_sum(a, 10) # y\u53c2\u6570\u91c7\u7528\u5b9e\u9645\u503c10\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001my_sum() \u95a2\u6570\u3092\u4f7f\u7528\u3059\u308b\u5834\u5408\u3001y \u30d1\u30e9\u30e1\u30fc\u30bf\u306e\u30c7\u30d5\u30a9\u30eb\u30c8\u5024\u306f 0 \u3067\u3042\u308a\u3001\u7701\u7565\u3067\u304d\u307e\u3059; \u547c\u3073\u51fa\u3057\u6642\u306b\u5b9f\u969b\u306e\u30d1\u30e9\u30e1\u30fc\u30bf\u3092\u6e21\u3057\u3066\u30c7\u30d5\u30a9\u30eb\u30c8\u5024\u3092\u30aa\u30fc\u30d0\u30fc\u30e9\u30a4\u30c9\u3059\u308b\u3053\u3068\u3082\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n
4\u756a\u76ee\u306b\u3001\u30ab\u30b9\u30bf\u30e0\u95a2\u6570\u306e\u623b\u308a\u5024<\/p>\n\n\n\n
\u30ab\u30b9\u30bf\u30e0\u95a2\u6570\u306e\u623b\u308a\u5024\u306f return() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u5b9f\u88c5\u3067\u304d\u3001\u4efb\u610f\u306e\u578b\u306e\u5024\u3092\u95a2\u6570\u306e\u623b\u308a\u5024\u3068\u3057\u3066\u4f7f\u7528\u3067\u304d\u307e\u3059\u3002\u30ab\u30b9\u30bf\u30e0\u95a2\u6570\u306e\u623b\u308a\u5024\u306e\u4f8b\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
r\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9# \u81ea\u5b9a\u4e49\u51fd\u6570\u7684\u8fd4\u56de\u503c\nmy_sum <- function(x, y) {\n if (x > y) {\n return(x)\n } else {\n return(y)\n }\n}\na <- 5\nb <- 10\nc <- my_sum(a, b) # \u8c03\u7528my_sum()\u51fd\u6570\nprint(c) # \u8f93\u51fa10\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001my_sum() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066 x \u3068 y \u306e\u30b5\u30a4\u30ba\u3092\u6bd4\u8f03\u3057\u3001\u5927\u304d\u3044\u65b9\u306e\u5024\u3092\u8fd4\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
\u4e00\u822c\u306b\u3001R \u8a00\u8a9e\u3067\u306f\u3001\u30e6\u30fc\u30b6\u30fc\u5b9a\u7fa9\u95a2\u6570\u306f\u30e6\u30fc\u30b6\u30fc\u81ea\u8eab\u304c\u4f5c\u6210\u3057\u305f\u95a2\u6570\u3067\u3042\u308a\u3001\u30e6\u30fc\u30b6\u30fc\u306e\u30cb\u30fc\u30ba\u306b\u5fdc\u3058\u3066\u3055\u307e\u3056\u307e\u306a\u30c7\u30fc\u30bf\u51e6\u7406\u3084\u7d71\u8a08\u30e2\u30c7\u30ea\u30f3\u30b0\u306e\u30bf\u30b9\u30af\u3092\u5b9f\u73fe\u3067\u304d\u307e\u3059\u3002\u30ab\u30b9\u30bf\u30e0\u6a5f\u80fd\u3092\u4ecb\u3057\u3066<\/p>\n\n\n\n\u7d9a\u3051\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
\u5b9a\u7fa9\u3001\u547c\u3073\u51fa\u3057\u3001\u30d1\u30e9\u30e1\u30fc\u30bf\u3001\u623b\u308a\u5024\u306a\u3069\u306e\u57fa\u672c\u7684\u306a\u64cd\u4f5c\u306b\u3088\u308a\u3001\u3055\u307e\u3056\u307e\u306a\u8907\u96d1\u306a\u8a08\u7b97\u304a\u3088\u3073\u30c7\u30fc\u30bf\u51e6\u7406\u30bf\u30b9\u30af\u3092\u5b9f\u73fe\u3067\u304d\u307e\u3059\u3002\u30ab\u30b9\u30bf\u30e0\u95a2\u6570\u3092\u5b9a\u7fa9\u3059\u308b\u3068\u304d\u306f\u3001\u95a2\u6570\u306e\u30d1\u30e9\u30e1\u30fc\u30bf\u30fc\u3001\u623b\u308a\u5024\u3001\u95a2\u6570\u3001\u304a\u3088\u3073\u95a2\u6570\u306e\u547d\u540d\u3068\u30c9\u30ad\u30e5\u30e1\u30f3\u30c8\u3092\u8003\u616e\u3059\u308b\u5fc5\u8981\u304c\u3042\u308b\u3053\u3068\u306b\u6ce8\u610f\u3057\u3066\u304f\u3060\u3055\u3044\u3002\u3053\u308c\u306b\u3088\u308a\u3001\u95a2\u6570\u306e\u8aad\u307f\u3084\u3059\u3055\u3068\u4fdd\u5b88\u6027\u304c\u5411\u4e0a\u3057\u307e\u3059\u3002\u540c\u6642\u306b\u3001\u30ab\u30b9\u30bf\u30e0\u95a2\u6570\u3092\u4f7f\u7528\u3059\u308b\u5834\u5408\u306f\u3001\u95a2\u6570\u306e\u6b63\u78ba\u6027\u3068\u52b9\u7387\u6027\u306b\u3082\u6ce8\u610f\u3092\u6255\u3046\u5fc5\u8981\u304c\u3042\u308a\u3001\u30c7\u30d0\u30c3\u30b0 \u30c4\u30fc\u30eb\u3068\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9 \u30c6\u30b9\u30c8 \u30c4\u30fc\u30eb\u3092\u4f7f\u7528\u3057\u3066\u95a2\u6570\u3092\u6700\u9069\u5316\u3057\u3001\u6539\u5584\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n\u518d\u5e30\u95a2\u6570\u306b\u3064\u3044\u3066\u8a73\u3057\u304f\u6559\u3048\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
R\u8a00\u8a9e\u3067\u306f\u3001\u518d\u5e30\u95a2\u6570\uff08recursive function\uff09\u3068\u306f\u3001\u4f55\u3089\u304b\u306e\u8a08\u7b97\u3084\u51e6\u7406\u3092\u5b9f\u73fe\u3059\u308b\u305f\u3081\u306b\u81ea\u5206\u81ea\u8eab\u3092\u547c\u3073\u51fa\u3059\u3053\u3068\u304c\u3067\u304d\u308b\u95a2\u6570\u3092\u6307\u3057\u307e\u3059\u3002\u518d\u5e30\u95a2\u6570\u306f\u3001\u30c4\u30ea\u30fc\u69cb\u9020\u3001\u5206\u5272\u7d71\u6cbb\u30a2\u30eb\u30b4\u30ea\u30ba\u30e0\u3001\u52d5\u7684\u8a08\u753b\u6cd5\u30a2\u30eb\u30b4\u30ea\u30ba\u30e0\u306a\u3069\u3001\u3055\u307e\u3056\u307e\u306a\u30c7\u30fc\u30bf\u69cb\u9020\u3068\u30a2\u30eb\u30b4\u30ea\u30ba\u30e0\u306b\u9069\u7528\u3067\u304d\u307e\u3059\u3002\u4ee5\u4e0b\u306f\u3001\u518d\u5e30\u95a2\u6570\u306e\u8a73\u7d30\u306a\u8aac\u660e\u3067\u3059\u3002<\/p>\n\n\n\n
1. \u518d\u5e30\u95a2\u6570\u306e\u5b9a\u7fa9<\/p>\n\n\n\n
\u518d\u5e30\u95a2\u6570\u306e\u5b9a\u7fa9\u306f\u95a2\u6570\u81ea\u4f53\u3092\u4f7f\u7528\u3057\u3066\u5b9f\u88c5\u3067\u304d\u3001\u518d\u5e30\u7d42\u4e86\u6761\u4ef6\u3068\u518d\u5e30\u30b9\u30c6\u30c3\u30d7\u3092\u8003\u616e\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002\u4ee5\u4e0b\u306f\u3001\u518d\u5e30\u95a2\u6570\u306e\u5b9a\u7fa9\u306e\u4f8b\u3067\u3059\u3002<\/p>\n\n\n\n
scss\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308b# \u9012\u5f52\u51fd\u6570\u7684\u5b9a\u4e49\nmy_factorial <- function(x) {\n if (x == 1) {\n return(1)\n } else {\n return(x * my_factorial(x-1))\n }\n}\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001\u95a2\u6570 my_factorial() \u3092\u4f7f\u7528\u3057\u3066 x \u306e\u968e\u4e57\u3092\u8a08\u7b97\u3057\u3001x \u304c 1 \u306e\u5834\u5408\u306f 1 \u3092\u8fd4\u3057\u3001\u305d\u3046\u3067\u306a\u3044\u5834\u5408\u306f x \u306b x-1 \u306e\u968e\u4e57\u3092\u639b\u3051\u305f\u5024\u3092\u8fd4\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
\u7b2c\u4e8c\u306b\u3001\u518d\u5e30\u95a2\u6570\u306e\u547c\u3073\u51fa\u3057<\/p>\n\n\n\n
\u518d\u5e30\u95a2\u6570\u547c\u3073\u51fa\u3057\u306f\u3001\u95a2\u6570\u540d\u3068\u5bfe\u5fdc\u3059\u308b\u30d1\u30e9\u30e1\u30fc\u30bf\u30fc\u3092\u4f7f\u7528\u3057\u3066\u5b9f\u88c5\u3067\u304d\u307e\u3059\u3002\u4ee5\u4e0b\u306f\u3001\u518d\u5e30\u95a2\u6570\u306e\u547c\u3073\u51fa\u3057\u306e\u4f8b\u3067\u3059\u3002<\/p>\n\n\n\n
scss\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308b# \u9012\u5f52\u51fd\u6570\u7684\u8c03\u7528\na <- 5\nb <- my_factorial(a) # \u8c03\u7528my_factorial()\u51fd\u6570\nprint(b) # \u8f93\u51fa120\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001 my_factorial() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066 a \u306e\u968e\u4e57\u3092\u8a08\u7b97\u3057\u3001\u7d50\u679c\u3092\u51fa\u529b\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n
3. \u518d\u5e30\u95a2\u6570\u306e\u518d\u5e30\u30b9\u30c6\u30c3\u30d7<\/p>\n\n\n\n
\u518d\u5e30\u95a2\u6570\u306e\u518d\u5e30\u30b9\u30c6\u30c3\u30d7\u3068\u306f\u3001\u518d\u5e30\u30d7\u30ed\u30bb\u30b9\u3092\u5b9f\u88c5\u3059\u308b\u305f\u3081\u306b\u81ea\u5206\u81ea\u8eab\u3092\u547c\u3073\u51fa\u3059\u95a2\u6570\u306e\u90e8\u5206\u3092\u6307\u3057\u307e\u3059\u3002\u518d\u5e30\u30d7\u30ed\u30bb\u30b9\u3067\u306f\u3001\u518d\u5e30\u7d42\u4e86\u6761\u4ef6\u3068\u518d\u5e30\u547c\u3073\u51fa\u3057\u306e\u30d1\u30e9\u30e1\u30fc\u30bf\u30fc\u3092\u8003\u616e\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002\u518d\u5e30\u95a2\u6570\u306e\u518d\u5e30\u30b9\u30c6\u30c3\u30d7\u306e\u4f8b\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
php\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308b# \u9012\u5f52\u51fd\u6570\u7684\u9012\u5f52\u6b65\u9aa4\nmy_factorial <- function(x) {\n if (x == 1) { # \u9012\u5f52\u7ec8\u6b62\u6761\u4ef6\n return(1)\n } else {\n return(x * my_factorial(x-1)) # \u9012\u5f52\u8c03\u7528\n }\n}\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001x \u304c 1 \u306e\u5834\u5408\u3001\u518d\u5e30\u306f\u7d42\u4e86\u3057\u307e\u3059\u304c\u3001\u305d\u308c\u4ee5\u5916\u306e\u5834\u5408\u306f\u3001my_factorial() \u95a2\u6570\u304c\u518d\u5e30\u7684\u306b\u547c\u3073\u51fa\u3055\u308c\u3001\u5f15\u6570 x-1 \u304c\u6e21\u3055\u308c\u307e\u3059\u3002<\/p>\n\n\n\n
\u7b2c\u56db\u306b\u3001\u518d\u5e30\u95a2\u6570\u306e\u9577\u6240\u3068\u77ed\u6240<\/p>\n\n\n\n
\u518d\u5e30\u95a2\u6570\u306e\u5229\u70b9\u306f\u3001\u7279\u306b\u30c4\u30ea\u30fc\u69cb\u9020\u306a\u3069\u306e\u8907\u96d1\u306a\u30c7\u30fc\u30bf\u69cb\u9020\u3092\u6271\u3046\u5834\u5408\u306b\u3001\u30b3\u30fc\u30c9\u306e\u5b9f\u88c5\u3068\u8ad6\u7406\u7684\u601d\u8003\u3092\u5358\u7d14\u5316\u3067\u304d\u308b\u3053\u3068\u3067\u3059; \u6b20\u70b9\u306f\u3001\u30b9\u30bf\u30c3\u30af \u30aa\u30fc\u30d0\u30fc\u30d5\u30ed\u30fc\u306a\u3069\u306e\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u306e\u554f\u984c\u304c\u767a\u751f\u3059\u308b\u53ef\u80fd\u6027\u304c\u3042\u308a\u3001\u30b3\u30fc\u30c9\u306e\u51e6\u7406\u304c\u56f0\u96e3\u306b\u306a\u308b\u53ef\u80fd\u6027\u304c\u3042\u308b\u3053\u3068\u3067\u3059\u3002\u7406\u89e3\u3057\u7dad\u6301\u3059\u308b\u3002\u3057\u305f\u304c\u3063\u3066\u3001\u518d\u5e30\u95a2\u6570\u3092\u4f7f\u7528\u3059\u308b\u5834\u5408\u306f\u3001\u518d\u5e30\u306e\u7d42\u4e86\u6761\u4ef6\u3001\u518d\u5e30\u547c\u3073\u51fa\u3057\u306e\u56de\u6570\u3001\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u306a\u3069\u306e\u554f\u984c\u306b\u6ce8\u610f\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059.\u30eb\u30fc\u30d7\u306a\u3069\u306e\u4ed6\u306e\u65b9\u6cd5\u3092\u4f7f\u7528\u3057\u3066\u3001\u518d\u5e30\u95a2\u6570\u3092\u56de\u907f\u307e\u305f\u306f\u6700\u9069\u5316\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059.<\/p>\n\n\n\n
\u4e00\u822c\u306b\u3001R \u3067\u306f\u3001\u518d\u5e30\u95a2\u6570<\/p>\n\n\n\n\u7d9a\u3051\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
\u5206\u5272\u7d71\u6cbb\u30a2\u30eb\u30b4\u30ea\u30ba\u30e0\u3001\u52d5\u7684\u8a08\u753b\u6cd5\u30a2\u30eb\u30b4\u30ea\u30ba\u30e0\u3001\u6df1\u3055\u512a\u5148\u63a2\u7d22\u3001\u5e45\u512a\u5148\u63a2\u7d22\u306a\u3069\u3001\u3055\u307e\u3056\u307e\u306a\u8907\u96d1\u306a\u8a08\u7b97\u3068\u51e6\u7406\u30d7\u30ed\u30bb\u30b9\u3092\u5b9f\u73fe\u3067\u304d\u307e\u3059\u3002\u518d\u5e30\u95a2\u6570\u3092\u5b9a\u7fa9\u3059\u308b\u969b\u306b\u306f\u3001\u518d\u5e30\u7d42\u4e86\u6761\u4ef6\u3001\u518d\u5e30\u547c\u3073\u51fa\u3057\u3001\u95a2\u6570\u306e\u6b63\u78ba\u6027\u3068\u52b9\u7387\u3092\u5411\u4e0a\u3055\u305b\u308b\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u306a\u3069\u306e\u554f\u984c\u3092\u8003\u616e\u3059\u308b\u5fc5\u8981\u304c\u3042\u308b\u3053\u3068\u306b\u6ce8\u610f\u3057\u3066\u304f\u3060\u3055\u3044; \u518d\u5e30\u95a2\u6570\u3092\u4f7f\u7528\u3059\u308b\u5834\u5408\u306f\u3001\u518d\u5e30\u547c\u3073\u51fa\u3057\u306e\u6570\u3068\u30b9\u30bf\u30c3\u30af \u30b9\u30da\u30fc\u30b9\u306e\u5236\u9650\u306b\u6ce8\u610f\u3057\u3066\u304f\u3060\u3055\u3044\u3002\u30eb\u30fc\u30d7\u3084\u305d\u306e\u4ed6\u306e\u65b9\u6cd5\u3092\u4f7f\u7528\u3057\u3066\u3001\u518d\u5e30\u95a2\u6570\u3092\u56de\u907f\u307e\u305f\u306f\u6700\u9069\u5316\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n\u95a2\u6570\u578b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u306b\u3064\u3044\u3066\u8a73\u3057\u304f\u8aac\u660e\u3057\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
\u95a2\u6570\u578b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0 (\u7565\u3057\u3066 FP) \u306f\u3001\u8a08\u7b97\u30d7\u30ed\u30bb\u30b9\u3092\u6570\u5b66\u95a2\u6570\u306e\u7d44\u307f\u5408\u308f\u305b\u3068\u3057\u3066\u5f37\u8abf\u3057\u3001\u4e0d\u5909\u30c7\u30fc\u30bf\u3001\u526f\u4f5c\u7528\u304c\u306a\u3044\u3001\u518d\u5e30\u306e\u7279\u6027\u3092\u5f37\u8abf\u3057\u3001\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u5358\u7d14\u3055\u3068\u53ef\u8aad\u6027\u3068\u4fdd\u5b88\u6027\u306e\u5411\u4e0a\u3092\u76ee\u6307\u3057\u305f\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0 \u30d1\u30e9\u30c0\u30a4\u30e0\u3067\u3059\u3002\u95a2\u6570\u578b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u306e\u6838\u3068\u306a\u308b\u8003\u3048\u65b9\u306f\u3001\u95a2\u6570\u306f\u7b2c\u4e00\u7d1a\u5e02\u6c11\u3067\u3042\u308b\u3068\u3044\u3046\u3053\u3068\u3067\u3059. \u95a2\u6570\u306f\u3001\u4ed6\u306e\u30c7\u30fc\u30bf\u578b\u3068\u540c\u3058\u3088\u3046\u306b\u53d7\u3051\u6e21\u3057\u3001\u4ee3\u5165\u3001\u304a\u3088\u3073\u8fd4\u3059\u3053\u3068\u304c\u3067\u304d\u3001\u7d44\u307f\u5408\u308f\u305b\u3068\u5909\u63db\u3092\u5f62\u6210\u3059\u308b\u305f\u3081\u306b\u30d1\u30e9\u30e1\u30fc\u30bf\u30fc\u304a\u3088\u3073\u623b\u308a\u5024\u3068\u3057\u3066\u4ed6\u306e\u95a2\u6570\u306b\u6e21\u3059\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u95a2\u6570\u306e\u3002<\/p>\n\n\n\n
\u95a2\u6570\u578b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u306e\u8a73\u7d30\u306a\u8aac\u660e\u306f\u6b21\u306e\u3068\u304a\u308a\u3067\u3059\u3002<\/p>\n\n\n\n
1. \u95a2\u6570\u578b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u306e\u7279\u5fb4<\/p>\n\n\n\n
\u95a2\u6570\u578b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u306e\u6a5f\u80fd\u306b\u306f\u3001\u6b21\u306e\u3088\u3046\u306b\u3001\u4e0d\u5909\u30c7\u30fc\u30bf\u3001\u526f\u4f5c\u7528\u306a\u3057\u3001\u9ad8\u968e\u95a2\u6570\u3001\u304a\u3088\u3073\u518d\u5e30\u304c\u542b\u307e\u308c\u307e\u3059\u3002<\/p>\n\n\n\n
1. \u4e0d\u5909\u30c7\u30fc\u30bf (\u4e0d\u5909\u30c7\u30fc\u30bf): \u95a2\u6570\u578b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u3067\u306f\u3001\u30c7\u30fc\u30bf\u306f\u4e0d\u5909\u3067\u3042\u308a\u3001\u4e00\u5ea6\u4f5c\u6210\u3059\u308b\u3068\u5909\u66f4\u3067\u304d\u306a\u3044\u3053\u3068\u304c\u5f37\u8abf\u3055\u308c\u3066\u3044\u307e\u3059\u3002\u3053\u308c\u306b\u3088\u308a\u3001\u30c7\u30fc\u30bf\u306e\u4f9d\u5b58\u95a2\u4fc2\u3084\u8907\u6570\u306e\u95a2\u6570\u9593\u306e\u7af6\u5408\u72b6\u614b\u306a\u3069\u306e\u554f\u984c\u304c\u56de\u907f\u3055\u308c\u307e\u3059\u3002<\/p>\n\n\n\n
2. \u526f\u4f5c\u7528\u306a\u3057 (Pure Function): \u95a2\u6570\u578b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u306f\u3001\u95a2\u6570\u306b\u526f\u4f5c\u7528\u304c\u306a\u3044\u3053\u3068\u3001\u3064\u307e\u308a\u3001\u95a2\u6570\u306e\u51fa\u529b\u306f\u5165\u529b\u306b\u3088\u3063\u3066\u306e\u307f\u6c7a\u5b9a\u3055\u308c\u3001\u5916\u90e8\u74b0\u5883\u306b\u5f71\u97ff\u3092\u4e0e\u3048\u306a\u3044\u3053\u3068\u3092\u5f37\u8abf\u3057\u307e\u3059\u3002\u3053\u308c\u306b\u3088\u308a\u3001\u671b\u307e\u3057\u304f\u306a\u3044\u526f\u4f5c\u7528\u3084\u610f\u56f3\u3057\u306a\u3044\u5f71\u97ff\u3092\u56de\u907f\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n
3. \u9ad8\u6b21\u95a2\u6570: \u95a2\u6570\u578b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u3067\u306f\u3001\u95a2\u6570\u3092\u30d1\u30e9\u30e1\u30fc\u30bf\u30fc\u3068\u3057\u3066\u6e21\u3057\u3001\u5024\u3092\u4ed6\u306e\u95a2\u6570\u306b\u8fd4\u3057\u3066\u3001\u95a2\u6570\u306e\u7d44\u307f\u5408\u308f\u305b\u3068\u5909\u63db\u3092\u5f62\u6210\u3067\u304d\u308b\u3053\u3068\u304c\u5f37\u8abf\u3055\u308c\u3066\u3044\u307e\u3059\u3002\u3053\u306e\u3088\u3046\u306b\u3057\u3066\u3001\u6a5f\u80fd\u306e\u62bd\u8c61\u5316\u3068\u4e00\u822c\u5316\u3092\u5b9f\u73fe\u3057\u3001\u30b3\u30fc\u30c9\u306e\u518d\u5229\u7528\u3068\u53ef\u8aad\u6027\u3092\u5411\u4e0a\u3055\u305b\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n
4. \u518d\u5e30: \u95a2\u6570\u578b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u3067\u306f\u3001\u518d\u5e30\u304c\u57fa\u672c\u7684\u306a\u8a08\u7b97\u65b9\u6cd5\u3067\u3042\u308a\u3001\u7279\u306b\u30c4\u30ea\u30fc\u69cb\u9020\u306a\u3069\u306e\u8907\u96d1\u306a\u30c7\u30fc\u30bf\u69cb\u9020\u3092\u6271\u3046\u5834\u5408\u306b\u3001\u30b3\u30fc\u30c9\u306e\u5b9f\u88c5\u3068\u8ad6\u7406\u7684\u601d\u8003\u3092\u7c21\u7d20\u5316\u3067\u304d\u308b\u3053\u3068\u304c\u5f37\u8abf\u3055\u308c\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n
\u7b2c\u4e8c\u306b\u3001\u95a2\u6570\u578b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u306e\u5b9f\u73fe<\/p>\n\n\n\n
\u95a2\u6570\u578b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u306e\u5b9f\u73fe\u306f\u3001\u95a2\u6570\u578b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u8a00\u8a9e\u3001\u307e\u305f\u306f R \u8a00\u8a9e\u3001Python\u3001Haskell\u3001Clojure \u306a\u3069\u306e\u95a2\u6570\u578b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u3092\u30b5\u30dd\u30fc\u30c8\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u8a00\u8a9e\u306b\u57fa\u3065\u304f\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002\u95a2\u6570\u578b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u306e\u5b9f\u88c5\u4f8b\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
r\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9# \u51fd\u6570\u5f0f\u7f16\u7a0b\u7684\u5b9e\u73b0\n# \u4e0d\u53ef\u53d8\u6570\u636e\nx <- c(1, 2, 3) # \u521b\u5efa\u4e00\u4e2a\u5411\u91cf\ny <- x[-2] # \u4e0d\u4f1a\u4fee\u6539\u539f\u5411\u91cf\uff0c\u521b\u5efa\u4e00\u4e2a\u65b0\u5411\u91cf\n\n# \u65e0\u526f\u4f5c\u7528\nmy_sum <- function(x, y) { # \u65e0\u526f\u4f5c\u7528\u7684\u51fd\u6570\n z <- x + y\n return(z)\n}\na <- 5\nb <- 10\nc <- my_sum(a, b) # \u8c03\u7528my_sum()\u51fd\u6570\uff0c\u4e0d\u4f1a\u5bf9a\u548cb\u4ea7\u751f\u5f71\u54cd\n\n# \u9ad8\u9636\u51fd\u6570\nmy_sqrt <- function(f, x) { # \u9ad8\u9636\u51fd\u6570\n return(f(x))\n}\na <- 25\nb <- my_sqrt(sqrt, a) # \u8c03\u7528my_sqrt()\u51fd\u6570\uff0c\u5c06sqrt()\u51fd\u6570\u4f5c\u4e3a\u53c2\u6570\n\n# \u9012\u5f52\nmy_factorial <- function(x) { # \n<\/code><\/pre>\n\n\n\n\u7d9a\u3051\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
\u518d\u5e30\u95a2\u6570\u306e\u5b9f\u88c5 if (x == 1) { return(1) } else { return(x * my_factorial(x-1)) } } a <- 5 b <- my_factorial(a) # my_factorial() \u95a2\u6570\u3092\u547c\u3073\u51fa\u3059,\u968e\u4e57\u8a08\u7b97\u3092\u5b9f\u73fe<\/p>\n\n\n\n
scss\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308b\n\u5728\u4ee5\u4e0a\u793a\u4f8b\u4e2d\uff0c\u4f7f\u7528R\u8bed\u8a00\u5b9e\u73b0\u51fd\u6570\u5f0f\u7f16\u7a0b\u7684\u7279\u6027\uff0c\u5305\u62ec\u4e0d\u53ef\u53d8\u6570\u636e\u3001\u65e0\u526f\u4f5c\u7528\u3001\u9ad8\u9636\u51fd\u6570\u548c\u9012\u5f52\u7b49\u3002\u5177\u4f53\u6765\u8bf4\uff0c\u4f7f\u7528\u4e0d\u53ef\u53d8\u6570\u636e\u521b\u5efa\u5411\u91cf\uff0c\u5e76\u4e0d\u4f1a\u4fee\u6539\u539f\u5411\u91cf\uff1b\u4f7f\u7528\u65e0\u526f\u4f5c\u7528\u7684\u51fd\u6570\u8ba1\u7b97\u4e24\u4e2a\u6570\u5b57\u7684\u548c\uff0c\u5e76\u4e0d\u4f1a\u5bf9\u539f\u6570\u5b57\u4ea7\u751f\u5f71\u54cd\uff1b\u4f7f\u7528\u9ad8\u9636\u51fd\u6570\u8ba1\u7b97\u4e00\u4e2a\u6570\u5b57\u7684\u5e73\u65b9\u6839\uff0c\u5e76\u5c06sqrt()\u51fd\u6570\u4f5c\u4e3a\u53c2\u6570\u4f20\u9012\uff1b\u4f7f\u7528\u9012\u5f52\u51fd\u6570\u8ba1\u7b97\u4e00\u4e2a\u6570\u5b57\u7684\u9636\u4e58\uff0c\u5b9e\u73b0\u9012\u5f52\u8fc7\u7a0b\u7684\u90e8\u5206\u3002\n\n\u4e09\u3001\u51fd\u6570\u5f0f\u7f16\u7a0b\u7684\u4f18\u7f3a\u70b9\n\n\u51fd\u6570\u5f0f\u7f16\u7a0b\u7684\u4f18\u70b9\u662f\u53ef\u4ee5\u63d0\u9ad8\u4ee3\u7801\u7684\u7b80\u6d01\u6027\u3001\u53ef\u8bfb\u6027\u548c\u53ef\u7ef4\u62a4\u6027\uff0c\u5c24\u5176\u9002\u7528\u4e8e\u6570\u636e\u5904\u7406\u548c\u7b97\u6cd5\u5b9e\u73b0\u7b49\u573a\u666f\uff1b\u540c\u65f6\uff0c\u7531\u4e8e\u51fd\u6570\u7684\u65e0\u526f\u4f5c\u7528\u548c\u4e0d\u53ef\u53d8\u6570\u636e\u7b49\u7279\u6027\uff0c\u53ef\u4ee5\u63d0\u9ad8\u7a0b\u5e8f\u7684\u5065\u58ee\u6027\u548c\u7a33\u5b9a\u6027\u3002\u7f3a\u70b9\u662f\u53ef\u80fd\u9700\u8981\u82b1\u8d39\u66f4\u591a\u7684\u65f6\u95f4\u548c\u7cbe\u529b\u6765\u5b66\u4e60\u548c\u7406\u89e3\u51fd\u6570\u5f0f\u7f16\u7a0b\u7684\u6982\u5ff5\u548c\u601d\u60f3\uff0c\u4ee5\u53ca\u9700\u8981\u9002\u5e94\u51fd\u6570\u5f0f\u7f16\u7a0b\u7684\u98ce\u683c\u548c\u4e60\u60ef\uff1b\u540c\u65f6\uff0c\u5728\u67d0\u4e9b\u60c5\u51b5\u4e0b\uff0c\u51fd\u6570\u5f0f\u7f16\u7a0b\u53ef\u80fd\u4f1a\u5bfc\u81f4\u4ee3\u7801\u7684\u6548\u7387\u8f83\u4f4e\uff0c\u9700\u8981\u6743\u8861\u6548\u7387\u548c\u7b80\u6d01\u6027\u7b49\u56e0\u7d20\u3002\n\n\u603b\u7684\u6765\u8bf4\uff0c\u51fd\u6570\u5f0f\u7f16\u7a0b\u662f\u4e00\u79cd\u5f3a\u8c03\u51fd\u6570\u7684\u7ec4\u5408\u548c\u53d8\u6362\u7684\u7f16\u7a0b\u8303\u5f0f\uff0c\u53ef\u4ee5\u63d0\u9ad8\u7a0b\u5e8f\u7684\u7b80\u6d01\u6027\u3001\u53ef\u8bfb\u6027\u548c\u53ef\u7ef4\u62a4\u6027\uff0c\u4f46\u9700\u8981\u9002\u5e94\u51fd\u6570\u5f0f\u7f16\u7a0b\u7684\u98ce\u683c\u548c\u4e60\u60ef\uff0c\u4ee5\u53ca\u6743\u8861\u6548\u7387\u548c\u7b80\u6d01\u6027\u7b49\u56e0\u7d20\u3002\n<\/code><\/pre>\n\n\n\nCSV\u3084\u30a8\u30af\u30bb\u30eb\u306a\u3069\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u8fbc\u3081\u308b\u3088\u3046\u306b\u8a73\u3057\u304f\u8aac\u660e\u3057\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
R \u8a00\u8a9e\u3067\u306f\u3001CSV \u3084 Excel \u306a\u3069\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u8aad\u307f\u53d6\u308a\u306f\u4e00\u822c\u7684\u306a\u30c7\u30fc\u30bf\u51e6\u7406\u30bf\u30b9\u30af\u3067\u3042\u308a\u3001\u95a2\u9023\u3059\u308b\u95a2\u6570\u3084\u62e1\u5f35\u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u4f7f\u7528\u3057\u3066\u5b9f\u88c5\u3067\u304d\u307e\u3059\u3002\u4ee5\u4e0b\u306f\u3001CSV\u3001Excel \u306a\u3069\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u8aad\u307f\u53d6\u308a\u306b\u95a2\u3059\u308b\u8a73\u7d30\u306a\u8aac\u660e\u3067\u3059\u3002<\/p>\n\n\n\n
1.CSV\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u3080<\/p>\n\n\n\n
CSV (Comma Separated Values) \u30d5\u30a1\u30a4\u30eb\u306f\u3001\u8868\u5f62\u5f0f\u306e\u30c7\u30fc\u30bf\u3092\u4fdd\u5b58\u304a\u3088\u3073\u4ea4\u63db\u3059\u308b\u305f\u3081\u306b\u4f7f\u7528\u3055\u308c\u308b\u30c6\u30ad\u30b9\u30c8 \u30d5\u30a1\u30a4\u30eb\u5f62\u5f0f\u3067\u3001\u5404\u884c\u306f\u30ec\u30b3\u30fc\u30c9\u3092\u8868\u3057\u3001\u5404\u30d5\u30a3\u30fc\u30eb\u30c9\u306f\u30b3\u30f3\u30de\u3067\u533a\u5207\u3089\u308c\u3066\u3044\u307e\u3059\u3002R \u8a00\u8a9e\u3067\u306f\u3001read.csv() \u95a2\u6570\u307e\u305f\u306f read.table() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066 CSV \u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u53d6\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002CSV \u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u53d6\u308b\u4f8b\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
graphql\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc# \u8bfb\u53d6CSV\u6587\u4ef6\u7684\u793a\u4f8b\nmy_data <- read.csv(\"my_file.csv\", header=TRUE, sep=\",\")\n<\/code><\/pre>\n\n\n\nIn the above example, the read.csv() function is used to read the CSV file named “my_file.csv”. \u30d1\u30e9\u30e1\u30fc\u30bf \u30d8\u30c3\u30c0\u30fc\u306f\u3001\u6700\u521d\u306e\u884c\u304c\u5217\u540d\u3067\u3042\u308b\u304b\u3069\u3046\u304b\u3092\u793a\u3057\u3001\u30d1\u30e9\u30e1\u30fc\u30bf sep \u306f\u30d5\u30a3\u30fc\u30eb\u30c9 \u30bb\u30d1\u30ec\u30fc\u30bf\u3092\u793a\u3057\u307e\u3059\u3002\u30c7\u30d5\u30a9\u30eb\u30c8\u3067\u306f\u30ab\u30f3\u30de\u3002\u8aad\u307f\u53d6\u3063\u305f\u30c7\u30fc\u30bf\u306f my_data \u5909\u6570\u306b\u683c\u7d0d\u3055\u308c\u3001\u95a2\u9023\u3059\u308b\u95a2\u6570\u3068\u64cd\u4f5c\u3092\u4f7f\u7528\u3057\u3066\u51e6\u7406\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n
\u6b21\u306b\u3001Excel \u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u8fbc\u307f\u307e\u3059<\/p>\n\n\n\n
Excel \u30d5\u30a1\u30a4\u30eb\u306f\u3001\u8907\u6570\u306e\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u3084\u30bb\u30eb\u306e\u66f8\u5f0f\u8a2d\u5b9a\u306a\u3069\u3092\u542b\u3080\u3001\u8868\u5f62\u5f0f\u306e\u30c7\u30fc\u30bf\u3092\u4fdd\u5b58\u304a\u3088\u3073\u64cd\u4f5c\u3059\u308b\u305f\u3081\u306b\u4f7f\u7528\u3055\u308c\u308b\u30b9\u30d7\u30ec\u30c3\u30c9\u30b7\u30fc\u30c8 \u30d5\u30a1\u30a4\u30eb\u5f62\u5f0f\u3067\u3059\u3002R \u8a00\u8a9e\u3067 Excel \u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u53d6\u308b\u306b\u306f\u3001\u95a2\u9023\u3059\u308b\u62e1\u5f35\u30d1\u30c3\u30b1\u30fc\u30b8 (readxl \u30d1\u30c3\u30b1\u30fc\u30b8\u3084 openxlsx \u30d1\u30c3\u30b1\u30fc\u30b8\u306a\u3069) \u3092\u4f7f\u7528\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002\u4ee5\u4e0b\u306f\u3001Excel \u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u53d6\u308b\u4f8b\u3067\u3059\u3002<\/p>\n\n\n\n
bash\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308b# \u8bfb\u53d6Excel\u6587\u4ef6\u7684\u793a\u4f8b\n# \u4f7f\u7528readxl\u5305\nlibrary(readxl)\nmy_data <- read_excel(\"my_file.xlsx\", sheet=\"Sheet1\")\n# \u4f7f\u7528openxlsx\u5305\nlibrary(openxlsx)\nmy_data <- read.xlsx(\"my_file.xlsx\", sheet=\"Sheet1\")\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001readxl \u30d1\u30c3\u30b1\u30fc\u30b8\u307e\u305f\u306f openxlsx \u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u4f7f\u7528\u3057\u3066\u3001\u300cmy_file.xlsx\u300d\u3068\u3044\u3046\u540d\u524d\u306e Excel \u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u53d6\u308a\u3001\u30d1\u30e9\u30e1\u30fc\u30bf\u30fc \u30b7\u30fc\u30c8\u306f\u8aad\u307f\u53d6\u308b\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u3092\u793a\u3057\u3001\u95a2\u9023\u3059\u308b\u95a2\u6570\u3068\u64cd\u4f5c\u3067\u51e6\u7406\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n
3. \u4ed6\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u3080<\/p>\n\n\n\n
R \u8a00\u8a9e\u306f\u3001CSV \u30d5\u30a1\u30a4\u30eb\u3068 Excel \u30d5\u30a1\u30a4\u30eb\u306b\u52a0\u3048\u3066\u3001JSON \u30d5\u30a1\u30a4\u30eb\u3001XML \u30d5\u30a1\u30a4\u30eb\u3001SQL \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306a\u3069\u3001\u4ed6\u306e\u5f62\u5f0f\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u8aad\u307f\u53d6\u308a\u3082\u30b5\u30dd\u30fc\u30c8\u3057\u3066\u3044\u307e\u3059\u3002\u3053\u308c\u3089\u306e\u30d5\u30a1\u30a4\u30eb\u5f62\u5f0f\u306e\u5834\u5408\u3001\u95a2\u9023\u3059\u308b\u62e1\u5f35\u30d1\u30c3\u30b1\u30fc\u30b8\u3068\u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u3001\u305d\u308c\u3089\u3092\u8aad\u307f\u53d6\u3063\u3066\u51e6\u7406\u3067\u304d\u307e\u3059\u3002JSON \u30d5\u30a1\u30a4\u30eb\u3068 SQL \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u3092\u8aad\u307f\u53d6\u308b\u4f8b\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
scss\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308b# \u8bfb\u53d6JSON\u6587\u4ef6\u7684\u793a\u4f8b\nlibrary(jsonlite)\nmy_data <- fromJSON(\"my_file.json\")\n\n# \u8bfb\u53d6SQL\u6570\u636e\u5e93\u7684\u793a\u4f8b\nlibrary(DBI)\nlibrary(RSQLite)\ncon <- dbConnect(RSQLite::SQLite(), dbname=\"my_db.sqlite\")\nmy_data <- dbGetQuery(con, \"SELECT * FROM my_table\")\ndbDisconnect(con)\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001jsonlite \u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u4f7f\u7528\u3057\u3066 “my_file.json” \u3068\u3044\u3046\u540d\u524d\u306e JSON \u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u53d6\u308a\u3001DBI \u30d1\u30c3\u30b1\u30fc\u30b8\u3068 RSQLite \u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u4f7f\u7528\u3057\u3066 “my_db.sqlite” \u3068\u3044\u3046\u540d\u524d\u306e SQL \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u3092\u8aad\u307f\u53d6\u308a\u3001\u95a2\u9023\u3059\u308b\u95a2\u6570\u3068\u64cd\u4f5c\u3092\u4f7f\u7528\u3057\u3066\u51e6\u7406\u3067\u304d\u307e\u3059\u3002\u62e1\u5f35\u30d1\u30c3\u30b1\u30fc\u30b8\u3068\u95a2\u6570\u3092\u4f7f\u7528\u3059\u308b\u5834\u5408\u3001\u95a2\u9023\u3059\u308b\u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u6700\u521d\u306b\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3057\u3066\u30ed\u30fc\u30c9\u3059\u308b\u5fc5\u8981\u304c\u3042\u308b\u3053\u3068\u306b\u6ce8\u610f\u3057\u3066\u304f\u3060\u3055\u3044\u3002\u3053\u308c\u306f\u3001 install.packages() \u95a2\u6570\u3068 library() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u5b9f\u73fe\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306e\u30c7\u30fc\u30bf\u8aad\u307f\u8fbc\u307f\u306b\u3064\u3044\u3066\u8a73\u3057\u304f\u6559\u3048\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
R \u8a00\u8a9e\u3067\u306f\u3001\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30c7\u30fc\u30bf\u306e\u8aad\u307f\u53d6\u308a\u306f\u3001\u95a2\u9023\u3059\u308b\u62e1\u5f35\u30d1\u30c3\u30b1\u30fc\u30b8\u3068\u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u5b9f\u88c5\u3067\u304d\u308b\u4e00\u822c\u7684\u306a\u30c7\u30fc\u30bf\u51e6\u7406\u30bf\u30b9\u30af\u3067\u3059\u3002\u4ee5\u4e0b\u306f\u3001\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30c7\u30fc\u30bf\u306e\u8aad\u307f\u53d6\u308a\u306e\u8a73\u7d30\u306a\u8aac\u660e\u3067\u3059\u3002<\/p>\n\n\n\n
1. \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306b\u63a5\u7d9a\u3059\u308b<\/p>\n\n\n\n
\u307e\u305a\u3001\u8aad\u307f\u8fbc\u3080\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306b\u63a5\u7d9a\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002\u3053\u308c\u306f\u3001\u95a2\u9023\u3059\u308b\u62e1\u5f35\u30d1\u30c3\u30b1\u30fc\u30b8\u3068\u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u5b9f\u73fe\u3067\u304d\u307e\u3059\u3002\u5177\u4f53\u7684\u306b\u306f\u3001\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u63a5\u7d9a\u3092\u78ba\u7acb\u3059\u308b\u305f\u3081\u306b\u3001\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306e\u7a2e\u985e\u3001\u5834\u6240\u3001\u30e6\u30fc\u30b6\u30fc\u540d\u3001\u30d1\u30b9\u30ef\u30fc\u30c9\u3001\u304a\u3088\u3073\u305d\u306e\u4ed6\u306e\u60c5\u5831\u3092\u6307\u5b9a\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002\u4ee5\u4e0b\u306f\u3001SQLite \u3068 MySQL \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u3092\u63a5\u7d9a\u3059\u308b\u4f8b\u3067\u3059\u3002<\/p>\n\n\n\n
scss\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308b# \u8fde\u63a5SQLite\u6570\u636e\u5e93\u7684\u793a\u4f8b\nlibrary(DBI)\nlibrary(RSQLite)\ncon <- dbConnect(RSQLite::SQLite(), dbname=\"my_db.sqlite\")\n\n# \u8fde\u63a5MySQL\u6570\u636e\u5e93\u7684\u793a\u4f8b\nlibrary(RMySQL)\ncon <- dbConnect(MySQL(), user=\"my_user\", password=\"my_password\",\n dbname=\"my_db\", host=\"my_host\", port=3306)\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001RSQLite \u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u4f7f\u7528\u3057\u3066\u300cmy_db.sqlite\u300d\u3068\u3044\u3046\u540d\u524d\u306e SQLite \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306b\u63a5\u7d9a\u3057\u3001RMySQL \u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u4f7f\u7528\u3057\u3066\u300cmy_db\u300d\u3068\u3044\u3046\u540d\u524d\u306e MySQL \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306b\u63a5\u7d9a\u3057\u307e\u3059\u3002\u3053\u308c\u306f dbConnect() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u5b9f\u88c5\u3067\u304d\u307e\u3059\u3002 .<\/p>\n\n\n\n
\u6b21\u306b\u3001\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30c7\u30fc\u30bf\u3092\u8aad\u307f\u53d6\u308a\u307e\u3059<\/p>\n\n\n\n
\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306b\u63a5\u7d9a\u3057\u305f\u5f8c\u3001\u95a2\u9023\u3059\u308b\u6a5f\u80fd\u3068\u64cd\u4f5c\u3092\u4f7f\u7528\u3057\u3066\u3001\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u5185\u306e\u30c7\u30fc\u30bf\u3092\u8aad\u307f\u53d6\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002\u5177\u4f53\u7684\u306b\u306f\u3001\u8aad\u307f\u8fbc\u3093\u3060\u30c7\u30fc\u30bf\u306e\u30c6\u30fc\u30d6\u30eb\u540d\u3001\u30d5\u30a3\u30fc\u30eb\u30c9\u540d\u3001\u6761\u4ef6\u3001\u4e26\u3079\u66ff\u3048\u306a\u3069\u306e\u60c5\u5831\u3092\u6307\u5b9a\u3057\u3001dbGetQuery()\u95a2\u6570\u307e\u305f\u306fdbSendQuery()\u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u30af\u30a8\u30ea\u6587\u3092\u5b9f\u884c\u3057\u3001\u30af\u30a8\u30ea\u7d50\u679c\u3092\u30c7\u30fc\u30bf\u306b\u683c\u7d0d\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u30d5\u30ec\u30fc\u30e0\u3002\u4ee5\u4e0b\u306f\u3001SQLite \u304a\u3088\u3073 MySQL \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u3067\u30c7\u30fc\u30bf\u3092\u8aad\u307f\u53d6\u308b\u4f8b\u3067\u3059\u3002<\/p>\n\n\n\n
scss\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308b# \u8bfb\u53d6SQLite\u6570\u636e\u5e93\u4e2d\u6570\u636e\u7684\u793a\u4f8b\nmy_query <- \"SELECT * FROM my_table WHERE age > 18 ORDER BY id\"\nmy_data <- dbGetQuery(con, my_query)\n\n# \u8bfb\u53d6MySQL\u6570\u636e\u5e93\u4e2d\u6570\u636e\u7684\u793a\u4f8b\nmy_query <- \"SELECT * FROM my_table WHERE age > 18 ORDER BY id\"\nmy_result <- dbSendQuery(con, my_query)\nmy_data <- fetch(my_result, n=-1)\ndbClearResult(my_result)\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001dbGetQuery() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u3001SQLite \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u304b\u3089 “my_table” \u3068\u3044\u3046\u540d\u524d\u306e\u30c6\u30fc\u30d6\u30eb\u3067 18 \u6b73\u4ee5\u4e0a\u306e\u30ec\u30b3\u30fc\u30c9\u3092\u8aad\u307f\u53d6\u308a\u3001ID \u3067\u4e26\u3079\u66ff\u3048\u3001dbSendQuery() \u304a\u3088\u3073 fetch() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u307e\u3059\u3002 MySQL \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u304b\u3089\u30ec\u30b3\u30fc\u30c9\u3092\u8aad\u307f\u53d6\u308b\u306b\u306f\u3001\u300cmy_table\u300d\u3068\u3044\u3046\u540d\u524d\u306e\u30c6\u30fc\u30d6\u30eb\u3067 18 \u6b73\u4ee5\u4e0a\u306e\u30ec\u30b3\u30fc\u30c9\u3092\u53d6\u5f97\u3057\u3001ID \u3067\u4e26\u3079\u66ff\u3048\u3001\u6700\u5f8c\u306b dbClearResult() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u30af\u30a8\u30ea\u7d50\u679c\u3092\u30af\u30ea\u30a2\u3057\u307e\u3059\u3002\u30af\u30a8\u30ea\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u4f7f\u7528\u3059\u308b\u5834\u5408\u306f\u3001SQL \u69cb\u6587\u3068\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u56fa\u6709\u306e\u69cb\u6587\u3092\u4f7f\u7528\u3059\u308b\u5fc5\u8981\u304c\u3042\u308b\u3053\u3068\u306b\u6ce8\u610f\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n\n\n\n
3. \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u63a5\u7d9a\u3092\u9589\u3058\u308b<\/p>\n\n\n\n
\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30c7\u30fc\u30bf\u3092\u8aad\u307f\u53d6\u3063\u305f\u5f8c\u3001dbDisconnect() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u63a5\u7d9a\u3092\u9589\u3058\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002\u4ee5\u4e0b\u306f\u3001SQLite \u304a\u3088\u3073 MySQL \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u63a5\u7d9a\u3092\u9589\u3058\u308b\u4f8b\u3067\u3059\u3002<\/p>\n\n\n\n
scss\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308b# \u5173\u95edSQLite\u6570\u636e\u5e93\u8fde\u63a5\u7684\u793a\u4f8b\ndbDisconnect(con)\n\n# \u5173\u95edMySQL\u6570\u636e\u5e93\u8fde\u63a5\u7684\u793a\u4f8b\ndbDisconnect(con)\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001dbDisconnect() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066 SQLite \u3068 MySQL \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u9593\u306e\u63a5\u7d9a\u3092\u9589\u3058\u308b\u3068\u3001\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30ea\u30bd\u30fc\u30b9\u304c\u89e3\u653e\u3055\u308c\u3001\u30c7\u30fc\u30bf \u30bb\u30ad\u30e5\u30ea\u30c6\u30a3\u304c\u78ba\u4fdd\u3055\u308c\u307e\u3059\u3002<\/p>\n\n\n\n\u7d9a\u3051\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
\u7b2c 4 \u306b\u3001ORM \u30d5\u30ec\u30fc\u30e0\u30ef\u30fc\u30af\u3092\u4f7f\u7528\u3057\u3066\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30c7\u30fc\u30bf\u3092\u8aad\u307f\u53d6\u308a\u307e\u3059<\/p>\n\n\n\n
\u30cd\u30a4\u30c6\u30a3\u30d6 SQL \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u4f7f\u7528\u3057\u3066\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30c7\u30fc\u30bf\u3092\u8aad\u307f\u53d6\u308b\u3060\u3051\u3067\u306a\u304f\u3001ORM (\u30aa\u30d6\u30b8\u30a7\u30af\u30c8 \u30ea\u30ec\u30fc\u30b7\u30e7\u30ca\u30eb \u30de\u30c3\u30d4\u30f3\u30b0) \u30d5\u30ec\u30fc\u30e0\u30ef\u30fc\u30af\u3092\u4f7f\u7528\u3057\u3066\u30c7\u30fc\u30bf \u30a2\u30af\u30bb\u30b9\u3068\u64cd\u4f5c\u3092\u5b9f\u88c5\u3057\u3001\u30b3\u30fc\u30c9\u306e\u5358\u7d14\u3055\u3068\u8aad\u307f\u3084\u3059\u3055\u3092\u5411\u4e0a\u3055\u305b\u308b\u3053\u3068\u3082\u3067\u304d\u307e\u3059\u3002R \u8a00\u8a9e\u3067\u4e00\u822c\u7684\u306b\u4f7f\u7528\u3055\u308c\u308b ORM \u30d5\u30ec\u30fc\u30e0\u30ef\u30fc\u30af\u306b\u306f\u3001RODBC\u3001RMySQL\u3001RSQLite\u3001dbplyr \u306a\u3069\u304c\u3042\u308a\u307e\u3059\u3002\u4ee5\u4e0b\u306f\u3001RODBC \u30d5\u30ec\u30fc\u30e0\u30ef\u30fc\u30af\u3092\u4f7f\u7528\u3057\u3066\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30c7\u30fc\u30bf\u3092\u8aad\u307f\u53d6\u308b\u4f8b\u3067\u3059\u3002<\/p>\n\n\n\n
scss\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308b# \u4f7f\u7528RODBC\u6846\u67b6\u8bfb\u53d6\u6570\u636e\u5e93\u6570\u636e\u7684\u793a\u4f8b\nlibrary(RODBC)\ncon <- odbcConnect(\"my_dsn\")\nmy_data <- sqlQuery(con, \"SELECT * FROM my_table WHERE age > 18\")\nodbcClose(con)\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001RODBC \u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u4f7f\u7528\u3057\u3066\u300cmy_dsn\u300d\u3068\u3044\u3046\u540d\u524d\u306e ODBC \u30c7\u30fc\u30bf \u30bd\u30fc\u30b9\u306b\u63a5\u7d9a\u3057\u3001sqlQuery() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u300cmy_table\u300d\u3068\u3044\u3046\u540d\u524d\u306e\u30c6\u30fc\u30d6\u30eb\u304b\u3089 18 \u6b73\u4ee5\u4e0a\u306e\u30ec\u30b3\u30fc\u30c9\u3092\u8aad\u307f\u53d6\u308a\u3001\u7d50\u679c\u3092\u30c7\u30fc\u30bf\u30d5\u30ec\u30fc\u30e0\u3002\u6700\u5f8c\u306b\u3001odbcClose() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066 ODBC \u63a5\u7d9a\u3092\u9589\u3058\u307e\u3059\u3002<\/p>\n\n\n\n
5. \u6ce8\u610f\u4e8b\u9805<\/p>\n\n\n\n
\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306e\u30c7\u30fc\u30bf\u3092\u8aad\u307f\u53d6\u308b\u3068\u304d\u306f\u3001\u6b21\u306e\u70b9\u306b\u6ce8\u610f\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n\n\n\n
\n\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u63a5\u7d9a\u306f\u3001\u30c7\u30fc\u30bf\u306e\u8aad\u307f\u53d6\u308a\u3068\u64cd\u4f5c\u306e\u524d\u306b\u78ba\u7acb\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u3001\u30c7\u30fc\u30bf\u306e\u8aad\u307f\u53d6\u308a\u3068\u64cd\u4f5c\u306e\u5f8c\u306b\u9589\u3058\u3066\u3001\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30ea\u30bd\u30fc\u30b9\u3092\u89e3\u653e\u3057\u3001\u30c7\u30fc\u30bf\u306e\u30bb\u30ad\u30e5\u30ea\u30c6\u30a3\u3092\u78ba\u4fdd\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/li>\n\n\n\n \u30cd\u30a4\u30c6\u30a3\u30d6 SQL \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u4f7f\u7528\u3057\u3066\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30c7\u30fc\u30bf\u3092\u8aad\u307f\u53d6\u308b\u5834\u5408\u3001SQL \u69cb\u6587\u3068\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u56fa\u6709\u306e\u69cb\u6587\u3092\u4f7f\u7528\u3057\u3001\u30c7\u30fc\u30bf\u306e\u7a2e\u985e\u3068\u5f62\u5f0f\u306b\u6ce8\u610f\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/li>\n\n\n\n ORM \u30d5\u30ec\u30fc\u30e0\u30ef\u30fc\u30af\u3092\u4f7f\u7528\u3057\u3066\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30c7\u30fc\u30bf\u3092\u8aad\u307f\u53d6\u308b\u5834\u5408\u3001\u95a2\u9023\u3059\u308b\u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u6700\u521d\u306b\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3057\u3066\u30ed\u30fc\u30c9\u3057\u3001\u95a2\u9023\u3059\u308b\u6a5f\u80fd\u3068\u64cd\u4f5c\u306b\u7cbe\u901a\u3057\u3066\u3044\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/li>\n\n\n\n \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30c7\u30fc\u30bf\u3092\u8aad\u307f\u53d6\u3063\u3066\u64cd\u4f5c\u3059\u308b\u3068\u304d\u306f\u3001\u30c7\u30fc\u30bf \u30a8\u30e9\u30fc\u3084\u30bb\u30ad\u30e5\u30ea\u30c6\u30a3\u306e\u554f\u984c\u3092\u56de\u907f\u3059\u308b\u305f\u3081\u306b\u3001\u30c7\u30fc\u30bf\u306e\u4e00\u8cab\u6027\u3068\u6574\u5408\u6027\u306b\u6ce8\u610f\u3092\u6255\u3046\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/li>\n<\/ol>\n\n\n\n\u7d9a\u3051\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
6. \u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u306e\u6700\u9069\u5316<\/p>\n\n\n\n
\u5927\u898f\u6a21\u306a\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30c7\u30fc\u30bf\u3092\u8aad\u307f\u53d6\u308b\u5834\u5408\u306f\u3001\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u306e\u6700\u9069\u5316\u306b\u6ce8\u610f\u3057\u3066\u3001\u30c7\u30fc\u30bf\u51e6\u7406\u306e\u52b9\u7387\u3092\u6539\u5584\u3057\u3001\u30ea\u30bd\u30fc\u30b9\u6d88\u8cbb\u3092\u524a\u6e1b\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u306e\u6700\u9069\u5316\u306b\u95a2\u3059\u308b\u3044\u304f\u3064\u304b\u306e\u63d0\u6848\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
\n\u8fd4\u3055\u308c\u308b\u30c7\u30fc\u30bf\u306e\u91cf\u3092\u5236\u9650\u3059\u308b: \u30af\u30a8\u30ea\u3092\u5b9f\u884c\u3059\u308b\u3068\u304d\u306b\u3001LIMIT \u3084 TOP \u306a\u3069\u306e\u69cb\u6587\u3092\u4f7f\u7528\u3057\u3066\u8fd4\u3055\u308c\u308b\u30c7\u30fc\u30bf\u306e\u91cf\u3092\u5236\u9650\u3057\u3001\u8fd4\u3055\u308c\u308b\u30c7\u30fc\u30bf\u304c\u591a\u3059\u304e\u306a\u3044\u3088\u3046\u306b\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/li>\n\n\n\n \u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u306e\u4f7f\u7528: \u30af\u30a8\u30ea\u3092\u5b9f\u884c\u3059\u308b\u3068\u304d\u306b\u3001\u30a4\u30f3\u30c7\u30c3\u30af\u30b9 \u30aa\u30d7\u30c6\u30a3\u30de\u30a4\u30b6\u30fc\u3092\u4f7f\u7528\u3057\u3066\u3001\u30af\u30a8\u30ea\u306e\u901f\u5ea6\u3068\u52b9\u7387\u3092\u5411\u4e0a\u3055\u305b\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u3092\u8a2d\u8a08\u3059\u308b\u3068\u304d\u306b\u3001\u9069\u5207\u306a\u30a4\u30f3\u30c7\u30c3\u30af\u30b9\u3068\u30ad\u30fc\u3092\u4f7f\u7528\u3057\u3066\u3001\u30af\u30a8\u30ea\u3068\u64cd\u4f5c\u306e\u52b9\u7387\u3092\u5411\u4e0a\u3055\u305b\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/li>\n\n\n\n \u30af\u30a8\u30ea \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306e\u6700\u9069\u5316: \u30cd\u30a4\u30c6\u30a3\u30d6 SQL \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u4f7f\u7528\u3057\u3066\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30c7\u30fc\u30bf\u3092\u8aad\u307f\u53d6\u308b\u5834\u5408\u3001\u30af\u30a8\u30ea \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u6700\u9069\u5316\u3057\u3066\u3001\u30b5\u30d6\u30af\u30a8\u30ea\u3001\u8907\u6570\u306e JOIN\u3001\u8907\u96d1\u306a WHERE \u6761\u4ef6\u306a\u3069\u306e\u4f7f\u7528\u3092\u907f\u3051\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/li>\n\n\n\n \u30d0\u30c3\u30c1\u51e6\u7406\u3092\u4f7f\u7528\u3059\u308b: \u5927\u91cf\u306e\u30c7\u30fc\u30bf\u3092\u8aad\u307f\u66f8\u304d\u3059\u308b\u5834\u5408\u3001\u30d0\u30c3\u30c1 \u30aa\u30d7\u30c6\u30a3\u30de\u30a4\u30b6\u30fc\u3092\u4f7f\u7528\u3057\u3066\u3001\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u306e\u5f85\u6a5f\u6642\u9593\u3068\u30ea\u30bd\u30fc\u30b9\u306e\u6d88\u8cbb\u3092\u524a\u6e1b\u3067\u304d\u307e\u3059\u3002<\/li>\n\n\n\n \u30ad\u30e3\u30c3\u30b7\u30e5\u3092\u4f7f\u7528\u3059\u308b: \u30c7\u30fc\u30bf\u306e\u8aad\u307f\u53d6\u308a\u3068\u66f8\u304d\u8fbc\u307f\u3092\u884c\u3046\u5834\u5408\u3001\u30ad\u30e3\u30c3\u30b7\u30e5 \u30aa\u30d7\u30c6\u30a3\u30de\u30a4\u30b6\u30fc\u3092\u4f7f\u7528\u3057\u3066\u3001\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306e I\/O \u64cd\u4f5c\u3068\u30cd\u30c3\u30c8\u30ef\u30fc\u30af \u30c8\u30e9\u30d5\u30a3\u30c3\u30af\u3092\u524a\u6e1b\u3067\u304d\u307e\u3059\u3002<\/li>\n\n\n\n \u5206\u6563\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u3092\u4f7f\u7528\u3059\u308b: \u5927\u898f\u6a21\u306a\u30c7\u30fc\u30bf\u3092\u51e6\u7406\u3059\u308b\u5834\u5408\u3001\u5206\u6563\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u3092\u4f7f\u7528\u3057\u3066\u30c7\u30fc\u30bf\u3092\u8907\u6570\u306e\u30ce\u30fc\u30c9\u306b\u5206\u6563\u3057\u3001\u30c7\u30fc\u30bf\u51e6\u7406\u306e\u4e26\u5217\u51e6\u7406\u3068\u52b9\u7387\u3092\u5411\u4e0a\u3055\u305b\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/li>\n\n\n\n \u30c7\u30fc\u30bf\u306e\u6574\u5408\u6027\u3068\u4e00\u8cab\u6027\u3092\u78ba\u4fdd\u3059\u308b: \u30c7\u30fc\u30bf\u306e\u8aad\u307f\u53d6\u308a\u3068\u66f8\u304d\u8fbc\u307f\u3092\u884c\u3046\u3068\u304d\u306f\u3001\u30c7\u30fc\u30bf\u306e\u6574\u5408\u6027\u3068\u4e00\u8cab\u6027\u306b\u6ce8\u610f\u3057\u3066\u3001\u30c7\u30fc\u30bf \u30a8\u30e9\u30fc\u3084\u30bb\u30ad\u30e5\u30ea\u30c6\u30a3\u306e\u554f\u984c\u3092\u56de\u907f\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002\u30c8\u30e9\u30f3\u30b6\u30af\u30b7\u30e7\u30f3\u3084\u30ed\u30c3\u30af\u306a\u3069\u306e\u30e1\u30ab\u30cb\u30ba\u30e0\u3092\u4f7f\u7528\u3057\u3066\u3001\u30c7\u30fc\u30bf\u306e\u6b63\u78ba\u6027\u3068\u30bb\u30ad\u30e5\u30ea\u30c6\u30a3\u3092\u78ba\u4fdd\u3067\u304d\u307e\u3059\u3002<\/li>\n<\/ol>\n\n\n\n\u4e00\u822c\u306b\u3001\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30c7\u30fc\u30bf\u3092\u8aad\u307f\u53d6\u308b\u3068\u304d\u306f\u3001\u30c7\u30fc\u30bf \u30a8\u30e9\u30fc\u3084\u30ea\u30bd\u30fc\u30b9\u306e\u6d6a\u8cbb\u3092\u907f\u3051\u308b\u305f\u3081\u306b\u3001\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u306e\u6700\u9069\u5316\u3084\u30c7\u30fc\u30bf \u30bb\u30ad\u30e5\u30ea\u30c6\u30a3\u306a\u3069\u306e\u554f\u984c\u306b\u6ce8\u610f\u3092\u6255\u3046\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002\u95a2\u9023\u3059\u308b\u30c4\u30fc\u30eb\u3068\u6280\u8853\u3092\u4f7f\u7528\u3057\u3066\u3001\u30c7\u30fc\u30bf\u51e6\u7406\u306e\u52b9\u7387\u3068\u7cbe\u5ea6\u3092\u5411\u4e0a\u3055\u305b\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\nCSV\u3084\u30a8\u30af\u30bb\u30eb\u306a\u3069\u3078\u306e\u30c7\u30fc\u30bf\u51fa\u529b\u306b\u3064\u3044\u3066\u8a73\u3057\u304f\u6559\u3048\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n\n\n\n
R \u8a00\u8a9e\u3067\u306f\u3001\u30c7\u30fc\u30bf\u3092 CSV \u3084 Excel \u306a\u3069\u306e\u30d5\u30a1\u30a4\u30eb\u306b\u30a8\u30af\u30b9\u30dd\u30fc\u30c8\u3059\u308b\u3053\u3068\u3082\u4e00\u822c\u7684\u306a\u30c7\u30fc\u30bf\u51e6\u7406\u30bf\u30b9\u30af\u3067\u3042\u308a\u3001\u95a2\u9023\u3059\u308b\u95a2\u6570\u3084\u62e1\u5f35\u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u4f7f\u7528\u3057\u3066\u5b9f\u88c5\u3067\u304d\u307e\u3059\u3002\u3053\u3053\u3067\u306f\u3001CSV\u3001Excel \u306a\u3069\u3078\u306e\u30c7\u30fc\u30bf\u306e\u30a8\u30af\u30b9\u30dd\u30fc\u30c8\u306b\u3064\u3044\u3066\u8a73\u3057\u304f\u8aac\u660e\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
1.CSV\u30d5\u30a1\u30a4\u30eb\u306e\u30a8\u30af\u30b9\u30dd\u30fc\u30c8<\/p>\n\n\n\n
CSV (Comma Separated Values) \u30d5\u30a1\u30a4\u30eb\u306f\u3001\u8868\u5f62\u5f0f\u306e\u30c7\u30fc\u30bf\u3092\u4fdd\u5b58\u304a\u3088\u3073\u4ea4\u63db\u3059\u308b\u305f\u3081\u306b\u4f7f\u7528\u3055\u308c\u308b\u30c6\u30ad\u30b9\u30c8 \u30d5\u30a1\u30a4\u30eb\u5f62\u5f0f\u3067\u3001\u5404\u884c\u306f\u30ec\u30b3\u30fc\u30c9\u3092\u8868\u3057\u3001\u5404\u30d5\u30a3\u30fc\u30eb\u30c9\u306f\u30b3\u30f3\u30de\u3067\u533a\u5207\u3089\u308c\u3066\u3044\u307e\u3059\u3002R \u8a00\u8a9e\u3067\u306f\u3001write.csv() \u95a2\u6570\u3084 write.table() \u95a2\u6570\u306a\u3069\u3001\u95a2\u9023\u3059\u308b\u95a2\u6570\u3068\u62e1\u5f35\u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u4f7f\u7528\u3057\u3066\u30c7\u30fc\u30bf\u3092 CSV \u30d5\u30a1\u30a4\u30eb\u306b\u30a8\u30af\u30b9\u30dd\u30fc\u30c8\u3067\u304d\u307e\u3059\u3002\u30c7\u30fc\u30bf\u3092 CSV \u30d5\u30a1\u30a4\u30eb\u306b\u30a8\u30af\u30b9\u30dd\u30fc\u30c8\u3059\u308b\u4f8b\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
less\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc# \u5c06\u6570\u636e\u5bfc\u51fa\u5230CSV\u6587\u4ef6\u7684\u793a\u4f8b\nmy_data <- data.frame(name=c(\"Alice\", \"Bob\", \"Cathy\"),\n age=c(25, 30, 35),\n gender=c(\"F\", \"M\", \"F\"))\nwrite.csv(my_data, \"my_file.csv\", row.names=FALSE)\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001\u300cmy_data\u300d\u3068\u3044\u3046\u540d\u524d\u306e\u30c7\u30fc\u30bf \u30d5\u30ec\u30fc\u30e0\u304c\u3001write.csv() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066 CSV \u30d5\u30a1\u30a4\u30eb\u300cmy_file.csv\u300d\u306b\u30a8\u30af\u30b9\u30dd\u30fc\u30c8\u3055\u308c\u307e\u3059\u3002\u30d1\u30e9\u30e1\u30fc\u30bf row.names \u306f\u3001\u884c\u540d\u3092\u542b\u3081\u308b\u304b\u3069\u3046\u304b\u3092\u793a\u3057\u307e\u3059\u3002\u30c7\u30d5\u30a9\u30eb\u30c8\u306f TRUE \u3067\u3059\u3002\u95a2\u9023\u3059\u308b\u6a5f\u80fd\u3068\u64cd\u4f5c\u304c\u51e6\u7406\u3055\u308c\u307e\u3059\u3002<\/p>\n\n\n\n
2.Excel\u30d5\u30a1\u30a4\u30eb\u3092\u30a8\u30af\u30b9\u30dd\u30fc\u30c8<\/p>\n\n\n\n
Excel \u30d5\u30a1\u30a4\u30eb\u306f\u3001\u8907\u6570\u306e\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u3084\u30bb\u30eb\u306e\u66f8\u5f0f\u8a2d\u5b9a\u306a\u3069\u3092\u542b\u3080\u3001\u8868\u5f62\u5f0f\u306e\u30c7\u30fc\u30bf\u3092\u4fdd\u5b58\u304a\u3088\u3073\u64cd\u4f5c\u3059\u308b\u305f\u3081\u306b\u4f7f\u7528\u3055\u308c\u308b\u30b9\u30d7\u30ec\u30c3\u30c9\u30b7\u30fc\u30c8 \u30d5\u30a1\u30a4\u30eb\u5f62\u5f0f\u3067\u3059\u3002R \u8a00\u8a9e\u3067\u306f\u3001\u30c7\u30fc\u30bf\u3092 Excel \u30d5\u30a1\u30a4\u30eb\u306b\u30a8\u30af\u30b9\u30dd\u30fc\u30c8\u3059\u308b\u306b\u306f\u3001\u95a2\u9023\u3059\u308b\u62e1\u5f35\u30d1\u30c3\u30b1\u30fc\u30b8 (writexl \u30d1\u30c3\u30b1\u30fc\u30b8\u3084 openxlsx \u30d1\u30c3\u30b1\u30fc\u30b8\u306a\u3069) \u3092\u4f7f\u7528\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002\u30c7\u30fc\u30bf\u3092 Excel \u30d5\u30a1\u30a4\u30eb\u306b\u30a8\u30af\u30b9\u30dd\u30fc\u30c8\u3059\u308b\u4f8b\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
less\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc# \u5c06\u6570\u636e\u5bfc\u51fa\u5230Excel\u6587\u4ef6\u7684\u793a\u4f8b\n# \u4f7f\u7528writexl\u5305\nlibrary(writexl)\nmy_data <- data.frame(name=c(\"Alice\", \"Bob\", \"Cathy\"),\n age=c(25, 30, 35),\n gender=c(\"F\", \"M\", \"F\"))\nwrite_xlsx(my_data, \"my_file.xlsx\")\n\n# \u4f7f\u7528openxlsx\u5305\nlibrary(openxlsx)\nmy_data <- data.frame(name=c(\"Alice\", \"Bob\", \"Cathy\"),\n age=c(25, 30, 35),\n gender=c(\"F\", \"M\", \"F\"))\nwrite.xlsx(my_data, \"my_file.xlsx\", row.names=FALSE)\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001\u300cmy_data\u300d\u3068\u3044\u3046\u540d\u524d\u306e\u30c7\u30fc\u30bf \u30d5\u30ec\u30fc\u30e0\u304c Excel \u30d5\u30a1\u30a4\u30eb\u300cmy_file.xlsx\u300d\u306b\u30a8\u30af\u30b9\u30dd\u30fc\u30c8\u3055\u308c\u3001writexl \u30d1\u30c3\u30b1\u30fc\u30b8\u307e\u305f\u306f openxlsx \u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u4f7f\u7528\u3057\u3066\u3001\u95a2\u9023\u3059\u308b\u95a2\u6570\u3068\u64cd\u4f5c\u3092\u4f7f\u7528\u3057\u3066\u51e6\u7406\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n
3. \u4ed6\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u30a8\u30af\u30b9\u30dd\u30fc\u30c8\u3059\u308b<\/p>\n\n\n\n
R \u8a00\u8a9e\u306f\u3001CSV \u304a\u3088\u3073 Excel \u30d5\u30a1\u30a4\u30eb\u306b\u52a0\u3048\u3066\u3001JSON \u30d5\u30a1\u30a4\u30eb\u3001XML \u30d5\u30a1\u30a4\u30eb\u3001SQL \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306a\u3069\u3001\u4ed6\u306e\u5f62\u5f0f\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u30a8\u30af\u30b9\u30dd\u30fc\u30c8\u3082\u30b5\u30dd\u30fc\u30c8\u3057\u3066\u3044\u307e\u3059\u3002\u3053\u308c\u3089\u306e\u30d5\u30a1\u30a4\u30eb\u5f62\u5f0f\u306e\u5834\u5408\u3001\u95a2\u9023\u3059\u308b\u62e1\u5f35\u30d1\u30c3\u30b1\u30fc\u30b8\u3068\u95a2\u6570\u3092\u30a8\u30af\u30b9\u30dd\u30fc\u30c8\u306b\u4f7f\u7528\u3067\u304d\u307e\u3059\u3002\u4ee5\u4e0b\u306f\u3001JSON \u30d5\u30a1\u30a4\u30eb\u3068 SQL \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306e\u30a8\u30af\u30b9\u30dd\u30fc\u30c8\u306e\u4f8b\u3067\u3059\u3002<\/p>\n\n\n\n
scss\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308b# \u5bfc\u51faJSON\u6587\u4ef6\u7684\u793a\u4f8b\nlibrary(jsonlite)\nmy_data <- data.frame(name=c(\"Alice\", \"Bob\", \"Cathy\"),\n age=c(25, 30, 35),\n gender=c(\"F\", \"M\", \"F\"))\nwrite_json(my_data, \"my_file.json\")\n\n# \u5bfc\u51faSQL\u6570\u636e\u5e93\u7684\u793a\u4f8b\nlibrary(DBI)\nlibrary(RSQLite)\ncon <- dbConnect(RSQLite::SQLite(), dbname=\"my_db.sqlite\")\nmy_data <- data.frame(name=c(\"\n<\/code><\/pre>\n\n\n\n\u7d9a\u3051\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
\u30c6\u30fc\u30d6\u30eb\u3092\u4f5c\u6210\u3059\u308bSQL\u6587<\/h1>\n\n\n\n dbSendQuery(con, \u201cCREATE TABLE my_table (\u540d\u524d VARCHAR(20), \u5e74\u9f62 INT, \u6027\u5225 VARCHAR(1))\u201d) dbWriteTable(con, \u201cmy_table\u201d, my_data, row.names=FALSE) dbDisconnect(con)<\/p>\n\n\n\n
javascript\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\n\u5728\u4ee5\u4e0a\u793a\u4f8b\u4e2d\uff0c\u5c06\u540d\u4e3a\"my_data\"\u7684\u6570\u636e\u6846\u5bfc\u51fa\u5230JSON\u6587\u4ef6\"my_file.json\"\u4e2d\uff0c\u4f7f\u7528jsonlite\u5305\uff0c\u4e5f\u5c55\u793a\u4e86\u5c06\u6570\u636e\u5199\u5165SQLite\u6570\u636e\u5e93\u7684\u793a\u4f8b\uff0c\u4f7f\u7528RSQLite\u5305\uff0c\u53ef\u4ee5\u4f7f\u7528\u76f8\u5173\u7684\u51fd\u6570\u548c\u64cd\u4f5c\u8fdb\u884c\u5904\u7406\u3002\n\n\u603b\u7684\u6765\u8bf4\uff0c\u5728R\u8bed\u8a00\u4e2d\uff0c\u5c06\u6570\u636e\u5bfc\u51fa\u5230CSV\u3001Excel\u7b49\u6587\u4ef6\u662f\u4e00\u79cd\u5e38\u89c1\u7684\u6570\u636e\u5904\u7406\u4efb\u52a1\uff0c\u53ef\u4ee5\u4f7f\u7528\u76f8\u5173\u7684\u51fd\u6570\u548c\u6269\u5c55\u5305\u5b9e\u73b0\u3002\u9700\u8981\u6ce8\u610f\u7684\u662f\uff0c\u5728\u5bfc\u51fa\u6570\u636e\u65f6\u9700\u8981\u6ce8\u610f\u6570\u636e\u7684\u683c\u5f0f\u548c\u7c7b\u578b\u7b49\uff0c\u907f\u514d\u6570\u636e\u9519\u8bef\u548c\u5b89\u5168\u95ee\u9898\u3002\u540c\u65f6\uff0c\u4e5f\u9700\u8981\u6ce8\u610f\u6027\u80fd\u548c\u53ef\u8bfb\u6027\u7b49\u95ee\u9898\uff0c\u4ee5\u63d0\u9ad8\u6570\u636e\u5904\u7406\u7684\u6548\u7387\u548c\u51c6\u786e\u6027\u3002\n<\/code><\/pre>\n\n\n\n\u30c7\u30fc\u30bf\u306e\u30af\u30ea\u30fc\u30cb\u30f3\u30b0\u3068\u51e6\u7406\u306b\u3064\u3044\u3066\u8a73\u3057\u304f\u8aac\u660e\u3057\u3066\u304f\u3060\u3055\u3044<\/p>\n\n\n\n
\u30c7\u30fc\u30bf\u306e\u30af\u30ea\u30fc\u30cb\u30f3\u30b0\u3068\u51e6\u7406\u306f\u3001\u30c7\u30fc\u30bf \u30b5\u30a4\u30a8\u30f3\u30b9\u3068\u5206\u6790\u306e\u91cd\u8981\u306a\u90e8\u5206\u3067\u3059. \u3053\u308c\u306b\u306f\u3001\u751f\u30c7\u30fc\u30bf\u306e\u51e6\u7406\u3001\u30b9\u30af\u30ea\u30fc\u30cb\u30f3\u30b0\u3001\u30af\u30ea\u30fc\u30cb\u30f3\u30b0\u3001\u5909\u63db\u3001\u30de\u30fc\u30b8\u304c\u542b\u307e\u308c\u3001\u5206\u6790\u3068\u30e2\u30c7\u30ea\u30f3\u30b0\u7528\u306e\u9ad8\u54c1\u8cea\u30c7\u30fc\u30bf\u3092\u53d6\u5f97\u3057\u307e\u3059. R \u8a00\u8a9e\u3067\u306f\u3001\u95a2\u9023\u3059\u308b\u95a2\u6570\u3068\u62e1\u5f35\u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u4f7f\u7528\u3057\u3066\u3001\u30c7\u30fc\u30bf\u306e\u30af\u30ea\u30fc\u30cb\u30f3\u30b0\u3068\u51e6\u7406\u3092\u5b9f\u88c5\u3067\u304d\u307e\u3059. \u4ee5\u4e0b\u306b\u3001\u30c7\u30fc\u30bf\u306e\u30af\u30ea\u30fc\u30cb\u30f3\u30b0\u3068\u51e6\u7406\u306e\u8a73\u7d30\u306a\u8aac\u660e\u3092\u793a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
1. \u30c7\u30fc\u30bf\u306e\u524d\u51e6\u7406<\/p>\n\n\n\n
\u30c7\u30fc\u30bf\u306e\u524d\u51e6\u7406\u306f\u3001\u30c7\u30fc\u30bf\u306e\u30af\u30ea\u30fc\u30cb\u30f3\u30b0\u3068\u51e6\u7406\u306e\u6700\u521d\u306e\u30b9\u30c6\u30c3\u30d7\u3067\u3042\u308a\u3001\u30c7\u30fc\u30bf\u54c1\u8cea\u5206\u6790\u3001\u6b20\u640d\u5024\u51e6\u7406\u3001\u91cd\u8907\u5024\u51e6\u7406\u3001\u7570\u5e38\u5024\u51e6\u7406\u3001\u30c7\u30fc\u30bf\u578b\u5909\u63db\u306a\u3069\u306e\u64cd\u4f5c\u304c\u542b\u307e\u308c\u307e\u3059\u3002R\u8a00\u8a9e\u3067\u306f\u3001na.omit()\u95a2\u6570\u3001dplyr\u30d1\u30c3\u30b1\u30fc\u30b8\u3001tidyr\u30d1\u30c3\u30b1\u30fc\u30b8\u306a\u3069\u3001\u95a2\u9023\u3059\u308b\u95a2\u6570\u3084\u62e1\u5f35\u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u4f7f\u7528\u3057\u3066\u30c7\u30fc\u30bf\u306e\u524d\u51e6\u7406\u3092\u5b9f\u73fe\u3067\u304d\u307e\u3059\u3002\u4ee5\u4e0b\u306f\u3001\u30c7\u30fc\u30bf\u306e\u524d\u51e6\u7406\u306e\u4f8b\u3067\u3059\u3002<\/p>\n\n\n\n
r\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9# \u6570\u636e\u9884\u5904\u7406\u7684\u793a\u4f8b\n# \u52a0\u8f7d\u6570\u636e\nmy_data <- read.csv(\"my_file.csv\")\n\n# \u68c0\u67e5\u7f3a\u5931\u503c\nna_count <- sum(is.na(my_data))\nmy_data <- na.omit(my_data)\n\n# \u53bb\u9664\u91cd\u590d\u503c\nmy_data <- distinct(my_data)\n\n# \u5904\u7406\u5f02\u5e38\u503c\nmy_data <- filter(my_data, age > 0 & age < 100)\n\n# \u8f6c\u6362\u6570\u636e\u7c7b\u578b\nmy_data$age <- as.integer(my_data$age)\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001\u307e\u305a read.csv() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066 CSV \u30d5\u30a1\u30a4\u30eb\u300cmy_file.csv\u300d\u5185\u306e\u30c7\u30fc\u30bf\u3092\u8aad\u307f\u53d6\u308a\u3001\u6b21\u306b is.na() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u6b20\u640d\u5024\u3092\u30c1\u30a7\u30c3\u30af\u3057\u3001\u6b20\u640d\u5024\u3092na.omit() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u51e6\u7406\u3055\u308c\u307e\u3059\u3002\u6b21\u306b\u3001distinct() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u91cd\u8907\u5024\u3092\u524a\u9664\u3057\u3001filter() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u5916\u308c\u5024\u3092\u51e6\u7406\u3057\u3001as.integer() \u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u5e74\u9f62\u3092\u6574\u6570\u578b\u306b\u5909\u63db\u3057\u307e\u3059\u3002\u3053\u308c\u3089\u306e\u64cd\u4f5c\u306b\u3088\u308a\u3001\u5f8c\u7d9a\u306e\u5206\u6790\u3068\u30e2\u30c7\u30ea\u30f3\u30b0\u306e\u305f\u3081\u306b\u9ad8\u54c1\u8cea\u306e\u30c7\u30fc\u30bf\u3092\u53d6\u5f97\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n
2. \u30c7\u30fc\u30bf\u5909\u63db<\/p>\n\n\n\n
\u30c7\u30fc\u30bf\u5909\u63db\u3068\u306f\u3001\u751f\u30c7\u30fc\u30bf\u3092\u5206\u6790\u53ef\u80fd\u3067\u30e2\u30c7\u30eb\u5316\u53ef\u80fd\u306a\u5f62\u5f0f\u306b\u5909\u63db\u3059\u308b\u3053\u3068\u3067\u3059\u3002\u3053\u308c\u306b\u306f\u3001\u30c7\u30fc\u30bf\u578b\u3001\u5f62\u5f0f\u3001\u69cb\u9020\u306e\u5909\u63db\u3001\u30de\u30fc\u30b8\u3001\u5206\u5272\u3001\u518d\u69cb\u7bc9\u306a\u3069\u306e\u64cd\u4f5c\u304c\u542b\u307e\u308c\u307e\u3059\u3002R\u8a00\u8a9e\u3067\u306fmutate()\u95a2\u6570\u3001gather()\u95a2\u6570\u3001spread()\u95a2\u6570\u3001merge()\u95a2\u6570\u306a\u3069\u3001\u95a2\u9023\u3059\u308b\u95a2\u6570\u3084\u62e1\u5f35\u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u5229\u7528\u3057\u3066\u30c7\u30fc\u30bf\u5909\u63db\u3092\u5b9f\u73fe\u3067\u304d\u307e\u3059\u3002\u4ee5\u4e0b\u306f\u3001\u30c7\u30fc\u30bf\u5909\u63db\u306e\u4f8b\u3067\u3059\u3002<\/p>\n\n\n\n
csharp\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc# \u6570\u636e\u8f6c\u6362\u7684\u793a\u4f8b\n# \u52a0\u8f7d\u6570\u636e\nmy_data <- read.csv(\"my_file.csv\")\n\n# \u8f6c\u6362\u6570\u636e\u683c\u5f0f\nlibrary(tidyr)\nmy_data_long <- gather(my_data, key=\"variable\", value=\"value\", -name)\n\n# \u8f6c\u6362\u6570\u636e\u7ed3\u6784\nmy_data_wide <- spread(my_data_long, key=\"variable\", value=\"value\")\n\n# \u5408\u5e76\u6570\u636e\nmy_data1 <- data.frame(name=c(\"Alice\", \"Bob\", \"Cathy\"),\n age=c(25, 30, 35),\n gender=c(\"F\", \"M\", \"F\"))\nmy_data2 <- data.frame(name=c(\"David\", \"Eva\", \"Frank\"),\n age=c(40, 45, 50),\n gender=c(\"M\", \"F\", \"M\"))\nmy_data_merge <- merge(my_data1, my_data2, by=\"gender\")\n<\/code><\/pre>\n\n\n\n\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001\u307e\u305aread.csv()\u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066CSV\u30d5\u30a1\u30a4\u30eb\u300cmy_file.csv\u300d\u306e\u30c7\u30fc\u30bf\u3092\u8aad\u307f\u8fbc\u307f\u3001<\/p>\n\n\n\n
![\"gun](\"https:\/\/chat.openai.com\/_next\/image?url=https%3A%2F%2Flh3.googleusercontent.com%2Fa%2FAGNmyxbwVdnTP0E2eBqDrujRQjV-wFP12Thr4vFgysVv5A%3Ds96-c&w=96&q=75\")