R 管道末端运行功能

library(dplyr); library(tibble); library(magrittr)

mtcars %>% 
  rownames_to_column(var = "car") %>%
  sample_n(5) -> 
  df

paste0(df$car, " (", df$mpg, ")", collapse = ", ")

# "Mazda RX4 Wag (21), Hornet Sportabout (18.7), Merc 280 (19.2), Dodge Challenger (15.5), Merc 450SLC (15.2)"

mtcars %>% 
  rownames_to_column(var = "car") %>%
  sample_n(5) %>%
  paste0(df$car, " (", df$mpg, ")", collapse = ", ")

mtcars %>% 
  rownames_to_column(var = "car") %>%
  sample_n(5) %>% 
  with(paste0(car, " (", mpg, ")", collapse = ","))

... %>% 
   mutate(word = glue("{car} ({mpg})")) %>% 
   pull(word) %>% 
   paste0(collapse =", ")

R相关问答推荐

self_函数无法工作--无法子集结束后的列

R Lubridate：舍入/快照日期时间到一天中最近的任意时间？

x[[1]]中的错误：脚注越界

derrr summarise每个组返回多行？

手动打印线型gplot

R-更新面内部的栅格值

R根据条件进行累积更改

计算时间段的ECDF(R)

用关联字符串替换列名的元素

如何从像glm这样的模型中提取系数表的相关性？

在rpart. plot或fancyRpartPlot中使用带有下标的希腊字母作为标签？

R：从geom_ol()中删除轮廓并导出为pdf

条形图顶部与其错误条形图不对齐

将向量元素重新排序为R中的第二个

自动STAT_SUMMARY统计与手动标准误差之间的差异

当每个变量值只能 Select 一次时，如何从数据框中 Select 两个变量的组合？

如何将这个小列表转换为数据帧？

将字符变量出现次数不相等的字符框整形为pivot_wider，而不删除重复名称或嵌套字符变量

打印的.txt文件，将值显示为&Quot；Num&Quot；而不是值

如何使用ggsurvfit包更改风险表中的标签名称？