不同数值的分割列

Question

我想将1列分成3列。问题是，如果我用分隔符拆分列“”有时containts 3个值，有时2

输出应该如下所示：

rooms       location   Street Suburb City price m2 
1  2   examplestreet 3, munich    <NA>  <NA> munich 500000 40 
2  3     suburg2, berlin    <NA> suburg2 berlin 300000 60 
3  5 examplestreet 45, suburb1, munich examplestreet 45 suburb1 munich 350000 55 

这是我做的：

> rooms = c(2, 3, 5) 
> location = c("examplestraße 3, munich", "suburb2, berlin", "examplestaße 45, suburb1, munich") 
> price = c(500000, 300000, 350000) 
> m2 = c(40, 60, 55) 
> 
> dataexample = data.frame(rooms, location, price, m2) 
> dataexample 
    rooms       location price m2 
1  2   examplestraße 3, munich 500000 40 
2  3     suburb2, berlin 300000 60 
3  5 examplestaße 45, suburb1, munich 350000 55 
> rooms = c(2, 3, 5) 
> location = c("munich", "suburb2, berlin", "examplestaße 45, suburb1, munich") 
> price = c(500000, 300000, 350000) 
> m2 = c(40, 60, 55) 
> 
> dataexample = data.frame(rooms, location, price, m2) 
> 
> library(tidyr) 
> separate(dataexample, location, into=c('Street', 'Suburb', "City"), remove=FALSE, sep = ",") 
    rooms       location   Street Suburb City price m2 
1  2       munich   munich  <NA> <NA> 500000 40 
2  3     suburb2, berlin   suburb2 berlin <NA> 300000 60 
3  5 examplestaße 45, suburb1, munich examplestaße 45 suburb1 munich 350000 55 
Warning message: 
Too few values at 2 locations: 1, 2 

Answer 1

我们还可以通过分隔符（,），垫NAS进行有几个元素list元素，rbind的list分裂“位置”栏与base R做到这一点元素和cbind与原始数据集

lst <- strsplit(as.character(dataexample$location), ", ") 
cbind(dataexample, `colnames<-`(do.call(rbind, lapply(lapply(lst, 
     `length<-`, max(lengths(lst))), 
     function(x) c(x[is.na(x)], x[!is.na(x)]))), c('Street', 'Suburb', "City"))) 
# rooms       location price m2   Street Suburb City 
#1  2       munich 500000 40   <NA> <NA> munich 
#2  3     suburb2, berlin 300000 60   <NA> suburb2 berlin 
#3  5 examplestaße 45, suburb1, munich 350000 55 examplestaße 45 suburb1 munich