使用 Tidyverse 将数据从一列转换为多列

发布于05月05日

所以我浏览了一个网站，数据如下:

# A tibble: 150 x 1
   data                                                                              
   <chr>                                                                             
 1 HELSFYR / HOVINENGA - Leilighet fra 2019 med balkong, garasjeplass og el-billading
 2 Innspurten 10B, Oslo                                                              
 3 56 m²17 500 kr                                                                    
 4 Fin 3-roms leilighet til leie på Grunerløkka                                      
 5 SANNERGATA 13 A, Oslo                                                             
 6 55 m²14 200 kr                                                                    
 7 Torshov Torg - Meget pen 3-roms med balkong Sandakerveien 22 B, 0473 Oslo         
 8 SANDAKERVEIEN 22 B, Oslo                                                          
 9 51 m²16 500 kr                                                                    
10 FROGNER/VIKA- 3-roms leilighet med god standard. Ledig 1 juli!                    
# ... with 140 more rows

它实际上包含我需要的三列.如何将一列转换为多行，并将每1-3行拆分为多行？

# A tibble: 3 x 3
  title                                          adress                   info          
  <chr>                                          <chr>                    <chr>         
1 "HELSFYR / HOVINENGA - Leilighet fra 2019 "    Innspurten 10B, Oslo     56 m²17 500 kr
2 "Fin 3-roms leilighet til leie på Grunerløkka" SANNERGATA 13 A, Oslo    55 m²14 200 kr
3 "Torshov Torg - Meget pen 3-roms med balko"    SANDAKERVEIEN 22 B, Oslo 51 m²16 500 kr

我的数据

Dput()

structure(list(data = c("HELSFYR / HOVINENGA - Leilighet fra 2019 med balkong, garasjeplass og el-billading", 
"Innspurten 10B, Oslo", "56 m²17 500 kr", "Fin 3-roms leilighet til leie på Grunerløkka", 
"SANNERGATA 13 A, Oslo", "55 m²14 200 kr", "Torshov Torg - Meget pen 3-roms med balkong Sandakerveien 22 B, 0473 Oslo", 
"SANDAKERVEIEN 22 B, Oslo", "51 m²16 500 kr")), row.names = c(NA, 
-9L), class = c("tbl_df", "tbl", "data.frame"))

df$data %>% matrix(nrow = 3) %>% t() %>% as.data.frame() %>% setNames(c("Title", "Address", "Info")) %>% as_tibble() #> # A tibble: 3 x 3 #> Title Address Info #> <chr> <chr> <chr> #> 1 HELSFYR / HOVINENGA - Leilighet fra 2019 med balkong, garasjepl~ Innspu~ 56 m~ #> 2 Fin 3-roms leilighet til leie på Grunerløkka SANNER~ 55 m~ #> 3 Torshov Torg - Meget pen 3-roms med balkong Sandakerveien 22 B,~ SANDAK~ 51 m~

使用 Tidyverse 将数据从一列转换为多列

推荐答案

R相关问答推荐

在数据表中呈现数学符号

管道末端运行功能

保存包含循环和ifelse的函数的输出

如何修复R码的置换部分？

在某些栏和某些条件下，替换dfs列表中的NA

R Sapply函数产生的值似乎与for循环方法略有不同

gganimate在使用shadow_mark选项时不保留所有过go 的标记

如何使下一个按钮只出现在Rshiny 的一段时间后？""

2个Rscript.exe可执行文件有什么区别？

ComplexHEAT：使用COLUMN_SPLIT时忽略COLUMN_ORDER

停止ggplot将多行减少到一行

在R中，如何将误差条放置在堆叠的每个条上？

减少雨云面之间的间距并绘制所有统计数据点

如何在Quarto中使用美人鱼图表中的标记来加粗文本

在鼠标悬停时使用Plotly更改geom_point大小

R/shiny APP：如何充分利用窗口？

在不带max()的data.table中按组查找最后一个元素

如何创建直方图与对齐的每月箱？

从多行中 Select 最小值

如何在用`{{ }}`创建的变量上使用整洁 Select ？