需要帮助在R中的group_by中使用paste0

Question

我有以下df，我想添加新列，根据ID添加col1 。 我用pdlyr编写代码，但我不知道如何解决它。

df %>%
  group_by(ID) %>%
  mutate(col2= paste0(col1,?????)   <- what to write here?

df<-read.table(text="
ID   col1
1      A
1      B
1      A
2      C     
2      C
2      D", header=T)

result
ID   col1   col2
1      A     ABA
1      B     ABA
1      A     ABA
2      C     CCD
2      C     CCD
2      D     CCD

Answer 1

使用collapse参数。

df %>%
  group_by(ID) %>%
  mutate(col2= paste(col1, collapse = "")) %>%
  ungroup

赠送：

# A tibble: 6 x 3
     ID col1  col2 
  <int> <fct> <chr>
1     1 A     ABA  
2     1 B     ABA  
3     1 A     ABA  
4     2 C     CCD  
5     2 C     CCD  
6     2 D     CCD  

或者只使用基础R我们可以使用这个单线程：

transform(df, col2 = ave(as.character(col1), ID, FUN = function(x) paste(x, collapse = "")))

赠送：

  ID col1 col2
1  1    A  ABA
2  1    B  ABA
3  1    A  ABA
4  2    C  CCD
5  2    C  CCD
6  2    D  CCD