如何从包含列表列的tibble中提取单个元素，该列是一个维度不等的列表？
从包含列表列的tibble中提取单个元素，该列是一个维度不等的列表，可以使用以下步骤：
- 首先，确保你已经安装了tidyverse包，它包含了处理tibble和列表的函数。
- 使用tidyverse包中的tibble()函数创建一个包含列表列的tibble。例如，假设你的tibble名为my_tibble，其中包含一个名为list_col的列表列。
- 使用unnest()函数将列表列展开为多个行，每个行对应列表中的一个元素。这将创建一个新的tibble，其中包含展开后的列表元素和其他列。
- 使用filter()函数根据需要筛选出特定的行。例如，如果你想提取列表中的第一个元素，可以使用filter(row_number() == 1)。
- 使用select()函数选择需要的列，可以选择展开后的列表元素和其他列。
- 使用pull()函数提取特定列的值作为向量。
下面是一个示例代码：
library(tidyverse)
# 创建一个包含列表列的tibble
my_tibble <- tibble(
list_col = list(
list(1, 2, 3),
list(4, 5),
list(6, 7, 8, 9)
),
other_col = c("A", "B", "C")
)
# 展开列表列
expanded_tibble <- my_tibble %>%
unnest(list_col)
# 筛选出第一个元素
filtered_tibble <- expanded_tibble %>%
filter(row_number() == 1)
# 选择需要的列
selected_tibble <- filtered_tibble %>%
select(list_col, other_col)
# 提取特定列的值作为向量
result <- selected_tibble %>%
pull(list_col)
print(result)这个代码将从包含列表列的tibble中提取第一个元素，并将其作为向量打印出来。你可以根据需要修改代码来提取其他元素或进行其他操作。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云tibble相关产品：https://cloud.tencent.com/product/tibble
相关·内容
3回答
我有一个带有空列表列的数据框架，类似于以下内容：
null_list <- list(NULL, NULL, NULL) %>% enframe()
null_list
# name value
# <int> <list>
#1 1 <NULL>
#2 2 <NULL>
#3 3 <NULL>
我想删除所有只包含空值的列，比如上面的"value“列，因为当我尝试unnest_wider这些列(作为循环的一部分)时，我会收到错误”替换长度为零“。
浏览 8提问于2020-08-07得票数 2
回答已采纳
1回答
我试图从列表列中的模型中提取模型信息。使用mtcar来说明我的问题：
mtcars %>%
nest(-cyl) %>%
mutate(model= map(data, ~lm(mpg~wt, data=.))) %>%
mutate(aic=AIC(model))
我得到的是错误信息：
Error in mutate_impl(.data, dots) :
Evaluation error: no applicable method for 'logLik' applied to an object of class &
浏览 2提问于2017-08-12得票数 3
回答已采纳
我有一个数据框架，其中一个列作为列表列，也就是说，它是一个列，每一行包含两个向量。我希望我的数据框架中的另一列也是一个列表列，但它只包含一个子列表(而不是两个子列表)，我希望该列表是列的一个子列表的前三个元素，其中一个子列表包含两个子列表。
下面是一个简单的可复制的例子：
df <- data.frame(state = c(rep("Alabama", 5), rep("Alaska", 5), rep("Arizona", 5), rep("Arkansas", 5), rep("California",
浏览 1提问于2021-11-26得票数 1
回答已采纳
列表列数据结构是否是R语言中的一个概念？
什么是列表列？当将dataframe视为列列表时，列表列是否是dataframe中的列？
我从那里得到了困惑
列表列在数据帧的定义中是隐式的:数据帧是等长向量的命名列表。列表是向量，所以使用列表作为数据框架的列是合法的。但是，基本R不便于创建列表列，data.frame()将列表视为列列表：
data.frame(x = list(1:3，3:5) #> x.1.3 x.3.5 #> 1 1 3 #> 2 2 4 #> 3 3 5
您可以防止data.frame()使用I()进行此操作，但是结果打印得不太好：
data.fra
浏览 2提问于2020-06-03得票数 0
因此，我有一个包含向量列和列表列的tibble。
使用dplyr选择列表列很容易：
select_if(tb, is.list)
但是它对!或-的否定不能编辑，这会导致select_if(tb,function(x)!is.list(x))。
所以我想我可以做这样的事：
select(tb, which(!apply(tb,2,is.list))
这将返回无列。因为显然(来了reprex)，tibble列上的is.list总是返回true，甚至对于向量列(?)。
df <- data.frame(A = runif(100))
tb <- tibble(A = runif(100)
浏览 2提问于2020-04-22得票数 2
回答已采纳
如下面的代码所示，在交叉验证之后，我尝试为每个折叠提取模型度量。我将所有预测保存在重采样中，将数据按折叠分组，计算每个组的混淆矩阵，并将混淆矩阵对象保存为列表列cm。现在，我需要从保存在列中的对象中提取度量信息，如精度等。我的示例代码如下所示。
library(caret)
iris2 = iris %>%
filter(Species != 'setosa') %>%
mutate(Species = factor(Species))
train.control <- trainControl(method="cv",
浏览 0提问于2018-09-27得票数 1
回答已采纳
我正在使用tribble()构造一个tibble，其中有一个字符列和一个列表列，其中包含函数。
我正在尝试从字符列读取函数：
library(tibble)
my_trib <-
tibble::tribble(
~var, ~my_func,
"ABC", ~tolower(var),
"abc", ~toupper(var)
)
我本以为会得到：
my_trib$my_func
# [[1]]
# ~tolower("ABC")
# [[2]]
# ~toupper("abc&
浏览 3提问于2021-10-26得票数 1
我有一本带有几张工作表的excel工作簿。每个工作表代表一年，包含几个列。并不是所有的工作表都有相同的列名，但我想提取出所有工作表中共享的名称的特定列。
我使用以下函数导入了工作表，使其成为一个列表
sheets <- readxl::excel_sheets(filename)
x <- lapply(sheets, function(X) readxl::read_excel(filename, skip = 2, sheet = X))
if(!tibble) x <- lapply(x, as.data.frame)
names(x)
浏览 1提问于2022-07-06得票数 0
我有一个包含列表列的数据帧。我想用另一个列表(x)中包含的值来过滤它所包含的列unit上的这个(嵌套的)列表列(data，包含一个数据帧)。我想我已经很接近了，问题是我没有成功地将列表x‘转换’成过滤器语句的向量。对任何提示都很有用！ library(tidyverse) 数据帧： df<- structure(list(data = list(structure(list(unit = c("A1", "A2"
), value = c("10", "10")), class = c("tbl_df",
浏览 12提问于2019-02-07得票数 1
回答已采纳
1回答
我编写了在for循环中从dataframe中提取数据的代码，并将其添加到列表中。如下所示： list_vraag1 <- list()
for (i in seq(1,nrow(questionanswer),16)){
if (questionanswer$answer[i] == 1){
antwoord1 <- "Ja"
} else if (questionanswer$answer[i+1] == 1){
antwoord1 <- "
浏览 11提问于2020-09-13得票数 0
1回答
我假设错误在代码中，因此我认为这个例子就足够了。
我想根据我创建的向量过滤我的df (df2)。该向量是从另一个数据帧(df1)的列中提取信息的。
基于df1的向量：(提取df1的第三列)
vector_df1 <- df1 [, 3]
尝试在df2上应用过滤器，基于vector_df1
Filter_df2 <- df2 %>%
filter(Column_df2 %in% vector_df1)
结果:0行
有人能帮我看看我做错了什么吗
提前感谢
浏览 6提问于2021-06-03得票数 1
回答已采纳
我想根据列表的名称(包含不同的id值)将dataframe与id列和列表合并。例如：
g <- data.frame(id = c("a1", "b2"), k = c(4, 5))
h <- list(a1 = list(
p = c(1, 2, 3),
l = c("A", "B", "C"),
data = mtcars
),
b2 = list(
p = c(5, 6, 7),
l = c("M", "N", "O"),
d
浏览 0提问于2016-10-18得票数 2
回答已采纳
1回答
我有两个碎片，保存着来自不同数据集的数据。
(tibble1，tib_column1)和(tibble2，tib_column2)
我的目标是将它们合并到同一张表格中，以便结果具有如下格式：
| tib_column1 | tib_column2 |
1
2
我该怎么做呢？任何帮助都是非常感谢的。作为参考，我正在使用图书馆的tidyverse。
编辑: tibbles包含多个列，我只试着从每个列中提取一个
浏览 2提问于2020-11-27得票数 1
回答已采纳
2回答
..or至少与我的直觉不一致。
我试图使用apply从列表列中提取数据--在示例中，我得到了一列名为eagles的tibbles
df1 <- tibble(
location = c(1,2),
eagles = list(
tibble(
talons = c(2,3,4),
beaks = c("blue","red","red")),
tibble(
talons = c(2,3),
beaks = c("red","red"))
浏览 5提问于2022-08-16得票数 1
回答已采纳
1回答
我有一个列表，每个元素都包含标识符和数据。数据存储在一个列表列/ tibble中。如何将列表缩减为一个data.frame，通过标识符将单个数据拼接起来并追加数据？
a = list(
mtcars %>% as_tibble() %>% select(mpg, cyl, disp) |> sample_n(5),
mtcars %>% as_tibble() %>% select(mpg, cyl, disp) |> sample_n(5)
)
b = a %>%
map(~ mutate(.x, class = floor(ru
浏览 7提问于2022-10-13得票数 2
回答已采纳
在沿时间序列列表列使用purrr:map之后，我得到了tibble中的结果(这里可能有一些术语错误，但希望这个示例能够澄清问题)。是否可以在不指定每个列表元素名称的情况下将结果列表中的每个列提取为数据帧列？
示例数据：
tmp <- tibble(col1 = c("A1", "A2") ,
col2 = c("B1", "B2"),
col3 = list(
list(x = TRUE, b = list(data.frame(
浏览 2提问于2018-09-12得票数 7
回答已采纳
我(再一次)被扁平的嵌套列表困住了。
我有一些列表列(源自JSON格式)的tibble。
library(tidyr)
library(dplyr)
df = tibble(id = c(1, 2, 3),
branch = list(NULL, list(colA = 'abc', colB = 'mno'),
list(list(colA = 'def', colB = 'uvw'),
浏览 20提问于2022-09-09得票数 3
回答已采纳
我有一个有列表列的tibble。该列表列中的每个元素都是一组命名的键-值对，结构为两个列表的列表。键名为'CUSTOM_FIELD_ID‘，值存储在'FIELD_ value’下。 在tibble中，每行的配对数量和配对的顺序各不相同。我想在tibble中搜索具有特定键('CONTACT_FIELD_7')和值('XYZ')对的行。 我的想法是以某种方式完全取消列表列的嵌套，并向变量中添加额外的行，以便每个键-值对都有自己的行。然后向tibble添加两个字符列，一个用于键，另一个用于值。但是，我仍然得到一个包含两个列表的列表列(现在每个列表中只
浏览 54提问于2019-01-24得票数 2
回答已采纳
我有一个数据集，我想应用以下操作：
Nest data by一组列将“data”列表列修改为宽格式使用“data”列表列和分组列中的值在“data”列表列中创建一个新列，同时使用在2下创建的列作为输入。
1&2可以很好地使用purrr和dplyr，但是在步骤3中，当我试图引用步骤2中创建的列之一时，它会给出一个'object not‘错误。如果我只引用在步骤2之前已经存在的“data”列表列中的列，那么，如果我在步骤2之后检查列表列的内容，那么步骤3中引用的所有内容都存在，那么为什么新创建的列不被识别呢？
Reprex
library(tidyverse)
mtcarsT &
浏览 1提问于2020-03-04得票数 0
回答已采纳
我有一个大数据帧的列表，我想对每个帧进行子集，只保留某些列。我想要的列的名称包含在每个数据帧特有的字符向量中。
一种方法是使用列表列工作流。我将创建一个包含数据帧的data列表列和一个包含字符向量的cols列表列。
真正的应用程序将包括24个大型数据集的列表，以及24个唯一字符向量的列表。下面是这个数据结构的一个很小的例子来说明这个问题：
set.seed(2346)
df <- tibble(
col1 = sample(c(0,1), replace=T, size=10),
col2 = sample(c(0,1), replace=T, size=10),
col3
浏览 0提问于2020-10-23得票数 2
回答已采纳
我正在寻找一种方法来可靠地强制列表结构到data.frame或tibble，同时将一个或多个列保持为列表列。考虑以下列表结构：
d = data.frame(x = 1:10, y = 1.5*(1:10) + rnorm(10))
ex = list(label = "A", number = 1L, model = lm(y ~ x, data = d))
这并不是预期的那样：
lapply(ex, as_data_frame) %>% bind_rows()
因为"model“列中的lm对象在转换中被向量化。但是，在list中包装模型会得到预期的结果：
ex
浏览 0提问于2018-04-06得票数 2
回答已采纳
1回答
将几个列嵌套成一个列表列的概念非常强大。但是，我不确定是否有可能使用nest函数将多个列嵌套到同一管道中的多个列表列中。例如，假设我有以下数据框架：
df <- as.data.frame(replicate(6, runif(10) * 100))
colnames(df) <- c(
paste0("a", 1:2), # a1, a2
paste0("b", 1:4) # b1, b2, b3, b4
)
df
a1 a2 b1 b2 b3
浏览 0提问于2018-11-16得票数 4
回答已采纳
我有一张带有列表栏的老虎。其中之一(让我们称之为info列)包含有名称的列表。对于tibble的每一行，我想要变异一个新的list列，它将包含一个向量(嵌套)。该向量的元素将对应于相邻"info“列表列中命名列表的名称。
示例
my_tibble <-
structure(
list(
var_name = c("artworks", "sports","independence", "gender"),
info = list(
list(
`Vincent va
浏览 1提问于2021-02-03得票数 0
回答已采纳
3回答
我有一个列表列表，我想删除这些子列表之间的公共元素。
例如
mylist = list(
c(1, 2, 3, 4),
c(2, 5, 6, 7),
c(4, 2, 8, 9)
)
变成了
mylist = list(
c(1, 3),
c(5, 6, 7),
c(8, 9)
)
我首先创建了一个公共元素的列表，并尝试从子列表中提取这个列表，但它不起作用
common_elements = list(Reduce(intersect, mylist))
mylist = mylist[!(mylist %in% common_elements)]
你能帮我吗？谢谢！
浏览 2提问于2021-11-23得票数 1
我想将数据帧列转换为向量，其中的名称是动态的。我只知道我要的是第一列。
现在，我可以用unlist实现这一点，但是它比按名称访问慢了大约两个数量级：
df = data_frame(x = 3, y = 4)
microbenchmark::microbenchmark({df$x}) #less than 1 microsecond
microbenchmark::microbenchmark({unlist(df[,1}) #about 15 microseconds!
如果我事先不知道列的名称，还有比取消列表更有效的方法吗？
浏览 0提问于2019-07-20得票数 1
回答已采纳
2回答
减除整数矩阵的列表列
、、、
背景
我陷入了这样一种情况: tibble/dataframe中的一个列包含一个整数矩阵的列表，它有零个或更多的行，正好有两个列。该列恰好是stringr::str_locate_all()调用的输出，因此我希望这是一个常见的场景。
我想要做的是只选择整数矩阵中的一个列，然后取消对数据的嵌套，但是我对如何正确地做到这一点感到困惑。
示例
下面是一个示例(我必须手动创建它，因为dpasta()似乎不适用于列表列tibbles)。无论如何，我的出发点是tibble mydf。
library(tidyverse)
m1 <- matrix( c(761,784),
浏览 1提问于2019-12-30得票数 2
回答已采纳
2回答
这是一个包含复杂表的大列表问题的简化版本。我想从列表中提取表，并对每个表应用一个函数。在这里，我们可以创建一个包含小型命名数据帧的简单列表：
library(tidyverse)
table_names <- c('dfA', 'dfB', 'dfC')
dfA <- tibble(a = 1:3, b = 4:6, c = 7:9)
dfB <- tibble(a = 10:12, b = 13:15, c = 16:18)
dfC <- tibble(a = 19:21, b = 22:24, c = 25:27)
浏览 2提问于2020-01-04得票数 0
回答已采纳
假设我有一个销售数据集：
library(tidyverse)
initial_data <- tribble(
~ billing_loc, ~ type, ~ billing_comment,
"New York", "RE", "aaaa ssss 003tt",
"London", "ZO", "BO",
"Paris", "ZO", "003sd, 003Wf; 003ghdiscount"
)
首先，我想提取billi
浏览 3提问于2021-09-15得票数 2
回答已采纳
我试图使用purrr::map_chr获取列表列中向量的最后一个元素作为实际值，以防它存在。
可复制的例子：
library(data.table)
library(purrr)
x <- data.table(one = c("a", "b", "c"), two = list("d", c("e","f","g"), NULL))
我希望数据如实，但将我的列表列更改为以"g“作为x[2,2]值的公共列。我试过的是：
x %>% mutate(two = if
浏览 3提问于2019-11-26得票数 2
回答已采纳
3回答
在列表中加入数据
、、
我使用readxl包从多个excel文件中导入数据，并在脚本中创建了一个函数，以便只导入我需要的特定工作表
read_excel_sheets <- function(excelDoc) {
sheets <- readxl::excel_sheets(excelDoc)
sheets <- sheets[4:6]
x <- lapply(sheets, function(X) readxl::read_excel(excelDoc, sheet = X))
return(x)
}
#load files in folder
ra
浏览 6提问于2020-06-20得票数 2
回答已采纳
我尝试使用purr来总结嵌套列表列中的特定列。
library(tidyverse)
z <- tibble(name = c("Bill","Bill","Bill","Sue","Sue"), grade =c(90L,95L,70L,100L,98L), time=c(10L,11L,10L,15L,16L))
summary <- z %>%
group_by(name) %>%
nest %>%
mutate(n = map_int(data,nrow))
浏览 0提问于2019-10-06得票数 0
1回答
如何筛选列表列的元素
、、、
我有一个包含3个变量的数据框架(df)：
ID (第一个id变量)
ID2 (第二个id变量)
data (用tidyr::nest()函数创建的列表列)。
图书馆(Tidyverse)日期<- ymd(c(‘2018-02-01“，'2018-02-06'，'2018-02-10'，'2018-02-21'，’2018-04-05‘) df.1 <- tibble(ID = paste0('ID_'，rep(1，5))，ID2 =LETTERS1 1:5，日期=日期) %>% group_by(ID
浏览 0提问于2018-11-26得票数 3
回答已采纳
2回答
在R中，我如何折叠列以形成另一个具有数字列表类型的列。
就像我们将数字列表定义为l = c(1,2,3)一样
df <- read.table(text = "X Y
a 26
a 3
a 24
b 8
b 1
b 4
", header = TRUE)
我正在尝试使用dplyr，但它给出了字符列表列
> df %>% group_by(X) %>% summarise(lst= paste0(Y, collapse = ","))
# A tibble: 2 x 2
X lst
<
浏览 0提问于2019-02-15得票数 2
1回答
我有一个简单的问题，尽管如此，我还是感到困惑。
我试图从一组给定URL的网站标题列表中提取特定的元素。我已经获得了使用httr包的网站标题。使用magrittr::extract，我能够成功地从每个URL的头中提取一个元素，并将该元素包含在tibble中。但是，我很难弄清楚如何从每个URL的标题中提取多个元素。
例如，下面的代码帮助我成功地提取每个URL的"status_code“，并将其包含在tibble中。每个网址只有一个"status_code“。
pacman::p_load(httr, rvest, dplyr, purrr, tidyr)
some_urls &l
浏览 12提问于2022-08-09得票数 2
回答已采纳
1回答
我有一个包含几个列表列的数据框架/Ti球，我想将它们合并/连接，但是我很难找到一种使用mutate(map())工作流的优雅的方法。
假设我有一个具有以下结构的数据框架：
library(gapminder)
# Setup
gap_1 <- gapminder %>%
select(-pop, -gdpPercap) %>%
group_by(country, continent) %>%
nest() %>%
rename(lifeExp = data)
gap_2 <- gapminder %>%
浏览 1提问于2021-02-20得票数 1
回答已采纳
我有一个矩阵A看起来
A = matrix(1:9,3,3)
A
[,1] [,2] [,3]
[1,] 1 4 7
[2,] 2 5 8
[3,] 3 6 9
以及我感兴趣的元素的索引矩阵。列1包含行索引，第2列包含列索引：
v = matrix(c(1, 3, 2, 2, 2, 3), nrow = 3, ncol = 2)
v
[,1] [,2]
[1,] 1 2
[2,] 3 2
[3,] 2 3
我希望使用'v‘中的行和列索引从’A‘中提取数字；索引对应于数字4 (A
浏览 2提问于2015-11-20得票数 8
回答已采纳
我正在尝试提取一个子文本，并从R中的列表列表中获取最小值。我的初始tsv看起来像这样(这是一个较小的版本)： cases counts
"S35718:10.63,S35585:6.75,S35708:7.28,S36617:12.23" "6.75,7.28,10.63,12.23,6.17,4.09,3.95,5.00"
"S35718:10.63" "10.63"
浏览 11提问于2019-12-19得票数 1
1回答
下面的df有一个只有一个数值的列表列(CVcCVq)。我想将此单个值提取到另一列中，或将此列表列转换为数值列。 我曾经使用下面的代码来提取列表的元素(例如，通过使用.x$value)，但是我不知道如何引用未命名的(？)(CVcCVq)中的值： df <-
df %>%
mutate(CVcCVq = map_dbl(CVcCVq, ~ .x$value)) 以下是我正在使用的数据帧示例： df <-
structure(list(site = c("Hungerford", "Hungerford", "Hung
浏览 3提问于2021-07-06得票数 0
回答已采纳
5回答
在R中，我知道如何将(已命名) list列的元素提取为单独的列，条件是它们的长度相同：
library(tidyverse)
tib1 <- tibble(x = 1:3, y = list(list(a = 1, b = 2, c = 3),
list(a = 3, b = 4, c = 5),
list(a = 5, b = 6, c = 7)))
tib1
A 3>：3x2xy1 <list 3> 2 2 <list 3&g
浏览 2提问于2018-03-04得票数 3
回答已采纳
我的目标是将dataframe连接到嵌套列表列中的数据文件中，例如：
data(mtcars)
library(tidyr)
library(purrr)
mtcars_nest <- mtcars %>% rownames_to_column() %>% rename(rowname_1 = rowname) %>% select(-mpg) %>% group_by(cyl) %>% nest()
mtcars_mpg <- mtcars %>% rownames_to_column() %>% rename(rowname_2 =
浏览 0提问于2018-05-01得票数 0
回答已采纳
1回答
library(tidyverse)
为什么这会产生一个列表列'am'：
mtcars %>%
group_by(cyl) %>%
mutate(am=list(mtcars[,'am']))
但不是：
mtcars %>%
group_by(cyl) %>%
nest() %>%
mutate(am=list(mtcars[,'am']))
错误:与STRSXP不兼容
我意识到这是一个虚构的例子，但它与我正在做的事情有关。变异不是其环境之外的范围吗？
浏览 5提问于2016-09-29得票数 0
回答已采纳
当涉及到R时，我对编程非常陌生，我认为我对我想要做的事情一无所知。我有一个包含9个项目的列表，每个项目由1列组成，其中包含大约50个项目作为字符。我想将列表中的每个tibble与另一个1列tibble进行比较。我已经知道没有一个是相同的，但一些值是相同的。因此，我希望每次比较都返回一个TRUE或FALSE值的列表，这取决于是否在单个tibble中找到了tibble列表中的每个值。像我在%中使用的%一样，单独比较两个tibble是很容易的，但困难的部分是迭代通过tibble列表进行比较，而不必使用%in%命令一次比较一个。
这是我到目前为止尝试过的：
mapply(function(x,y){a
浏览 0提问于2020-04-29得票数 0
2回答
我有列表列表，必须在其中一个列中计数该列表中的唯一值。我只需要使用以下方法从列表中提取这一列
j = 1
for i in range(len(table)):
row = table[i]
print(row[j])
我现在如何计算该列中的唯一数据？
浏览 0提问于2021-03-31得票数 1
回答已采纳
我有一个500 96的宽格式文件(132列宽)，其中6个列是描述实例的变量，时间为1到16 (96列)，其中36列是不变化的。我想改变数据结构，以便我有一个列表列为每一个这些实例和一个单独的列为非变化的信息。时间实例的变量名由以"1“结尾的名称唯一指定。
library(tidyverse)
a<-data_frame(id=c("A","B","C"),
const82=c("1952","1960","1970"),
cons
浏览 0提问于2017-02-12得票数 0
1回答
我试图使用列表列制作许多模型，但失败了。
df <- tibble(id = 1:5, df = 1:5) %>%
nest(data = df)
在df中只有一个名为data的变量。我想从df中提取data的值，并将其放到ns()函数的第二个参数中。我尝试了三种方法，但都失败了。
# way 1: use df as second argument in ns()
df %>%
mutate(model = map(data, ~ lm(mpg ~ ns(disp, df), data = mtcars)))
# way 2: use . as secon
浏览 2提问于2020-11-17得票数 0
回答已采纳
我正在寻找将列表列表转换为R中的数据的Tidyverse方法。
# Create a list of lists:
a <- seq(1,10,1)
b <- seq(1,20,2)
# Function to calculate the sum
# (just an example, I am aware of the base R sum())
sum_test <- function(a=a, b=b){
sum <- a+b
df <- cbind(a,b,sum)
return(df)
}
list_of_lists <- pu
浏览 0提问于2020-01-27得票数 2
回答已采纳
如何使用purrr根据另一列中的值查找list列中的元素？
例如，假设我有一个有2列和2行的简单的Ti球。第二列是列表列，两行都将“字母”向量显示为列表。第一列显示了我想提取的列表元素。
library(dplyr)
library(purrr)
lets <- tibble(posn = 1:2,
lets_list = list(letters, letters)) %>%
glimpse()
返回：
Observations: 2
Variables: 2
$ posn <int> 1, 2
$ lets_list
浏览 1提问于2018-08-06得票数 2
2回答
下面的tibble有一个列表列property，其中包含一些缺失的值：
library(tidyverse)
tbl = tibble(type = c('scale', 'range', 'min', 'max'),
property = list(list(lttr = letters, mth = month.name), NA) %>%
rep(., 2))
# A tibble: 4 x 2
type property
<chr> <li
浏览 1提问于2019-06-10得票数 1
回答已采纳
5回答
我可以直接将列表列解为n列吗？
可以假定列表是规则的，所有元素都是相同长度的。
如果我没有一个列表列，而是有一个字符向量，我可以tidyr::separate。我可以tidyr::unnest，但我们需要另一个助手变量才能实现tidyr::spread。我错过了一个明显的方法吗？
示例数据：
library(tibble)
df1 <- data_frame(
gr = c('a', 'b', 'c'),
values = list(1:2, 3:4, 5:6)
)
A tibble: 3x2 gr值1 a <int 2&
浏览 1提问于2018-04-06得票数 39
回答已采纳
3回答
我有一个14次系列跳跃试验的列表。14与时间和14与垂直距离，如列表中所示，我如何使用MAP而不是循环来将每个相应的时间和垂直试验配对为hop1、hop2、hop3等。然后把它们放在一个主数据框里？ 列出dt和dv ? 示例将如下所示： hop1 <-data.frame(hop =1,t = dt$time_100L_1, v = dv$vertical_100L_1)
hop2 <-data.frame(hop =2,t = dt$time_100L_2, v = dv$vertical_100L_2) 并将所有的跳数存储在主节点中。我是否可以行绑定2个列表，并在示
浏览 28提问于2020-12-05得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
