合并列及拆分列,向下填充NA

 

df03 <- billboard[,3]

separate(data = df03,

         col = date.entered,

         into = c("year", "month", "day"),

         sep = "\\-",

         remove = F) -> df04

df04


unite(data = df04,

      col = date,

      year, month, day,

      sep = "/")


df05 <- read_xlsx('./Documents/批号价格.xlsx',sheet = 2)

df05 %>% 

  fill(c(企业名称,批号,`价格/剂(元)`),.direction='down') %>% 

  unite(col = id,企业名称,批号,sep='-')




评论

此博客中的热门博文

V2ray websocket(ws)+tls+nginx分流

Rstudio 使用代理