如何将此字符串划分为多列？

Question

我有这个字符串，我需要把它分割成不同的列

legend = "Frequency..Derivatives.measure...Derivatives.instrument...Derivatives.risk.category...Derivatives.reporting.country...Derivatives.counterparty.sector...Derivatives.counterparty.country...Derivatives.underlying.risk.sector...Derivatives.currency.leg.1...Derivatives.currency.leg.2...Derivatives.maturity...Derivatives.rating...Derivatives.execution.method...Derivatives.basis...Period..30.06.1998.31.12.1998.30.06.1999.31.12.1999.30.06.2000.31.12.2000.30.06.2001.31.12.2001.30.06.2002.31.12.2002.30.06.2003.31.12.2003.30.06.2004.31.12.2004.30.06.2005.31.12.2005.30.06.2006.31.12.2006.30.06.2007.31.12.2007.30.06.2008.31.12.2008.30.06.2009.31.12.2009.30.06.2010.31.12.2010.30.06.2011.31.12.2011.30.06.2012.31.12.2012.30.06.2013.31.12.2013.30.06.2014.31.12.2014.30.06.2015.31.12.2015.30.06.2016.31.12.2016.30.06.2017.31.12.2017.30.06.2018.31.12.2018.30.06.2019"

每三点应该有一个新的专栏，直到单词perdiod。请注意，第一个单词Frequency与第二个单词Derivatives.measure仅用两点而不是三个来分隔。

在此之后，有一系列的日期(6个月间隔)，它们应该以这样的方式划分：“每次有一个4位数的数字执行一个拆分”。

我该怎么做？谢谢

Answer 1

我们可以使用strsplit在...上将fixed = TRUE拆分成向量的list，然后将向量进行rbind以创建data.frame。

df1 <- do.call(rbind.data.frame, strsplit(legend, "...", fixed = TRUE))
names(df1) <- paste0("V", seq_along(df1))

如果我们还需要包括最后一个条件来分割“期间”

library(dplyr)
library(tidyr)
library(stringr)
library(data.table)
tibble(col = legend) %>% 
  mutate(rn = row_number()) %>% 
  separate_rows(col, sep= "[.]{3}") %>%
  mutate(rn2 = str_c("V", rowid(rn))) %>%
  pivot_wider(names_from = rn2, values_from = col) %>% 
  rename_at(ncol(.), ~ "Period") %>% 
  mutate(Period = str_remove(Period, "Period\\.+")) %>% 
  separate_rows(Period, sep="(?<=\\.[0-9]{4})\\.")