id <- 1:10 x <- runif(length(id)) data <- data.frame(UserID=id, X=x) print(data) UserID X 1 1 0.9502438 2 2 0.3470344 3 3 0.4456312 4 4 0.1642439 5 5 0.3765186 6 6 0.4722742 7 7 0.3034376 8 8 0.7143706 9 9 0.5404237 10 10 0.5648573 このユーザの特性値 X を使って、ユーザを下記の3つのクラスタに分けたいとします。 0.4未満 0.4 ~ 0.6 0.6以上 そのとき、if 条件式とクラスタ名を同じにしたい時があります。 しかし、次のように書くと、なんだか同じことを何度も書いているような気がして冗長な感じがします。
![if 条件とクラスタ名を同じにしたいとき #rstatsj - Qiita](https://cdn-ak-scissors.b.st-hatena.com/image/square/da05ad317b22b2822f27e66e8b56593b92ce720b/height=288;version=1;width=512/https%3A%2F%2Fqiita-user-contents.imgix.net%2Fhttps%253A%252F%252Fcdn.qiita.com%252Fassets%252Fpublic%252Farticle-ogp-background-9f5428127621718a910c8b63951390ad.png%3Fixlib%3Drb-4.0.0%26w%3D1200%26mark64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTkxNiZoPTMzNiZ0eHQ9aWYlMjAlRTYlOUQlQTElRTQlQkIlQjYlRTMlODElQTglRTMlODIlQUYlRTMlODMlQTklRTMlODIlQjklRTMlODIlQkYlRTUlOTAlOEQlRTMlODIlOTIlRTUlOTAlOEMlRTMlODElOTglRTMlODElQUIlRTMlODElOTclRTMlODElOUYlRTMlODElODQlRTMlODElQTglRTMlODElOEQlMjAlMjNyc3RhdHNqJnR4dC1jb2xvcj0lMjMyMTIxMjEmdHh0LWZvbnQ9SGlyYWdpbm8lMjBTYW5zJTIwVzYmdHh0LXNpemU9NTYmdHh0LWNsaXA9ZWxsaXBzaXMmdHh0LWFsaWduPWxlZnQlMkN0b3Amcz0yODZkMjEzMGNlZjljNWUwZGQwYWE0MjFiZmY3NmQwZQ%26mark-x%3D142%26mark-y%3D112%26blend64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTYxNiZ0eHQ9JTQwaG94b19tJnR4dC1jb2xvcj0lMjMyMTIxMjEmdHh0LWZvbnQ9SGlyYWdpbm8lMjBTYW5zJTIwVzYmdHh0LXNpemU9MzYmdHh0LWFsaWduPWxlZnQlMkN0b3Amcz01M2IzYTE1MzRjMTk5MTU1OWVkYTFkZDU2ZTNlOGQwNQ%26blend-x%3D142%26blend-y%3D491%26blend-mode%3Dnormal%26s%3D1809f65d5114c81a77e74e2283dd3e61)