gpt4 book ai didi

r - 扩展数据框使其行数与原始行中两列的范围一样多

转载 作者:行者123 更新时间:2023-12-04 19:57:59 24 4
gpt4 key购买 nike

<分区>

我有一个数据框如下:

structure(list(symbol = c("u", "n", "v", "i", "a"), start = c(9L,
6L, 10L, 8L, 7L), end = c(14L, 15L, 12L, 13L, 11L)), .Names = c("symbol",
"start", "end"), class = "data.frame", row.names = c("1", "2",
"3", "4", "5"))

我希望每个符号的(开始,结束)范围内的值与行数一样多。因此,最终的数据框将如下所示:

structure(list(symbol = structure(c(1L, 1L, 1L, 1L, 1L, 2L, 2L,
2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L,
4L, 4L, 5L, 5L, 5L, 5L, 5L), .Label = c("a", "l", "n", "v", "y"
), class = "factor"), value = c(7L, 8L, 9L, 10L, 11L, 6L, 7L,
8L, 9L, 10L, 11L, 12L, 13L, 14L, 8L, 9L, 10L, 11L, 12L, 10L,
11L, 12L, 13L, 14L, 15L, 9L, 10L, 11L, 12L, 13L)), class = "data.frame", row.names = c(NA,
-30L), .Names = c("symbol", "value"))

我在想我可以简单地每行有一个值列表,然后使用 tidyr 包的 unnest 如下:

df$value <- apply(df, 1, function(x) as.list(x[2]:x[3]))
dput(df)
structure(list(symbol = structure(c(4L, 3L, 5L, 2L, 1L), .Label = c("a",
"i", "n", "u", "v"), class = "factor"), start = c(9L, 6L, 10L,
8L, 7L), end = c(14L, 15L, 12L, 13L, 11L), value = structure(list(
`1` = list(9L, 10L, 11L, 12L, 13L, 14L), `2` = list(6L, 7L,
8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L), `3` = list(10L,
11L, 12L), `4` = list(8L, 9L, 10L, 11L, 12L, 13L), `5` = list(
7L, 8L, 9L, 10L, 11L)), .Names = c("1", "2", "3", "4",
"5"))), .Names = c("symbol", "start", "end", "value"), row.names = c("1",
"2", "3", "4", "5"), class = "data.frame")

df
symbol start end value
1 u 9 14 9, 10, 11, 12, 13, 14
2 n 6 15 6, 7, 8, 9, 10, 11, 12, 13, 14, 15
3 v 10 12 10, 11, 12
4 i 8 13 8, 9, 10, 11, 12, 13
5 a 7 11 7, 8, 9, 10, 11

然后做:

library(tidyr)
unnest(df, value)

但是,我认为我遇到了这个未决的功能/错误: https://github.com/tidyverse/tidyr/issues/278

Error: Each column must either be a list of vectors or a list of data frames [value]

有没有更好的方法来做到这一点,尤其是避免应用家庭?

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com