R 合并两列中的字符值并用括号括起来

code <- "A.123"
name <- "John"
df <- data.frame(code,name)

   code name
1 A.123 John

code <- "A.123"
name <- "John"
new_column <- "John (A.123)"
df <- data.frame(code,name,new_column)

   code name   new_column
1 A.123 John John (A.123)

df <- df%>%
  mutate(new_column = paste(name,code))

 with(df, sprintf("%s (%s)", name, code))
[1] "John (A.123)"

library(dplyr)
library(glue)
df %>%
   mutate(new_column = glue("{name} ({code})"))
   code name   new_column
1 A.123 John John (A.123)

R相关问答推荐

如何使用shinyChatR包配置聊天机器人

以R中的正确顺序将日期时间字符列转换为posixct

如何使用`ggplot2：：geom_segment()`或`ggspatial：：geom_spatial_segment()`来处理不在格林威治中心的sf对象？

在垂直轴中包含多个ggplot2图中的平均值

在数学中正确显示摄氏度、开氏度或华氏度

如何将移除事件分配给动态创建的按钮？

如何直接从R中的风险分数计算c指数？

如何调整曲线图中的y轴标签？

汇总数据表中两个特定列条目的值

以更少间隔的较小表中的聚合离散频率表

用约翰逊分布进行均值比较

以NA为通配符的R中的FULL_JOIN以匹配其他数据中的任何值.Frame

是否有新方法来更改Facet_WRAP(Ggplot2)中条文本的文本 colored颜色 ？

我是否可以使用多个变异项来构建顺序列(标记多个问题)

将列的值乘以在不同数据集中找到的值

如何根据未知数的多列排除重复行

使用geom_sf跨越日期线时的闭合边界

计算来自单独分组的分幅的值的百分位数

填充图例什么时候会有点？

动态统计函数在ShinyApp内部更改