{"id":3986,"date":"2023-07-14T08:07:26","date_gmt":"2023-07-14T08:07:26","guid":{"rendered":"https:\/\/statorials.org\/ko\/ggplot-%e1%84%90%e1%85%a9%e1%86%bc%e1%84%80%e1%85%a8-id\/"},"modified":"2023-07-14T08:07:26","modified_gmt":"2023-07-14T08:07:26","slug":"ggplot-%e1%84%90%e1%85%a9%e1%86%bc%e1%84%80%e1%85%a8-id","status":"publish","type":"post","link":"https:\/\/statorials.org\/ko\/ggplot-%e1%84%90%e1%85%a9%e1%86%bc%e1%84%80%e1%85%a8-id\/","title":{"rendered":"Ggplot2 \ud50c\ub86f\uc5d0\uc11c stat="identity"\ub97c \uc0ac\uc6a9\ud558\ub294 \uacbd\uc6b0"},"content":{"rendered":"

<\/p>\n

\n

\ub9c9\ub300 \ucc28\ud2b8\ub97c \uc0dd\uc131\ud558\uae30 \uc704\ud574 ggplot2\uc758 geom_bar()<\/strong> \ud568\uc218\ub97c \uc0ac\uc6a9\ud558\ub294 \ub450 \uac00\uc9c0 \uc77c\ubc18\uc801\uc778 \ubc29\ubc95\uc774 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/span><\/p>\n

\ubc29\ubc95 1: geom_bar() \uc0ac\uc6a9<\/strong><\/span><\/p>\n

 ggplot(df, aes(x)) +\n  geom_bar()\n<\/strong><\/pre>\n
 \uae30\ubcf8\uc801\uc73c\ub85c geom_bar()\ub294<\/strong> \ub2e8\uc21c\ud788 \ubcc0\uc218 x\uc5d0 \ub300\ud55c \uac01 \uace0\uc720 \uac12\uc758 \ubc1c\uc0dd \ud69f\uc218\ub97c \uacc4\uc0b0\ud558\uace0 \ub9c9\ub300\ub97c \uc0ac\uc6a9\ud558\uc5ec \uac1c\uc218\ub97c \ud45c\uc2dc\ud569\ub2c8\ub2e4.<\/span><\/p>\n
 \ubc29\ubc95 2: geom_bar(stat=\u201didentity\u201d) \uc0ac\uc6a9<\/strong><\/span><\/p>\n
 ggplot(df, aes(x, y)) +\n  geom_bar(stat=\" identity<\/span> \")<\/strong><\/pre>\n
 geom_bar()<\/strong> \uc5d0 stat=\u201didentity\u201d<\/strong> \uc778\uc218\ub97c \uc81c\uacf5\ud558\uba74 \ubcc0\uc218 x\ub85c \uadf8\ub8f9\ud654\ub41c \ubcc0\uc218 y\uc758 \ud569\uacc4\ub97c \uacc4\uc0b0\ud558\uace0 \ub9c9\ub300\ub97c \uc0ac\uc6a9\ud558\uc5ec \ud569\uacc4\ub97c \ud45c\uc2dc\ud558\ub3c4\ub85d R\uc5d0 \uc9c0\uc2dc\ud558\ub294 \uac83\uc785\ub2c8\ub2e4.<\/span><\/p>\n
 \ub2e4\uc74c \uc608\uc5d0\uc11c\ub294 \uc11c\ub85c \ub2e4\ub978 \ud300\uc758 \ub18d\uad6c \uc120\uc218\uac00 \ub4dd\uc810\ud55c \uc810\uc218\ub97c \ubcf4\uc5ec\uc8fc\ub294 R\uc758 \ub2e4\uc74c \ub370\uc774\ud130 \ud504\ub808\uc784\uc744 \uc0ac\uc6a9\ud558\uc5ec \uc774 \ub450 \uac00\uc9c0 \ubc29\ubc95\uc758 \ucc28\uc774\uc810\uc744 \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/span><\/p>\n
 #create data frame\n<\/span>df <- data. frame<\/span> (team=rep(c(' A<\/span> ', ' B<\/span> ', ' C<\/span> '), each= 4<\/span> ),\n                 points=c(3, 5, 5, 6, 5, 7, 7, 8, 9, 9, 9, 8))\n\n#view data frame\n<\/span>df\n\n   team points\n1 to 3\n2 to 5\n3 to 5\n4 to 6\n5 B 5\n6 B 7\n7 B 7\n8 B 8\n9 C 9\n10 C 9\n11 C 9\n12 C 8\n<\/strong><\/pre>\n
 \uc608 1: geom_bar() \uc0ac\uc6a9<\/strong><\/span><\/h2>\n
 \ub2e4\uc74c \ucf54\ub4dc\ub294 geom_bar()<\/strong> \ud568\uc218\ub97c \uc0ac\uc6a9\ud558\uc5ec \ud300<\/strong> \uc5f4\uc758 \uac01 \uace0\uc720 \uac12 \uac1c\uc218\ub97c \ud45c\uc2dc\ud558\ub294 \ub9c9\ub300 \ucc28\ud2b8\ub97c \ub9cc\ub4dc\ub294 \ubc29\ubc95\uc744 \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/span> <\/p>\n
 library<\/span> (ggplot2)\n\n#create bar chart to visualize occurrence of each unique value in team column\n<\/span>ggplot(df, aes(team)) +\n  geom_bar()\n<\/strong><\/pre>\n
\"\"<\/p>\n
 X\ucd95\uc5d0\ub294 Team<\/strong> \uceec\ub7fc\uc758 \uace0\uc720\uac12\uc774 \ud45c\uc2dc\ub418\uace0, Y\ucd95\uc5d0\ub294 \uac01 \uace0\uc720\uac12\uc774 \ubc1c\uc0dd\ud55c \ud69f\uc218\uac00 \ud45c\uc2dc\ub429\ub2c8\ub2e4.<\/span><\/p>\n
 \uac01 \uace0\uc720 \uac12\uc740 4\ubc88 \ub098\ud0c0\ub0ac\uc73c\ubbc0\ub85c \ud50c\ub86f\uc5d0\uc11c \uac01 \ub9c9\ub300\uc758 \ub192\uc774\ub294 4\uc785\ub2c8\ub2e4.<\/span><\/p>\n
 \uc608 2: geom_bar(stat=\u201didentity\u201d) \uc0ac\uc6a9<\/strong><\/span><\/h2>\n
 \ub2e4\uc74c \ucf54\ub4dc\ub294 stat=\u201didentity\u201d<\/strong> \uc778\uc218\uc640 \ud568\uaed8 geom_bar()<\/strong> \ud568\uc218\ub97c \uc0ac\uc6a9\ud558\uc5ec \ud300\ubcc4<\/strong> \ub85c \uadf8\ub8f9\ud654\ub41c \ud3ec\uc778\ud2b8<\/strong> \uc5f4\uc758 \uac12 \ud569\uacc4\ub97c \ud45c\uc2dc\ud558\ub294 \ub9c9\ub300 \ucc28\ud2b8\ub97c \ub9cc\ub4dc\ub294 \ubc29\ubc95\uc744 \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/span> <\/p>\n
 library<\/span> (ggplot2)\n\n#create bar chart to visualize sum of points, grouped by team\n<\/span>ggplot(df, aes(team, points)) +\n  geom_bar(stat=\" identity<\/span> \")\n<\/strong><\/pre>\n
\"ggplot2\uc5d0\uc11c<\/p>\n
 X\ucd95\uc740 \ud300<\/strong> \uc5f4\uc758 \uace0\uc720 \uac12\uc744 \ud45c\uc2dc\ud558\uace0 Y\ucd95\uc740 \uac01 \ud300\uc758 \ud3ec\uc778\ud2b8<\/strong> \uc5f4 \uac12\uc758 \ud569\uc744 \ud45c\uc2dc\ud569\ub2c8\ub2e4.<\/span><\/p>\n
 \uc608\ub97c \ub4e4\uc5b4:<\/span><\/p>\n