我有一個寬 df，我想基于多列將其轉換為長格式。例如，所有帶有“型別”的列都在一個列中，所有帶有“查找”的列都在一個列中。我相信dplyr是最好的方法，但沒有運氣pivot_longer。
初始df
structure(list(Date = structure(c(1648512000, 1648598400, 1648166400, 1648166400),
class = c("POSIXct", "POSIXt"), tzone = "UTC"),
Site = c("A", "B", "C", "D"),
`Finding?` = c("Yes", "Yes", "Yes", "Yes"),
`Topic Area` = c("A", "B", "C", "D"),
`Type` = c("1", "2", "3", "4"),
`Risk Ranking` = c("Medium", "Low", "Medium", "Medium"),
`Additional Finding?` = c("Yes", "Yes", "Yes", "Yes"),
`Topic Area2` = c("A", "B", "C", "D"),
`Type2` = c("1", "2", "2", "3"),
`Risk Ranking2` = c("Medium", "Medium", "Low", "Medium")),
row.names = c(NA, -4L),
class = c("tbl_df", "tbl", "data.frame"))
期望的輸出
data.frame(Date = structure(c(1648512000, 1648598400, 1648166400, 1648166400, 1648512000, 1648598400, 1648166400, 1648166400),
class = c("POSIXct", "POSIXt"), tzone = "UTC"),
Site = c("A", "B", "C", "D", "A", "B", "C", "D"),
"Finding?" = c("Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes"),
"Topic Area" = c("A", "B", "C", "D", "A", "B", "C", "D"),
`Type` = c("1", "2", "3", "4", "1", "2", "2", "3"),
"Risk Ranking" = c("Medium", "Low", "Medium", "Medium", "Medium", "Medium", "Low", "Medium"))
uj5u.com熱心網友回復：
相應的一組列，即“查找”，“附加查找”與其他組稍有不同，因為這些列名稱集的末尾值為 2。因此，我們僅更改“查找”列的后綴部分，然后使用pivot_longer
library(dplyr)
library(tidyr)
library(stringr)
df1 %>%
rename_with(~ str_c("Finding", seq_along(.x)), contains("Finding")) %>%
pivot_longer(cols = -c(Date, Site), names_to = c(".value"),
names_pattern = "(\\D )\\d*$", values_drop_na = TRUE)
-輸出
# A tibble: 8 × 6
Date Site Finding `Topic Area` Type `Risk Ranking`
<dttm> <chr> <chr> <chr> <chr> <chr>
1 2022-03-29 00:00:00 A Yes A 1 Medium
2 2022-03-29 00:00:00 A Yes A 1 Medium
3 2022-03-30 00:00:00 B Yes B 2 Low
4 2022-03-30 00:00:00 B Yes B 2 Medium
5 2022-03-25 00:00:00 C Yes C 3 Medium
6 2022-03-25 00:00:00 C Yes C 2 Low
7 2022-03-25 00:00:00 D Yes D 4 Medium
8 2022-03-25 00:00:00 D Yes D 3 Medium
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/454408.html
上一篇：我們可以在R中繪制熱圖嗎？
下一篇：多種顏色的小提琴情節