{"id":2888,"date":"2023-07-20T05:42:51","date_gmt":"2023-07-20T05:42:51","guid":{"rendered":"https:\/\/statorials.org\/ko\/r%e1%84%8b%e1%85%b3%e1%86%ab-%e1%84%80%e1%85%b3%e1%84%85%e1%85%ae%e1%86%b8%e1%84%83%e1%85%a1%e1%86%bc-%e1%84%80%e1%85%a9%e1%84%8b%e1%85%b2-%e1%84%80%e1%85%a1%e1%86%b9%e1%84%8b%e1%85%b3%e1%86%af\/"},"modified":"2023-07-20T05:42:51","modified_gmt":"2023-07-20T05:42:51","slug":"r%e1%84%8b%e1%85%b3%e1%86%ab-%e1%84%80%e1%85%b3%e1%84%85%e1%85%ae%e1%86%b8%e1%84%83%e1%85%a1%e1%86%bc-%e1%84%80%e1%85%a9%e1%84%8b%e1%85%b2-%e1%84%80%e1%85%a1%e1%86%b9%e1%84%8b%e1%85%b3%e1%86%af","status":"publish","type":"post","link":"https:\/\/statorials.org\/ko\/r%e1%84%8b%e1%85%b3%e1%86%ab-%e1%84%80%e1%85%b3%e1%84%85%e1%85%ae%e1%86%b8%e1%84%83%e1%85%a1%e1%86%bc-%e1%84%80%e1%85%a9%e1%84%8b%e1%85%b2-%e1%84%80%e1%85%a1%e1%86%b9%e1%84%8b%e1%85%b3%e1%86%af\/","title":{"rendered":"R\uc5d0\uc11c \uadf8\ub8f9\ubcc4\ub85c \uace0\uc720\ud55c \uac12\uc744 \uacc4\uc0b0\ud558\ub294 \ubc29\ubc95(\uc608\uc81c \ud3ec\ud568)"},"content":{"rendered":"

<\/p>\n

\n

\ub2e4\uc74c \ubc29\ubc95\uc744 \uc0ac\uc6a9\ud558\uc5ec R\uc758 \uadf8\ub8f9\ub2f9 \uace0\uc720 \uac12 \uc218\ub97c \uacc4\uc0b0\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n

\ubc29\ubc95 1: \uae30\ubcf8 R \uc0ac\uc6a9<\/strong><\/span><\/p>\n

 results <- aggregate(data=df, values_var~group_var, function<\/span> (x) length<\/span> ( unique<\/span> (x)))\n<\/strong><\/pre>\n
 \ubc29\ubc95 2: dplyr \uc0ac\uc6a9<\/strong><\/span><\/p>\n
 library<\/span> (dplyr)\n\nresults <- df %>%\n  group_by(group_var) %>%\n  summarize(count = n_distinct<\/span> (values_var))\n<\/strong><\/pre>\n
 \ubc29\ubc95 3: data.table \uc0ac\uc6a9<\/strong><\/span><\/p>\n
 library<\/span> (data.table)\n\ndf <- data.table(df)\nresults <- df[, .(count = length<\/span> ( unique<\/span> (values_var))), by = group_var]<\/span><\/strong><\/pre>\n
 \uac01 \ubc29\ubc95\uc740 \uc815\ud655\ud788 \ub3d9\uc77c\ud55c \uacb0\uacfc\ub97c \ubc18\ud658\ud558\uc9c0\ub9cc \uae30\ubcf8 R \ubc29\ubc95\uc740 \ub300\uaddc\ubaa8 \ub370\uc774\ud130 \ud504\ub808\uc784\uc73c\ub85c \uc791\uc5c5\ud560 \ub54c \uc18d\ub3c4\uac00 \uc0c1\ub2f9\ud788 \ub290\ub824\uc9c0\ub294 \uacbd\ud5a5\uc774 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n
 \ub2e4\uc74c \uc608\uc5d0\uc11c\ub294 \ub2e4\uc74c \ub370\uc774\ud130 \ud504\ub808\uc784\uc5d0\uc11c \uc774\ub7ec\ud55c \uac01 \ubc29\ubc95\uc744 \uc2e4\uc81c\ub85c \uc0ac\uc6a9\ud558\ub294 \ubc29\ubc95\uc744 \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/span><\/p>\n
 #create data frame\n<\/span>df <- data. frame<\/span> (team=c('A', 'A', 'A', 'A', 'B', 'B', 'C', 'C', 'C'),\n                 points=c(10, 10, 14, 14, 18, 19, 20, 20, 20))\n\n#view data frame<\/span>\ndf\n\n  team points\n1 to 10\n2 to 10\n3 to 14\n4 to 14\n5 B 18\n6 B 19\n7 C 20\n8 C 20\n9 C 20\n<\/span><\/strong><\/pre>\n
 \ubc29\ubc95 1: Base R\uc744 \uc0ac\uc6a9\ud558\uc5ec \uadf8\ub8f9\ubcc4 \uace0\uc720 \uac12 \uacc4\uc0b0<\/strong><\/span><\/h3>\n
 \ub2e4\uc74c \ucf54\ub4dc\ub294 \uae30\ubcf8 R\uc744 \uc0ac\uc6a9\ud558\uc5ec \uac01 \ud300\uc758 \uace0\uc720 \uc810\uc218 \uac12 \uc218\ub97c \uacc4\uc0b0\ud558\ub294 \ubc29\ubc95\uc744 \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/span><\/p>\n
 #count unique points values by team\n<\/span>results <- aggregate(data=df, points~team, function<\/span> (x) length<\/span> ( unique<\/span> (x)))\n\n#view results<\/span>\nresults\n\n  team points\n1 TO 2\n2 B 2\n3 C 1<\/span><\/span><\/strong><\/pre>\n
 \uacb0\uacfc\uc5d0\uc11c \uc6b0\ub9ac\ub294 \ub2e4\uc74c\uc744 \ubcfc \uc218 \uc788\uc2b5\ub2c8\ub2e4:<\/span><\/p>\n