Объединить два разделенных запятыми столбца в одном кадре в R - PullRequest
Новая
       31

Объединить два разделенных запятыми столбца в одном кадре в R

0 голосов
/ 16 октября 2018

Как мне объединить два или более столбца, разделенных ";"в одном столбце с помощью R?Спасибо

Выход: 

X           Y               XY
a;b;c;      x;y;z;          <b>ax</b></br><b>by</b></br><b>cz</b></br>
a2;b2;c2;   x2;y2;z2;       <b>a2x2</b></br><b>b2y2</b></br><b>c2z2</b></br>
a3;b3;c3;   x3;y3;z3;       <b>a3x3</b></br><b>b3y3</b></br><b>c3z3</b></br>

1 Ответ

0 голосов
/ 16 октября 2018

Мы можем использовать strsplit, чтобы разделить столбец на ;, а затем paste

data.frame(XY = paste0("<b>", do.call(paste0, 
      lapply(df1, function(x) strsplit(x, ";")[[1]])), "</b></br>"))
#          XY
#1 <b>ax</b></br>
#2 <b>by</b></br>
#3 <b>cz</b></br>

Обновить

На основе обновленного набора данных 

library(tidyverse)
map(df2, ~ strsplit(.x, ";")) %>%
               transpose %>%
               map_chr(reduce, ~ 
                 paste("<b>", .x, .y, "</b></br>", sep = "", collapse="")) %>%
               bind_cols(df2, XY = .)
#      X         Y                                               XY
#1    a;b;c;    x;y;z;       <b>ax</b></br><b>by</b></br><b>cz</b></br>
#2 a2;b2;c2; x2;y2;z2; <b>a2x2</b></br><b>b2y2</b></br><b>c2z2</b></br>
#3 a3;b3;c3; x3;y3;z3; <b>a3x3</b></br><b>b3y3</b></br><b>c3z3</b></br>

данные 

df2 <- structure(list(X = c("a;b;c;", "a2;b2;c2;", "a3;b3;c3;"), Y = c("x;y;z;", 
 "x2;y2;z2;", "x3;y3;z3;")), class = "data.frame", row.names = c(NA, 
 -3L))
...