{"id":4307,"date":"2026-02-08T00:15:12","date_gmt":"2026-02-07T17:15:12","guid":{"rendered":"https:\/\/www.booboohome.com\/blogs\/?p=4307"},"modified":"2026-02-11T21:10:13","modified_gmt":"2026-02-11T14:10:13","slug":"r-%e0%b8%a5%e0%b8%ad%e0%b8%87%e0%b9%83%e0%b8%8a%e0%b9%89-dplyr-%e0%b8%81%e0%b8%b1%e0%b8%9a-ggplot2-%e0%b9%83%e0%b8%99%e0%b8%81%e0%b8%b2%e0%b8%a3%e0%b8%88%e0%b8%b1%e0%b8%94%e0%b8%a3%e0%b8%b9%e0%b8%9b","status":"publish","type":"post","link":"https:\/\/www.booboohome.com\/blogs\/2026\/02\/r-%e0%b8%a5%e0%b8%ad%e0%b8%87%e0%b9%83%e0%b8%8a%e0%b9%89-dplyr-%e0%b8%81%e0%b8%b1%e0%b8%9a-ggplot2-%e0%b9%83%e0%b8%99%e0%b8%81%e0%b8%b2%e0%b8%a3%e0%b8%88%e0%b8%b1%e0%b8%94%e0%b8%a3%e0%b8%b9%e0%b8%9b\/","title":{"rendered":"R &#8211; \u0e25\u0e2d\u0e07\u0e43\u0e0a\u0e49 dplyr \u0e01\u0e31\u0e1a ggplot2 \u0e43\u0e19\u0e01\u0e32\u0e23\u0e08\u0e31\u0e14\u0e23\u0e39\u0e1b\u0e41\u0e1a\u0e1a\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e41\u0e25\u0e30\u0e1e\u0e25\u0e2d\u0e15\u0e40\u0e1b\u0e47\u0e19\u0e01\u0e23\u0e32\u0e1f\u0e41\u0e1a\u0e1a\u0e15\u0e48\u0e32\u0e07\u0e46\u0e14\u0e39"},"content":{"rendered":"<p>\u0e0a\u0e48\u0e27\u0e07\u0e19\u0e35\u0e49\u0e40\u0e1b\u0e47\u0e19\u0e21\u0e37\u0e2d\u0e43\u0e2b\u0e21\u0e48\u0e25\u0e2d\u0e07\u0e43\u0e0a\u0e49\u0e20\u0e32\u0e29\u0e32 R \u0e43\u0e19\u0e01\u0e32\u0e23\u0e08\u0e31\u0e14\u0e01\u0e32\u0e23\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e41\u0e25\u0e30\u0e25\u0e2d\u0e07\u0e27\u0e34\u0e40\u0e04\u0e23\u0e32\u0e30\u0e2b\u0e4c\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e1e\u0e37\u0e49\u0e19\u0e10\u0e32\u0e19 \u0e01\u0e47\u0e21\u0e32\u0e16\u0e07\u0e2a\u0e48\u0e27\u0e19\u0e17\u0e35\u0e48\u0e2d\u0e22\u0e32\u0e01\u0e17\u0e33\u0e04\u0e27\u0e32\u0e21\u0e23\u0e39\u0e49\u0e08\u0e31\u0e01\u0e01\u0e31\u0e1a package <strong>dplyr<\/strong> \u0e01\u0e31\u0e1a <strong>ggplot2<\/strong> \u0e27\u0e34\u0e18\u0e35\u0e17\u0e35\u0e48\u0e14\u0e35\u0e17\u0e35\u0e48\u0e2a\u0e38\u0e14\u0e01\u0e47\u0e04\u0e37\u0e2d\u0e15\u0e49\u0e2d\u0e07\u0e25\u0e2d\u0e07\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e14\u0e39\u0e40\u0e22\u0e2d\u0e30\u0e46 \u0e08\u0e30\u0e44\u0e14\u0e49\u0e23\u0e39\u0e49\u0e08\u0e31\u0e01 package \u0e19\u0e31\u0e49\u0e19\u0e46 \u0e14\u0e35\u0e22\u0e34\u0e48\u0e07\u0e02\u0e36\u0e49\u0e19<\/p>\n<hr\/>\n<h3>Package dplyr<\/h3>\n<p>\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a package dplyr \u0e40\u0e1b\u0e47\u0e19 package \u0e1e\u0e37\u0e49\u0e19\u0e10\u0e32\u0e19\u0e02\u0e2d\u0e07 R \u0e44\u0e27\u0e49\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e08\u0e31\u0e14\u0e01\u0e32\u0e23\u0e01\u0e31\u0e1a\u0e01\u0e49\u0e2d\u0e19\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e21\u0e35\u0e40\u0e0a\u0e48\u0e19 \u0e01\u0e23\u0e2d\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e09\u0e1e\u0e32\u0e30\u0e1a\u0e32\u0e07\u0e04\u0e2d\u0e25\u0e31\u0e21\u0e19\u0e4c, \u0e01\u0e23\u0e2d\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e09\u0e1e\u0e32\u0e30\u0e41\u0e16\u0e27\u0e17\u0e35\u0e48\u0e21\u0e35\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e1a\u0e32\u0e07\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e2d\u0e22\u0e39\u0e48, \u0e08\u0e31\u0e14\u0e40\u0e23\u0e35\u0e22\u0e07\u0e25\u0e33\u0e14\u0e31\u0e1a\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e21\u0e35\u0e15\u0e32\u0e21\u0e40\u0e07\u0e37\u0e48\u0e2d\u0e19\u0e44\u0e02\u0e17\u0e35\u0e48\u0e23\u0e30\u0e1a\u0e38 \u0e40\u0e1b\u0e47\u0e19\u0e15\u0e49\u0e19\n<\/p>\n<p>\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e2b\u0e25\u0e31\u0e01\u0e46 \u0e02\u0e2d\u0e07 dplyr \u0e17\u0e35\u0e48\u0e21\u0e31\u0e01\u0e08\u0e30\u0e16\u0e39\u0e01\u0e40\u0e23\u0e35\u0e22\u0e01\u0e43\u0e0a\u0e49\u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e08\u0e31\u0e14\u0e01\u0e32\u0e23\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25:-<\/p>\n<ul>\n<li><strong>filter()<\/strong> : \u0e21\u0e31\u0e01\u0e16\u0e39\u0e01\u0e40\u0e23\u0e35\u0e22\u0e01\u0e43\u0e0a\u0e49\u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e08\u0e30\u0e01\u0e23\u0e2d\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e02\u0e2d\u0e07\u0e41\u0e15\u0e48\u0e25\u0e30\u0e41\u0e16\u0e27(row) \u0e27\u0e48\u0e32\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e43\u0e19\u0e41\u0e16\u0e27\u0e19\u0e31\u0e49\u0e19\u0e21\u0e35\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e15\u0e23\u0e07\u0e15\u0e32\u0e21\u0e40\u0e07\u0e37\u0e48\u0e2d\u0e19\u0e44\u0e02\u0e17\u0e35\u0e48\u0e23\u0e30\u0e1a\u0e38\u0e2b\u0e23\u0e37\u0e2d\u0e44\u0e21\u0e48 \u0e16\u0e49\u0e32\u0e44\u0e21\u0e48\u0e21\u0e35\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e01\u0e47\u0e08\u0e30\u0e16\u0e39\u0e01\u0e01\u0e23\u0e2d\u0e07\u0e2d\u0e2d\u0e01 \u0e40\u0e21\u0e37\u0e48\u0e2d\u0e1b\u0e23\u0e30\u0e21\u0e27\u0e25\u0e1c\u0e25\u0e40\u0e2a\u0e23\u0e47\u0e08\u0e01\u0e47\u0e08\u0e30\u0e04\u0e37\u0e19\u0e04\u0e48\u0e32\u0e40\u0e1b\u0e47\u0e19\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e43\u0e2b\u0e21\u0e48\u0e17\u0e35\u0e48\u0e01\u0e23\u0e2d\u0e07\u0e15\u0e32\u0e21\u0e40\u0e07\u0e37\u0e48\u0e2d\u0e19\u0e44\u0e02\u0e40\u0e23\u0e35\u0e22\u0e1a\u0e23\u0e49\u0e2d\u0e22\u0e41\u0e25\u0e49\u0e27<\/li>\n<li><strong>select():<\/strong> \u0e21\u0e31\u0e01\u0e16\u0e39\u0e01\u0e40\u0e23\u0e35\u0e22\u0e01\u0e43\u0e0a\u0e49\u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e08\u0e30\u0e01\u0e23\u0e2d\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 \u0e08\u0e32\u0e01\u0e0a\u0e37\u0e48\u0e2d\u0e2b\u0e25\u0e31\u0e01(column)\u0e2b\u0e23\u0e37\u0e2d\u0e08\u0e32\u0e01\u0e0a\u0e19\u0e34\u0e14\u0e02\u0e2d\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25(data type)\u0e43\u0e19\u0e04\u0e2d\u0e25\u0e31\u0e21\u0e19\u0e4c\u0e19\u0e31\u0e49\u0e19 \u0e40\u0e21\u0e37\u0e48\u0e2d\u0e1b\u0e23\u0e30\u0e21\u0e27\u0e25\u0e1c\u0e25\u0e40\u0e2a\u0e23\u0e47\u0e08\u0e01\u0e47\u0e08\u0e30\u0e04\u0e37\u0e19\u0e04\u0e48\u0e32\u0e40\u0e1b\u0e47\u0e19\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e43\u0e2b\u0e21\u0e48\u0e17\u0e35\u0e48\u0e01\u0e23\u0e2d\u0e07\u0e15\u0e32\u0e21\u0e40\u0e07\u0e37\u0e48\u0e2d\u0e19\u0e44\u0e02\u0e17\u0e35\u0e48\u0e23\u0e30\u0e1a\u0e38\u0e44\u0e27\u0e49<\/li>\n<li><strong>arrage():<\/strong> \u0e21\u0e31\u0e01\u0e16\u0e39\u0e01\u0e40\u0e23\u0e35\u0e22\u0e01\u0e43\u0e0a\u0e49\u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e08\u0e31\u0e14\u0e40\u0e23\u0e35\u0e22\u0e07\u0e25\u0e33\u0e14\u0e31\u0e1a\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25(\u0e21\u0e32\u0e01\u0e44\u0e1b\u0e19\u0e49\u0e2d\u0e22, \u0e19\u0e49\u0e2d\u0e22\u0e44\u0e1b\u0e21\u0e32\u0e01) \u0e15\u0e32\u0e21\u0e40\u0e07\u0e37\u0e48\u0e2d\u0e19\u0e44\u0e02(\u0e2a\u0e32\u0e21\u0e32\u0e23\u0e16\u0e40\u0e25\u0e37\u0e2d\u0e01\u0e08\u0e31\u0e14\u0e40\u0e23\u0e35\u0e22\u0e07\u0e08\u0e32\u0e01\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e2b\u0e25\u0e31\u0e01\u0e40\u0e14\u0e35\u0e22\u0e27 \u0e2b\u0e23\u0e37\u0e2d \u0e2b\u0e25\u0e32\u0e22\u0e2b\u0e25\u0e31\u0e01\u0e23\u0e27\u0e21\u0e01\u0e31\u0e19\u0e44\u0e14\u0e49) \u0e40\u0e21\u0e37\u0e48\u0e2d\u0e1b\u0e23\u0e30\u0e21\u0e27\u0e25\u0e1c\u0e25\u0e40\u0e2a\u0e23\u0e47\u0e08\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e01\u0e47\u0e08\u0e30\u0e04\u0e37\u0e19\u0e04\u0e48\u0e32\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e44\u0e14\u0e49\u0e23\u0e31\u0e1a\u0e01\u0e32\u0e23\u0e08\u0e31\u0e14\u0e40\u0e23\u0e35\u0e22\u0e07\u0e40\u0e2a\u0e23\u0e47\u0e08\u0e40\u0e23\u0e35\u0e22\u0e1a\u0e23\u0e49\u0e2d\u0e22\u0e41\u0e25\u0e49\u0e27<\/li>\n<li><strong>mutate():<\/strong> \u0e21\u0e31\u0e01\u0e08\u0e30\u0e43\u0e0a\u0e49\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e40\u0e1e\u0e34\u0e48\u0e21\u0e2b\u0e25\u0e31\u0e01(column)\u0e43\u0e2b\u0e21\u0e48 \u0e43\u0e2b\u0e49\u0e01\u0e31\u0e1a\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 \u0e0b\u0e36\u0e48\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e43\u0e2b\u0e21\u0e48\u0e19\u0e31\u0e49\u0e19\u0e21\u0e31\u0e01\u0e08\u0e30\u0e40\u0e1b\u0e47\u0e19\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e44\u0e14\u0e49\u0e21\u0e32\u0e08\u0e32\u0e01\u0e01\u0e32\u0e23\u0e04\u0e33\u0e19\u0e27\u0e13\u0e08\u0e32\u0e01\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e14\u0e34\u0e21\u0e17\u0e35\u0e48\u0e21\u0e35 \u0e40\u0e0a\u0e48\u0e19 \u0e04\u0e33\u0e19\u0e27\u0e13\u0e04\u0e48\u0e32\u0e40\u0e09\u0e25\u0e35\u0e48\u0e22\u0e08\u0e32\u0e01\u0e02\u0e49\u0e2d\u0e21\u0e38\u0e25 3 \u0e2b\u0e25\u0e31\u0e01 \u0e41\u0e25\u0e49\u0e27\u0e2a\u0e23\u0e49\u0e32\u0e07\u0e40\u0e1b\u0e47\u0e19\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e43\u0e19\u0e2b\u0e25\u0e31\u0e01\u0e43\u0e2b\u0e21\u0e48, \u0e2b\u0e23\u0e37\u0e2d\u0e43\u0e0a\u0e49\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e08\u0e32\u0e01\u0e2b\u0e25\u0e31\u0e01\u0e17\u0e35\u0e48\u0e40\u0e1b\u0e47\u0e19\u0e19\u0e49\u0e33\u0e2b\u0e19\u0e31\u0e01\u0e41\u0e25\u0e30\u0e2a\u0e48\u0e27\u0e19\u0e2a\u0e39\u0e07 \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e21\u0e32\u0e2a\u0e23\u0e49\u0e32\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e43\u0e19\u0e2b\u0e25\u0e31\u0e01\u0e43\u0e2b\u0e21\u0e48\u0e17\u0e35\u0e48\u0e40\u0e1b\u0e47\u0e19 BMI \u0e40\u0e1b\u0e47\u0e19\u0e15\u0e49\u0e19 \u0e40\u0e21\u0e37\u0e48\u0e2d\u0e17\u0e33\u0e01\u0e32\u0e23\u0e1b\u0e23\u0e30\u0e21\u0e27\u0e25\u0e1c\u0e25\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e2a\u0e23\u0e47\u0e08\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e01\u0e47\u0e08\u0e30\u0e04\u0e37\u0e19\u0e04\u0e48\u0e32\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e17\u0e33\u0e01\u0e32\u0e23\u0e40\u0e1e\u0e34\u0e48\u0e21\u0e2b\u0e25\u0e31\u0e01\u0e43\u0e2b\u0e21\u0e48\u0e40\u0e23\u0e35\u0e22\u0e1a\u0e23\u0e49\u0e2d\u0e22\u0e41\u0e25\u0e49\u0e27<\/li>\n<li><strong>group_by():<\/strong> \u0e21\u0e31\u0e01\u0e08\u0e30\u0e43\u0e0a\u0e49\u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e08\u0e31\u0e14\u0e01\u0e25\u0e38\u0e48\u0e21\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 \u0e08\u0e32\u0e01\u0e40\u0e07\u0e37\u0e48\u0e2d\u0e19\u0e44\u0e02\u0e17\u0e35\u0e48\u0e23\u0e30\u0e1a\u0e38 \u0e40\u0e0a\u0e48\u0e19 \u0e2a\u0e23\u0e38\u0e1b\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e04\u0e48\u0e32\u0e43\u0e0a\u0e49\u0e08\u0e48\u0e32\u0e22\u0e02\u0e2d\u0e07\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e42\u0e14\u0e22\u0e08\u0e30\u0e2a\u0e23\u0e38\u0e1b\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e41\u0e22\u0e01\u0e40\u0e1b\u0e47\u0e19\u0e23\u0e32\u0e22\u0e1b\u0e35, \u0e23\u0e32\u0e22\u0e40\u0e14\u0e37\u0e2d\u0e19 (\u0e2d\u0e32\u0e08\u0e08\u0e30\u0e23\u0e30\u0e1a\u0e38\u0e2b\u0e25\u0e32\u0e22\u0e40\u0e07\u0e37\u0e48\u0e2d\u0e19\u0e44\u0e02\u0e44\u0e14\u0e49) <\/li>\n<li><strong>summarize():<\/strong> \u0e21\u0e31\u0e01\u0e43\u0e0a\u0e49\u0e23\u0e48\u0e27\u0e21\u0e01\u0e31\u0e1a group_by() \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e08\u0e30\u0e23\u0e30\u0e1a\u0e38\u0e27\u0e48\u0e32\u0e08\u0e30\u0e17\u0e33\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e44\u0e23\u0e01\u0e31\u0e1a\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e08\u0e31\u0e14\u0e01\u0e25\u0e38\u0e48\u0e21\u0e44\u0e27\u0e49 \u0e40\u0e0a\u0e48\u0e19\u0e16\u0e49\u0e32\u0e15\u0e49\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e2a\u0e23\u0e38\u0e1b\u0e04\u0e48\u0e32\u0e43\u0e0a\u0e49\u0e08\u0e48\u0e32\u0e22\u0e02\u0e2d\u0e07\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e2a\u0e23\u0e38\u0e1b\u0e41\u0e22\u0e01\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e1b\u0e47\u0e19\u0e23\u0e32\u0e22\u0e1b\u0e35 \u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 summarize \u0e01\u0e47\u0e15\u0e49\u0e2d\u0e07\u0e17\u0e33\u0e01\u0e31\u0e1a\u0e23\u0e30\u0e1a\u0e38\u0e43\u0e2b\u0e49\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e17\u0e33\u0e01\u0e32\u0e23\u0e23\u0e27\u0e21(summation)\u0e04\u0e48\u0e32\u0e43\u0e0a\u0e49\u0e08\u0e48\u0e32\u0e22\u0e17\u0e31\u0e49\u0e07\u0e2b\u0e21\u0e14\u0e43\u0e19\u0e1b\u0e35\u0e19\u0e31\u0e49\u0e19\u0e46 \u0e41\u0e25\u0e49\u0e27\u0e01\u0e47\u0e22\u0e38\u0e1a\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e31\u0e49\u0e07\u0e2b\u0e21\u0e14\u0e43\u0e2b\u0e49\u0e40\u0e1b\u0e47\u0e19\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e23\u0e32\u0e22\u0e1b\u0e35<\/li>\n<\/ul>\n<p>\n\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e02\u0e2d\u0e07 dplyr \u0e40\u0e2b\u0e25\u0e48\u0e32\u0e19\u0e35\u0e49 \u0e19\u0e2d\u0e01\u0e08\u0e32\u0e01\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e41\u0e1a\u0e1a\u0e40\u0e23\u0e35\u0e22\u0e01\u0e43\u0e0a\u0e49\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 \u0e41\u0e25\u0e49\u0e27\u0e40\u0e2d\u0e32\u0e15\u0e31\u0e27\u0e41\u0e1b\u0e23\u0e43\u0e2b\u0e21\u0e48\u0e21\u0e32\u0e23\u0e31\u0e1a\u0e1c\u0e25\u0e08\u0e32\u0e01\u0e01\u0e32\u0e23\u0e1b\u0e23\u0e30\u0e21\u0e27\u0e25\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e41\u0e15\u0e48\u0e25\u0e30\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e15\u0e32\u0e21\u0e1b\u0e01\u0e15\u0e34\u0e41\u0e25\u0e49\u0e27 \u0e01\u0e47\u0e2a\u0e32\u0e21\u0e32\u0e23\u0e16\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e41\u0e1a\u0e1a\u0e40\u0e23\u0e35\u0e22\u0e01\u0e15\u0e48\u0e2d\u0e01\u0e31\u0e19\u0e44\u0e14\u0e49(piping) \u0e42\u0e14\u0e22\u0e41\u0e15\u0e48\u0e25\u0e30\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e2a\u0e32\u0e21\u0e32\u0e23\u0e16\u0e43\u0e0a\u0e49\u0e2a\u0e31\u0e0d\u0e25\u0e31\u0e01\u0e29\u0e13\u0e4c %>% \u0e40\u0e0a\u0e37\u0e48\u0e2d\u0e21\u0e23\u0e30\u0e2b\u0e27\u0e48\u0e32\u0e07\u0e01\u0e32\u0e23\u0e1b\u0e23\u0e30\u0e21\u0e27\u0e25\u0e1c\u0e25\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e44\u0e14\u0e49 \u0e43\u0e19\u0e2a\u0e48\u0e27\u0e19\u0e02\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e17\u0e33\u0e07\u0e32\u0e19 \u0e01\u0e47\u0e08\u0e30\u0e40\u0e2d\u0e32\u0e1c\u0e25\u0e25\u0e31\u0e1e\u0e17\u0e4c\u0e08\u0e32\u0e01\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e14\u0e49\u0e32\u0e19\u0e0b\u0e49\u0e32\u0e22 \u0e2a\u0e48\u0e07\u0e15\u0e48\u0e2d\u0e44\u0e1b\u0e43\u0e2b\u0e49 \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e14\u0e49\u0e32\u0e19\u0e02\u0e27\u0e32\u0e02\u0e2d\u0e07\u0e2a\u0e31\u0e0d\u0e25\u0e31\u0e01\u0e29\u0e13\u0e4c %>% \u0e17\u0e33\u0e07\u0e32\u0e19\u0e15\u0e48\u0e2d\u0e01\u0e31\u0e19\u0e44\u0e1b\u0e40\u0e23\u0e37\u0e48\u0e2d\u0e22\u0e46\u0e44\u0e14\u0e49\u0e40\u0e25\u0e22 \u0e42\u0e14\u0e22\u0e44\u0e21\u0e48\u0e15\u0e49\u0e2d\u0e07\u0e21\u0e35\u0e15\u0e31\u0e27\u0e41\u0e1b\u0e23\u0e21\u0e32\u0e23\u0e31\u0e1a\u0e17\u0e31\u0e19\u0e17\u0e35 \u0e0b\u0e36\u0e48\u0e07\u0e16\u0e37\u0e2d\u0e27\u0e48\u0e32\u0e04\u0e48\u0e2d\u0e19\u0e02\u0e49\u0e32\u0e07\u0e2a\u0e30\u0e14\u0e27\u0e01\u0e43\u0e19\u0e01\u0e32\u0e23\u0e40\u0e02\u0e35\u0e22\u0e19\u0e42\u0e04\u0e49\u0e14\u0e14\u0e49\u0e27\u0e22 \u0e15\u0e31\u0e27\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e40\u0e0a\u0e48\u0e19 <\/p>\n<pre class=\"prettyprint lang-r\" data-start-line=\"1\" data-visibility=\"visible\" data-highlight=\"\" data-caption=\"\">\r\nnew_data <- filter(init_data, \"\u0e23\u0e30\u0e1a\u0e38\u0e40\u0e07\u0e37\u0e48\u0e2d\u0e19\u0e44\u0e02\u0e01\u0e32\u0e23\u0e01\u0e23\u0e2d\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\") %>% group_by(\"\u0e23\u0e30\u0e1a\u0e38\u0e40\u0e07\u0e37\u0e48\u0e2d\u0e19\u0e44\u0e02\u0e01\u0e32\u0e23\u0e23\u0e27\u0e21\u0e01\u0e25\u0e48\u0e38\u0e21\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\") %>% summarize(\"\u0e23\u0e30\u0e1a\u0e38\u0e27\u0e34\u0e18\u0e35\u0e01\u0e32\u0e23\u0e17\u0e35\u0e48\u0e43\u0e0a\u0e49\u0e43\u0e19\u0e01\u0e32\u0e23\u0e08\u0e31\u0e14\u0e01\u0e32\u0e23\u0e2a\u0e23\u0e38\u0e1b\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e23\u0e30\u0e1a\u0e38\u0e44\u0e27\u0e49\u0e43\u0e19 group_by\")\r\n<\/pre>\n<hr\/>\n<h3>Package ggplot2<\/h3>\n<p>\n\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a package ggplot2 \u0e44\u0e27\u0e49\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e19\u0e33\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e44\u0e1b\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\u0e43\u0e19\u0e23\u0e39\u0e1b\u0e41\u0e1a\u0e1a\u0e15\u0e48\u0e32\u0e07\u0e46 \u0e04\u0e2d\u0e19\u0e40\u0e0b\u0e1b\u0e15\u0e4c\u0e02\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e08\u0e31\u0e14\u0e01\u0e32\u0e23 component \u0e15\u0e48\u0e32\u0e07\u0e46 \u0e43\u0e19 ggplot \u0e08\u0e30\u0e21\u0e35\u0e0a\u0e37\u0e48\u0e2d\u0e27\u0e48\u0e32 &#8220;Grammar of Graphics&#8221; \u0e04\u0e37\u0e2d \u0e21\u0e35\u0e01\u0e32\u0e23\u0e41\u0e22\u0e01\u0e2d\u0e07\u0e2d\u0e07\u0e04\u0e4c\u0e1b\u0e23\u0e30\u0e01\u0e2d\u0e1a(components) \u0e17\u0e35\u0e48\u0e43\u0e0a\u0e49\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\u0e01\u0e23\u0e32\u0e1f\u0e41\u0e22\u0e01\u0e40\u0e1b\u0e47\u0e19\u0e0a\u0e31\u0e49\u0e19\u0e46 \u0e01\u0e31\u0e19 \u0e41\u0e15\u0e48\u0e25\u0e30\u0e0a\u0e31\u0e49\u0e19\u0e01\u0e47\u0e08\u0e30\u0e21\u0e35\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e43\u0e2b\u0e49\u0e40\u0e23\u0e35\u0e22\u0e01\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e1b\u0e49\u0e2d\u0e19\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e41\u0e25\u0e30\u0e40\u0e0a\u0e37\u0e48\u0e2d\u0e21\u0e41\u0e15\u0e48\u0e25\u0e30\u0e0a\u0e31\u0e49\u0e19\u0e02\u0e2d\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e14\u0e49\u0e27\u0e22\u0e40\u0e04\u0e23\u0e37\u0e48\u0e2d\u0e07\u0e2b\u0e21\u0e32\u0e22 (+) \u0e43\u0e19\u0e01\u0e32\u0e23\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\u0e04\u0e23\u0e31\u0e49\u0e07\u0e19\u0e36\u0e07\u0e2d\u0e22\u0e32\u0e01\u0e44\u0e14\u0e49 component \u0e2d\u0e30\u0e44\u0e23\u0e1a\u0e49\u0e32\u0e07\u0e01\u0e47\u0e40\u0e1e\u0e34\u0e48\u0e21\/\u0e25\u0e14 \u0e44\u0e14\u0e49\u0e15\u0e32\u0e21\u0e15\u0e49\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e40\u0e1b\u0e47\u0e19\u0e2d\u0e34\u0e2a\u0e23\u0e30\u0e15\u0e48\u0e2d\u0e01\u0e31\u0e19\n<\/p>\n<p>\n\u0e43\u0e19\u0e2a\u0e48\u0e27\u0e19\u0e02\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e01\u0e33\u0e2b\u0e19\u0e14\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e08\u0e30\u0e43\u0e0a\u0e49\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25 \u0e41\u0e17\u0e19\u0e17\u0e35\u0e48\u0e08\u0e30\u0e01\u0e33\u0e2b\u0e19\u0e14\u0e15\u0e31\u0e27\u0e41\u0e1b\u0e23\u0e15\u0e31\u0e49\u0e07\u0e15\u0e49\u0e19\u0e44\u0e27\u0e49\u0e40\u0e25\u0e22\u0e27\u0e48\u0e32\u0e16\u0e49\u0e32\u0e08\u0e30\u0e01\u0e23\u0e32\u0e1f\u0e41\u0e15\u0e48\u0e25\u0e30\u0e41\u0e1a\u0e1a\u0e15\u0e49\u0e2d\u0e07\u0e23\u0e30\u0e1a\u0e38\u0e15\u0e31\u0e27\u0e41\u0e1b\u0e23(parameter) \u0e01\u0e35\u0e48\u0e15\u0e31\u0e27\u0e2b\u0e23\u0e37\u0e2d\u0e0a\u0e37\u0e48\u0e2d\u0e2d\u0e30\u0e44\u0e23\u0e1a\u0e49\u0e32\u0e07 \u0e0b\u0e36\u0e48\u0e07\u0e01\u0e32\u0e23\u0e01\u0e33\u0e2b\u0e19\u0e14\u0e41\u0e1a\u0e1a\u0e19\u0e35\u0e49\u0e08\u0e30\u0e21\u0e35\u0e41\u0e04\u0e48\u0e23\u0e39\u0e1b\u0e41\u0e1a\u0e1a\u0e15\u0e32\u0e22\u0e15\u0e31\u0e27 \u0e08\u0e30\u0e40\u0e1e\u0e34\u0e48\u0e21\u0e2b\u0e23\u0e37\u0e2d\u0e25\u0e14\u0e2d\u0e30\u0e44\u0e23\u0e01\u0e47\u0e25\u0e33\u0e1a\u0e32\u0e01 \u0e41\u0e15\u0e48\u0e40\u0e19\u0e37\u0e48\u0e2d\u0e07\u0e08\u0e32\u0e01 package ggplot2 \u0e19\u0e31\u0e49\u0e19\u0e21\u0e35\u0e01\u0e32\u0e23\u0e41\u0e22\u0e01\u0e2d\u0e07\u0e04\u0e4c\u0e1b\u0e23\u0e30\u0e01\u0e2d\u0e1a\u0e02\u0e2d\u0e07\u0e01\u0e23\u0e32\u0e1f\u0e40\u0e1b\u0e47\u0e19\u0e2a\u0e48\u0e27\u0e19\u0e46 \u0e16\u0e49\u0e32\u0e40\u0e23\u0e32\u0e15\u0e49\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e43\u0e2b\u0e49\u0e01\u0e23\u0e32\u0e1f\u0e02\u0e2d\u0e07\u0e40\u0e23\u0e32\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\u0e2d\u0e30\u0e44\u0e23\u0e1a\u0e49\u0e32\u0e07 \u0e40\u0e23\u0e32\u0e01\u0e47\u0e43\u0e2a\u0e48\u0e40\u0e1e\u0e34\u0e48\u0e21\u0e40\u0e02\u0e49\u0e32\u0e44\u0e1b\u0e44\u0e14\u0e49\u0e40\u0e23\u0e37\u0e48\u0e2d\u0e22\u0e46 \u0e41\u0e25\u0e30 \u0e44\u0e21\u0e48\u0e27\u0e48\u0e32\u0e08\u0e30\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\u0e40\u0e1b\u0e47\u0e19\u0e01\u0e23\u0e32\u0e1f\u0e40\u0e2a\u0e49\u0e19, \u0e01\u0e23\u0e32\u0e1f\u0e41\u0e17\u0e48\u0e07, \u0e41\u0e1c\u0e19\u0e20\u0e39\u0e21\u0e34\u0e27\u0e07\u0e01\u0e25\u0e21, \u0e1b\u0e23\u0e31\u0e1a\u0e41\u0e15\u0e48\u0e07\u0e41\u0e01\u0e19 x,y , \u0e1b\u0e23\u0e31\u0e1a\u0e41\u0e15\u0e48\u0e40\u0e23\u0e37\u0e48\u0e2d\u0e07\u0e2a\u0e35, \u0e04\u0e27\u0e32\u0e21\u0e2b\u0e19\u0e32\u0e02\u0e2d\u0e07\u0e40\u0e2a\u0e49\u0e19, \u0e01\u0e32\u0e23\u0e08\u0e31\u0e14\u0e27\u0e32\u0e07\u0e15\u0e31\u0e27\u0e2d\u0e31\u0e01\u0e29\u0e23\u0e43\u0e19\u0e41\u0e15\u0e48\u0e25\u0e30\u0e41\u0e01\u0e19 \u0e42\u0e14\u0e22\u0e2d\u0e07\u0e04\u0e4c\u0e1b\u0e23\u0e30\u0e01\u0e2d\u0e1a\u0e41\u0e15\u0e48\u0e25\u0e30\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e01\u0e47\u0e22\u0e31\u0e07\u0e2a\u0e32\u0e21\u0e32\u0e23\u0e16\u0e40\u0e2d\u0e32\u0e44\u0e1b\u0e40\u0e1e\u0e34\u0e48\u0e21\/\u0e25\u0e14 \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e2a\u0e23\u0e49\u0e32\u0e07\u0e40\u0e1b\u0e47\u0e19\u0e01\u0e23\u0e32\u0e1f\u0e23\u0e39\u0e1b\u0e41\u0e1a\u0e1a\u0e2d\u0e37\u0e48\u0e19\u0e46 \u0e44\u0e14\u0e49\u0e04\u0e48\u0e2d\u0e19\u0e02\u0e49\u0e32\u0e07\u0e2b\u0e25\u0e32\u0e01\u0e2b\u0e25\u0e32\u0e22\u0e14\u0e49\u0e27\u0e22<br \/>\n\u0e2d\u0e07\u0e04\u0e4c\u0e1b\u0e23\u0e30\u0e01\u0e2d\u0e1a\u0e2b\u0e25\u0e31\u0e01\u0e46 \u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e01\u0e32\u0e23\u0e01\u0e33\u0e2b\u0e19\u0e14\u0e01\u0e32\u0e23\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25:-<\/p>\n<ul>\n<li>\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25: \u0e23\u0e30\u0e1a\u0e38\u0e0a\u0e38\u0e14\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e15\u0e49\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e19\u0e33\u0e44\u0e1b\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25<\/li>\n<li>aesthetic mapping: \u0e17\u0e33\u0e01\u0e32\u0e23\u0e23\u0e30\u0e1a\u0e38\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e08\u0e32\u0e01\u0e0a\u0e38\u0e14\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 \u0e01\u0e31\u0e1a \u0e27\u0e34\u0e18\u0e35\u0e01\u0e32\u0e23\u0e19\u0e33\u0e21\u0e32\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\u0e08\u0e30 \u0e43\u0e0a\u0e49\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 aes() \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e23\u0e30\u0e1a\u0e38\u0e27\u0e48\u0e32\u0e08\u0e30\u0e43\u0e0a\u0e49\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e44\u0e2b\u0e19\u0e43\u0e19\u0e41\u0e01\u0e19 x, y \u0e2b\u0e23\u0e37\u0e2d \u0e23\u0e30\u0e1a\u0e38\u0e2a\u0e35, \u0e02\u0e19\u0e32\u0e14\u0e41\u0e25\u0e30\u0e23\u0e39\u0e1b\u0e23\u0e48\u0e32\u0e07\u0e02\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e19\u0e33\u0e40\u0e2a\u0e19\u0e2d\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25<\/li>\n<li>\u0e25\u0e31\u0e01\u0e29\u0e13\u0e30\u0e01\u0e32\u0e23\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25: geom_point() \u0e41\u0e2a\u0e14\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e1b\u0e47\u0e19\u0e08\u0e38\u0e14, geom_line() \u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\u0e40\u0e1b\u0e47\u0e19\u0e01\u0e23\u0e32\u0e1f\u0e40\u0e2a\u0e49\u0e19, geom_bar() \u0e41\u0e2a\u0e14\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e1b\u0e47\u0e19\u0e01\u0e23\u0e32\u0e1f\u0e41\u0e17\u0e48\u0e07<\/li>\n<li>\u0e01\u0e33\u0e2b\u0e19\u0e14\u0e23\u0e32\u0e22\u0e25\u0e30\u0e40\u0e2d\u0e35\u0e22\u0e14\u0e40\u0e1e\u0e34\u0e48\u0e21\u0e40\u0e15\u0e34\u0e21\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e01\u0e32\u0e23\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25 \u0e40\u0e0a\u0e48\u0e19 \u0e01\u0e33\u0e2b\u0e19\u0e14\u0e27\u0e48\u0e32\u0e41\u0e01\u0e19 x,y \u0e08\u0e30\u0e43\u0e2b\u0e49\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\u0e04\u0e48\u0e32\u0e19\u0e49\u0e2d\u0e22\u0e2a\u0e38\u0e14-\u0e21\u0e32\u0e01\u0e2a\u0e38\u0e14\u0e17\u0e35\u0e48\u0e40\u0e17\u0e48\u0e32\u0e44\u0e23, \u0e08\u0e38\u0e14\u0e40\u0e23\u0e34\u0e48\u0e21\u0e15\u0e49\u0e19\u0e02\u0e2d\u0e07\u0e41\u0e01\u0e19\u0e40\u0e1b\u0e47\u0e19 0,0 \u0e2b\u0e23\u0e37\u0e2d\u0e08\u0e30\u0e40\u0e1b\u0e47\u0e19\u0e04\u0e48\u0e32\u0e2d\u0e37\u0e48\u0e19 \u0e41\u0e25\u0e30 \u0e15\u0e35\u0e21\u0e08\u0e30\u0e40\u0e1b\u0e47\u0e19\u0e02\u0e32\u0e27\u0e14\u0e33\u0e2b\u0e23\u0e37\u0e2d\u0e40\u0e1b\u0e47\u0e19\u0e2a\u0e35\u0e41\u0e1a\u0e1a\u0e15\u0e48\u0e32\u0e07\u0e46 <\/li>\n<\/ul>\n<p>\u0e22\u0e31\u0e07\u0e21\u0e35\u0e23\u0e32\u0e22\u0e25\u0e30\u0e40\u0e2d\u0e35\u0e22\u0e14\u0e2d\u0e35\u0e01\u0e2b\u0e25\u0e32\u0e22\u0e46 \u0e2d\u0e22\u0e48\u0e32\u0e07\u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e2a\u0e32\u0e21\u0e32\u0e23\u0e16\u0e40\u0e25\u0e37\u0e2d\u0e01\u0e23\u0e30\u0e1a\u0e38\u0e44\u0e14\u0e49\u0e2d\u0e35\u0e01\u0e40\u0e22\u0e2d\u0e30\u0e21\u0e32\u0e01 \u0e2a\u0e32\u0e21\u0e32\u0e23\u0e16\u0e44\u0e1b\u0e25\u0e2d\u0e07\u0e43\u0e0a\u0e31\u0e07\u0e32\u0e19\u0e14\u0e39\u0e40\u0e1e\u0e34\u0e48\u0e21\u0e40\u0e15\u0e34\u0e21\u0e44\u0e14\u0e49\n<\/p>\n<hr\/>\n<h3>\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 (Data)<\/h3>\n<p>\u0e01\u0e48\u0e2d\u0e19\u0e17\u0e35\u0e48\u0e08\u0e30\u0e40\u0e23\u0e34\u0e48\u0e21\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e15\u0e48\u0e32\u0e07\u0e46 \u0e08\u0e32\u0e01 package \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e21\u0e32\u0e08\u0e31\u0e14\u0e23\u0e39\u0e1b\u0e41\u0e1a\u0e1a\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e41\u0e25\u0e30\u0e1e\u0e25\u0e2d\u0e15\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\u0e40\u0e1b\u0e47\u0e19\u0e01\u0e23\u0e32\u0e1f\u0e44\u0e14\u0e49 \u0e40\u0e23\u0e32\u0e01\u0e47\u0e08\u0e33\u0e40\u0e1b\u0e47\u0e19\u0e15\u0e49\u0e2d\u0e07\u0e21\u0e35\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e15\u0e49\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e08\u0e30\u0e17\u0e33\u0e04\u0e27\u0e32\u0e21\u0e40\u0e02\u0e49\u0e32\u0e43\u0e08\u0e01\u0e48\u0e2d\u0e19 \u0e27\u0e31\u0e19\u0e19\u0e35\u0e49\u0e44\u0e1b\u0e40\u0e08\u0e2d\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 <em>&#8220;\u0e2a\u0e16\u0e34\u0e15\u0e34\u0e02\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e43\u0e0a\u0e49\u0e23\u0e16 EV(BEVs, PHEVs) \u0e17\u0e35\u0e48\u0e40\u0e1b\u0e47\u0e19\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e08\u0e32\u0e01\u0e01\u0e32\u0e23\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e23\u0e16\u0e02\u0e2d\u0e07\u0e1c\u0e39\u0e49\u0e02\u0e2d\u0e43\u0e1a\u0e2d\u0e19\u0e38\u0e0d\u0e32\u0e15\u0e34\u0e02\u0e31\u0e1a\u0e02\u0e35\u0e48\u0e43\u0e19\u0e23\u0e31\u0e10\u0e27\u0e2d\u0e0a\u0e34\u0e07\u0e15\u0e31\u0e19 \u0e1b\u0e23\u0e30\u0e40\u0e17\u0e28\u0e2a\u0e2b\u0e23\u0e31\u0e10\u0e2d\u0e40\u0e21\u0e23\u0e34\u0e01\u0e32 \u0e0a\u0e48\u0e27\u0e07\u0e02\u0e2d\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e19\u0e35\u0e49\u0e08\u0e30\u0e40\u0e1b\u0e47\u0e19\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e15\u0e31\u0e49\u0e07\u0e41\u0e15\u0e48\u0e1b\u0e35 1999-2026&#8221;<\/em> (<a href=\"https:\/\/catalog.data.gov\/dataset\/electric-vehicle-population-data\">\u0e17\u0e35\u0e48\u0e21\u0e32\u0e02\u0e2d\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 http:\/\/www.data.gov<\/a>) \u0e41\u0e2b\u0e25\u0e48\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e2d\u0e07\u0e21\u0e35\u0e23\u0e39\u0e1b\u0e41\u0e1a\u0e1a\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e43\u0e2b\u0e49\u0e40\u0e25\u0e37\u0e2d\u0e01\u0e2b\u0e25\u0e32\u0e22\u0e23\u0e39\u0e1b\u0e41\u0e1a\u0e1a\u0e40\u0e25\u0e22 \u0e40\u0e0a\u0e48\u0e19 .xml, .csv, .json \u0e41\u0e15\u0e48\u0e17\u0e35\u0e48\u0e08\u0e30\u0e43\u0e0a\u0e49\u0e43\u0e19\u0e04\u0e23\u0e31\u0e49\u0e07\u0e19\u0e35\u0e49\u0e08\u0e30\u0e40\u0e25\u0e37\u0e2d\u0e01\u0e43\u0e0a\u0e49\u0e2d\u0e31\u0e19\u0e17\u0e35\u0e48\u0e40\u0e1b\u0e47\u0e19\u0e44\u0e1f\u0e25\u0e4c\u0e19\u0e32\u0e21\u0e2a\u0e01\u0e38\u0e25 .csv <\/p>\n<\/p>\n<p>\u0e40\u0e23\u0e34\u0e48\u0e21\u0e15\u0e49\u0e19\u0e01\u0e47<a href=\"https:\/\/catalog.data.gov\/dataset\/electric-vehicle-population-data\">\u0e14\u0e32\u0e27\u0e19\u0e4c\u0e42\u0e2b\u0e25\u0e14\u0e44\u0e1f\u0e25\u0e4c .csv <\/a> \u0e02\u0e2d\u0e07\u0e0a\u0e38\u0e14\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e15\u0e49\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e21\u0e32\u0e01\u0e48\u0e2d\u0e19 \u0e14\u0e32\u0e27\u0e19\u0e4c\u0e42\u0e2b\u0e25\u0e14\u0e40\u0e2a\u0e23\u0e47\u0e08\u0e01\u0e47\u0e22\u0e49\u0e32\u0e22\u0e21\u0e32\u0e1a\u0e31\u0e19\u0e17\u0e36\u0e01\u0e43\u0e19\u0e42\u0e1f\u0e25\u0e40\u0e14\u0e2d\u0e23\u0e4c\u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e15\u0e49\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e08\u0e30\u0e17\u0e33\u0e07\u0e32\u0e19\u0e43\u0e19\u0e42\u0e1b\u0e23\u0e40\u0e08\u0e04\u0e19\u0e35\u0e49<\/p>\n<p>\u0e17\u0e33\u0e01\u0e32\u0e23\u0e15\u0e23\u0e27\u0e08\u0e2a\u0e2d\u0e1a\u0e27\u0e48\u0e32\u0e15\u0e2d\u0e19\u0e19\u0e35\u0e49\u0e42\u0e1f\u0e25\u0e40\u0e14\u0e2d\u0e23\u0e4c\u0e17\u0e35\u0e48 R \u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e17\u0e33\u0e07\u0e32\u0e19\u0e2d\u0e22\u0e39\u0e48\u0e19\u0e31\u0e49\u0e19\u0e2d\u0e22\u0e39\u0e48\u0e15\u0e23\u0e07\u0e44\u0e2b\u0e19 \u0e15\u0e23\u0e27\u0e08\u0e2a\u0e2d\u0e1a\u0e42\u0e1f\u0e25\u0e40\u0e14\u0e2d\u0e23\u0e4c\u0e17\u0e33\u0e07\u0e32\u0e19\u0e1b\u0e31\u0e08\u0e08\u0e38\u0e1a\u0e31\u0e19\u0e14\u0e49\u0e27\u0e22\u0e04\u0e33\u0e2a\u0e31\u0e48\u0e07 getwd()<\/p>\n<pre class=\"prettyprint lang-r\" data-start-line=\"1\" data-visibility=\"visible\" data-highlight=\"\" data-caption=\"\">\r\ngetwd()\r\n<\/pre>\n<p>\n\u0e16\u0e49\u0e32\u0e42\u0e1f\u0e25\u0e40\u0e14\u0e2d\u0e23\u0e4c\u0e19\u0e31\u0e49\u0e19\u0e44\u0e21\u0e48\u0e43\u0e0a\u0e48\u0e42\u0e1f\u0e25\u0e40\u0e14\u0e2d\u0e23\u0e4c\u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e15\u0e49\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e17\u0e33\u0e07\u0e32\u0e19 \u0e40\u0e23\u0e32\u0e2a\u0e32\u0e21\u0e32\u0e23\u0e16\u0e08\u0e30\u0e40\u0e1b\u0e25\u0e35\u0e48\u0e22\u0e19\u0e41\u0e1b\u0e25\u0e07\u0e15\u0e33\u0e41\u0e2b\u0e19\u0e48\u0e07\u0e02\u0e2d\u0e07\u0e42\u0e1f\u0e25\u0e40\u0e14\u0e2d\u0e23\u0e4c\u0e44\u0e14\u0e49 \u0e43\u0e2b\u0e49\u0e22\u0e49\u0e32\u0e22\u0e44\u0e1f\u0e25\u0e4c\u0e44\u0e1b\u0e17\u0e35\u0e48\u0e42\u0e1f\u0e25\u0e40\u0e14\u0e2d\u0e23\u0e4c\u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e15\u0e49\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e17\u0e33\u0e07\u0e32\u0e19\u0e44\u0e14\u0e49\u0e14\u0e49\u0e27\u0e22\u0e04\u0e33\u0e2a\u0e31\u0e48\u0e07 setwd(&#8220;\/path\/to\/my_project&#8221;)<\/p>\n<pre class=\"prettyprint lang-r\" data-start-line=\"1\" data-visibility=\"visible\" data-highlight=\"\" data-caption=\"\">\r\nsetwd(\"\/path\/to\/my_project\")\r\n\r\n#\u0e15\u0e23\u0e27\u0e08\u0e2a\u0e2d\u0e1a\u0e2d\u0e35\u0e01\u0e04\u0e23\u0e31\u0e49\u0e07\u0e14\u0e49\u0e27\u0e22\u0e04\u0e33\u0e2a\u0e31\u0e48\u0e07 getwd() \u0e27\u0e48\u0e32\u0e44\u0e14\u0e49\u0e40\u0e1b\u0e25\u0e35\u0e48\u0e22\u0e19\u0e21\u0e32\u0e22\u0e31\u0e07\u0e42\u0e1f\u0e25\u0e40\u0e14\u0e2d\u0e23\u0e4c\u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e23\u0e30\u0e1a\u0e38\u0e41\u0e25\u0e49\u0e27\u0e2b\u0e23\u0e37\u0e2d\u0e22\u0e31\u0e07\r\ngetwd()\r\n<\/pre>\n<p>\n\u0e40\u0e21\u0e37\u0e48\u0e2d\u0e40\u0e23\u0e32\u0e40\u0e1b\u0e25\u0e35\u0e48\u0e22\u0e19\u0e15\u0e33\u0e41\u0e2b\u0e19\u0e48\u0e07\u0e42\u0e1f\u0e25\u0e40\u0e14\u0e2d\u0e23\u0e4c\u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e01\u0e33\u0e25\u0e31\u0e07\u0e08\u0e30\u0e17\u0e33\u0e07\u0e32\u0e19\u0e14\u0e49\u0e27\u0e22\u0e40\u0e2a\u0e23\u0e47\u0e08\u0e41\u0e25\u0e49\u0e27 \u0e40\u0e23\u0e32\u0e01\u0e47\u0e21\u0e32\u0e25\u0e2d\u0e07\u0e40\u0e23\u0e34\u0e48\u0e21\u0e42\u0e2b\u0e25\u0e14\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e14\u0e39\u0e01\u0e31\u0e19\n<\/p>\n<hr\/>\n<h3>\u0e42\u0e2b\u0e25\u0e14\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e08\u0e32\u0e01\u0e44\u0e1f\u0e25\u0e4c\u0e02\u0e36\u0e49\u0e19\u0e21\u0e32\u0e43\u0e19\u0e2b\u0e19\u0e48\u0e27\u0e22\u0e04\u0e27\u0e32\u0e21\u0e08\u0e33<\/h3>\n<pre class=\"prettyprint lang-r\" data-start-line=\"1\" data-visibility=\"visible\" data-highlight=\"\" data-caption=\"\">\r\nlibrary(dplyr)\r\nlibrary(ggplot2)\r\n\r\n#This dataset shows the Battery Electric Vehicles (BEVs) and Plug-in Hybrid Electric Vehicles (PHEVs) \r\n# that are currently registered through Washington State Department of Licensing (DOL).\r\n# https:\/\/catalog.data.gov\/dataset\/electric-vehicle-population-data\r\n# \u0e43\u0e0a\u0e49\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 read.csv() \u0e17\u0e33\u0e01\u0e32\u0e23\u0e2d\u0e48\u0e32\u0e19\u0e44\u0e1f\u0e25\u0e4c\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e02\u0e36\u0e49\u0e19\u0e21\u0e32\u0e40\u0e01\u0e47\u0e1a\u0e44\u0e27\u0e49\u0e43\u0e19\u0e2b\u0e19\u0e48\u0e27\u0e22\u0e04\u0e27\u0e32\u0e21\u0e08\u0e33\r\nev_vehicle_data <- read.csv(\"Electric_Vehicle_Population_Data.csv\")\r\n\r\n# \u0e15\u0e23\u0e27\u0e08\u0e2a\u0e2d\u0e1a\u0e08\u0e33\u0e19\u0e27\u0e19\u0e41\u0e16\u0e27, \u0e2b\u0e25\u0e31\u0e01 \u0e02\u0e2d\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e14\u0e49\u0e27\u0e22\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 dim()\r\ndim(ev_vehicle_data)\r\n\r\n<\/pre>\n<table>\n<tr>\n<td>\n[1]  271113    16<br \/>\n# \u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21\u0e08\u0e30\u0e04\u0e37\u0e19\u0e04\u0e48\u0e32\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 \u0e21\u0e35\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 271,113 \u0e41\u0e16\u0e27, 16 \u0e04\u0e2d\u0e25\u0e31\u0e21\u0e19\u0e4c\n<\/td>\n<\/tr>\n<\/table>\n<p>\u0e40\u0e0a\u0e47\u0e04\u0e14\u0e39\u0e27\u0e48\u0e32\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e21\u0e35\u0e04\u0e2d\u0e25\u0e31\u0e21\u0e19\u0e4c\u0e2d\u0e30\u0e44\u0e23\u0e1a\u0e49\u0e32\u0e07<\/p>\n<pre class=\"prettyprint lang-r\" data-start-line=\"1\" data-visibility=\"visible\" data-highlight=\"\" data-caption=\"\">\r\n# \u0e15\u0e23\u0e27\u0e08\u0e2a\u0e2d\u0e1a\u0e0a\u0e37\u0e48\u0e2d\u0e04\u0e2d\u0e25\u0e31\u0e21\u0e19\u0e4c\u0e02\u0e2d\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e14\u0e49\u0e27\u0e22\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 colnames()\r\ncolnames(ev_vehicle_data)\r\n<\/pre>\n<table>\n<tr>\n<td>\n# \u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21\u0e08\u0e30\u0e04\u0e37\u0e19\u0e04\u0e48\u0e32\u0e0a\u0e37\u0e48\u0e2d\u0e02\u0e2d\u0e07\u0e04\u0e2d\u0e25\u0e31\u0e21\u0e19\u0e4c\u0e17\u0e31\u0e49\u0e07\u0e2b\u0e21\u0e14 16 \u0e04\u0e2d\u0e25\u0e31\u0e21\u0e19\u0e4c\u0e2d\u0e2d\u0e01\u0e21\u0e32<br \/>\n[1] \"VIN..1.10.\"<br \/>\n [2] \"County\"<br \/>\n [3] \"City\"<br \/>\n [4] \"State\"<br \/>\n [5] \"Postal.Code\"<br \/>\n [6] \"Model.Year\"<br \/>\n [7] \"Make\"<br \/>\n [8] \"Model\"<br \/>\n [9] \"Electric.Vehicle.Type\"<br \/>\n[10] \"Clean.Alternative.Fuel.Vehicle..CAFV..Eligibility\"<br \/>\n[11] \"Electric.Range\"<br \/>\n[12] \"Legislative.District\"<br \/>\n[13] \"DOL.Vehicle.ID\"<br \/>\n[14] \"Vehicle.Location\"<br \/>\n[15] \"Electric.Utility\"<br \/>\n[16] \"X2020.Census.Tract\"\n<\/td>\n<\/tr>\n<\/table>\n<hr\/>\n<h3> \u0e40\u0e23\u0e34\u0e48\u0e21\u0e08\u0e31\u0e14\u0e01\u0e32\u0e23\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e41\u0e25\u0e30\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e1b\u0e47\u0e19\u0e01\u0e23\u0e32\u0e1f\u0e41\u0e1a\u0e1a\u0e15\u0e48\u0e32\u0e07\u0e46 <\/h3>\n<p>\u0e14\u0e39\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e23\u0e16 EV \u0e02\u0e2d\u0e07\u0e23\u0e31\u0e10\u0e27\u0e2d\u0e0a\u0e34\u0e07\u0e15\u0e31\u0e19, \u0e2a\u0e2b\u0e23\u0e31\u0e10\u0e2d\u0e40\u0e21\u0e23\u0e34\u0e01\u0e32 \u0e0a\u0e48\u0e27\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e23\u0e30\u0e2b\u0e27\u0e48\u0e32\u0e07\u0e1b\u0e35 1999-2026,  \u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c EV \u0e17\u0e35\u0e48\u0e23\u0e31\u0e1a\u0e01\u0e32\u0e23\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e08\u0e32\u0e01\u0e1c\u0e39\u0e49\u0e02\u0e2d\u0e2d\u0e19\u0e38\u0e0d\u0e32\u0e15\u0e34\u0e43\u0e1a\u0e02\u0e31\u0e1a\u0e02\u0e35\u0e48 \u0e42\u0e14\u0e22\u0e08\u0e31\u0e14\u0e01\u0e25\u0e38\u0e48\u0e21\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e08\u0e32\u0e01\u0e0a\u0e37\u0e48\u0e2d\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c<\/p>\n<pre class=\"prettyprint lang-r\" data-start-line=\"1\" data-visibility=\"visible\" data-highlight=\"\" data-caption=\"\">\r\n# \u0e17\u0e33\u0e01\u0e32\u0e23\u0e2a\u0e23\u0e38\u0e1b\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e14\u0e49\u0e27\u0e22\u0e01\u0e32\u0e23\u0e08\u0e31\u0e14\u0e01\u0e25\u0e38\u0e48\u0e21\u0e23\u0e27\u0e21\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e08\u0e33\u0e19\u0e27\u0e19\u0e23\u0e16 EV \u0e17\u0e31\u0e49\u0e07 \u0e08\u0e31\u0e14\u0e01\u0e25\u0e38\u0e48\u0e21\u0e15\u0e32\u0e21\u0e0a\u0e37\u0e2d\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e17\u0e35\u0e48\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e14\u0e39\u0e27\u0e48\u0e32\u0e23\u0e16\u0e41\u0e15\u0e48\u0e25\u0e30\u0e01\u0e25\u0e38\u0e48\u0e21\u0e21\u0e35\u0e1c\u0e39\u0e49\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e44\u0e1b\u0e17\u0e31\u0e49\u0e07\u0e2b\u0e21\u0e14\u0e08\u0e33\u0e19\u0e27\u0e19\u0e40\u0e17\u0e48\u0e32\u0e44\u0e23\r\n# \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 group_by \u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e08\u0e31\u0e14\u0e01\u0e25\u0e38\u0e48\u0e21\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 \u0e43\u0e19\u0e17\u0e35\u0e48\u0e19\u0e35\u0e49\u0e23\u0e27\u0e21\u0e01\u0e25\u0e38\u0e48\u0e21\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e42\u0e14\u0e22\u0e40\u0e25\u0e37\u0e2d\u0e01\u0e43\u0e0a\u0e49\u0e04\u0e2d\u0e25\u0e31\u0e21\u0e19\u0e4c Make \u0e0b\u0e36\u0e48\u0e07\u0e40\u0e1b\u0e47\u0e19\u0e0a\u0e37\u0e48\u0e2d\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\r\n# \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 summarize \u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e23\u0e27\u0e21\u0e08\u0e33\u0e19\u0e27\u0e19\u0e41\u0e16\u0e27\u0e17\u0e35\u0e48\u0e21\u0e35\u0e1c\u0e39\u0e49\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e43\u0e0a\u0e49\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e08\u0e32\u0e01\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e19\u0e31\u0e49\u0e19\u0e46 \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e19\u0e31\u0e1a\u0e08\u0e33\u0e19\u0e27\u0e19\u0e1c\u0e39\u0e49\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e41\u0e22\u0e01\u0e15\u0e32\u0e21\u0e0a\u0e37\u0e48\u0e2d\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\r\n# \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 arrange \u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e17\u0e33\u0e01\u0e32\u0e23\u0e40\u0e23\u0e35\u0e22\u0e07\u0e25\u0e33\u0e14\u0e31\u0e1a\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 \u0e43\u0e19\u0e17\u0e35\u0e48\u0e19\u0e35\u0e49\u0e43\u0e0a\u0e49\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e40\u0e23\u0e35\u0e22\u0e07\u0e25\u0e33\u0e14\u0e31\u0e1a\u0e08\u0e33\u0e19\u0e27\u0e19\u0e1c\u0e39\u0e49\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e0b\u0e36\u0e48\u0e07\u0e41\u0e22\u0e01\u0e15\u0e32\u0e21\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c \u0e40\u0e23\u0e35\u0e22\u0e07\u0e25\u0e33\u0e14\u0e31\u0e1a\u0e08\u0e32\u0e01\u0e21\u0e32\u0e01\u0e44\u0e1b\u0e19\u0e49\u0e2d\u0e22\r\nsummarized_ev_vehicle_overtime <- ev_vehicle_data %>% \r\n                                    group_by(Make) %>% \r\n                                    summarize(total_amount=n(), .groups =\"drop\") %>% \r\n                                    arrange(desc(total_amount))\r\n\r\n#\u0e43\u0e0a\u0e49\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 ggplot \u0e08\u0e32\u0e01 package ggplot2 \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e17\u0e33\u0e01\u0e32\u0e23\u0e41\u0e2a\u0e14\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e1b\u0e23\u0e35\u0e22\u0e1a\u0e40\u0e17\u0e35\u0e22\u0e1a\u0e43\u0e19\u0e23\u0e39\u0e1b\u0e41\u0e1a\u0e1a\u0e41\u0e1c\u0e19\u0e20\u0e39\u0e21\u0e34\u0e41\u0e17\u0e48\u0e07\r\nggplot(summarized_ev_vehicle_overtime, aes(x=reorder(Make, -total_amount), y=total_amount)) + \r\n    geom_bar(position = \"dodge\", stat = \"identity\") + \r\n    labs(title=\"Registered electric vehicle of Washington State, USA 1999-2026 (group by Make) \", x=\"Make\", y=\"Amount of registered vehicle\")+\r\n     theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1))\r\n<\/pre>\n<p>\u0e1e\u0e2d\u0e23\u0e31\u0e19\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21\u0e41\u0e25\u0e49\u0e27\u0e1c\u0e25\u0e2d\u0e2d\u0e01\u0e21\u0e32\u0e08\u0e30\u0e44\u0e14\u0e49\u0e01\u0e23\u0e32\u0e1f\u0e41\u0e1a\u0e1a\u0e19\u0e35\u0e49 \u0e08\u0e30\u0e40\u0e2b\u0e47\u0e19\u0e27\u0e48\u0e32\u0e08\u0e32\u0e01\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e21\u0e35\u0e1c\u0e39\u0e49\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e43\u0e0a\u0e49\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c EV \u0e08\u0e32\u0e01\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e15\u0e48\u0e32\u0e07\u0e46 \u0e21\u0e32\u0e01\u0e19\u0e49\u0e2d\u0e22\u0e41\u0e15\u0e01\u0e15\u0e48\u0e32\u0e07\u0e01\u0e31\u0e19\u0e44\u0e1b \u0e40\u0e23\u0e35\u0e22\u0e07\u0e25\u0e33\u0e14\u0e31\u0e1a\u0e08\u0e32\u0e01\u0e21\u0e32\u0e01\u0e44\u0e1b\u0e19\u0e49\u0e2d\u0e22\u0e41\u0e25\u0e49\u0e27 Tesla \u0e21\u0e32\u0e40\u0e1b\u0e47\u0e19\u0e2d\u0e31\u0e19\u0e14\u0e31\u0e1a\u0e41\u0e23\u0e01, \u0e15\u0e32\u0e21\u0e14\u0e49\u0e27\u0e22 CHEVROLET, NISSAN, FORD, KIA \u0e41\u0e25\u0e30\u0e08\u0e32\u0e01\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e2d\u0e37\u0e48\u0e19\u0e46\u0e40\u0e23\u0e35\u0e22\u0e07\u0e44\u0e1b\u0e15\u0e32\u0e21\u0e25\u0e33\u0e14\u0e31\u0e1a<br \/>\n<a href=\"https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarized_ev_vehicle_overtime.png\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarized_ev_vehicle_overtime.png\" alt=\"\" width=\"985\" height=\"775\" class=\"aligncenter size-full wp-image-4315\" srcset=\"https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarized_ev_vehicle_overtime.png?v=1770479387 985w, https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarized_ev_vehicle_overtime-632x497.png?v=1770479387 632w, https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarized_ev_vehicle_overtime-768x604.png?v=1770479387 768w\" sizes=\"auto, (max-width: 985px) 100vw, 985px\" \/><\/a><\/p>\n<hr\/>\n<p>\u0e04\u0e23\u0e32\u0e27\u0e19\u0e35\u0e49\u0e40\u0e23\u0e32\u0e25\u0e2d\u0e07\u0e21\u0e32\u0e1e\u0e25\u0e2d\u0e15\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e14\u0e39\u0e27\u0e48\u0e32\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e42\u0e21\u0e40\u0e14\u0e25(Model)\u0e44\u0e2b\u0e19\u0e02\u0e2d\u0e07\u0e41\u0e15\u0e48\u0e25\u0e30\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c EV \u0e17\u0e35\u0e48\u0e21\u0e35\u0e1c\u0e39\u0e49\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e23\u0e16\u0e40\u0e22\u0e2d\u0e30\u0e17\u0e35\u0e48\u0e2a\u0e38\u0e14 \u0e42\u0e14\u0e22\u0e08\u0e30\u0e40\u0e25\u0e37\u0e2d\u0e01\u0e1e\u0e25\u0e2d\u0e15\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e1e\u0e35\u0e22\u0e07 50 \u0e2d\u0e31\u0e19\u0e14\u0e31\u0e1a\u0e41\u0e23\u0e01<\/p>\n<pre class=\"prettyprint lang-r\" data-start-line=\"1\" data-visibility=\"visible\" data-highlight=\"\" data-caption=\"\">\r\n# \u0e17\u0e33\u0e01\u0e32\u0e23\u0e2a\u0e23\u0e38\u0e1b\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e08\u0e33\u0e19\u0e27\u0e19\u0e1c\u0e39\u0e49\u0e17\u0e35\u0e48\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c \u0e08\u0e31\u0e14\u0e01\u0e25\u0e38\u0e48\u0e21\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e08\u0e32\u0e01\u0e04\u0e2d\u0e25\u0e31\u0e21\u0e19\u0e4c\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15(Make), \u0e42\u0e21\u0e40\u0e14\u0e25(Model)\r\n# \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 group_by \u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e08\u0e31\u0e14\u0e01\u0e25\u0e38\u0e48\u0e21\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 \u0e43\u0e19\u0e17\u0e35\u0e48\u0e19\u0e35\u0e49\u0e40\u0e25\u0e37\u0e2d\u0e01\u0e43\u0e0a\u0e49\u0e04\u0e2d\u0e25\u0e31\u0e21\u0e19\u0e4c  Make, Model \u0e0b\u0e36\u0e48\u0e07\u0e40\u0e1b\u0e47\u0e19\u0e0a\u0e37\u0e48\u0e2d\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c, \u0e42\u0e21\u0e40\u0e14\u0e25\r\n# \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 summarize \u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e23\u0e27\u0e21\u0e08\u0e33\u0e19\u0e27\u0e19\u0e41\u0e16\u0e27\u0e17\u0e35\u0e48\u0e21\u0e35\u0e1c\u0e39\u0e49\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e43\u0e0a\u0e49\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e42\u0e21\u0e40\u0e14\u0e25\u0e19\u0e31\u0e49\u0e19\u0e08\u0e32\u0e01\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c EV \r\n# \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 arrange \u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e17\u0e33\u0e01\u0e32\u0e23\u0e40\u0e23\u0e35\u0e22\u0e07\u0e25\u0e33\u0e14\u0e31\u0e1a\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 \u0e43\u0e19\u0e17\u0e35\u0e48\u0e19\u0e35\u0e49\u0e43\u0e0a\u0e49\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e40\u0e23\u0e35\u0e22\u0e07\u0e25\u0e33\u0e14\u0e31\u0e1a\u0e08\u0e33\u0e19\u0e27\u0e19\u0e1c\u0e39\u0e49\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e0b\u0e36\u0e48\u0e07\u0e41\u0e22\u0e01\u0e15\u0e32\u0e21\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c, \u0e42\u0e21\u0e40\u0e14\u0e25 \u0e40\u0e23\u0e35\u0e22\u0e07\u0e25\u0e33\u0e14\u0e31\u0e1a\u0e08\u0e32\u0e01\u0e21\u0e32\u0e01\u0e44\u0e1b\u0e19\u0e49\u0e2d\u0e22\r\nsummarized_ev_group_by_model <- ev_vehicle_data %>% \r\n                                   group_by(Make, Model) %>% \r\n                                     summarize(total_amount=n(), .groups =\"drop\") %>% \r\n                                        arrange(desc(total_amount))\r\n\r\n# \u0e40\u0e25\u0e37\u0e2d\u0e01\u0e40\u0e1e\u0e35\u0e22\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 50 \u0e2d\u0e31\u0e19\u0e14\u0e31\u0e1a\u0e41\u0e23\u0e01\r\nsummarized_ev_group_by_model <- summarized_ev_group_by_model[1:50,]\r\n\r\n# \u0e1b\u0e23\u0e31\u0e1a\u0e02\u0e49\u0e2d\u0e04\u0e27\u0e32\u0e21\u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\u0e15\u0e23\u0e07\u0e41\u0e01\u0e19 Y \u0e43\u0e2b\u0e49\u0e23\u0e30\u0e1a\u0e38\u0e0a\u0e37\u0e48\u0e2d\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e1e\u0e23\u0e49\u0e2d\u0e21\u0e01\u0e31\u0e1a\u0e0a\u0e37\u0e48\u0e2d\u0e42\u0e21\u0e40\u0e14\u0e25\u0e02\u0e2d\u0e07\u0e23\u0e16\r\nadjust_y_labels <- vapply(summarized_ev_group_by_model, paste, summarized_ev_group_by_model$Make, \"(\", summarized_ev_group_by_model$Model, \")\")\r\n\r\n#\u0e43\u0e0a\u0e49\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 ggplot \u0e08\u0e32\u0e01 package ggplot2 \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e17\u0e33\u0e01\u0e32\u0e23\u0e41\u0e2a\u0e14\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e1b\u0e23\u0e35\u0e22\u0e1a\u0e40\u0e17\u0e35\u0e22\u0e1a\u0e43\u0e19\u0e23\u0e39\u0e1b\u0e41\u0e1a\u0e1a\u0e41\u0e1c\u0e19\u0e20\u0e39\u0e21\u0e34\u0e41\u0e17\u0e48\u0e07\r\nggplot(summarized_ev_group_by_model, aes(y=reorder(Model, -total_amount), x=total_amount)) + \r\n  geom_bar(position=\"dodge\", stat = \"identity\", width=0.8  ) + \r\n  geom_col(aes(fill = Make), position = position_dodge(width = 0.1), width = .6)+\r\n  scale_y_discrete(labels = adjust_y_labels) + \r\n  labs(title=\"Registered electric vehicle of Washington State, USA (group by Make, Model) \", y=\"Model\", x=\"Amount of registered vehicle\")+\r\n  theme(axis.text.y = element_text(size=8, angle = 0, vjust = 0.5, hjust = 1))\r\n<\/pre>\n<p>\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e1e\u0e25\u0e2d\u0e15\u0e2d\u0e2d\u0e01\u0e21\u0e32\u0e44\u0e14\u0e49\u0e01\u0e47\u0e08\u0e30\u0e40\u0e1b\u0e47\u0e19\u0e14\u0e31\u0e07\u0e19\u0e35\u0e49:-<br \/>\n\u0e2a\u0e2d\u0e07\u0e2d\u0e31\u0e19\u0e14\u0e31\u0e1a\u0e41\u0e23\u0e01\u0e01\u0e47\u0e08\u0e30\u0e40\u0e1b\u0e47\u0e19 TESLA (MODEL Y, MODEL 3), \u0e2d\u0e31\u0e19\u0e14\u0e31\u0e1a\u0e17\u0e35\u0e48\u0e2a\u0e32\u0e21\u0e01\u0e47\u0e08\u0e30\u0e40\u0e1b\u0e47\u0e19 NISSAN (LEAF), \u0e15\u0e32\u0e21\u0e14\u0e49\u0e27\u0e22 CHEVROLET (BOLT EV) \u0e41\u0e25\u0e30 TESLA (MODEL S) \u0e41\u0e25\u0e30\u0e42\u0e21\u0e40\u0e14\u0e25\u0e2d\u0e37\u0e48\u0e19\u0e46 \u0e16\u0e31\u0e14\u0e44\u0e1b<br \/>\n<a href=\"https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarized_ev_vehicle_by_make_and_model.png\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarized_ev_vehicle_by_make_and_model.png\" alt=\"\" width=\"906\" height=\"775\" class=\"aligncenter size-full wp-image-4317\" \/><\/a><\/p>\n<hr\/>\n<p>\u0e16\u0e49\u0e32\u0e25\u0e2d\u0e07\u0e40\u0e25\u0e37\u0e2d\u0e01\u0e14\u0e39\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e09\u0e1e\u0e32\u0e30\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c EV \u0e17\u0e35\u0e48\u0e21\u0e35\u0e1b\u0e35\u0e17\u0e35\u0e48\u0e1c\u0e25\u0e34\u0e15\u0e40\u0e1b\u0e47\u0e19\u0e1b\u0e35 2025 \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e08\u0e30\u0e14\u0e39\u0e27\u0e48\u0e32\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e41\u0e15\u0e48\u0e25\u0e30\u0e42\u0e21\u0e40\u0e14\u0e25\u0e43\u0e19\u0e1b\u0e35 2025 \u0e19\u0e35\u0e49 \u0e21\u0e35\u0e1c\u0e39\u0e49\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e08\u0e33\u0e19\u0e27\u0e19\u0e21\u0e32\u0e01-\u0e19\u0e49\u0e2d\u0e22\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e44\u0e23<\/p>\n<pre class=\"prettyprint lang-r\" data-start-line=\"1\" data-visibility=\"visible\" data-highlight=\"\" data-caption=\"\">\r\n# \u0e43\u0e0a\u0e49\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 filter() \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e01\u0e23\u0e2d\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e09\u0e1e\u0e32\u0e30\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e1b\u0e35\u0e17\u0e35\u0e48\u0e1c\u0e25\u0e34\u0e15\u0e04\u0e37\u0e2d\u0e1b\u0e35 2025\r\nfilter_rows <- filter( ev_vehicle_data, Model.Year==2025)\r\n\r\n# \u0e17\u0e33\u0e01\u0e32\u0e23\u0e2a\u0e23\u0e38\u0e1b\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e08\u0e33\u0e19\u0e27\u0e19\u0e1c\u0e39\u0e49\u0e17\u0e35\u0e48\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c EV \u0e08\u0e31\u0e14\u0e01\u0e25\u0e38\u0e48\u0e21\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e08\u0e32\u0e01\u0e04\u0e2d\u0e25\u0e31\u0e21\u0e19\u0e4c\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15(Make), \u0e42\u0e21\u0e40\u0e14\u0e25(Model)\r\n# \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 group_by \u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e08\u0e31\u0e14\u0e01\u0e25\u0e38\u0e48\u0e21\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 \u0e43\u0e19\u0e17\u0e35\u0e48\u0e19\u0e35\u0e49\u0e40\u0e25\u0e37\u0e2d\u0e01\u0e43\u0e0a\u0e49\u0e04\u0e2d\u0e25\u0e31\u0e21\u0e19\u0e4c  Make, Model \u0e0b\u0e36\u0e48\u0e07\u0e40\u0e1b\u0e47\u0e19\u0e0a\u0e37\u0e48\u0e2d\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c, \u0e42\u0e21\u0e40\u0e14\u0e25 \u0e43\u0e19\u0e01\u0e32\u0e23\u0e23\u0e27\u0e21\u0e01\u0e25\u0e38\u0e48\u0e21\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\r\n# \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 summarize \u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e23\u0e27\u0e21\u0e08\u0e33\u0e19\u0e27\u0e19\u0e41\u0e16\u0e27\u0e17\u0e35\u0e48\u0e21\u0e35\u0e1c\u0e39\u0e49\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e43\u0e0a\u0e49\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c EV \u0e08\u0e32\u0e01\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e19\u0e31\u0e49\u0e19\u0e46 \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e19\u0e31\u0e1a\u0e08\u0e33\u0e19\u0e27\u0e19\u0e1c\u0e39\u0e49\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e41\u0e22\u0e01\u0e15\u0e32\u0e21\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c, \u0e42\u0e21\u0e40\u0e14\u0e25\r\n# \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 arrange \u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e17\u0e33\u0e01\u0e32\u0e23\u0e40\u0e23\u0e35\u0e22\u0e07\u0e25\u0e33\u0e14\u0e31\u0e1a\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 \u0e43\u0e19\u0e17\u0e35\u0e48\u0e19\u0e35\u0e49\u0e43\u0e0a\u0e49\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e40\u0e23\u0e35\u0e22\u0e07\u0e25\u0e33\u0e14\u0e31\u0e1a\u0e08\u0e33\u0e19\u0e27\u0e19\u0e1c\u0e39\u0e49\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e0b\u0e36\u0e48\u0e07\u0e41\u0e22\u0e01\u0e15\u0e32\u0e21\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c, \u0e42\u0e21\u0e40\u0e14\u0e25 \u0e40\u0e23\u0e35\u0e22\u0e07\u0e25\u0e33\u0e14\u0e31\u0e1a\u0e08\u0e32\u0e01\u0e21\u0e32\u0e01\u0e44\u0e1b\u0e19\u0e49\u0e2d\u0e22\r\nsummarized_ev_group_by_model <- filter_rows %>% \r\n                                  group_by(Make, Model) %>% \r\n                                    summarize(total_amount=n(), .groups =\"drop\") %>% \r\n                                      arrange(desc(total_amount))\r\n\r\n# \u0e40\u0e25\u0e37\u0e2d\u0e01\u0e40\u0e1e\u0e35\u0e22\u0e07 50 \u0e2d\u0e31\u0e19\u0e14\u0e31\u0e1a\u0e41\u0e23\u0e01\r\nsummarized_ev_group_by_model <- summarized_ev_group_by_model[1:50,]\r\n\r\n# \u0e1b\u0e23\u0e31\u0e1a\u0e02\u0e49\u0e2d\u0e04\u0e27\u0e32\u0e21\u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\u0e15\u0e23\u0e07\u0e41\u0e01\u0e19 Y \u0e43\u0e2b\u0e49\u0e23\u0e30\u0e1a\u0e38\u0e0a\u0e37\u0e48\u0e2d\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1e\u0e23\u0e49\u0e2d\u0e21\u0e01\u0e31\u0e1a\u0e0a\u0e37\u0e48\u0e2d\u0e42\u0e21\u0e40\u0e14\u0e25\u0e02\u0e2d\u0e07\u0e23\u0e16\r\nadjust_y_labels <- vapply(summarized_ev_group_by_model, paste, summarized_ev_group_by_model$Make, \"(\", summarized_ev_group_by_model$Model, \")\")\r\n\r\n#\u0e43\u0e0a\u0e49\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 ggplot \u0e08\u0e32\u0e01 package ggplot2 \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e17\u0e33\u0e01\u0e32\u0e23\u0e41\u0e2a\u0e14\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e1b\u0e23\u0e35\u0e22\u0e1a\u0e40\u0e17\u0e35\u0e22\u0e1a\u0e43\u0e19\u0e23\u0e39\u0e1b\u0e41\u0e1a\u0e1a\u0e41\u0e1c\u0e19\u0e20\u0e39\u0e21\u0e34\u0e41\u0e17\u0e48\u0e07\r\nggplot(summarized_ev_group_by_model, aes(y=reorder(Model, -total_amount), x=total_amount)) + \r\n  geom_bar(position=\"dodge\", stat = \"identity\", width=0.8  ) + \r\n  geom_col(aes(fill = Make), position = position_dodge(width = 0.1), width = .6)+\r\n  scale_y_discrete(labels = adjust_y_labels) + # Replace with your labels \r\n  labs(title=\"Registered electric vehicle of Washington State, USA model year 2025 (group by Make, Model) \", y=\"Model\", x=\"Amount of registered vehicle\")+\r\n  theme(axis.text.y = element_text(size=8, angle = 0, vjust = 0.5, hjust = 1))\r\n#theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1))+\r\n<\/pre>\n<p><a href=\"https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarized_ev_vehicle_by_make_and_model_model_year2025.png\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarized_ev_vehicle_by_make_and_model_model_year2025.png\" alt=\"\" width=\"868\" height=\"775\" class=\"aligncenter size-full wp-image-4321\" \/><\/a><br \/>\n\u0e08\u0e32\u0e01\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e1e\u0e25\u0e2d\u0e15\u0e2d\u0e2d\u0e01\u0e21\u0e32 \u0e2a\u0e2d\u0e07\u0e2d\u0e31\u0e19\u0e14\u0e31\u0e1a\u0e41\u0e23\u0e01\u0e01\u0e47\u0e08\u0e30\u0e40\u0e1b\u0e47\u0e19 TESLA (MODEL 3, MODEL Y), \u0e2d\u0e31\u0e19\u0e14\u0e31\u0e1a\u0e17\u0e35\u0e48\u0e2a\u0e32\u0e21\u0e01\u0e47\u0e08\u0e30\u0e40\u0e1b\u0e47\u0e19 RIVIAN (R1S), \u0e15\u0e32\u0e21\u0e14\u0e49\u0e27\u0e22 HYUNDAI (IONIQ 5) \u0e41\u0e25\u0e30 FORD (MUSTANG MACH-E) \u0e41\u0e25\u0e30\u0e42\u0e21\u0e40\u0e14\u0e25\u0e2d\u0e37\u0e48\u0e19\u0e46 \u0e16\u0e31\u0e14\u0e44\u0e1b \u0e08\u0e30\u0e40\u0e2b\u0e47\u0e19\u0e27\u0e48\u0e32\u0e1c\u0e25\u0e08\u0e30\u0e21\u0e35\u0e04\u0e27\u0e32\u0e21\u0e41\u0e15\u0e01\u0e15\u0e48\u0e32\u0e07\u0e01\u0e31\u0e1a\u0e01\u0e23\u0e32\u0e1f\u0e17\u0e35\u0e48\u0e41\u0e25\u0e49\u0e27\u0e17\u0e35\u0e48\u0e40\u0e1b\u0e47\u0e19\u0e01\u0e32\u0e23\u0e2a\u0e23\u0e38\u0e1b\u0e1c\u0e25\u0e23\u0e27\u0e21\u0e02\u0e2d\u0e07\u0e17\u0e38\u0e01\u0e1b\u0e35  \u0e16\u0e49\u0e32\u0e14\u0e39\u0e40\u0e09\u0e1e\u0e32\u0e30\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e02\u0e2d\u0e07\u0e1b\u0e35 2025 5 \u0e2d\u0e31\u0e19\u0e14\u0e31\u0e1a\u0e41\u0e23\u0e01\u0e01\u0e47\u0e08\u0e30\u0e21\u0e35\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c EV \u0e42\u0e21\u0e40\u0e14\u0e25\u0e43\u0e2b\u0e21\u0e48\u0e46 \u0e44\u0e14\u0e49\u0e2d\u0e31\u0e19\u0e14\u0e31\u0e1a\u0e2a\u0e39\u0e07\u0e02\u0e36\u0e49\u0e19\u0e21\u0e32\u0e14\u0e49\u0e27\u0e22<\/p>\n<hr\/>\n<p>\u0e25\u0e2d\u0e07\u0e40\u0e1b\u0e25\u0e35\u0e48\u0e22\u0e19\u0e01\u0e32\u0e23\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\u0e40\u0e1b\u0e47\u0e19 pie chart \u0e1a\u0e49\u0e32\u0e07 \u0e04\u0e23\u0e32\u0e27\u0e19\u0e35\u0e49\u0e40\u0e23\u0e32\u0e08\u0e30\u0e21\u0e32\u0e25\u0e2d\u0e07\u0e14\u0e39\u0e2d\u0e31\u0e15\u0e23\u0e32\u0e2a\u0e48\u0e27\u0e19\u0e23\u0e30\u0e2b\u0e27\u0e48\u0e32\u0e07\u0e1c\u0e39\u0e49\u0e17\u0e35\u0e48\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e40\u0e1b\u0e47\u0e19 BEVs \u0e01\u0e31\u0e1a PHEVs \u0e01\u0e31\u0e19\u0e1a\u0e49\u0e32\u0e07\u0e27\u0e48\u0e32\u0e08\u0e30\u0e21\u0e35\u0e04\u0e27\u0e32\u0e21\u0e41\u0e15\u0e01\u0e15\u0e48\u0e32\u0e07\u0e01\u0e31\u0e19\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e44\u0e23<\/p>\n<pre class=\"prettyprint lang-r\" data-start-line=\"1\" data-visibility=\"visible\" data-highlight=\"\" data-caption=\"\">\r\n# \u0e2a\u0e23\u0e38\u0e1b\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e15\u0e32\u0e21\u0e0a\u0e19\u0e34\u0e14\u0e02\u0e2d\u0e07\u0e23\u0e16 BEVs \u0e01\u0e31\u0e1a PHEVs \u0e42\u0e14\u0e22\u0e2a\u0e23\u0e38\u0e1b\u0e08\u0e32\u0e01\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e31\u0e49\u0e07\u0e2b\u0e21\u0e14\u0e17\u0e35\u0e48\u0e21\u0e35\r\n# \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19  group_by \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e17\u0e33\u0e01\u0e32\u0e23\u0e23\u0e27\u0e21\u0e01\u0e25\u0e38\u0e48\u0e21\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e15\u0e32\u0e21\u0e0a\u0e19\u0e34\u0e14\u0e02\u0e2d\u0e07\u0e23\u0e16\u0e44\u0e1f\u0e1f\u0e49\u0e32 Electric.Vehicle.Type \u0e43\u0e19\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e19\u0e35\u0e49\u0e08\u0e30\u0e21\u0e35\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e0a\u0e19\u0e34\u0e14 (BEV, PHEV)\r\n# \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 summarize \u0e43\u0e0a\u0e49\u0e15\u0e48\u0e2d\u0e08\u0e32\u0e01 group_by \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e17\u0e33\u0e01\u0e32\u0e23\u0e23\u0e27\u0e21\u0e08\u0e33\u0e19\u0e27\u0e19\u0e41\u0e16\u0e27\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 \u0e02\u0e2d\u0e07\u0e23\u0e16\u0e17\u0e35\u0e48\u0e21\u0e35\u0e01\u0e32\u0e23\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e44\u0e27\u0e49\u0e41\u0e22\u0e01\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e15\u0e32\u0e21\u0e0a\u0e19\u0e34\u0e14\u0e02\u0e2d\u0e07\u0e23\u0e16\u0e44\u0e1f\u0e1f\u0e49\u0e32\r\n# \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 arrange \u0e43\u0e0a\u0e49\u0e15\u0e48\u0e2d\u0e08\u0e32\u0e01 group_by, summarize \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e17\u0e33\u0e01\u0e32\u0e23\u0e08\u0e31\u0e14\u0e40\u0e23\u0e35\u0e22\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e2a\u0e23\u0e38\u0e1b\u0e44\u0e27\u0e49\u0e41\u0e25\u0e49\u0e27\u0e02\u0e49\u0e32\u0e07\u0e15\u0e49\u0e19 \u0e41\u0e25\u0e30\u0e40\u0e25\u0e37\u0e2d\u0e01\u0e40\u0e23\u0e35\u0e22\u0e07\u0e25\u0e33\u0e14\u0e31\u0e1a\u0e08\u0e32\u0e01\u0e21\u0e32\u0e01\u0e44\u0e1b\u0e2b\u0e32\u0e19\u0e49\u0e2d\u0e22\r\nsummarize_bev_vs_phev_overtime <- ev_vehicle_data %>% \r\n                            group_by(Electric.Vehicle.Type) %>% \r\n                                  summarize(total_amount=n(), .groups =\"drop\") %>% \r\n                                      arrange(desc(total_amount))\r\n\r\n# \u0e43\u0e0a\u0e49\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 mutate \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e40\u0e1e\u0e34\u0e48\u0e21\u0e04\u0e2d\u0e25\u0e31\u0e21\u0e19\u0e4c\u0e43\u0e2b\u0e21\u0e48 \u0e17\u0e35\u0e48\u0e43\u0e0a\u0e49\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e40\u0e01\u0e47\u0e1a\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e04\u0e33\u0e19\u0e27\u0e13\u0e08\u0e33\u0e19\u0e27\u0e19\u0e1c\u0e39\u0e49\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e43\u0e0a\u0e49\u0e23\u0e16\u0e44\u0e1f\u0e1f\u0e49\u0e32\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e23\u0e16\u0e44\u0e1f\u0e1f\u0e49\u0e32\u0e41\u0e15\u0e48\u0e25\u0e30\u0e0a\u0e19\u0e34\u0e14 \u0e41\u0e1a\u0e1a\u0e04\u0e34\u0e14\u0e40\u0e1b\u0e47\u0e19\u0e08\u0e33\u0e19\u0e27\u0e19\u0e40\u0e1b\u0e2d\u0e23\u0e4c\u0e40\u0e0b\u0e47\u0e19\u0e15\u0e4c\r\nsummarize_bev_vs_phev_overtime <- mutate(summarize_bev_vs_phev_overtime, percent_type = round(  (total_amount \/ sum(total_amount)) *100 ,digit=2))\r\n\r\n# \u0e43\u0e0a\u0e49\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 ggplot \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e17\u0e33\u0e01\u0e32\u0e23\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e1c\u0e39\u0e49\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e43\u0e0a\u0e49\u0e23\u0e16\u0e44\u0e1f\u0e1f\u0e49\u0e32\u0e41\u0e15\u0e48\u0e25\u0e30\u0e0a\u0e19\u0e34\u0e14\r\nggplot(summarize_bev_vs_phev_overtime, aes(x=\"\", y=total_amount, fill=Electric.Vehicle.Type)) +\r\n  geom_bar(stat=\"identity\", width=1) +\r\n  coord_polar(\"y\", start=0) + \r\n  \r\n  theme_void() + \r\n  labs(title=\"Registerd electric vehicle of Washington State, USA 1999-2026 \\n (group by Electric.Vehicle.Type) \", x=\"Year\", y=\"Amount of registered vehicle\")+\r\n  geom_text(aes(label = paste0(Electric.Vehicle.Type, \":\", total_amount, \"\\n\", percent_type, \"%\")), position = position_stack(vjust = 0.5))\r\n\r\n\r\n\r\n<\/pre>\n<p><a href=\"https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarized_ev_vehicle_bev_vs_phev.png\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarized_ev_vehicle_bev_vs_phev.png\" alt=\"\" width=\"935\" height=\"775\" class=\"aligncenter size-full wp-image-4341\" srcset=\"https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarized_ev_vehicle_bev_vs_phev.png?v=1770517080 935w, https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarized_ev_vehicle_bev_vs_phev-632x524.png?v=1770517080 632w, https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarized_ev_vehicle_bev_vs_phev-768x637.png?v=1770517080 768w\" sizes=\"auto, (max-width: 935px) 100vw, 935px\" \/><\/a><br \/>\n\u0e08\u0e32\u0e01\u0e01\u0e23\u0e32\u0e1f\u0e08\u0e30\u0e1e\u0e1a\u0e27\u0e48\u0e32\u0e21\u0e35\u0e1c\u0e39\u0e49\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e17\u0e35\u0e48\u0e43\u0e0a\u0e49\u0e23\u0e16\u0e44\u0e1f\u0e1f\u0e49\u0e32 BEVs \u0e16\u0e36\u0e07 79.79% \u0e41\u0e25\u0e30\u0e1c\u0e39\u0e49\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e44\u0e2e\u0e1a\u0e23\u0e34\u0e14 PHEVs \u0e40\u0e1e\u0e35\u0e22\u0e07 20.21% \u0e40\u0e17\u0e48\u0e32\u0e19\u0e31\u0e49\u0e19<\/p>\n<hr\/>\n<p>\u0e04\u0e23\u0e32\u0e27\u0e19\u0e35\u0e49\u0e01\u0e47\u0e21\u0e32\u0e25\u0e2d\u0e07\u0e1e\u0e25\u0e2d\u0e15\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 \u0e42\u0e14\u0e22\u0e40\u0e09\u0e1e\u0e32\u0e30\u0e40\u0e08\u0e32\u0e30\u0e08\u0e07\u0e40\u0e1b\u0e47\u0e19\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e02\u0e2d\u0e07\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c FORD \u0e08\u0e30\u0e21\u0e35\u0e1c\u0e39\u0e49\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e43\u0e19\u0e41\u0e15\u0e48\u0e25\u0e30\u0e42\u0e21\u0e40\u0e14\u0e25\u0e21\u0e35\u0e2d\u0e31\u0e15\u0e23\u0e32\u0e2a\u0e48\u0e27\u0e19\u0e40\u0e17\u0e48\u0e32\u0e44\u0e23\u0e01\u0e31\u0e19\u0e1a\u0e49\u0e32\u0e07<\/p>\n<pre class=\"prettyprint lang-r\" data-start-line=\"1\" data-visibility=\"visible\" data-highlight=\"\" data-caption=\"\">\r\n\r\n# \u0e43\u0e0a\u0e49\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 filter() \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e01\u0e23\u0e2d\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e09\u0e1e\u0e32\u0e30\u0e41\u0e16\u0e27\u0e17\u0e35\u0e48\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e37\u0e19(Make)\u0e40\u0e1b\u0e47\u0e19\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17 FORD\r\nfilter_rows <- filter( ev_vehicle_data, Make==\"FORD\")\r\n\r\n# \u0e2a\u0e23\u0e38\u0e1b\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e15\u0e32\u0e21\u0e42\u0e21\u0e40\u0e14\u0e25\u0e02\u0e2d\u0e07\u0e23\u0e16\r\n# \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19  group_by \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e17\u0e33\u0e01\u0e32\u0e23\u0e23\u0e27\u0e21\u0e01\u0e25\u0e38\u0e48\u0e21\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e15\u0e32\u0e21\u0e42\u0e21\u0e40\u0e14\u0e25(Model) \r\n# \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 summarize \u0e43\u0e0a\u0e49\u0e15\u0e48\u0e2d\u0e08\u0e32\u0e01 group_by \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e17\u0e33\u0e01\u0e32\u0e23\u0e23\u0e27\u0e21\u0e08\u0e33\u0e19\u0e27\u0e19\u0e41\u0e16\u0e27\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\r\n# \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 arrange \u0e43\u0e0a\u0e49\u0e15\u0e48\u0e2d\u0e08\u0e32\u0e01 group_by, summarize \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e17\u0e33\u0e01\u0e32\u0e23\u0e08\u0e31\u0e14\u0e40\u0e23\u0e35\u0e22\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e2a\u0e23\u0e38\u0e1b\u0e44\u0e27\u0e49\u0e41\u0e25\u0e49\u0e27\u0e02\u0e49\u0e32\u0e07\u0e15\u0e49\u0e19 \u0e41\u0e25\u0e30\u0e40\u0e25\u0e37\u0e2d\u0e01\u0e40\u0e23\u0e35\u0e22\u0e07\u0e25\u0e33\u0e14\u0e31\u0e1a\u0e08\u0e32\u0e01\u0e21\u0e32\u0e01\u0e44\u0e1b\u0e2b\u0e32\u0e19\u0e49\u0e2d\u0e22\r\nsummarize_make_by_model <- filter_rows %>% \r\n  group_by(Model) %>% \r\n  summarize(total_amount=n(), .groups =\"drop\") %>% \r\n  arrange(desc(total_amount))\r\n\r\n# \u0e43\u0e0a\u0e49\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 mutate \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e40\u0e1e\u0e34\u0e48\u0e21\u0e04\u0e2d\u0e25\u0e31\u0e21\u0e19\u0e4c\u0e43\u0e2b\u0e21\u0e48 \u0e17\u0e35\u0e48\u0e43\u0e0a\u0e49\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e40\u0e01\u0e47\u0e1a\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e04\u0e33\u0e19\u0e27\u0e13\u0e08\u0e33\u0e19\u0e27\u0e19\u0e1c\u0e39\u0e49\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e43\u0e0a\u0e49\u0e23\u0e16\u0e44\u0e1f\u0e1f\u0e49\u0e32\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e23\u0e16\u0e44\u0e1f\u0e1f\u0e49\u0e32\u0e41\u0e15\u0e48\u0e25\u0e30\u0e42\u0e21\u0e40\u0e14\u0e25\u0e02\u0e2d\u0e07\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17 FORD \u0e04\u0e33\u0e19\u0e27\u0e13\u0e41\u0e1a\u0e1a\u0e04\u0e34\u0e14\u0e40\u0e1b\u0e47\u0e19\u0e08\u0e33\u0e19\u0e27\u0e19\u0e40\u0e1b\u0e2d\u0e23\u0e4c\u0e40\u0e0b\u0e47\u0e19\u0e15\u0e4c\r\nsummarize_make_by_model <- mutate(summarize_make_by_model, percent_type = round(  (total_amount \/ sum(total_amount)) *100 ,digit=2))\r\nggplot(summarize_make_by_model, aes(x=\"\", y=total_amount, fill=Model)) +\r\n  geom_bar(stat=\"identity\", width=1, color=\"white\") +\r\n  geom_text(aes(x=1.7, label = paste0(Model, \"\\n\", total_amount, \"\\n\", percent_type, \" %\")), position = position_stack(vjust = .4))+\r\n  coord_polar(\"y\") + \r\n  theme_void() \r\n<\/pre>\n<p><a href=\"https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarize_ev_vehicle_data_ford_popular_model.png\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarize_ev_vehicle_data_ford_popular_model.png\" alt=\"\" width=\"904\" height=\"775\" class=\"aligncenter size-full wp-image-4326\" srcset=\"https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarize_ev_vehicle_data_ford_popular_model.png?v=1770483562 904w, https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarize_ev_vehicle_data_ford_popular_model-632x542.png?v=1770483562 632w, https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarize_ev_vehicle_data_ford_popular_model-768x658.png?v=1770483562 768w\" sizes=\"auto, (max-width: 904px) 100vw, 904px\" \/><\/a><br \/>\n\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e2a\u0e23\u0e38\u0e1b\u0e08\u0e30\u0e40\u0e2b\u0e47\u0e19\u0e27\u0e48\u0e32\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c FORD \u0e42\u0e21\u0e40\u0e14\u0e25 MUSTANG MACH-E \u0e21\u0e35\u0e1c\u0e39\u0e49\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e40\u0e22\u0e2d\u0e30\u0e17\u0e35\u0e48\u0e2a\u0e38\u0e14\u0e16\u0e36\u0e07 41.71% \u0e15\u0e32\u0e21\u0e21\u0e32\u0e14\u0e49\u0e27\u0e22\u0e42\u0e21\u0e40\u0e14\u0e25 F-150 26.66%, FUSION 10.96% \u0e15\u0e32\u0e21\u0e25\u0e33\u0e14\u0e31\u0e1a<\/p>\n<hr\/>\n<p>\n\u0e08\u0e32\u0e01\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e01\u0e23\u0e32\u0e1f\u0e14\u0e49\u0e32\u0e19\u0e1a\u0e19 \u0e16\u0e49\u0e32\u0e40\u0e23\u0e32\u0e15\u0e49\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e40\u0e1b\u0e23\u0e35\u0e22\u0e1a\u0e40\u0e17\u0e35\u0e22\u0e1a\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e15\u0e48\u0e2d\u0e23\u0e30\u0e2b\u0e27\u0e48\u0e32\u0e07\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e41\u0e15\u0e48\u0e25\u0e30\u0e08\u0e49\u0e32\u0e27 \u0e40\u0e23\u0e32\u0e01\u0e47\u0e2a\u0e32\u0e21\u0e32\u0e23\u0e16\u0e40\u0e2d\u0e32\u0e01\u0e23\u0e32\u0e1f\u0e21\u0e32\u0e27\u0e32\u0e07\u0e40\u0e17\u0e35\u0e22\u0e1a\u0e01\u0e31\u0e19\u0e44\u0e14\u0e49 \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e40\u0e1b\u0e23\u0e35\u0e22\u0e1a\u0e40\u0e17\u0e35\u0e22\u0e1a \u0e42\u0e14\u0e22\u0e40\u0e23\u0e32\u0e08\u0e30\u0e43\u0e0a\u0e49 package cowplot \u0e21\u0e32\u0e0a\u0e48\u0e27\u0e22\u0e23\u0e27\u0e21\u0e01\u0e23\u0e32\u0e1f\u0e2b\u0e25\u0e32\u0e22\u0e46 \u0e01\u0e23\u0e32\u0e1f\u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\u0e43\u0e19\u0e04\u0e23\u0e32\u0e27\u0e40\u0e14\u0e35\u0e22\u0e27\u0e01\u0e31\u0e19 \u0e41\u0e25\u0e30\u0e43\u0e0a\u0e49 for...loop \u0e21\u0e32\u0e0a\u0e48\u0e27\u0e22\u0e17\u0e33\u0e07\u0e32\u0e19\u0e43\u0e19\u0e01\u0e32\u0e23\u0e27\u0e19\u0e25\u0e39\u0e1b\u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e04\u0e33\u0e19\u0e27\u0e13\u0e01\u0e23\u0e32\u0e1f\u0e41\u0e1a\u0e1a\u0e40\u0e14\u0e35\u0e22\u0e27\u0e01\u0e31\u0e19\u0e42\u0e14\u0e22\u0e40\u0e1b\u0e25\u0e35\u0e48\u0e22\u0e19\u0e41\u0e04\u0e48\u0e0a\u0e37\u0e48\u0e2d\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e17\u0e35\u0e48\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c<\/p>\n<pre class=\"prettyprint lang-r\" data-start-line=\"1\" data-visibility=\"visible\" data-highlight=\"\" data-caption=\"\">\r\nlibrary(dplyr)\r\nlibrary(ggplot2)\r\nlibrary(cowplot)\r\n\r\n#This dataset shows the Battery Electric Vehicles (BEVs) and Plug-in Hybrid Electric Vehicles (PHEVs) \r\n# that are currently registered through Washington State Department of Licensing (DOL).\r\n# https:\/\/catalog.data.gov\/dataset\/electric-vehicle-population-data\r\nev_vehicle_data <- read.csv(\"learn_R\/Electric_Vehicle_Population_Data.csv\")\r\n\r\n# \u0e2a\u0e23\u0e49\u0e32\u0e07 vector \u0e44\u0e27\u0e49\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e40\u0e01\u0e47\u0e1a\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 \u0e01\u0e23\u0e32\u0e1f\u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e40\u0e15\u0e23\u0e35\u0e22\u0e21\u0e08\u0e30\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\r\nlist_plots <- c()\r\n\r\n# \u0e2a\u0e23\u0e49\u0e32\u0e07 vector \u0e44\u0e27\u0e49\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e23\u0e30\u0e1a\u0e38\u0e0a\u0e37\u0e48\u0e2d\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e15\u0e49\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e08\u0e30\u0e40\u0e25\u0e37\u0e2d\u0e01\u0e14\u0e39\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\r\nlist_make_companies <- c(\"TESLA\", \"CHEVROLET\", \"NISSAN\", \"FORD\")\r\n\r\n# \u0e43\u0e0a\u0e49 for...loop \u0e43\u0e19\u0e01\u0e32\u0e23\u0e27\u0e19\u0e25\u0e39\u0e1b\u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e1b\u0e23\u0e30\u0e21\u0e27\u0e25\u0e1c\u0e25\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e42\u0e21\u0e40\u0e14\u0e25\u0e17\u0e35\u0e48\u0e40\u0e1b\u0e47\u0e19\u0e17\u0e35\u0e48\u0e19\u0e34\u0e22\u0e21 \u0e08\u0e32\u0e01\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e17\u0e35\u0e48\u0e44\u0e14\u0e49\u0e17\u0e33\u0e01\u0e32\u0e23\u0e23\u0e30\u0e1a\u0e38\u0e44\u0e27\u0e49\r\nfor (company in list_make_companies){\r\n\r\n    # \u0e43\u0e0a\u0e49\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 filter() \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e01\u0e23\u0e2d\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e09\u0e1e\u0e32\u0e30\u0e41\u0e16\u0e27\u0e17\u0e35\u0e48\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e37\u0e19(Make)\u0e40\u0e1b\u0e47\u0e19\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17 \r\n    filter_rows <- filter( ev_vehicle_data, Make==company)\r\n\r\n    # \u0e2a\u0e23\u0e38\u0e1b\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e15\u0e32\u0e21\u0e42\u0e21\u0e40\u0e14\u0e25\u0e02\u0e2d\u0e07\u0e23\u0e16\r\n    # \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19  group_by \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e17\u0e33\u0e01\u0e32\u0e23\u0e23\u0e27\u0e21\u0e01\u0e25\u0e38\u0e48\u0e21\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e15\u0e32\u0e21\u0e42\u0e21\u0e40\u0e14\u0e25(Model) \r\n    # \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 summarize \u0e43\u0e0a\u0e49\u0e15\u0e48\u0e2d\u0e08\u0e32\u0e01 group_by \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e17\u0e33\u0e01\u0e32\u0e23\u0e23\u0e27\u0e21\u0e08\u0e33\u0e19\u0e27\u0e19\u0e41\u0e16\u0e27\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\r\n    # \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 arrange \u0e43\u0e0a\u0e49\u0e15\u0e48\u0e2d\u0e08\u0e32\u0e01 group_by, summarize \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e17\u0e33\u0e01\u0e32\u0e23\u0e08\u0e31\u0e14\u0e40\u0e23\u0e35\u0e22\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e2a\u0e23\u0e38\u0e1b\u0e44\u0e27\u0e49\u0e41\u0e25\u0e49\u0e27\u0e02\u0e49\u0e32\u0e07\u0e15\u0e49\u0e19 \u0e41\u0e25\u0e30\u0e40\u0e25\u0e37\u0e2d\u0e01\u0e40\u0e23\u0e35\u0e22\u0e07\u0e25\u0e33\u0e14\u0e31\u0e1a\u0e08\u0e32\u0e01\u0e21\u0e32\u0e01\u0e44\u0e1b\u0e2b\u0e32\u0e19\u0e49\u0e2d\u0e22\r\n    summarize_make_by_model <- filter_rows %>% \r\n                                group_by(Model) %>% \r\n                                  summarize(total_amount=n(), .groups =\"drop\") %>% \r\n                                    arrange(desc(total_amount))\r\n    # \u0e43\u0e0a\u0e49\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 mutate \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e40\u0e1e\u0e34\u0e48\u0e21\u0e04\u0e2d\u0e25\u0e31\u0e21\u0e19\u0e4c\u0e43\u0e2b\u0e21\u0e48 \u0e17\u0e35\u0e48\u0e43\u0e0a\u0e49\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e40\u0e01\u0e47\u0e1a\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e04\u0e33\u0e19\u0e27\u0e13\u0e08\u0e33\u0e19\u0e27\u0e19\u0e1c\u0e39\u0e49\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e43\u0e0a\u0e49\u0e23\u0e16\u0e44\u0e1f\u0e1f\u0e49\u0e32\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e23\u0e16\u0e44\u0e1f\u0e1f\u0e49\u0e32\u0e41\u0e15\u0e48\u0e25\u0e30\u0e42\u0e21\u0e40\u0e14\u0e25\u0e02\u0e2d\u0e07\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e17\u0e35\u0e48\u0e23\u0e30\u0e1a\u0e38 \u0e04\u0e33\u0e19\u0e27\u0e13\u0e41\u0e1a\u0e1a\u0e04\u0e34\u0e14\u0e40\u0e1b\u0e47\u0e19\u0e08\u0e33\u0e19\u0e27\u0e19\u0e40\u0e1b\u0e2d\u0e23\u0e4c\u0e40\u0e0b\u0e47\u0e19\u0e15\u0e4c\r\n    summarize_make_by_model <- mutate(summarize_make_by_model, percent_type = round(  (total_amount \/ sum(total_amount)) *100 ,digit=2))\r\n\r\n    # \u0e43\u0e0a\u0e49\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 ggplot \u0e2a\u0e23\u0e49\u0e32\u0e07\u0e01\u0e23\u0e32\u0e1f \u0e41\u0e15\u0e48\u0e44\u0e21\u0e48\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\u0e40\u0e25\u0e22\u0e17\u0e31\u0e19\u0e17\u0e35 \u0e43\u0e2b\u0e49\u0e40\u0e01\u0e47\u0e1a\u0e40\u0e1b\u0e47\u0e19 object \u0e44\u0e27\u0e49\u0e01\u0e48\u0e2d\u0e19\u0e44\u0e27\u0e49\u0e23\u0e2d\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\u0e04\u0e23\u0e32\u0e27\u0e40\u0e14\u0e35\u0e22\u0e27\u0e01\u0e31\u0e19\u0e01\u0e31\u0e1a\u0e01\u0e23\u0e32\u0e1f\u0e2d\u0e37\u0e48\u0e19\u0e46\r\n    plot_obj <- ggplot(summarize_make_by_model, aes(x=\"\", y=total_amount, fill=Model)) +\r\n              geom_bar(stat=\"identity\", width=1, color=\"white\") +\r\n                geom_text(aes(x=1.7, label = paste0(Model, \"\\n\", total_amount, \"\\n\", percent_type, \" %\")), position = position_stack(vjust = .4))+\r\n                  coord_polar(\"y\") + \r\n                    theme_void() +\r\n                      labs(title=paste(\"Registered electric vehicle of Washington State, USA \\n (\", company, \"'s model)\") )\r\n\r\n    # \u0e40\u0e2d\u0e32\u0e01\u0e23\u0e32\u0e1f\u0e17\u0e35\u0e48\u0e16\u0e39\u0e01\u0e2a\u0e23\u0e49\u0e32\u0e07\u0e43\u0e19\u0e41\u0e15\u0e48\u0e25\u0e30\u0e23\u0e2d\u0e1a\u0e02\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e27\u0e19\u0e25\u0e39\u0e1b \u0e44\u0e1b\u0e40\u0e01\u0e47\u0e1a\u0e44\u0e27\u0e49\u0e43\u0e19 vector \u0e01\u0e48\u0e2d\u0e19\r\n    list_plots <- c(plot_obj,  list_plots)\r\n}\r\n\r\n# \u0e43\u0e0a\u0e49\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 plot_grid() \u0e02\u0e2d\u0e07 cowplot \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e08\u0e30\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\u0e01\u0e23\u0e32\u0e1f\u0e17\u0e31\u0e49\u0e07\u0e2b\u0e21\u0e14\u0e1e\u0e23\u0e49\u0e2d\u0e21\u0e01\u0e31\u0e19\r\nplot_grid( list_plots[[1]], list_plots[[2]], list_plots[[3]], list_plots[[4]])\r\n<\/pre>\n<p><a href=\"https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarize_each_brand_group_by_model.png\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarize_each_brand_group_by_model.png\" alt=\"\" width=\"935\" height=\"775\" class=\"aligncenter size-full wp-image-4337\" srcset=\"https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarize_each_brand_group_by_model.png?v=1770516527 935w, https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarize_each_brand_group_by_model-632x524.png?v=1770516527 632w, https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarize_each_brand_group_by_model-768x637.png?v=1770516527 768w\" sizes=\"auto, (max-width: 935px) 100vw, 935px\" \/><\/a>\n<\/p>\n<hr\/>\n<p> \u0e25\u0e2d\u0e07\u0e14\u0e39\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e27\u0e48\u0e32\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c EV \u0e2b\u0e32\u0e01\u0e40\u0e17\u0e35\u0e22\u0e1a\u0e43\u0e19\u0e41\u0e15\u0e48\u0e25\u0e30\u0e42\u0e21\u0e40\u0e14\u0e25\u0e17\u0e35\u0e48\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e44\u0e14\u0e49\u0e17\u0e33\u0e01\u0e32\u0e23\u0e1c\u0e25\u0e34\u0e15\u0e2d\u0e2d\u0e01\u0e21\u0e32 \u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e23\u0e16\u0e17\u0e35\u0e48\u0e21\u0e35\u0e42\u0e21\u0e40\u0e14\u0e25\u0e40\u0e14\u0e35\u0e22\u0e27\u0e01\u0e31\u0e19\u0e41\u0e15\u0e48\u0e21\u0e35\u0e1b\u0e35\u0e01\u0e32\u0e23\u0e1c\u0e25\u0e34\u0e15\u0e41\u0e15\u0e01\u0e15\u0e48\u0e32\u0e07\u0e01\u0e31\u0e19 \u0e08\u0e30\u0e21\u0e35\u0e08\u0e33\u0e19\u0e27\u0e19\u0e1c\u0e39\u0e49\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e43\u0e0a\u0e49\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e17\u0e35\u0e48\u0e1b\u0e35\u0e01\u0e32\u0e23\u0e1c\u0e25\u0e34\u0e15\u0e19\u0e31\u0e49\u0e19\u0e46 \u0e41\u0e15\u0e01\u0e15\u0e48\u0e32\u0e07\u0e01\u0e31\u0e19\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e44\u0e23<\/p>\n<pre class=\"prettyprint lang-r\" data-start-line=\"1\" data-visibility=\"visible\" data-highlight=\"\" data-caption=\"\">\r\n\r\nlibrary(dplyr)\r\nlibrary(ggplot2)\r\nlibrary(cowplot)\r\n\r\n#This dataset shows the Battery Electric Vehicles (BEVs) and Plug-in Hybrid Electric Vehicles (PHEVs) \r\n# that are currently registered through Washington State Department of Licensing (DOL).\r\n# https:\/\/catalog.data.gov\/dataset\/electric-vehicle-population-data\r\nev_vehicle_data <- read.csv(\"learn_R\/Electric_Vehicle_Population_Data.csv\")\r\n\r\n# \u0e2a\u0e23\u0e49\u0e32\u0e07 vector \u0e44\u0e27\u0e49\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e40\u0e01\u0e47\u0e1a\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 \u0e01\u0e23\u0e32\u0e1f\u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e40\u0e15\u0e23\u0e35\u0e22\u0e21\u0e08\u0e30\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\r\nlist_plots <- c()\r\n\r\n# \u0e2a\u0e23\u0e49\u0e32\u0e07 vector \u0e44\u0e27\u0e49\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e23\u0e30\u0e1a\u0e38\u0e0a\u0e37\u0e48\u0e2d\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e15\u0e49\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e08\u0e30\u0e40\u0e25\u0e37\u0e2d\u0e01\u0e14\u0e39\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\r\nlist_companies <- c(\"TESLA\", \"CHEVROLET\", \"NISSAN\", \"FORD\")\r\n\r\n# \u0e43\u0e0a\u0e49 for...loop \u0e43\u0e19\u0e01\u0e32\u0e23\u0e27\u0e19\u0e25\u0e39\u0e1b\u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e1b\u0e23\u0e30\u0e21\u0e27\u0e25\u0e1c\u0e25\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e42\u0e21\u0e40\u0e14\u0e25\u0e17\u0e35\u0e48\u0e40\u0e1b\u0e47\u0e19\u0e17\u0e35\u0e48\u0e19\u0e34\u0e22\u0e21 \u0e08\u0e32\u0e01\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e19\u0e15\u0e4c\u0e17\u0e35\u0e48\u0e44\u0e14\u0e49\u0e17\u0e33\u0e01\u0e32\u0e23\u0e23\u0e30\u0e1a\u0e38\u0e44\u0e27\u0e49\r\nfor (company in list_companies){\r\n\r\n    # \u0e43\u0e0a\u0e49\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 filter() \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e01\u0e23\u0e2d\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e09\u0e1e\u0e32\u0e30\u0e41\u0e16\u0e27\u0e17\u0e35\u0e48\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15\u0e23\u0e16\u0e22\u0e37\u0e19(Make)\u0e40\u0e1b\u0e47\u0e19\u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17 \r\n    filter_rows <- filter( ev_vehicle_data, Make==company)\r\n\r\n\r\n    # \u0e2a\u0e23\u0e38\u0e1b\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e15\u0e32\u0e21\u0e1b\u0e35, \u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15, \u0e42\u0e21\u0e40\u0e14\u0e25\r\n    # \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19  group_by \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e17\u0e33\u0e01\u0e32\u0e23\u0e23\u0e27\u0e21\u0e01\u0e25\u0e38\u0e48\u0e21\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e15\u0e32\u0e21\u0e1b\u0e35, \u0e1a\u0e23\u0e34\u0e29\u0e31\u0e17\u0e1c\u0e39\u0e49\u0e1c\u0e25\u0e34\u0e15, \u0e42\u0e21\u0e40\u0e14\u0e25(Model.Year, Make, Model) \r\n    # \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 summarize \u0e43\u0e0a\u0e49\u0e15\u0e48\u0e2d\u0e08\u0e32\u0e01 group_by \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e17\u0e33\u0e01\u0e32\u0e23\u0e23\u0e27\u0e21\u0e08\u0e33\u0e19\u0e27\u0e19\u0e41\u0e16\u0e27\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\r\n    # \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 arrange \u0e43\u0e0a\u0e49\u0e15\u0e48\u0e2d\u0e08\u0e32\u0e01 group_by, summarize \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e17\u0e33\u0e01\u0e32\u0e23\u0e08\u0e31\u0e14\u0e40\u0e23\u0e35\u0e22\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e2a\u0e23\u0e38\u0e1b\u0e44\u0e27\u0e49\u0e41\u0e25\u0e49\u0e27\u0e02\u0e49\u0e32\u0e07\u0e15\u0e49\u0e19 \u0e41\u0e25\u0e30\u0e40\u0e25\u0e37\u0e2d\u0e01\u0e40\u0e23\u0e35\u0e22\u0e07\u0e25\u0e33\u0e14\u0e31\u0e1a\u0e08\u0e32\u0e01\u0e21\u0e32\u0e01\u0e44\u0e1b\u0e2b\u0e32\u0e19\u0e49\u0e2d\u0e22\r\n    summarize_tesla_by_model <- filter_rows %>% \r\n                                  group_by(Model.Year, Make, Model) %>% \r\n                                    summarize(total_amount=n(), .groups =\"drop\") %>% \r\n                                      arrange(desc(total_amount))\r\n\r\n    # \u0e43\u0e0a\u0e49\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 ggplot \u0e2a\u0e23\u0e49\u0e32\u0e07\u0e01\u0e23\u0e32\u0e1f \u0e41\u0e15\u0e48\u0e44\u0e21\u0e48\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\u0e40\u0e25\u0e22\u0e17\u0e31\u0e19\u0e17\u0e35 \u0e43\u0e2b\u0e49\u0e40\u0e01\u0e47\u0e1a\u0e40\u0e1b\u0e47\u0e19 object \u0e44\u0e27\u0e49\u0e01\u0e48\u0e2d\u0e19\u0e44\u0e27\u0e49\u0e23\u0e2d\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\u0e04\u0e23\u0e32\u0e27\u0e40\u0e14\u0e35\u0e22\u0e27\u0e01\u0e31\u0e19\u0e01\u0e31\u0e1a\u0e01\u0e23\u0e32\u0e1f\u0e2d\u0e37\u0e48\u0e19\u0e46\r\n    plot_obj <- ggplot(summarize_tesla_by_model, aes(x=Model.Year, y=total_amount, fill=Model)) +\r\n                  geom_bar(position = position_dodge(width = 0.9), stat=\"identity\") +\r\n                    labs(title = \"Electric vehicle registerd in Washington State, USA \\n (group by Model.Year, Make, Model)\",\r\n                       x = \"Model Year\",\r\n                         y = \"Amount of registerd vehicle\",\r\n                         fill = paste0(company, \" \", \"Model\")  )\r\n \r\n    # \u0e40\u0e2d\u0e32\u0e01\u0e23\u0e32\u0e1f\u0e17\u0e35\u0e48\u0e16\u0e39\u0e01\u0e2a\u0e23\u0e49\u0e32\u0e07\u0e43\u0e19\u0e41\u0e15\u0e48\u0e25\u0e30\u0e23\u0e2d\u0e1a\u0e02\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e27\u0e19\u0e25\u0e39\u0e1b \u0e44\u0e1b\u0e40\u0e01\u0e47\u0e1a\u0e44\u0e27\u0e49\u0e43\u0e19 vector \u0e01\u0e48\u0e2d\u0e19\r\n    list_plots <- c(plot_obj,  list_plots)\r\n}\r\n\r\n# \u0e43\u0e0a\u0e49\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 plot_grid() \u0e02\u0e2d\u0e07 cowplot \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e08\u0e30\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e25\u0e01\u0e23\u0e32\u0e1f\u0e17\u0e31\u0e49\u0e07\u0e2b\u0e21\u0e14\u0e1e\u0e23\u0e49\u0e2d\u0e21\u0e01\u0e31\u0e19\r\nplot_grid( list_plots[[1]], list_plots[[2]], list_plots[[3]], list_plots[[4]])\r\n<\/pre>\n<p><a href=\"https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarize_group_by_model.year_make_model.png\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarize_group_by_model.year_make_model.png\" alt=\"\" width=\"1007\" height=\"766\" class=\"aligncenter size-full wp-image-4351\" srcset=\"https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarize_group_by_model.year_make_model.png?v=1770553812 1007w, https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarize_group_by_model.year_make_model-632x481.png?v=1770553812 632w, https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarize_group_by_model.year_make_model-120x90.png?v=1770553812 120w, https:\/\/www.booboohome.com\/blogs\/wp-content\/uploads\/2026\/02\/summarize_group_by_model.year_make_model-768x584.png?v=1770553812 768w\" sizes=\"auto, (max-width: 1007px) 100vw, 1007px\" \/><\/a>\n<\/p>\n<hr\/>\n<p>\u0e27\u0e31\u0e19\u0e19\u0e35\u0e49\u0e1c\u0e36\u0e01\u0e25\u0e2d\u0e07\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19 package dplyr \u0e01\u0e31\u0e1a ggplot2 \u0e44\u0e14\u0e49\u0e1b\u0e23\u0e30\u0e21\u0e32\u0e13\u0e19\u0e35\u0e49 \u0e44\u0e14\u0e49\u0e25\u0e2d\u0e07\u0e1e\u0e25\u0e2d\u0e15\u0e01\u0e23\u0e32\u0e1f 2 \u0e41\u0e1a\u0e1a\u0e04\u0e37\u0e2d bar chart \u0e01\u0e31\u0e1a pie chart \u0e01\u0e47\u0e16\u0e37\u0e2d\u0e27\u0e48\u0e32\u0e17\u0e33\u0e43\u0e2b\u0e49\u0e44\u0e14\u0e49\u0e1e\u0e2d\u0e17\u0e23\u0e32\u0e1a\u0e27\u0e34\u0e18\u0e35\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e04\u0e23\u0e48\u0e32\u0e27\u0e46 \u0e21\u0e32\u0e01\u0e02\u0e36\u0e49\u0e19\u0e2a\u0e31\u0e01\u0e2b\u0e19\u0e48\u0e2d\u0e22\u0e41\u0e25\u0e49\u0e27\u0e2b\u0e25\u0e48\u0e30\u0e19\u0e30<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u0e0a\u0e48\u0e27\u0e07\u0e19\u0e35\u0e49\u0e40\u0e1b\u0e47\u0e19\u0e21\u0e37\u0e2d\u0e43\u0e2b\u0e21\u0e48\u0e25\u0e2d\u0e07\u0e43\u0e0a\u0e49\u0e20\u0e32\u0e29\u0e32 R \u0e43\u0e19\u0e01\u0e32\u0e23\u0e08\u0e31\u0e14\u0e01\u0e32\u0e23\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e41\u0e25\u0e30\u0e25\u0e2d\u0e07\u0e27\u0e34\u0e40\u0e04\u0e23\u0e32\u0e30\u0e2b\u0e4c\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e1e\u0e37\u0e49\u0e19\u0e10\u0e32\u0e19 \u0e01\u0e47\u0e21\u0e32\u0e16\u0e07\u0e2a\u0e48\u0e27\u0e19\u0e17\u0e35\u0e48\u0e2d\u0e22\u0e32\u0e01\u0e17\u0e33\u0e04\u0e27\u0e32\u0e21\u0e23\u0e39\u0e49\u0e08\u0e31\u0e01\u0e01\u0e31\u0e1a package dplyr \u0e01\u0e31\u0e1a ggplot2 \u0e27\u0e34\u0e18\u0e35\u0e17\u0e35\u0e48\u0e14\u0e35\u0e17\u0e35\u0e48\u0e2a\u0e38\u0e14\u0e01\u0e47\u0e04\u0e37\u0e2d\u0e15\u0e49\u0e2d\u0e07\u0e25\u0e2d\u0e07\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e14\u0e39\u0e40\u0e22\u0e2d\u0e30\u0e46 \u0e08\u0e30\u0e44\u0e14\u0e49\u0e23\u0e39\u0e49\u0e08\u0e31\u0e01 package \u0e19\u0e31\u0e49\u0e19\u0e46 \u0e14\u0e35\u0e22\u0e34\u0e48\u0e07\u0e02\u0e36\u0e49\u0e19 Package dplyr \u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a package dplyr \u0e40\u0e1b\u0e47\u0e19 package \u0e1e\u0e37\u0e49\u0e19\u0e10\u0e32\u0e19\u0e02\u0e2d\u0e07 R \u0e44\u0e27\u0e49\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e08\u0e31\u0e14\u0e01\u0e32\u0e23\u0e01\u0e31\u0e1a\u0e01\u0e49\u0e2d\u0e19\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e21\u0e35\u0e40\u0e0a\u0e48\u0e19 \u0e01\u0e23\u0e2d\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e09\u0e1e\u0e32\u0e30\u0e1a\u0e32\u0e07\u0e04\u0e2d\u0e25\u0e31\u0e21\u0e19\u0e4c, \u0e01\u0e23\u0e2d\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e09\u0e1e\u0e32\u0e30\u0e41\u0e16\u0e27\u0e17\u0e35\u0e48\u0e21\u0e35\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e1a\u0e32\u0e07\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e2d\u0e22\u0e39\u0e48, \u0e08\u0e31\u0e14\u0e40\u0e23\u0e35\u0e22\u0e07\u0e25\u0e33\u0e14\u0e31\u0e1a\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e21\u0e35\u0e15\u0e32\u0e21\u0e40\u0e07\u0e37\u0e48\u0e2d\u0e19\u0e44\u0e02\u0e17\u0e35\u0e48\u0e23\u0e30\u0e1a\u0e38 \u0e40\u0e1b\u0e47\u0e19\u0e15\u0e49\u0e19 \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e2b\u0e25\u0e31\u0e01\u0e46 \u0e02\u0e2d\u0e07 dplyr \u0e17\u0e35\u0e48\u0e21\u0e31\u0e01\u0e08\u0e30\u0e16\u0e39\u0e01\u0e40\u0e23\u0e35\u0e22\u0e01\u0e43\u0e0a\u0e49\u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e08\u0e31\u0e14\u0e01\u0e32\u0e23\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25:- filter() : \u0e21\u0e31\u0e01\u0e16\u0e39\u0e01\u0e40\u0e23\u0e35\u0e22\u0e01\u0e43\u0e0a\u0e49\u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e08\u0e30\u0e01\u0e23\u0e2d\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e02\u0e2d\u0e07\u0e41\u0e15\u0e48\u0e25\u0e30\u0e41\u0e16\u0e27(row) \u0e27\u0e48\u0e32\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e43\u0e19\u0e41\u0e16\u0e27\u0e19\u0e31\u0e49\u0e19\u0e21\u0e35\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e15\u0e23\u0e07\u0e15\u0e32\u0e21\u0e40\u0e07\u0e37\u0e48\u0e2d\u0e19\u0e44\u0e02\u0e17\u0e35\u0e48\u0e23\u0e30\u0e1a\u0e38\u0e2b\u0e23\u0e37\u0e2d\u0e44\u0e21\u0e48 \u0e16\u0e49\u0e32\u0e44\u0e21\u0e48\u0e21\u0e35\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e01\u0e47\u0e08\u0e30\u0e16\u0e39\u0e01\u0e01\u0e23\u0e2d\u0e07\u0e2d\u0e2d\u0e01 \u0e40\u0e21\u0e37\u0e48\u0e2d\u0e1b\u0e23\u0e30\u0e21\u0e27\u0e25\u0e1c\u0e25\u0e40\u0e2a\u0e23\u0e47\u0e08\u0e01\u0e47\u0e08\u0e30\u0e04\u0e37\u0e19\u0e04\u0e48\u0e32\u0e40\u0e1b\u0e47\u0e19\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e43\u0e2b\u0e21\u0e48\u0e17\u0e35\u0e48\u0e01\u0e23\u0e2d\u0e07\u0e15\u0e32\u0e21\u0e40\u0e07\u0e37\u0e48\u0e2d\u0e19\u0e44\u0e02\u0e40\u0e23\u0e35\u0e22\u0e1a\u0e23\u0e49\u0e2d\u0e22\u0e41\u0e25\u0e49\u0e27 select(): \u0e21\u0e31\u0e01\u0e16\u0e39\u0e01\u0e40\u0e23\u0e35\u0e22\u0e01\u0e43\u0e0a\u0e49\u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e08\u0e30\u0e01\u0e23\u0e2d\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 \u0e08\u0e32\u0e01\u0e0a\u0e37\u0e48\u0e2d\u0e2b\u0e25\u0e31\u0e01(column)\u0e2b\u0e23\u0e37\u0e2d\u0e08\u0e32\u0e01\u0e0a\u0e19\u0e34\u0e14\u0e02\u0e2d\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25(data type)\u0e43\u0e19\u0e04\u0e2d\u0e25\u0e31\u0e21\u0e19\u0e4c\u0e19\u0e31\u0e49\u0e19 \u0e40\u0e21\u0e37\u0e48\u0e2d\u0e1b\u0e23\u0e30\u0e21\u0e27\u0e25\u0e1c\u0e25\u0e40\u0e2a\u0e23\u0e47\u0e08\u0e01\u0e47\u0e08\u0e30\u0e04\u0e37\u0e19\u0e04\u0e48\u0e32\u0e40\u0e1b\u0e47\u0e19\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e43\u0e2b\u0e21\u0e48\u0e17\u0e35\u0e48\u0e01\u0e23\u0e2d\u0e07\u0e15\u0e32\u0e21\u0e40\u0e07\u0e37\u0e48\u0e2d\u0e19\u0e44\u0e02\u0e17\u0e35\u0e48\u0e23\u0e30\u0e1a\u0e38\u0e44\u0e27\u0e49 arrage(): \u0e21\u0e31\u0e01\u0e16\u0e39\u0e01\u0e40\u0e23\u0e35\u0e22\u0e01\u0e43\u0e0a\u0e49\u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e08\u0e31\u0e14\u0e40\u0e23\u0e35\u0e22\u0e07\u0e25\u0e33\u0e14\u0e31\u0e1a\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25(\u0e21\u0e32\u0e01\u0e44\u0e1b\u0e19\u0e49\u0e2d\u0e22, \u0e19\u0e49\u0e2d\u0e22\u0e44\u0e1b\u0e21\u0e32\u0e01) \u0e15\u0e32\u0e21\u0e40\u0e07\u0e37\u0e48\u0e2d\u0e19\u0e44\u0e02(\u0e2a\u0e32\u0e21\u0e32\u0e23\u0e16\u0e40\u0e25\u0e37\u0e2d\u0e01\u0e08\u0e31\u0e14\u0e40\u0e23\u0e35\u0e22\u0e07\u0e08\u0e32\u0e01\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e2b\u0e25\u0e31\u0e01\u0e40\u0e14\u0e35\u0e22\u0e27 \u0e2b\u0e23\u0e37\u0e2d \u0e2b\u0e25\u0e32\u0e22\u0e2b\u0e25\u0e31\u0e01\u0e23\u0e27\u0e21\u0e01\u0e31\u0e19\u0e44\u0e14\u0e49) \u0e40\u0e21\u0e37\u0e48\u0e2d\u0e1b\u0e23\u0e30\u0e21\u0e27\u0e25\u0e1c\u0e25\u0e40\u0e2a\u0e23\u0e47\u0e08\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e01\u0e47\u0e08\u0e30\u0e04\u0e37\u0e19\u0e04\u0e48\u0e32\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e44\u0e14\u0e49\u0e23\u0e31\u0e1a\u0e01\u0e32\u0e23\u0e08\u0e31\u0e14\u0e40\u0e23\u0e35\u0e22\u0e07\u0e40\u0e2a\u0e23\u0e47\u0e08\u0e40\u0e23\u0e35\u0e22\u0e1a\u0e23\u0e49\u0e2d\u0e22\u0e41\u0e25\u0e49\u0e27 mutate(): \u0e21\u0e31\u0e01\u0e08\u0e30\u0e43\u0e0a\u0e49\u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e40\u0e1e\u0e34\u0e48\u0e21\u0e2b\u0e25\u0e31\u0e01(column)\u0e43\u0e2b\u0e21\u0e48 \u0e43\u0e2b\u0e49\u0e01\u0e31\u0e1a\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 \u0e0b\u0e36\u0e48\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e43\u0e2b\u0e21\u0e48\u0e19\u0e31\u0e49\u0e19\u0e21\u0e31\u0e01\u0e08\u0e30\u0e40\u0e1b\u0e47\u0e19\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e17\u0e35\u0e48\u0e44\u0e14\u0e49\u0e21\u0e32\u0e08\u0e32\u0e01\u0e01\u0e32\u0e23\u0e04\u0e33\u0e19\u0e27\u0e13\u0e08\u0e32\u0e01\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e14\u0e34\u0e21\u0e17\u0e35\u0e48\u0e21\u0e35 \u0e40\u0e0a\u0e48\u0e19 \u0e04\u0e33\u0e19\u0e27\u0e13\u0e04\u0e48\u0e32\u0e40\u0e09\u0e25\u0e35\u0e48\u0e22\u0e08\u0e32\u0e01\u0e02\u0e49\u0e2d\u0e21\u0e38\u0e25 <a href=\"https:\/\/www.booboohome.com\/blogs\/2026\/02\/r-%e0%b8%a5%e0%b8%ad%e0%b8%87%e0%b9%83%e0%b8%8a%e0%b9%89-dplyr-%e0%b8%81%e0%b8%b1%e0%b8%9a-ggplot2-%e0%b9%83%e0%b8%99%e0%b8%81%e0%b8%b2%e0%b8%a3%e0%b8%88%e0%b8%b1%e0%b8%94%e0%b8%a3%e0%b8%b9%e0%b8%9b\/\" rel=\"nofollow\"><span class=\"sr-only\">Read more about R &#8211; \u0e25\u0e2d\u0e07\u0e43\u0e0a\u0e49 dplyr \u0e01\u0e31\u0e1a ggplot2 \u0e43\u0e19\u0e01\u0e32\u0e23\u0e08\u0e31\u0e14\u0e23\u0e39\u0e1b\u0e41\u0e1a\u0e1a\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e41\u0e25\u0e30\u0e1e\u0e25\u0e2d\u0e15\u0e40\u0e1b\u0e47\u0e19\u0e01\u0e23\u0e32\u0e1f\u0e41\u0e1a\u0e1a\u0e15\u0e48\u0e32\u0e07\u0e46\u0e14\u0e39<\/span>[&hellip;]<\/a><\/p>\n","protected":false},"author":2,"featured_media":954,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[288,289,25],"tags":[211,280,281,290,275,52],"class_list":["post-4307","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-programming","category-r","category-technical","tag-data","tag-dplyr","tag-ggplot2","tag-programming","tag-r","tag-technical"],"_links":{"self":[{"href":"https:\/\/www.booboohome.com\/blogs\/wp-json\/wp\/v2\/posts\/4307","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.booboohome.com\/blogs\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.booboohome.com\/blogs\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.booboohome.com\/blogs\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.booboohome.com\/blogs\/wp-json\/wp\/v2\/comments?post=4307"}],"version-history":[{"count":54,"href":"https:\/\/www.booboohome.com\/blogs\/wp-json\/wp\/v2\/posts\/4307\/revisions"}],"predecessor-version":[{"id":4396,"href":"https:\/\/www.booboohome.com\/blogs\/wp-json\/wp\/v2\/posts\/4307\/revisions\/4396"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.booboohome.com\/blogs\/wp-json\/wp\/v2\/media\/954"}],"wp:attachment":[{"href":"https:\/\/www.booboohome.com\/blogs\/wp-json\/wp\/v2\/media?parent=4307"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.booboohome.com\/blogs\/wp-json\/wp\/v2\/categories?post=4307"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.booboohome.com\/blogs\/wp-json\/wp\/v2\/tags?post=4307"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}