如何在nested.data.frame中使用purrr::pmap绘制多个ggplot
在nested.data.frame中使用purrr::pmap绘制多个ggplot的步骤如下：
- 首先，确保已经安装了
tidyverse包，其中包括purrr和ggplot2。 - 创建一个nested.data.frame，它是一个嵌套的数据框，其中每个嵌套的数据框都包含绘制一个ggplot所需的数据。
- 使用
purrr::pmap()函数来遍历nested.data.frame中的每个嵌套数据框，并将其作为参数传递给绘图函数。 - 在
pmap()函数中，使用~符号定义一个匿名函数，该函数接受嵌套数据框中的每个列作为参数，并返回一个ggplot对象。 - 在匿名函数中，使用传递的参数创建ggplot对象，并添加所需的图层、标签、主题等。
- 使用
purrr::map()函数将返回的ggplot对象列表转换为一个列表。 - 使用
ggplot2::plot_grid()函数将多个ggplot对象组合成一个图形。
下面是一个示例代码，演示如何在nested.data.frame中使用purrr::pmap绘制多个ggplot：
library(tidyverse)
# 创建一个nested.data.frame
nested_df <- tibble(
group = c("A", "B"),
data = list(
tibble(x = 1:10, y = 1:10),
tibble(x = 1:10, y = 10:1)
)
)
# 使用purrr::pmap绘制多个ggplot
plots <- nested_df %>%
pmap(~ ggplot(data = ..2) +
geom_point(aes(x = x, y = y)) +
labs(title = paste("Group", ..1)))
# 将多个ggplot对象组合成一个图形
final_plot <- plot_grid(plotlist = plots)
# 显示最终的图形
final_plot在这个示例中，我们创建了一个nested.data.frame nested_df，其中包含两个嵌套的数据框。然后，我们使用pmap()函数遍历nested.data.frame中的每个嵌套数据框，并使用传递的参数创建ggplot对象。最后，我们使用plot_grid()函数将多个ggplot对象组合成一个图形，并将其显示出来。
这是一个简单的示例，你可以根据自己的需求修改绘图函数和数据框的结构。对于更复杂的绘图需求，你可以使用ggplot2的其他功能来自定义图层、添加标签、调整主题等。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云官网：https://cloud.tencent.com/
- 云服务器（CVM）：https://cloud.tencent.com/product/cvm
- 云数据库 MySQL 版：https://cloud.tencent.com/product/cdb_mysql
- 人工智能平台（AI Lab）：https://cloud.tencent.com/product/ailab
- 云存储（COS）：https://cloud.tencent.com/product/cos
- 区块链服务（BCS）：https://cloud.tencent.com/product/bcs
- 腾讯云元宇宙解决方案：https://cloud.tencent.com/solution/metaverse
相关·内容
我有一个数字数据帧调用A和一个类别，每两个变量(一个来自B，一个来自A)调用B，我想绘制一个条形图。
我的尝试：
y <- unlist(lapply(D, Negate(is.numeric)))
x <- unlist(lapply(D, is.numeric))
A <- D[,x]
B <- D[,y]
A <- as.data.frame(A)
B <- as.data.frame(B)
for(i in (1:ncol(A)))
{
for(j in (1:ncol(B)))
{
ggplot(D, aes(x = A[
浏览 2提问于2022-05-03得票数 1
2回答
数据帧"pars“中的行包含定义后勤曲线的两个参数：
library(ggplot2)
library(purrr)
pars <- data.frame(
diff = c(-1.5, 2.5),
disc = c(1.2, 2.5)
)
这两条曲线可以用map()和ggplot()来绘制，如下所示。
icc <- function(x) map(
1:nrow(pars),
~ stat_function(fun = function(x)
(exp(pars$disc[.x]*(x - pars$diff[.x])))/(1 + exp(pa
浏览 8提问于2022-01-19得票数 2
回答已采纳
? 我使用以下代码生成了多个图，每个图中都有垂直线:我想知道是否有任何方法可以改变这些代码中每条垂直线的颜色和线型： library(gridExtra)
library(grid)
library(lattice)
library(ggplot2)
vertical.lines <- c(1990,1991)
df1 %>%
filter(isocode == "KOR") %>%
select(year,rgdpe, rgdpo, avh, emp, hc) %>%
tidyr::gather(predictor, value
浏览 20提问于2021-09-02得票数 0
我有两个数据帧:一个包含需要拟合到非线性模型的实验数据，另一个包含用于通过nls方法拟合的初始值。实验数据和起始值都被分为类别a和b。我想使用ggplot2制作一个图表，显示拟合到点并按类别分隔的曲线，但我不能指示每个类别的起始值，这些值在另一个数据框中。
在MWE中，我以两种方式呈现具有起始值的数据框: 1.每列是一个类别，或者2.每行是一个类别。(请参见Constants1和Constants2对象)。我认为这个组织与调用ggplot中的值相关。
library(ggplot2)
Category <- c("a", "b")
k1 <- c(
浏览 23提问于2021-06-05得票数 1
回答已采纳
1回答
我正在尝试使用分为两个变量和四个独立组的值来绘制一些森林图。不幸的是，当涉及到标题时，我只能使用一个变量的组件。我在stack/google上查看了多个解决方案和其他主题，但我找不到任何足够的答案。以下是我的数据：
X1 X2 X3 X4 X5 X6 X7 X8 X9
1 Average 7 A Gamma 0.0029603231 0.001384471 1.002965 1.0002468 1.005690
2
浏览 16提问于2019-07-24得票数 1
回答已采纳
1回答
我创建了一个函数f1来绘制一个图表，从mtcars中传递未引用的变量名。以下各项运作良好：
f1 <- function(dt, title, var) {
var <- enquo(var)
ggplot(dt) +
geom_line(aes(x = mpg, y = !!var)) +
ggtitle(var)
}
f1(mtcars, var = disp)
现在，我想使用pmap进行迭代。我只是在一个迭代中尝试它，但是我得到了错误：
pmap(list(data = mtcars, title = disp, var = disp), f1)
&g
浏览 1提问于2018-10-18得票数 1
回答已采纳
我想使用ggplot2::geom_function()从数据帧绘制一组给定参数的函数。然后按照“年份”参数将它们组织成面。在StackOverflow (和)上有类似问题的解决方案，但我认为我的用例稍微复杂一些。
我的输入是一个数据帧。它包含不同正态分布(mu, sigma, lambda)的参数(我想绘制这些参数)和一个centralYear参数，我想将其用作facet_wrap的方面。除了其他用例外，我还想绘制每个方面的几个正态分布，它们由另一个参数generation区分。每年的世代数可能是可变的。数据框架如下所示：
我想要的是这样的输出：
下面是一个最小的工作示例
浏览 7提问于2022-10-09得票数 1
回答已采纳
考虑三个简单的数学函数：
f1 <- function(x) 1/x
f2 <- function(x) tan(x)
f3 <- function(x) 1 / sin(x)
当x接近某些值时，f(x)几乎得到无穷大。我用ggplot2::stat_function()绘制了这三个函数：
# x is between -5 to 5
ggplot(data.frame(x = c(-5, 5)), aes(x)) +
stat_function(fun = f1, n = 1000) +
coord_cartesian(ylim = c(-50, 50))
#
浏览 0提问于2018-11-09得票数 4
回答已采纳
我想做的是；我有几个不同的矩阵...通常我可以使用matplot来绘制它们(通过熔化来使用ggplot)，但我想要实现的是将3个矩阵叠加到一个单独的图上。
例如，如果我创建了3个不同的矩阵，如下所示：
mat <- NULL
for(i in 1:3){
set.seed(i)
mat[i] <- list(matrix(rbinom(100,20,0.6), ncol=10))
}
我通常可以使用matplot (和ggplot)分别绘制每个矩阵，如下所示：
library(ggplot2)
library(reshape)
# for example, plotti
浏览 2提问于2021-05-03得票数 1
这篇文章是继之前的一篇已经解决的文章之后发表的。我的新问题是如何正确使用pmap。我传递一个列表参数和我的函数。
我想通过：
day = 1
month = 11
year = 2015
为了进一步了解这一点，我想传递这里获得的值：
library(lubridate)
seq.Date(from = as.Date("2015-01-01"), to = as.Date("2015-02-01"), by = "day") %>%
tibble::enframe(., name = "seq", value =
浏览 0提问于2019-11-11得票数 1
回答已采纳
我试图在r中创建一个复合图，代码如下：
#Adding initial data
ggp <- ggplot(NULL, aes(x = date, y = covid)) +
geom_spline(data = onsdf,
aes(x = date, y = covid, colour = "ONS Modelled Estimates"), nknots = 90, size = 1.3) +
geom_spline(data = gvtdf,
aes(x = date, y = cov
浏览 7提问于2022-04-24得票数 0
回答已采纳
我有一个tibble，我想通过比较它的列和一些变量来filter它。但是，该变量与列具有相同的名称是很方便的。如何强制dplyr计算变量，使其不混淆变量名和列名？
set.seed(2)
ngrp <- 3
npergrp <- 4
tib <- tibble(grp=rep(letters[1:ngrp], each=npergrp),
N=rep(1:npergrp, ngrp),
val=round(runif(npergrp*ngrp))) %>% print(n=Inf)
grp <- grp_
浏览 4提问于2022-07-22得票数 1
回答已采纳
我有一个循环，它为数据框中的每一列创建一个json字符串，以便将此数据作为文本存储在单独的数据库中。我更喜欢非循环方法，但我总是遇到问题。执行此操作的更有效方法是什么？
library(tidyverse)
library(jsonlite)
df <- tibble(id1 = paste('ID',1:10),
id2 = paste('ID',1:10))
for(r in 1:nrow(df)) {
df[r,'combo'] <- toJSON(df[r,])
}
浏览 14提问于2020-05-26得票数 1
回答已采纳
1回答
我的第二次参与是在Stackoverflow中。 我有一个名为bw_test的函数，其中有几个参数如下： bw_test <- function(localip, remoteip, localspeed, remotespeed , duracion =30,direction ="both"){
comando <- str_c("ssh usuario@", localip ," /tool bandwidth-test direction=", direction," remote-tx-speed="
浏览 10提问于2020-04-23得票数 0
回答已采纳
我被NSE和一个情节函数搞混了。我试图在使用可变标签(而不是名称)标记轴等时，同时自动绘制几幅图。让我们说，我们有一个大的数据集，所有的变量已经标签。以下是一个小例子：
library(tidyverse)
library(sjlabelled)
library(ggplot2)
library(cowplot)
data("diamonds")
diamonds <- diamonds %>%
var_labels(
cut ="nice cut",
color = "all colours",
clarity =
浏览 5提问于2019-11-28得票数 2
回答已采纳
1回答
我正在尝试创建一个训练数据框架来拟合我的模型。我正在处理的数据帧是一个嵌套的数据帧。使用createDataPartition，我创建了一个索引列表。但我在使用上述列表对数据帧进行子化时遇到了问题。 下面是caret::createDataParition创建的object partitionindex的样子： partitionindex
[[1]]
[[1]]$Resample1
[1] 4 5 6 8 9 10 11 12 14 15 17 18 20 21 23 28 30 32 34 38 39 41 42 46
[
浏览 15提问于2019-12-19得票数 0
回答已采纳
我试图理解为什么这段代码可以工作：
tmp <- list(this = list(1:5),
that = list(10*c(1:5)),
other = list(100*c(1:5)))
tmp %>% pmap(function(this, that, other) paste(this, that, other))
..。但是，以下代码会产生一个“未使用的参数”错误：
tmp %>% pmap(function(a, b, c) paste(a, b, c))
我偶然看到了 GitHub的帖子，但我仍然不清楚
浏览 2提问于2020-03-31得票数 4
回答已采纳
如何在不一直使用annotation_custom的情况下，将多个grobs对象包含在ggplot图表中？
这是我的密码：
df <- data.frame(x = 1:10, y = 1:10)
df2 <- data.frame(x = 1 , y = 1)
g <- ggplotGrob(ggplot(df2, aes(x, y)) +
geom_point() +
theme(plot.background = element_rect(colour = "black")))
b
浏览 4提问于2021-12-01得票数 3
回答已采纳
1回答
叠加子图
、、、、
我需要覆盖，这是一组子图，在ggraph上画。每个地块对应于一个特定的节点，因此必须使用每个节点的坐标来放置它们。下面的代码创建要覆盖的图形和一组子图。
# Create the graph
library(data.table)
library(igraph)
library(ggraph)
mydata <- data.table(from=c("John", "John", "Jim"), to=c("John", "Jim", "Jack"))
graph <- g
浏览 0提问于2018-03-13得票数 0
回答已采纳
1回答
我试图用特定的坐标将多幅(大小不同)的图形绘制到网格上。为此，我使用treemap包创建了一个树状地图来获取坐标，然后，使用这些坐标，我尝试放置我的各个情节。希望下面的例子能更好地解释我的问题。
首先，我创建了一些酒吧，然后，我创建了一个树状地图，如下所示：
library(ggplot2)
library(treemap)
#create data
df <- data.frame(var1 = c("A", "B", "C"),
var2 = runif(3),
var3 = runi
浏览 0提问于2021-11-28得票数 3
回答已采纳
我使用facet_grid命令和两个不同的拟合方程(对于Jan和5-Jun)创建了这个用18个网格绘制的图。我有两件事需要帮助：
(可能听起来很明显，但)我还没有在互联网上找到工作代码，它能提取出stat_smooth拟合的最大曲线。如果有人能展示并解释密码的含义，我将不胜感激。这是我能找到的最接近的，但我不知道它意味着什么：
gb <- ggplot_build(p1) curve_max <- p1
如何添加一条垂直线来表示每条曲线上的最大值？
绘图
plot <- ggplot(rlc2, aes(par, etr, color=mon
浏览 0提问于2019-07-25得票数 1
回答已采纳
我有以下问题，我有一个带有多个字符列的tibble。我试图提供以下MRE：
library(tidyverse)
df <- tibble(food = c("pizza, bread, apple","joghurt, cereal, banana"),
food2 = c("bread, sausage, strawberry", "joghurt, oat, bacon"),
food3 = c("ice cream, bread, milkshake
浏览 1提问于2021-09-17得票数 2
回答已采纳
我有大约300个地点位于多个山区类型。我正在尝试制作一些有意义的情节。因此，我希望按山区类型(类型)划分数据，并通过ggplot2绘制数据。我想自动化的过程通过for循环或lapply，但我是初学者在这两个方面。
我已经找到了一些使用for循环：或使用lapply：的好例子。
然而，这两种方法都会产生空白的地块。我做错了什么？我怎样才能修正我的代码？
# Create dummy data
df<- data.frame(loc = rep(c("l1", "l2"), each = 3),
name = rep(c(
浏览 0提问于2018-01-30得票数 2
回答已采纳
我想用ggplot2使用来自purrr的map函数绘制所有变量的图表。除了x-axis label，一切都很好。任何暗示。
library(tidyverse)
Data <- esoph[ , 1:3]
fm1Plots <-
Data %>%
map(
~ ggplot(mapping = aes(x = .)) +
geom_bar(aes_string(fill = .)) +
labs(x = .)
)
fm1Plots[[1]]
fm1Plots[[2]]
浏览 6提问于2020-07-25得票数 0
回答已采纳
基于sparkline的示例代码
library(gt)
library(gtExtras)
mtcars %>%
dplyr::group_by(cyl) %>%
# must end up with list of data for each row in the input dataframe
dplyr::summarize(mpg_data = list(mpg), .groups = "drop") %>%
gt() %>%
gt_sparkline(mpg_data)
退出：
现在，我希望将
浏览 13提问于2021-10-18得票数 1
回答已采纳
1回答
使用列表简化R中的代码
、、、、
背景：
大家好，
我希望你能帮我把我的理解和代码提升到下一个层次。我试图把我的头脑集中在列表、它们的好处上，并使用它们来减少冗余代码。虽然我在网上读到了很多关于清单和申请家庭的信息，但我仍然无法理解如何在日常工作中实施。
下面是我想象中可以大大简化的情况--这是我经常编写的代码类型，我希望用一种更简洁的格式替换它。
示例：
让我们假设整个mtcars数据都是一个观测年--比如说2018年。让我们假设我们每年都有数据可追溯到2000年。因此，现在有" 18“mtcar data.frames，其中有一个年份列，我们将这18个观测结果按行绑定到一个data.frame中。这是我现在正在处理
浏览 0提问于2018-05-14得票数 0
1回答
很抱歉，如果这个问题过于简单，我觉得我一直都在看这种图表，但到目前为止，我从来没有自己做过这样的图表。
我正在向一些非数学人员介绍样本大小的工作原理，我的示例数据如下所示：
testid <- c(1, 1, 2, 2, 3, 3)
source <- rep(c("A", "B"), 3)
n <- c(1, 1, 100, 100, 100, 100)
p <- c(1, 0, 1, 2, 50, 51)
df <- data.frame(testid, source, n, p)
df
testid source n
浏览 4提问于2021-11-30得票数 0
回答已采纳
1回答
我有一个庞大的数据框架(> 800万行)，其中包含对个人和不同地点的观察。我感兴趣的是这些网站与几个关键地点的接近程度(2014年有1个地点，2015年有2个地点)。 为了最大限度地减少计算次数(并加快速度)，我使用dplyr将所有已知位置压缩为每年的单个代表性站点，然后尝试在年份匹配时使用distGeo函数计算距离。 dist <- df %>%
mutate(year = year(ts)) %>% #ts is the time stamp for each observation
select(site, lat, lon, year) %>%
浏览 15提问于2019-01-26得票数 1
回答已采纳
2回答
是否有一种方法将多个参数组合上的R函数矢量化，并以列表的形式返回结果？
例如，使用rnorm上的Vectorize生成以下内容，但是我希望有一个与每个参数组合相对应的向量列表(因此它应该返回一个包含60个向量的列表，而不是仅返回5个)：
> vrnorm <- Vectorize(rnorm)
> vrnorm( 10*1:5, mean = 1:4, sd = 1:3)
[[1]]
[1] 1.37858918 -0.85432372 1.87321175 2.08362291 0.02950438 1.67967249
[7] 2.25954748
浏览 0提问于2018-11-07得票数 1
回答已采纳
我从一组数据中随机抽取了30个样本。我需要计算每个样本的样本均值和样本方差，并将它们排列在一个包含3列" sample“、" mean”和“方差”的表中。
我的数据集是：
lab6data <- c(2,5,4,6,7,8,4,5,9,7,3,4,7,12,4,10,9,7,8,11,8,
6,13,9,6,7,4,5,2,3,10,13,4,12,9,6,7,3,4,2)
我做的样本如下：
observations <- matrix(lab6data, 30, 5)
并以下列方式分别为每一样本提供手段：
means <- row
浏览 0提问于2018-05-01得票数 0
回答已采纳
2回答
我喜欢dplyr的"progress_estimated“函数，但我不知道如何在dplyr链中获得一个进度条。我在这里放了一个可重复的例子，代码在下面。
我有一个很大的data.frame像这样：
cdatetime latitude longitude
1 2013-01-11 06:40:00 CST 49.74697 -93.30951
2 2013-01-12 15:55:00 CST 49.74697 -93.30951
3 2013-01-07 20:30:00 CST 49.74697 -93.30951
我想要计算每个日期的日出
浏览 19提问于2017-03-10得票数 18
回答已采纳
我想为一个因子的每个级别或一个数值变量的每个值(这里是vs变量的每个值)绘制多个图。我不想使用facet_grid或facet_wrap。我想知道是否有更紧凑的方法来完成这项任务。在我的实际数据中，我确实有很多级别的因子。 library(tidyverse)
mtcars %>%
dplyr::filter(vs == 0) %>%
ggplot(mapping = aes(x = wt, y = mpg)) +
geom_point()
mtcars %>%
dplyr::filter(vs == 1) %>%
ggplot(ma
浏览 21提问于2019-05-20得票数 0
回答已采纳
我正在创建一个Date类型的列的data.frame。使用[[和数字向量为数据帧编制索引时，日期将变为数字。这会导致在使用purrr::pmap时出现问题。有人能解释为什么会发生这种情况吗?有什么解决办法吗？
示例：
x <- data.frame(d1 = lubridate::ymd(c("2018-01-01","2018-02-01")))
class(x$d1)
# [1] "Date"
x[[1]]
# [1] "2018-01-01" "2018-02-01"
x[[c(1, 1)]]
#
浏览 0提问于2018-10-01得票数 11
我正在寻找一个解决方案，以更短的方式编写我的代码(如下所示)。
我创建了一个名为calculs_geo ()的函数，并使用了不同的参数。
可能使用()或purrr::map()？
事先非常感谢！
calculs_geo(maille = "France",filiere = "ensemble", champ = "ensemble")
calculs_geo(maille = "FrancedeProvince",filiere = "ensemble", champ = "ensemble")
浏览 4提问于2021-12-07得票数 -1
回答已采纳
2回答
想要将列元素合并到单个列中
X <- tribble(
~X1, ~X2, ~X3,
1, 2, 3, 4, 5, 6,
7, 8, 9)
apply(X, 1, function(x) paste0(x, collapse=""))
这段代码的dplyr版本是什么？
浏览 0提问于2019-08-30得票数 2
我创建了一个页面刮取函数，它可以抓取一些数据。我希望能够创建一个URL列表，以便在函数调用中传递多个参数，以构建不同的URL。
我创建一个URL的代码如下所示：
library(tidyverse)
#> Registered S3 methods overwritten by 'ggplot2':
#> method from
#> [.quosures rlang
#> c.quosures rlang
#> print.quosures rlang
library(httr)
# Argum
浏览 1提问于2019-05-28得票数 0
回答已采纳
1回答
绘制嵌套列表中每条记录的回归线
、、、、
我有一个示例，它将数据嵌套到列表中，将线性模型添加到列表中的每个tibble，将回归系数添加到列表中的每个记录，并将2个不同的ggplot对象添加到列表中的每个记录。我想为每个记录在单独的图形上绘制回归线。我可以让geom_smooth做我想做的事情，但是geom_abline似乎为列表中的每个记录添加了一个回归，每个数字一个(我的示例有三个记录，因此每个数字上有三行，而不是每个记录需要的单行)。 library(tidyverse)
library(purrr)
library(broom)
library(ggplot2)
iris_species <- iris %>%
浏览 9提问于2019-04-05得票数 3
回答已采纳
下列工作正常：
pmap_dbl(iris, ~ ..1 + ..2 + ..3 + ..4)
.l的文档提供了A list of lists. ... List names will be used if present.。这意味着您应该能够使用列表名称(即列名)。然而：
pmap_dbl(iris, ~ Sepal.Length + Sepal.Width + Petal.Length + Petal.Width)
Error in .f(Sepal.Length = .l[[c(1L, i)]], Sepal.Width = .l[[c(2L, i)]], :
object &#
浏览 1提问于2018-07-01得票数 10
回答已采纳
我想要有一个函数，作为它的一部分，显示它正在运行的整个元素列表中的哪个元素，以显示该函数在我的列表中的进度。我知道如何使用for循环来做到这一点，在for循环中，我的输入与向量中元素的数字位置相关，但是如何使用purrr:map来做到这一点呢？
x = c('a', 'b', 'c')
for(i in 1:length(x)) {
print(paste0(i, '/', length(x), ' complete'))
}
浏览 6提问于2020-05-07得票数 0
回答已采纳
我有一个Ti球，其中一个列用于文件路径，一个列用于表的名称(为安全性而删除的路径)：
x <- structure(list(file = c("2003_2005_DataDictionary.xlsx", "2003_2005_DataDictionary.xlsx",
"2003_2005_DataDictionary.xlsx", "2003_2005_DataDictionary.xlsx",
"2003_2005_DataDictionary.xlsx", "2003_2005_Dat
浏览 0提问于2020-03-23得票数 2
回答已采纳
我现在的任务是求解一个类似于eqn(a,b,c)的方程，其中a，b，c分别是数据的一列。如何将这些列传递给uniroot以同时求解根？我想也许sapply在这里是有用的。
正如alistaire建议的那样，我粘贴的细节如下：
方程式是这样的：
eqnt <- function(T,l,fn,m,EI) { T - fn^2*m/l^2 - EI }
现在，参数都是(l，fn，m，EI)加载到一个数据文件中，比如df。我打算用df中的参数来求解所有的方程。
L m EI fn
1 10 6.190004 9988.997 6.59
浏览 0提问于2018-03-21得票数 0
回答已采纳
1回答
在两个列表中查找常用单词
、、、
x1 <- c("I like apple", "she enjoys reading")
x2 <- c("he likes apple", "Mike wants to read this book")
w1 <- strsplit(x1, " ")
w2 <- strsplit(x2, " ")
我有两份名单：
w1
[[1]]
[1] "I" "like" "apple"
[[2]]
浏览 0提问于2018-02-28得票数 2
回答已采纳
我看过关于如何使用expand.grid为模型选择自变量，然后基于该选择创建公式的各种帖子。但是，我事先准备好了输入表，并将它们存储在列表中。 library(ranger)
data(iris)
Input_list <- list(iris1 = iris, iris2 = iris) # let's assume these are different input tables 我更感兴趣的是为我的输入表列表尝试给定算法的所有可能的超参数组合(这里:使用ranger的随机森林)。我执行以下操作来设置网格： hyper_grid <- expand.grid(
浏览 17提问于2020-03-31得票数 0
回答已采纳
2回答
我正在寻找一种方法来将几个相同长度的向量转换成一个命名列表列表。
例如，如果我有向量：
v1 <- c("a", "b", "c")
v2 <- c("x", "y", "z")
，清单应如下：
list(
list(
name = "a",
value = "x"
),
list(
name = "b",
value = "y"
)
list(
name = &#
浏览 0提问于2018-07-10得票数 0
回答已采纳
背景/底层问题：
我有一个从生产数据库中提取数据的工作，该数据库生成一个数据集，用作进一步分析工作的参考。在每次生成数据集之间，我希望能够检测数据集中是否有任何更改。数据集存储为数据格式列表。
问题：
下面的代码是我的数据集的简化版本
account_1 <- data.frame(id = c(1,2), name=c("Andy", "Ben"))
account_2 <- data.frame(id = c(1,2,3), name=c("Andy", "Ben2","Ceasar"))
bill
浏览 2提问于2017-12-23得票数 1
回答已采纳
3回答
将矩阵列表组合成矩阵列表
、、、
我有一个比较大的名单。列表中的每个元素都是一个由六个元素组成的列表。这些元素中的每一个都是具有固定行数和可变列数的矩阵。我想把这些矩阵组合起来，使我最终得到一个由六个矩阵组成的列表，其中每个矩阵都是对每个子列表的对应元素调用cbind的结果，即第一个矩阵是来自内部列表的所有第一个矩阵的cbind，第二个矩阵是第二个矩阵的cbind，等等。
例如：
temp = list()
temp[["a"]] = list(matrix(1, nrow=2, ncol=1), matrix(2, nrow=2,ncol=2))
temp[["b"]] = list(m
浏览 6提问于2016-12-17得票数 0
回答已采纳
1回答
通过函数调用顺序提供data.frame是不是没有正确更新？ 我试图创建一个新的data.frame，其中只包含我需要通过函数发送的那四列，但似乎不起作用？ 下面是我的函数调用 library(epitools)
library(tidyverse)
midp <- function(df) {
# Evaluates the pval of the midp function based on two proportions of a dataframe that contain both the national rate and the rate of the hosp
浏览 16提问于2019-08-28得票数 1
回答已采纳
我正在为2009-2020年所有ACS5年的统计变量创建代码本。为了确保或标记多年来变量中的任何差异，我试图在末尾添加一个检查列。然而，2018年命名中心似乎发生了一些变化，我想忽略这一点，以确定真正的问题。
#selecing and recoding variables to pull in
dv_acs = c(
same1 = "B25002_001",
same2 = "B25002_002",
diff1 = "C24010_039"
)
#creating a loop
浏览 10提问于2022-10-26得票数 0
回答已采纳
2回答
下面，假设这是数据的一部分：
df <- tribble(
~temp1, ~temp2, ~temp3, ~temp4, ~temp5, ~temp6, ~temp7, ~temp8,
75, 88, 85, 71, 98, 76, 71, 57,
80, 51, 84, 72, 59, 81, 70, 64,
54, 65, 90, 66, 93, 88, 77, 59,
59, 87, 94, 75, 74, 53, 56, 87,
52, 55, 64, 77, 50, 64, 83, 87,
)
现在我想做一个循环来得到结果。在这
浏览 2提问于2020-10-22得票数 0
回答已采纳
1回答
这是一个关于如何(如果可能)使用参数的命名列表(或其他非常通用的解决方案)通过mapply()向量化的一般性问题。我试图在这里找到正确的模式，这样我就可以对许多自定义函数使用mapply()，而不必在mapply()调用中列出参数名称。下面是一个简单的例子：
未使用参数列表的代码后面的所需输出
mapply(seq, from = 1:3, to = 3:1)
[[1]]
[1] 1 2 3
[[2]]
[1] 2
[[3]]
[1] 3 2 1
对所需模式的(失败)尝试：
from <- 1:3
to <- 3:1
vectorized_arguments <- lis
浏览 25提问于2019-06-04得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
