在数据帧中粘贴一系列列[R]

在数据帧中，我试图将一系列列的内容（从

df$first

到

df$last

）粘贴到一个新的单列

df$merged

）

列的内容是文本字符串。

df&first

和

df$last

之间的列数是可变的。我尝试了以下代码，但没有成功

df$merged <- paste(df$first:df$last)

---

df$merged您可以使用
tidyr:：unite
来合并两列之间的所有列。如果需要不同的分隔符，请使用
sep
参数

library('tidyverse')
df <- tribble(
  ~before_first, ~first, ~second, ~last, ~after_last,
            'a',    'c',     'e',   'h',         'j',
            'b',    'd',     'f',   'i',         'k'
)

df %>%
  unite(merged, first:last)
# # A tibble: 2 x 3
#   before_first merged after_last
# *        <chr>  <chr>      <chr>
# 1            a  c_e_h          j
# 2            b  d_f_i          k

library（'tidyverse'））
df%
联合（合并，第一：最后）
##tibble:2 x 3
#前\u第一次合并后\u最后
# *                
#1 a c_e_h j
#2 b d_f_i k
您可以发布一个示例数据吗？否则，用户就帮不了你什么忙。暗中拍摄：
do.call（粘贴，df[do.call（seq，as.list（grep（粘贴（'first'，'last'，sep='）），names（df））））））
library('tidyverse')
df <- tribble(
  ~before_first, ~first, ~second, ~last, ~after_last,
            'a',    'c',     'e',   'h',         'j',
            'b',    'd',     'f',   'i',         'k'
)

df %>%
  unite(merged, first:last)
# # A tibble: 2 x 3
#   before_first merged after_last
# *        <chr>  <chr>      <chr>
# 1            a  c_e_h          j
# 2            b  d_f_i          k