我有這種情況：
foo <- data.frame("vars" = c("animal: mouse | wks: 12 | site: cage | PI: 78",
"animal: dog | wks: 32 | GI: 0.2",
"animal: cat | wks: 8 | site: wild | PI: 13"))
其中變數名和相關資料存盤在字串中，如上例。特別是，每個variable_name/its_data單元都由|. 之后:是相關資料。
我想要一個像這樣的最終資料框：
animal wks site PI GI
mouse 12 cage 78 NA
dog 32 <NA> NA 0.2
cat 8 wild 13 NA
uj5u.com熱心網友回復：
我們可能會使用read.dcf從base R
out <- type.convert(as.data.frame(read.dcf(
textConnection(paste(gsub("\\s \\|\\s ", "\n", foo$vars),
collapse="\n\n")))), as.is = TRUE)
-輸出
> out
animal wks site PI GI
1 mouse 12 cage 78 NA
2 dog 32 <NA> NA 0.2
3 cat 8 wild 13 NA
> str(out)
'data.frame': 3 obs. of 5 variables:
$ animal: chr "mouse" "dog" "cat"
$ wks : int 12 32 8
$ site : chr "cage" NA "wild"
$ PI : int 78 NA 13
$ GI : num NA 0.2 NA
uj5u.com熱心網友回復：
這是一個dplyr解決方案：
library(dplyr)
library(tidyr)
tibble(foo) %>%
mutate(row = row_number()) %>%
separate_rows(vars, sep = '\\|') %>%
separate(vars, c("a", "b"), sep = '\\:') %>%
mutate(across(everything(), str_trim)) %>%
group_by(a) %>%
pivot_wider(names_from = a, values_from = b) %>%
type.convert(as.is = TRUE) %>%
select(-row)
animal wks site PI GI
<chr> <int> <chr> <int> <dbl>
1 mouse 12 cage 78 NA
2 dog 32 NA NA 0.2
3 cat 8 wild 13 NA
uj5u.com熱心網友回復：
使用Reduce 的另一個基本 R 選項merge
type.convert(
Reduce(
function(x, y) merge(x, y, all = TRUE),
lapply(
strsplit(foo$vars, ":|\\|"),
function(x) {
m <- matrix(trimws(x), 2)
setNames(data.frame(m[2, , drop = FALSE]), m[1, ])
}
)
),
as.is = TRUE
)
給
animal wks site PI GI
1 cat 8 wild 13 NA
2 dog 32 <NA> NA 0.2
3 mouse 12 cage 78 NA
uj5u.com熱心網友回復：
這是一種使用scan()row-wise then 的方法merge。
lapply(1:nrow(foo), \(x)
scan(text=foo[x, ], what=character(), sep='|', strip.white=T, qui=T) |>
(\(.) do.call(rbind, strsplit(., ': ')))() |>
(\(.) setNames(data.frame(t(.[, 2])), .[, 1]))()) |>
(\(.) Reduce(\(...) merge(..., all=TRUE), .))()
# animal wks site PI GI
# 1 cat 8 wild 13 <NA>
# 2 dog 32 <NA> <NA> 0.2
# 3 mouse 12 cage 78 <NA>
注： R >= 4.1 使用
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/394830.html