library(tidyverse) 我卡在一个本应该很简单的问题上!使用以下代码,我想做的就是对三个“Var”列进行分组和汇总。我需要计数和求和(这样我可以创建三个百分比列),但是我不想包括NA值。通过使用“na.rm = TRUE”从sum中删除NA很容易,但我似乎无法想出如何在计算数量...
我有一个非常大的(太大了,无法在Excel中打开)生物数据集,看起来像这样 year <- c(1990, 1980, 1985, 1980, 1990, 1990, 1980, 1985, 1985,1990, 1980, 1985, 1980, 1...
我正在尝试编写一个绘图函数,您可以传递裸列名以选择要绘制的列。我还想能够指定一个字符串作为颜色。 我发现如果要将字符串传递给aes_string,则需要使用shQuote。现在我的问题是确定是否已传递了裸名或字符串。 我该如何做到这一点? dat <- data.frame( ...
使用dplyr的select函数时,它无法正常工作并给出错误提示,指出我要选择的列名是未使用的参数。但是,如果我在函数调用前指定dplyr,例如s:"dplyr::select",那么它就可以正常工作: 这里是一个示例数据框: sampledf <- structure(list(CR...
在这个SO问题中,通过使用broom::bootstrap函数并将by_group参数设置为TRUE,多组和子组的引导似乎很容易实现。我想要的输出是一个嵌套的表格,其中包含n行数据列,每个引导调用生成的引导数据都包含在其中(每个组和子组具有与原始数据相同数量的情况)。 在中,我执行了以下操作:...
我有一个tibble的玩具示例。最有效的方法是什么,可以按x分组对y的连续两行进行求和?library(tibble) l = list(x = c("a", "b", "a", "b", "a", "b"), y = c(1, 4, 3, 3, 7, 0)) df <- as_tib...
我在使用 tidyverse 套件中的选择函数时开始收到警告。 示例: library(dplyr) set.seed(123) df = data.frame( "id" = c(rep("G1", 3), rep("G2", 4), rep("G3", 3)), "total"...
我有一个 tibble,名为 df: > df # A tibble: 4 x 5 profile Sepal.Length Sepal.Width Petal.Length Petal.Width <chr> <dbl> ...
我正在寻找一种基于tidyverse的解决方案,该方案能够在数据表格tbl中针对每个组id内唯一值TF的出现次数进行计数。当TF发生变化时,我希望从该点向前和向后都进行计数。这些计数应存储在一个新变量PM##中,以便PM##包含每个唯一转换中的加减。 这个问题类似于我之前提出的一个问题,但是...