tidyverse

    0热度

    2回答

    考虑以下几点: library(tidyverse) library(broom) tidy.quants <- mtcars %>% nest(-cyl) %>% mutate(quantiles = map(data, ~ quantile(.$mpg))) %>% unnest(map(quantiles, tidy)) tidy.quants #>

    1热度

    3回答

    我正在尝试使用dplyr计算data.frame中包含的变量的移动中位数。我遇到的问题是,我传入rollapply()的函数与原始data.frame中的变量具有相同的名称。例如: df <- data.frame(median = seq(1:100)) df %>% mutate(ln_median = log(median)) %>% mutate(ln_median

    1热度

    1回答

    我有两个测量数据在两个不同的组上,每个组有多个样本。我简单的版本有6个样品每一个看起来是这样的: library(tidyverse) df <- tibble(group = c(rep("group_A", 12), rep("group_B", 12)), sample = rep(1:6, 4), measurement = rep(c(rep("meas_A"

    1热度

    2回答

    我想基于一个变量定义不同的组。这是一个简单的问题,但我无法弄清楚。 在我的数据集中,我为每棵树设置了许多独特的组(在“dist”变量中值为1)。我想创建一个新的变量,它将分配给每个组独特的独特价值。 我的数据是这样的: Tree_ID dist 1 0 1 1 1 1 1 0 1 1 1 0 我想创建一个新的变量,它分配给不同的群体“DIST == 1”的独

    0热度

    1回答

    我想在函数中使用列名称,而不明确地将其作为参数传递给该函数,在整数中调用(dplyr,tidyr ,purrr,...)管道。这是因为我想在许多列上使用此函数(例如,分别使用mutate_all和map),而不是分别使用每个列的mutate。 例子: 比方说,我想在每列值由列名和下划线作为前缀。以下作品: library(dplyr) library(purrr) library(string

    3热度

    1回答

    我想学习跳过顶部标题和底部标题在Tidyverse工具。 aaaaaaaaaaaaaaaaaaa aaaaaaaaaa aaaaaaa aaaaaaaaaaaa aaaaa aaaaaaaaaaaaaaaaa;;; aaaaaaaaaaaaaaa;;; ;aaaaa(%);; ;aaaaaaaaaa;aaaaaaaaaaaaa; aa/33;3.3;3.3; a/33;3.3;3.3;

    1热度

    1回答

    Tidyverse拥有神话般的Readr,它有各种各样的解析命令,如parse_date,parse_*,parse_factor和guess_parser。我有一个自定义month-year格式,如下面的罗马数字的条款,使得 > emptyOffices$Month [1] " II/90" " I/91" " II/91" " I/92" " II/92" " I/93" " II/93"

    0热度

    1回答

    我有这段代码尝试从Kitco网站获取黄金的每日现货价格。 library("rvest") library("dplyr") library("tidyr") library("tibble") maya <- read_html("http://www.kitco.com/market/") mara <- html_nodes(maya, "table") mata <- html

    0热度

    2回答

    我正在寻找一种方法来以成对方式计算点之间的分隔距离并将每个单独点的结果存储在随附的嵌套数据框中。 例如,我有这个数据框(来自地图包),其中包含有关我们城市的信息,包括他们的物理位置。我放弃了其余的信息,并将坐标嵌套在嵌套的数据框中。我打算使用geosphere包中的distHaversine()来计算这些距离。 library(tidyverse) df <- maps::us.cities

    0热度

    2回答

    我想在变量中指定的列上使用gsub参数对数据框的列进行变异,但我正在努力处理非标准的评估。 在这个玩具的例子中,我想在我的gsub调用中使用columns[[1]]和columns[[2]]而不是.$name_A和.$name_B。我可以,还是需要重新考虑我的方法? library(tidyverse) test_df <- tibble(name_A = c("asdf",