1回答
我试图写一个方程，它依赖于一个常数(水平数)。如下所示，如果我有两个级别，则if语句将引用L1和L2。
问题：
如何修改代码以使反映x个级别的？X可以是任意整数(通常为2-12)。如何在不使用for 的情况下重写代码？
非常感谢你的帮助！
例如，(用于两个级别)：
查表
L1_var <- c("Price", "Price", "Price", "Price")
L1_val <- c("AO", "AO", "Premium", "Premium")
浏览 1提问于2021-06-04得票数 1
回答已采纳
2回答
我试图在同一地块上绘制每个地区的时间和NDVI。我认为要做到这一点，我必须将日期列从字符转换为时间，然后绘制每个层。不过，我想不出该怎么做。有什么想法吗？
list(structure(list(observation = 1L, HRpcode = NA_character_,
timeseries = NA_character_), row.names = c(NA, -1L), class = c("tbl_df",
"tbl", "data.frame")), structure(list(observation = 1:6,
浏览 4提问于2020-04-08得票数 0
回答已采纳
3回答
我的数据涉及一家公司，包括CA、TX和WI三个县的总销售额和销售额。
数据：
> dput(head(WalData))
structure(list(CA = c(11047, 9925, 11322, 12251, 16610, 14696
), TX = c(7381, 5912, 9006, 6226, 9440, 9376), WI = c(6984, 3309,
8883, 9533, 11882, 8664), Total = c(25412, 19146, 29211, 28010,
37932, 32736), date = structure(c(12965184
浏览 9提问于2020-11-22得票数 1
回答已采纳
我有下面的数据示例。
第一次数据：
structure(list(cycle_rounded = structure(c(1604188800, 1604190600,
1604192400, 1604194200, 1604196000, 1604197800, 1604199600, 1604201400,
1604203200, 1604205000, 1604206800, 1604208600, 1604210400, 1604212200,
1604214000, 1604215800, 1604217600, 1604219400, 1604221200, 16042230
浏览 4提问于2022-09-23得票数 0
回答已采纳
一些tidyverse函数返回数据帧，但也有一些函数返回tibbles。我找不到任何关于函数返回哪种数据类型的资源，也看不到任何真正的可预测模式。下面是几个示例进行说明：
library(tidyverse)
# Returns dataframe
df1 <- iris %>% mutate(newcol = mean(Sepal.Length))
df2 <- iris %>% filter(Sepal.Length > 5)
df3 <- iris %>% select(Sepal.Length, Species)
class(df1); c
浏览 1提问于2020-04-07得票数 12
1回答
对于dplyr，我是相对较新的，如果给定的列只包含0和1，则尝试替换所有列的值。
df <- data.frame(a=c(1,2,3,4), b=c(1,1,0,0), c=c(1,1,1,0))
以下是我的尝试：
df_recode <- df %>% dplyr::mutate_if((min(., na.rm=T)==0 & max(., na.rm=T)==1),
dplyr::recode(., `1`="yes", `0`="no"))
我得到了
浏览 1提问于2019-11-11得票数 1
回答已采纳
我有一个有几列的tibble，其中的数字被存储为文本：
my_tbl <- tibble(names = letters[1:5],
value1 = as.character(runif(5)),
value2 = as.character(runif(5)))
现在，我想将这些列("value1“和"value2")的类型从字符更改为数字。我找到的唯一选择是使用for循环：
for (i in 2:ncol(my_tbl)) {
my_tbl[[i]] <- as.numeric(
浏览 0提问于2018-06-12得票数 1
假设我有一个使用dbplyr打开的远程tbl，并且我想对它使用一个SQL查询(可能是因为没有dbplyr转换来实现我想要做的事情)，我如何给它提供这样一个返回远程tbl对象的方法？
DBI::dbGetQuery()函数允许向db提供查询，但它返回内存中的数据帧，而不是远程tbl对象。
例如，假设您已经有一个打开到db的连接con，您可以创建如下表：
library(tidyverse)
x_df <- expand.grid(A = c('a','b','c'), B = c('d','e','f
浏览 1提问于2019-03-25得票数 2
回答已采纳
我知道.cols中的每个列和.fns中的每个函数都返回一个tibble，每个列都有一个列。同样，scale()返回一个矩阵。
我尝试了一些东西，但无法将对象'jj‘或'kk’转换为与'ii‘相同的对象。
我知道这可能是一件简单的事情，我确实试图寻找相关的问题。请给我指一份复本。谢谢
library(tibble)
library(dplyr)
#
aa <- as_tibble(mtcars) %>% select(wt)
#
ii <- aa %>% mutate(z = as.vector(scale(wt)))
jj <- aa
浏览 5提问于2021-12-30得票数 0
回答已采纳
1回答
我有一个包含一个人的阶段的数据框架，如下所示(这只是一个非常大的例子)：
df = structure(list(DeceasedDate = c(0.283219178082192, 1.12678843226788,
2.02865296803653, 0.892465753424658, NA, 0.88013698630137, NA
), LastClinicalEventMonthEnd = c(0.244862981988838, 1.03637744165398,
10.9464611555048, 0.763698598427194, 3.35011412354135,
浏览 0提问于2019-06-07得票数 0
回答已采纳
我有一个我认为是一个简单的问题，但事实证明是相当棘手的……我正在尝试从宽到长旋转df，在旋转之前添加列总计。然而，df包含文本和数据，这似乎使它有问题？而且，真正的df (不是下面的示例Dput )有相当多的列和行，所以理想情况下我不希望分别使用它们。请看下面我正在尝试的内容： structure(list(Name = c("John", "Marco", "Tony"), Date = c("23/04/2020",
"23/04/2020", "23/04/2020"), Col1 = c
浏览 17提问于2020-08-11得票数 0
回答已采纳
我有一个我写的函数，我叫tidy_stat_tbl()
它从我的包TidyDensity中获取一个data.framework/ti球，并返回用户选择他们选择的向量的统计信息。
我现在正在1k的复制上运行rbenchmark，我怀疑这需要2.5-3个小时，这很好，我明天早上就会看到结果。
为了加速比较，我运行了以下命令：
library(TidyDensity)
library(tidyverse)
library(tictoc)
x <- mtcars$mpg
te <- tidy_bootstrap(x) %>%
bootstrap_unnest_tbl()
t
浏览 0提问于2022-09-29得票数 -1
回答已采纳
3回答
我需要一些帮助整理我的数据。我正在尝试将一些整数转换为因子(但不是所有整数都转换为因子)。我认为我可以选择有问题的变量，但我如何将它们添加回原始数据集？例如，保留未从我的raw_data_tbl中选择的值，并使用raw_data_tbl_int中的变异类型
library(dplyr)
raw_data_tbl %>%
select_if(is.numeric) %>%
select(-c(contains("units"), PRO_ALLOW, RTL_ACTUAL, REAL_PRICE,
浏览 0提问于2019-02-23得票数 4
我有一个来自shapefile的带有多边形ID的df，它们的中心点在一个几何图形列中：
# A tibble: 3 x 2
ID geometry
<dbl> <POINT [°]>
1 1 (117.2 31.8)
2 2 (116.4 40.1)
3 4 (117.9 26)
我想把纬度/经度值放在单独的列中，所以我这样做了：
library(sf)
centres<- as.data.frame(st_coordinates(df))
这个新的“centres”数据帧具有LAT值和long值，但缺少ID列。
浏览 3提问于2019-02-17得票数 14
回答已采纳
我有一个庞大的df，包括以下内容：
subsetdf <- data_frame(Id=c(1:6),TicketNo=c(15,16,15,17,17,17))
我想添加一个列GroupSize，它告诉每个Id有多少其他Id共享相同的TicketNo值。换句话说，我想要这样的输出：
TheDream <- data_frame(Id=c(1:6),TicketNo=c(15,16,15,17,17,17),GroupSize=c(2,1,2,3,3,3)
我尝试过，但没有成功：
subsetdf <- subsetdf %>%
group_by(TicketNo)
浏览 1提问于2022-05-04得票数 1
回答已采纳
我有一个4年的数据集，在这里我想计算每一天的最高温度(每小时提供一次测量)。如何将此温度添加到数据集中的其他列中？我不知道如何做到这一点，而不删除其他列。
我的数据集就像：
structure(list(DateTime = structure(c(1420070400, 1420074000,
1420077600, 1420081200, 1420084800, 1420088400, 1420092000, 1420095600,
1420099200, 1420102800, 1420106400, 1420110000, 1420113600, 1420117200,
1
浏览 5提问于2021-02-09得票数 0
回答已采纳
我已经将excel电子表格导入到R中，数据框架中有许多应该是数字的列。我可以将命名列格式化为数字，如下所示：
df$quantity <- as.numeric(df$quantity)
我将如何对某些命名列执行此操作？这里有一个数据框架示例，尽管它没有真正的列那么多列。理想情况下，答案应该使用dplyr。
cols.to.format <- c("quantity", "li_hep", "edta")
df <- structure(list(source = c("Biobank", "Bioba
浏览 10提问于2022-08-06得票数 0
回答已采纳
2回答
data.table提供了一个我认为非常宝贵的rleid函数--当一个被监视的变量发生变化时，它充当一个滴答器，由其他变量排序。
library(dplyr)
tbl = tibble(time = as.integer(c(1, 2, 3, 4, 5, 6, 7, 8)),
var = c("A", "A", "A", "B", "B", "A", "A", "A"))
> tbl
# A tibble: 8 × 2
浏览 0提问于2017-02-11得票数 1
回答已采纳
这个问题很难在标题行中表达，但它不同于通常的“如何根据另一列中的值更改一列中的值”的问题。有两个问题我还没有在其他地方讨论过: 1)我处理的是NAs，而不是值；2)我正在处理涉及多列之间的OR关系的条件，即，如果V01是NA 或 V02是NA，那么对于该行，使var foo (已经不存在NAs) NA。
这里有一个小老虎来说明：
tbl <- tibble(
V01 = 10:15,
V02 = 1:6,
V03 = V02 * 2,
foo = V03 * 2
)
# sprinkle around some NAs
tbl[1,2] = NA
tbl[4,1] = N
浏览 5提问于2021-06-16得票数 4
1回答
我怎么能用purrr的地图变换tibble呢。
我有以下嵌套的tibble：
tbl_a <- tibble(
a = letters[1:3],
b = 1:3
)
tbl_b <- tibble(
c = letters[1:3],
d = 1:3
)
tbl_nested <- tibble(
name = c("Test", "Sand"),
nest_tbl = list(tbl_a,tbl_b)
)
最后嵌套的tibble应该是：
tbl_a_new <- tibble(
name =
浏览 2提问于2021-02-16得票数 2
我想创建一个新列，在该列中将一个行值添加到以前的列中。例如，我想创建一个新列"lane_deviation_additive“，在其中添加lane_deviationROW1 + lane_deviationROW2，然后将lane_deviationROW3添加到该结果，然后将lane_deviationROW4添加到该结果，依此类推。 下面是一个可重复使用的示例： example <- structure(list(ppid_trialn = c("1_1_4", "1_1_4", "1_1_4", "1_1_4
浏览 13提问于2019-10-07得票数 0
回答已采纳
4回答
在case a > 25中，如何使用mutate_if()将b的值更改为NA 我可以用ifelse来做这件事，但我觉得mutate_if就是为这类任务而生的。 library(tidyverse)
tbl <- tibble(a = c(10, 20, 30, 40, 10, 60),
b = c(12, 23, 34, 45, 56, 67))
浏览 142提问于2021-08-26得票数 1
回答已采纳
我在R中有以下数据帧 data <- structure(list(Column = c("0 bps", "3 bps", "NA bps", "NA bps",
"NA bps")), row.names = c(NA, -5L), class = c("tbl_df", "tbl",
"data.frame")) 有没有办法将最后三个单元格(字符串中带有"NA bps“)更改为空白单元格(最好是在dplyr中)？ 提亚
浏览 19提问于2021-04-01得票数 1
回答已采纳
3回答
我使用的是gt包，我想把总汇总名和一列变量放在一起。下面的例子展示了我正在尝试做的事情： library(dplyr)
library(gt)
df <- tibble(names = c("x", "y"),
a = c(1, 2),
b = c(3, 4))
tbl <- df %>%
gt() %>%
grand_summary_rows(
columns = where(is.numeric),
fns = list(Total = ~sum(.
浏览 27提问于2021-09-02得票数 0
我有一个连续变量，其中有很大比例的未知数。我的导师要求我把它旁边的百分比写在专栏里。这个reprex模仿了我想做的事情。
library(tidyverse)
library(gtsummary)
trial %>% # included with gtsummary package
select(trt, age, grade) %>%
tbl_summary()
我试图让未知数的百分比列在未知的旁边，最好放在括号中。看起来是11人(5.5%)。
有些人回答说我的数据集中丢失的数据是如何出现的，下面是这方面的重新解释。
library(gtsummary
浏览 3提问于2020-12-22得票数 4
回答已采纳
1回答
我有一个tbl (EU_28)，它的头看起来如下：
# A tibble: 5 x 22
`Member State` `1997` `1998` `1999` `2000` `2001` `2002` `2003` `2004` `2005` `2006` `2007`
<chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <
浏览 1提问于2018-06-07得票数 0
回答已采纳
我正在使用下面的包版本
# devtools::install_github("hadley/dplyr")
> packageVersion("dplyr")
[1] ‘0.5.0.9001’
使用以下tibble：
library(dplyr)
df <- structure(list(gene_symbol = structure(1:6, .Label = c("0610005C13Rik",
"0610007P14Rik", "0610009B22Rik", "0610009L18
浏览 0提问于2017-04-10得票数 40
3回答
在保留组位置的同时进行排序
、、、、
假设我这里有一个像tibble一样的tb_1
# A tibble: 7 x 2
Grp Srt
<chr> <int>
1 A 10
2 B 4
3 B 7
4 A 5
5 A 1
6 A 3
7 B 2
现将其转载如下：
tb_1 <- structure(
list(
Grp = c("A", "B", "B", "A", "A", "
浏览 14提问于2022-01-18得票数 3
我将下面的xreg (外部回归变量/自变量)传递给auto.arima，并得到消息xreg should be a numeric matrix or a numeric vector。我检查了class(xreg)并得到了"tbl_df" "tbl" "data.frame"。我只是想落后于A和B，所以我引入了A_lagged和B_lagged作为滞后版本。在我将它们作为列放入后，我删除了A和B。
谁能告诉我可能出了什么问题？谢谢。
xreg=Model_Dataset %>%
ungroup() %
浏览 45提问于2019-12-02得票数 1
回答已采纳
我有一些数据，看起来像这样：
`Category` `Count`
<chr> <chr>
1 X0101 <NA>
2 17 1
3 22 1
4 23 1
5 27 1
6 34 1
7 35 2
8 40 1
9 51 1
浏览 10提问于2019-07-09得票数 0
回答已采纳
我正在学习，我为一些蛋白质组数据创建了下面的嵌套数据框架。
dat_calc <- structure(list(Replicate = 1:5, data = list(structure(list(`Peptide Modified Sequence` = c("ABC",
"DEF", "GHI",
"JKL", "MNO"), peptide_sum_t0 = c(12798511,
24445998, 430914, 4169733152, 1040954968), peptide_sum_t
浏览 1提问于2020-07-12得票数 0
回答已采纳
这里的用法很简单，但是大多数关于apply/plyr/dplyr的文档都解释了更复杂的操作。
我想从this_tbl创建一个新的tibble
> this_tbl
# A tibble: 3 x 2
x y
<dbl> <dbl>
1 42 999
2 0 0
3 1 0
这样，每个值> 0都转化为1，而每个值<= 0都变成0。
> as_tibble(apply(this_tbl,2,function(x){ifelse(x>0, 1, 0)}))
# A tibble:
浏览 0提问于2018-04-12得票数 2
回答已采纳
我正在尝试使用recode和mutate_all对列进行重新编码。然而，由于某些原因，我得到了一个错误。我相信这篇文章类似于，但那篇文章中的答案使用了lapply函数。
以下是我在阅读dplyr包的帮助pdf后尝试的内容。
by_species<-matrix(c(1,2,3,4),2,2)
tbl_species<-as_data_frame(by_species)
tbl_species %>% mutate_all(funs(. * 0.4))
# A tibble: 2 x 2
V1 V2
<dbl> <dbl>
1 0
浏览 2提问于2016-08-07得票数 6
回答已采纳
我有一个数据集和另一个带有嵌套数据列表的数据集。 age_pharma <- structure(list(id = c(1, 2, 3, 4, 5, 6, 7, 8), age_band = c("5_9",
"10_14", "15-19", "20-24", "5_9", "10_14", "15-19", "20-24"),
table = list(structure(list(med_name_one = c("Co-
浏览 64提问于2021-04-08得票数 1
回答已采纳
看起来像是一些dplyr函数，包括mutate_if、mutate_all、mutate_at等，强制将data.table输入到data.frame。这似乎是一种奇怪的行为，尽管它在?mutate_all中有记录(在“Value”下，它写着“data.frame”--但它不会强制将data.frames转换为Value。)
require(dplyr)
require(data.table)
data("iris")
dt <- as.data.table(iris)
class(dt)
#[1] "data.table" "data.frame
浏览 0提问于2019-05-15得票数 2
1回答
我有3种不同类别的突变，例如 "CNA" "MUTATIONS" "STRUCTURAL_VARIANT"
f <- dput(e)
structure(list(track_name = c("AR", "ASCL1", "ATOH1", "PRDM1",
"DLX1", "DLX2", "EPAS1", "ETV2", "EYA2", &
浏览 5提问于2021-06-22得票数 0
回答已采纳
1回答
下面我有一个长格式的数据帧子集。我需要做的是根据Response和Date列调整value列。我需要调整Response =光合作用的行的值列。如果Response =光合作用，我需要减去Response =呼吸的值。我还在不同的日期重复测量，所以呼吸和光合作用的值需要来自相同的日期。我认为ifelse可以工作，但我不能得到正确的语法。
test <- structure(list(variable = c(221L, 221L, 44L, 44L, 221L, 221L, 44L, 44L), value =
c(-1.21625718690742, 1.15247376323723
浏览 5提问于2019-12-02得票数 2
回答已采纳
1回答
我在R中有一个tibble数据框架，我想要添加一个新的列名，但是名称必须来自变量的值，实现这一点的最简单的方法是什么？
# let us generate a whole set of new features
iris_tbl = as_tibble(iris)
iris_tbl <- iris_tbl %>% mutate(hello=1)
> print(iris_tbl)
# A tibble: 150 × 6
Sepal.Length Sepal.Width Petal.Length Petal.Width Species hello
&
浏览 3提问于2022-11-05得票数 0
回答已采纳
2回答
假设我的研究涉及观察性纵向队列研究。
设γ_comp为interest和γ1.γ4 at time t1和t2表示<code>E 110</code>γ_comp<code>E 211</code>的组合结果。此外，dataset还有另外三个变量(χ1、χ2和χ3)，这些变量将用于未来的分析，但不需要编写γ_comp代码。以下是data.frame的摘录
df <- structure(list(ID = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
Y1_t1 = c(5,
浏览 8提问于2022-04-30得票数 0
回答已采纳
2回答
我需要创建一个goal变量，如果dummy.ciiu_compared = 1大于50%的总案例的数量将是1 (否则为0 )，则该变量将神化。
17/26=0.65 -> 1
目标将是goal变量。
注:考虑按年份和id.分组
数据
db = structure(list(year = structure(c("2020", "2020", "2020", "2019",
"2019", "2019", "2
浏览 6提问于2021-03-28得票数 1
回答已采纳
我有一个名为"birth_year“的专栏，上面有出生年份的最后两位数: 64，94，92，01 .我的目标是把他们转到出生的整整一年: 1964,1994,1992,2001 .
我可以只使用函数str_c("19"，birth_year)，但有些年份是2001年、2005年。
我试图使用If_else，但它似乎不起作用：
if_else(birth_year > 15, mutate(birth_year = str_c("19", birth_year)),mutate(birth_year = str_c("20", bir
浏览 1提问于2020-11-07得票数 0
回答已采纳
1回答
https://www.kaggle.com/nowke9/ipldata -包含数据集。 这是在两个IPL数据集上执行的探索性数据分析。我希望建立之间的关系掷硬币赢得的球队和比赛的胜利者从比赛数据集。当我使用ifelse条件将数据分成赢家和输家并绘制图形时，我得到的输出是一个条形图，其中只包含匹配的总数，并且所有这些都是丢失的图例的一部分。 这是代码- library(tidyverse)
deliveries_tbl <- read.csv("data/deliveries_updated.csv")
matches_tbl <- read.csv("
浏览 27提问于2020-04-18得票数 2
回答已采纳
说我有
library(dplyr)
a <- list(a=tbl_df(cars), b=tbl_df(iris))
如何在此列表的每个元素中添加列name，其值为列表中命名元素的名称？例如，第一个元素的输出应该是这样的。
Source: local data frame [50 x 3]
speed dist name
(dbl) (dbl) (chr)
1 4 2 a
2 4 10 a
3 7 4 a
4 7 22 a
5 8 16 a
6
浏览 1提问于2016-05-18得票数 0
回答已采纳
1回答
我有一个多行的长数据帧。我想把它改造得更宽，只剩下一排了。
dput(df) >
structure(list(A = c(2, 4, 6), B = c(1, 3, 9), C = c(0, 1, 0)), row.names = c(NA,
-3L), class = c("tbl_df", "tbl", "data.frame"))
df >
A B C
1 2 1 0
2 4 3 1
3 6 9 0
我想把它重塑为：
浏览 2提问于2021-01-26得票数 0
回答已采纳
我有以下数据框： library(tidyverse)
dat <- structure(list(cuml = structure(c(109200, 214980, 325560), class = c("hms",
"difftime"), units = "secs")), row.names = c(NA, -3L), class = c("tbl_df", "tbl", "data.frame")) 它看起来是这样的： > dat
# A tibble: 3 x 1
浏览 83提问于2021-04-30得票数 1
回答已采纳
1回答
我在R中有下表，并希望生成一个额外的列，在Excel中将使用该公式执行：
=IF(B2=0，B2=0 B2)
这个公式是:如果单位价格= 0，那么:将所有其他销售的最高单价返回给同一客户和同一项目。
如果单价不等于零，则返回相同的单价。
对于A:C列，所需的输出是：
22512452376 单价
structure(list(customer = c("John", "Atticus", "Sally", "Bridget",
"John", "Atticus", "Bridget"
浏览 0提问于2020-11-08得票数 1
回答已采纳
1回答
我正在努力理解pmap是如何工作的。下面的tibble包含一个列表列values。我想要创建一个新的列New，它取决于values列中的对应元素是否为NULL。由于is.null没有矢量化，所以在遇到pmap()之前，我最初想使用rowwise()。
在使用rowwise()之前使用mutate()将给出所需的结果，如下所示：
tbl = as.data.frame(do.call(rbind, pars)) %>%
rowwise() %>%
mutate(New = ifelse(is.null(values), paste(id, default), paste(id
浏览 1提问于2019-03-02得票数 1
我有一个扁平的层次，大约有10层深。有一个密钥，但不幸的是，这个密钥没有被遵守，所以不能用于我的目的。 我需要把这个扁平表变成一个大层次结构，我唯一的关系就是行Id和父Id。 我的数据看起来像这样(简化)； id name description code sub_level_name parent_id
1 Parent Company My Big Company MBC Company
2 Franchise1 My Franchise1 MF1 Franchise 1
3 Store1
浏览 9提问于2020-09-04得票数 1
我希望跨多个列应用一个函数，其中包含列名中的特定字符串。以下内容已停止工作。对于代码有什么问题有什么建议吗？
数据：
> df=data.frame(ab=1:5, ba=6:10, c=11:15, dc=16:20)
> df
ab ba c dc
1 1 6 11 16
2 2 7 12 17
3 3 8 13 18
4 4 9 14 19
5 5 10 15 20
企图：
> df %>% dplyr::mutate_at(vars(contains("a"), contains("b")), funs(s
浏览 4提问于2022-05-09得票数 2
回答已采纳
我正在从几个模型中创建一个回归估计表。以下是数据：
structure(list(term = c("age_ceo_state__rf", "", "mktrf", "",
NA, NA), intercept = c("0.390***", "(19.455)", "0.673***", "(23.409)",
NA, NA), term_2 = c("age_ceo_state__rf", "", "age_firm_
浏览 3提问于2022-11-01得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
