Issu du package magrittr et disponible dans le tidyverse, le pipe vous permet de passer de :<\/p>\n
library(tidyverse)\ndata(\"population\")\nhead(summarise(group_by(filter(population, year > 1999),country),moyenne = mean(population)))<\/code><\/pre>\n\u00e0<\/p>\n
population %>%\n filter(year > 1999) %>%\n group_by(country) %>%\n summarise(moyenne = mean(population)) %>%\n head()<\/code><\/pre>\nPlus clair, n’est-ce pas !<\/p>\n
Alors, comment \u00e7a marche ? C’est tr\u00e8s simple : l’\u00e9l\u00e9ment \u00e0 gauche de %>% se retrouve en premier argument de la fonction \u00e0 droite. Autrement dit, f(x,y) s’\u00e9crit x %>% f(y).
\nComment faire si l’\u00e9l\u00e9ment de gauche n’est pas le premier argument de celui de droite ? Vous pouvez y faire r\u00e9f\u00e9rence en le rempla\u00e7ant par un point :<\/p>\n
list(c(1,2,3), c(4,5,6), c(8,9,10)) %>%\n lapply(FUN = mean, .)<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"Issu du package magrittr et disponible dans le tidyverse, le pipe vous permet de passer de : library(tidyverse) data(\u00ab\u00a0population\u00a0\u00bb) head(summarise(group_by(filter(population, year > 1999),country),moyenne = mean(population))) \u00e0 population %>% filter(year > 1999) %>% group_by(country) %>% summarise(moyenne = mean(population)) %>% head() Plus clair, n’est-ce pas ! Alors, comment \u00e7a marche ? C’est tr\u00e8s simple : l’\u00e9l\u00e9ment \u00e0 gauche de %>% se retrouve en premier argument de la fonction \u00e0 droite. Autrement dit, f(x,y) s’\u00e9crit x %>% f(y). Comment faire si l’\u00e9l\u00e9ment de gauche n’est pas le premier argument de celui de droite ? Vous pouvez y faire r\u00e9f\u00e9rence en le rempla\u00e7ant par un point : list(c(1,2,3), c(4,5,6),Read More →<\/a><\/p>\n","protected":false},"author":4,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"content-type":"","rop_custom_images_group":[],"rop_custom_messages_group":[],"rop_publish_now":"initial","rop_publish_now_accounts":{"twitter_399453572_399453572":""},"rop_publish_now_history":[],"rop_publish_now_status":"pending","jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[8,22],"tags":[],"class_list":{"0":"entry","1":"post","2":"publish","3":"author-colin","4":"post-3330","6":"format-standard","7":"category-fonctions-utiles","8":"category-tidyverse"},"acf":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p9O7Sx-RI","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/posts\/3330","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/users\/4"}],"replies":[{"embeddable":true,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/comments?post=3330"}],"version-history":[{"count":2,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/posts\/3330\/revisions"}],"predecessor-version":[{"id":4324,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/posts\/3330\/revisions\/4324"}],"wp:attachment":[{"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/media?parent=3330"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/categories?post=3330"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/tags?post=3330"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}