R如何使用case_when()确定列中的前一个值是否大于有序向量中的前一个值
在R中，可以使用case_when()函数来确定列中的前一个值是否大于有序向量中的前一个值。case_when()函数是dplyr包中的一个强大的条件语句函数，可以根据多个条件进行灵活的数据转换和处理。
下面是一个示例代码，演示如何使用case_when()函数来实现该功能：
library(dplyr)
# 创建一个示例数据框
df <- data.frame(
column1 = c(1, 2, 3, 4, 5), # 列中的值
ordered_vector = c(1, 3, 2, 5, 4) # 有序向量
)
# 使用case_when()函数判断前一个值是否大于有序向量中的前一个值
df <- df %>%
mutate(previous_greater = case_when(
lag(column1) > lag(ordered_vector) ~ "Yes", # 前一个值大于有序向量中的前一个值
TRUE ~ "No" # 前一个值不大于有序向量中的前一个值
))
# 打印结果
print(df)上述代码中，首先加载了dplyr包，然后创建了一个示例数据框df，其中包含了一个列column1和一个有序向量ordered_vector。接着使用case_when()函数和mutate()函数来添加一个新的列previous_greater，该列用于存储判断结果。case_when()函数中的条件判断使用了lag()函数来获取前一个值，并与有序向量中的前一个值进行比较。如果前一个值大于有序向量中的前一个值，则返回"Yes"，否则返回"No"。最后，通过打印数据框df来查看结果。
这种方法可以帮助我们根据条件判断来确定列中的前一个值是否大于有序向量中的前一个值，从而实现相应的数据处理和转换。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云官网：https://cloud.tencent.com/
- 云服务器CVM：https://cloud.tencent.com/product/cvm
- 云数据库CDB：https://cloud.tencent.com/product/cdb
- 人工智能AI：https://cloud.tencent.com/product/ai
- 物联网IoT Hub：https://cloud.tencent.com/product/iothub
- 移动开发移动推送：https://cloud.tencent.com/product/umeng
- 云存储COS：https://cloud.tencent.com/product/cos
- 区块链BCS：https://cloud.tencent.com/product/bcs
- 元宇宙：https://cloud.tencent.com/solution/virtual-world
相关·内容
我正在使用的数据显示参与者的性别在三栏(基线、第一时间点和第二时间点)。对数百名参与者来说，基线和第二时间点的性别没有变化，但在第一时间点则是NA。
如果在列前(基线)和列后(第二个时间点)存在相同的值(1=male、2=female)，则我试图导出正确的代码来更改该列中的NA。我的知识是基本的，因为我目前正在学习R。
请有人建议一些可能有效的密码吗？我试图用if/ but语句找出一个for循环，但没有完全达到这个目的。
df$tp1是第一个时间点，df$base是基线，df$tp2是第二个时间点。
for(i in df$tp1) {
if (df$base == df$
浏览 7提问于2022-05-15得票数 0
回答已采纳
3回答
我必须创建一个名为SalaryX的新列，该列的值计算如下：
如果原始工资在20,000到30,000之间，那么它的SalaryX应该是20,000；如果原始工资在30,000到40,000之间，那么它的SalaryX应该是30,000，等等。
我尝试使用cut函数如下：
cut(employee$salary, 5, include.lowest = T, labels = c("20000", "30000", "40000", "50000", "60000"))
但是，如果薪资值为25600，则SalaryX
浏览 0提问于2019-09-08得票数 1
回答已采纳
我有一个dataframe，需要按列条目的组合进行分组，以便只使用if语句(没有其他条件)有条件地修改几个列。
更具体地说，如果某个组的列值超过了预定义的阈值，我想要对它们进行汇总，否则这些值应该保持不变。
我尝试使用if_else和case_when来实现这一点，但是这些函数需要一个"false“参数(if_else)，或者默认情况下需要与NA (case_when)不匹配的set值：
iris_mutated <- iris %>%
dplyr::group_by(Species) %>%
dplyr::mutate(Sepal.Length=if_els
浏览 0提问于2019-01-28得票数 6
回答已采纳
我有一个数据框，其中有一列性别，其中包含男性和女性元素。还有一个名为Total Charge的列。
我想在新列.if中计算税收，性别是男性，税率是20%，如果是女性，那么税率是15%。
我正在使用下面提到的代码，但给出了错误的答案。有谁能帮忙吗？
x=customer[ ,"gender"] %>%
if(x=="Female"){
print (customer[ , "MonthlyCharges"]*0.50)
} else {
print(customer[ , "MonthlyCharge
浏览 2提问于2019-09-08得票数 0
我有下面的ifelse语句，其中$TotalReplacementRatio是一个列，其数字为0-1.5。它拖着我的for循环，所以我想要矢量化它。
ModelOutputTRA$RetirementReady <- ifelse(ModelOutputTRA$TotalReplacementRatio > RetReadiness,"Yes","Not")
我尝试了以下选项，以使它在循环中运行得更快，但我得到了一个错误：
rrv1 <- ModelOutputTRA$TotalReplacementRatio >= RetReadin
浏览 1提问于2021-02-10得票数 1
回答已采纳
我在我的数据中有一个包含提示的专栏，我将尝试运行一个逻辑回归来预测一个提示是会留下还是现在。
尝试使用mutate在数据中创建一个布尔列，该列具有1和0。1是小费，0是没有小费。
我的代码非常简单：
data %>% mutate(ifelse((Tips > 0, 1), ifelse(Tips == 0, 0)))
作为输出，我有超过1的值，例如，tip = 7.00将转换为布尔值7，这不是我所期望的。
Tips boolean
1.75 1
2.00 2
0.00 0
2.35 2
0.00 0
1.00 1
0.00 0
0.00
浏览 3提问于2020-06-21得票数 1
回答已采纳
2回答
round2 <- function(x, y) {
if(is.na(x)) { return ('') }
return(paste0(round(100 * x, 0), '% ', round(100 * y, 0), '%'))
}
mydf <- data.frame(a = c(NA, .323, .555), b = c(NA, .232, .541))
mydf %>% dplyr::mutate(c = round2(a, b))
函数paste0(round(...))的主要部分工作得很好，但是
浏览 7提问于2022-02-12得票数 1
回答已采纳
我想通过使用if- data语句向我的数据框架(县)添加一个新列(类)。
dataframe：
这是我的密码
#set working directory
setwd("C:/Users/weirc/OneDrive/Desktop/Undergrad Courses/Fall 2021 Classes/GHY 3814/final project/data")
#load packages
library(readr)
library(dplyr)
#load data
counties <- read_csv("vax
浏览 2提问于2021-11-22得票数 1
回答已采纳
我试图通过匹配来自不同列的单词来将新列添加到数据框中。以mtcar为例，我希望通过扫描每个行名中的字符串来创建列"country“。要遍历伪代码中的前几行： if "Mazda" in rowname then "Japan"
if "Datsun" in rowname then "Japan"
if "Hornet" in rowname then "USA"
etc 我尝试过在map函数中使用变异体，但是没有用。任何帮助都将不胜感激。
浏览 11提问于2019-10-03得票数 0
回答已采纳
我有一个数据框，其中的一列包含文本和一些变量，这些变量包含与该联盟的强度相对应的值。我想在同一个df中创建一个新列，其中包含每行对应的变量值。 我试过这个： prospects2020$leaguemod <- if(prospects2020$LEAGUE == "QMJHL") {
QMJHLe
} else if (prospects2020$LEAGUE == "OHL") {
OHLe
}else{
WHLe
} 其中QMJHLe、OHLe和WHLe是GE中的变量，它创建列，但每个值都等于QMJHLE值。我收到错误消息： 警告消息：
浏览 13提问于2020-07-12得票数 0
回答已采纳
1回答
背景：我有一个有未知参数的仿真模型。我使用人工神经网络(ANN)创建了一个元模型，因为仿真模型的运行时间非常长。我试图使用贝叶斯校准来估计未观测的参数，其中先验是基于当前的知识，观测数据的可能性是从元模型中估计出来的。
查询：我有两个随机变量X和Y，我试图使用STAN获得后验分布。X的先验分布是一致的，U(0,2)。Y的先验也是一致的，但它总是超过X，即，Y~ U(X,2)。既然Y与X相连，我如何在STAN中定义Y的先验分布，以便约束Y>X保持？我是新来的斯坦，所以我希望有任何建议或指导如何进行。非常感谢!
浏览 6提问于2021-11-08得票数 0
我有矩阵A和矩阵[U,S,V]，比如[U, S, V] = svd(A)。
我如何在matlab中修改我的脚本以得到U的10列，这些列对应于A的10个最大奇异值(即S中的最大值)？
浏览 1提问于2015-02-10得票数 1
回答已采纳
我有一个带有分组ID变量的数据帧。对于每个分组ID中的每个记录，我们需要根据来自另一列的条件将一个值赋给一个新列，该列是我们的“最终值”。我通常是以循环的方式来做这种事情，虽然效率低下，但对我来说并不是太有影响，但是这里的数据很大，而且花费的时间太长。如何将下面的逻辑转换为应用函数族以提高效率？我很难理解这些功能。
library(data.table)
df <- data.frame("Group_ID" = c(1,1,2,2), "Values" = c("A", "B", "B", "C&#
浏览 0提问于2020-11-13得票数 1
回答已采纳
3回答
我想知道是否存在以下函数。我有如下数据
test <- data.frame(replicate(2,sample(0:100,1000,rep=TRUE)))
cutoff.X1 <- 20
cutoff.X2 <- 60
test
X1 X2
1 63 79
2 68 76
3 23 67
4 21 48
5 78 84
6 35 47
7 34 20
8 24 36
9 32 41
10 92 90
11 77 20
12 21 54
13 90 81
14 69 43
15 70 30
16 56 31
17
浏览 4提问于2021-02-10得票数 2
回答已采纳
test <- data.frame('cost'= c(120, 3, 2, 4, 10, 110, 200, 43, 1, 51, 22, 14),
'price' = c(120, 20, 10, 4, 3, 4, 30, 43, 56, 88, 75, 44)
)
test
> test
cost price
1 120 120
2 3 20
3 2 10
4 4 4
5 10 3
6 110
浏览 0提问于2018-10-07得票数 1
回答已采纳
2回答
我一直在尝试在另一篇文章的基础上创建一个新的专栏。我只想设置，如果列包含"gama media"、"bay view"或"marina view"，它将全部替换为"Playa"。但是，使用下面的代码，我只能替换一个单词。我怎么能替代所有的内容？
library(rvest)
library(plyr)
library(purrr)
library(stringr)
url2 <- "https://www.tripadvisor.com/Hotel_Review-g659633-d246401-Reviews-Me
浏览 1提问于2020-05-27得票数 1
回答已采纳
3回答
如果B列是<= 20，我想从A列的值中减去1。
A = c(1,2,3,4,5)
B = c(10,20,30,40,50)
df = data.frame(A,B)
输出
A B
1 0 10
2 1 20
3 3 30
4 4 40
5 5 50
我的数据非常大，所以我不喜欢使用循环。在R中有计算效率的方法吗？
浏览 1提问于2019-03-27得票数 0
回答已采纳
我有一个列的数据集--河口、淡水和海洋。我希望根据其他列中的NAs数来创建Status列：
Brackish Freshwater Marine Status
1 NA 1 Marine_Estuarine
1 1 1 Marine_Estuarine_Freshwater
NA NA 1 Marine_Only
NA 1 1 Marine_Freshwater
我试着编写这段代码来有条件地填充列，但是我得到了一个错误
浏览 1提问于2021-05-31得票数 1
回答已采纳
2回答
假设我有一个具有两列的数据框架df：
id category
A 1
B 4
C 3
D 1
我想将类别中的数字替换为以下内容：1 = "A", 2 = "B", 3 = "C", 4 = "D".
也就是说，输出应该是
id category
A A
B D
C C
D A
有人知道怎么做吗？
浏览 4提问于2022-05-05得票数 0
回答已采纳
2回答
在条件列中处理NAs
、、、
我有一个数据框架，如df，并希望创建列来生成df2。
df <- data.frame(bind_cols(x = c('N', 'Y', 'N', 'Y', 'N'),
y = c(NA, 'N', 'Y', 'Y', 'N')))
df2 <- data.frame(bind_cols(x = c('N', 'Y', 'N', 'Y'
浏览 0提问于2018-05-07得票数 0
回答已采纳
我有一个dataframe，每一行都有一个唯一的会话ID。每个会话都是由唯一的帖子组成的，可以是传入的，也可以是响应的(但不能两者兼而有之)(客户发布传入的帖子和代理发布响应)。每个帖子都有一个情绪评分。
我想通过测量第一次和最后一次收到的邮件之间的差异来计算情绪的变化。下面是示例数据。
# A tibble: 11 x 11
conversationID postID postType conversationOrd… incomingOrder responseOrder createdDate closedDate convResponseHan… tar sentence_
浏览 4提问于2020-01-28得票数 3
回答已采纳
我试图修改两列的数据格式，添加第三列，根据其他列的内容返回四个可能的表达式(即，每列都是正数还是负数)。
我尝试过几种方法，dplyr中的“mutate”函数以及sapply。不幸的是，我似乎遗漏了什么，因为我得到了错误“条件的长度>1，只有第一个元素将被使用”。因此，只对新列中的每一行应用第一次迭代。
一个可重复的例子(我尝试过的变异方法)如下所示：
Costs <- c(2, -5, -7, 3, 12)
Outcomes <- c(-2, 5, -7, 3, -2)
results <- as.data.frame(cbind(Costs, Outcomes))
浏览 16提问于2020-12-17得票数 0
回答已采纳
2回答
我在R中有一个包含多列的数据集。有一列room_type包含字符串值Entire home/apt、Shared room或Private room，或者为空。我想创建一个新的列room_type_new，其中字符串值基于列room_type。注意:数据集中有超过100000行。 如下所示： room_type room_type_new
Entire home/apt Entire home
Private room Shared home
Shared room Shared home
NA NULL 我尝
浏览 44提问于2019-10-10得票数 2
回答已采纳
我重要的是一个编译的数据帧，然后使用dplyr选择必要的列。
# select columns
dplyr::select(TraitID, OrigValueStr, OrigUnitStr)%>%
# filter TraitID for 6 (root rooting depth)
dplyr::filter(TraitID == 6) %>%
dplyr::filter(!is.na(OrigValueStr))%>%
#drops the TraitID column
dplyr::select(-TraitID)
但我不确定如何在
浏览 0提问于2020-11-04得票数 0
2回答
我想：
按因子(Site，Pos)分组；，如果因子'Pos‘== "A"，则将所选值("a")赋给新列(’Treat1‘)中的相同行；(如果因子'Pos’== "B“)，将选定的值("b")赋给新列中的相同行('Treat1')；如果因子'Pos‘ == "AT"，则将一个值("a")赋给新列的每一行(’ 1')，其中'Pos‘== A，第二个值("b")给该列的第二行。
到目前为止，我只知道如何编码前3个点，但是这个循环仍然没有像我所
浏览 3提问于2020-05-19得票数 0
回答已采纳
我需要在一行中查找重复的列条目。我有一个逻辑向量，当列在该行中没有重复时，它是真的，当它们在行中重复时，它是假。我想使用这个逻辑向量来删除重复的条目，但是当我使用这个var2logical向量时，长度会发生变化，因为只有true的值被保留，具有false的行被删除，但是我希望这些被保留下来，并且只是na或空。这个是可能的吗？ 所以对于 1 a b
2 a b
3 a a
4 a a
5 a b 我有逻辑向量[TRUE, TRUE, FALSE, FALSE, TRUE] 我想用这个框架和这个向量来得到 1 a b
2 a b
3 a
4 a
5 a b 或 1 a b
2 a b
3 a N
浏览 27提问于2019-05-10得票数 0
回答已采纳
我好久没碰过循环了。我只是想检查LocationID列中的值是否为1，如果是的话，将RegionID中相应行中的值设置为4，它应该遍历LocationID列中的每个值。
for (i in 1:length(df$LocationID)) {
if (df_7$LocationID == 1) {
df_7$RegionID = 4
}
}
据我理解，我在这里提出的代码只检查第一个值~44000次(数据集的长度)，然后将RegionID的每个值设置为4。
任何帮助都是非常感谢的！
浏览 2提问于2020-12-06得票数 2
回答已采纳
df %>%
mutate(NewQty = case_when(
Week == "202001" &&
Category == "Category1" ~ (Qty*0.05),
Week == "202001" &&
Category == "Category2&
浏览 4提问于2022-03-15得票数 1
回答已采纳
我试图使用dplyr的case_when()根据其他列中的条件修改一个新列，但是，我希望新列嵌套一个向量。
示例
考虑以下玩具数据。在此基础上，我想总结一下英国的地理区域。
library(tibble)
set.seed(1)
my_mat <- matrix(sample(c(TRUE, FALSE), size = 40, replace = TRUE), nrow = 10, ncol = 4)
colnames(my_mat) <- c("England", "Wales", "Scotland", "North
浏览 1提问于2021-01-17得票数 0
回答已采纳
1回答
我有如下数据集：
id <- c(1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2)
v1 <- c("A","A","A","A","B","B","B","B","B","A","A","A","A","A","A","A","A","B",
浏览 17提问于2021-02-27得票数 1
回答已采纳
2回答
我正试图对一列进行重新编码以确定员工的轮班。
数据是混乱的，我正在寻找的单词必须从文本中提取。我一直在尝试使用if语句、stringr和dplyr包的各种路线，但却找不出如何让它们一起工作。
我有这行代码，但是str_match不会产生真/假值。
Data$Shift <- if(str_match(Data$Unit, regex(first, ignore_case = TRUE))) {
print("First Shift")
} else {
print("Lame")
}
recode正在工作，但我需要对多个值进行重新编
浏览 0提问于2018-04-03得票数 4
回答已采纳
3回答
在下面的data.frame df中，我希望创建一个新列，该列的值将从A列的分类中派生。如果A列对应于G1向量中的一个数字，则在称为Group的新列中，应将其归类为"G1“。类似地，如果A列中的值对应于G2向量中的值之一，则应将其归类为"G2“。其余的列应归类为"G0“。
A <- seq(1900,2000,1)
B <- rnorm(101,10,2)
df <- data.frame(A=A,B=B)
G1 <- c(1963,1982,1952)
G2 <- c(1920,1933,1995)
# This doesn'
浏览 0提问于2019-01-07得票数 2
回答已采纳
1回答
我有两个列，Invoice_date和due_date。如果due_date>Invoice_date用Invoice_date替换due_date的所有这些值，则它应该是相同的due_date。然而，我没有得到结果。下面是R中的代码。如果下面的代码在逻辑上是正确的，请帮助。 Data$INVOICE_DATE1 <- ifelse((as.Date(Data$DUE_DATE) - as.Date(Data$INVOICE_DATE)) <= 0,
as.Date(Data$INVOICE_DATE), as
浏览 21提问于2020-04-17得票数 0
3回答
我正在尝试在R中运行一个嵌套的ifelse语句，下面是使用tidyverse中的ifelse()函数来查看我的数据的结构：
Rows: 22,104
Columns: 9
$ `Formation/Locality` <chr> "Montmartre", "Montmartre", "Montmartre", "Fur", "Me...
$ Location <chr> "Ile-de-France Region, France", "I
浏览 2提问于2020-05-28得票数 0
回答已采纳
我有下面的数据框架： master <- data.frame(A=c(1,1,2,2,3,3,4,4,5,5), B=c(1,2,3,3,4,5,6,6,7,8),C=c(5,2,5,7,7,5,7,9,7,8),D=c(1,2,5,3,7,5,9,6,7,0)) 如您所见，我有4列A,B,C,D。我想要实现的是创建一个新的数据帧，其中将包括A和B之间的重复行对，发生复制的行的索引，以及第三列中使这些行不同的列名(C,D或C和D)。为了使我的请求更清晰，我使用master2代替了只包含A和B的master显示了一个示例 master2 <- data.frame(A=c(1,1
浏览 4提问于2019-01-04得票数 1
回答已采纳
假设我有一个包含向量的数据帧：
column3
1
3
5
5
4
5
10
5
现在我想创建一个全新的向量，如下所示：
如果column3中的值< 3，那么新向量中的值是“小”的。如果column3中的值>3且<5，则新向量中的值为"Medium“。
我尝试了嵌套的ifelse，但它没有创建新的向量，它只测试了一个值。示例：
newcolumn <- ifelse(as.numeric(data$column3) < 3,"Small", ifelse(as.numeric(data$column3) > 3 &&
浏览 0提问于2018-03-01得票数 0
2回答
我正在练习R，我创建了一个新列，其中包含连续的数字，名为ROI，并希望将数字值重新编码为R中的字符串值，如下所示：
df = mutate(diabetes_df, ROI = ifelse(ROI < 18.5, 'Under', ROI))
df = mutate(diabetes_df, ROI = ifelse(ROI >= 18.5 & ROI <= 25, 'average', ROI))
diabetes_df = mutate(diabetes_df, ROI = ifelse(ROI > 25 & BM
浏览 2提问于2020-05-18得票数 0
回答已采纳
2回答
我试图将数据帧中的数值舍入到最近的间隔。我想根据这个数字有多大，每隔一段不同的时间圈一圈。我从这个开始(来自于excel思维)，但是我不得不把它转换成R代码。注round_any将一个数字舍入到最近的间隔(例如5.13->5，5.85->6)
library(plyr)
DataFrame <- sapply(DataFrame, function(x) {
if(x>1) round_any(x,0.25),
if(x>5) round_any(x,0.5),
if(x>10) round_any(x,1)
浏览 2提问于2018-05-11得票数 1
回答已采纳
2回答
我有一个像这样的data.frame
df <-data.frame(Day=c(0,0,0,1,1,1),type=c("tr1","tr2","ctrl","tr1","tr2","ctrl"),
mean=c(0.211,0203,0.199,0.119,0.001,0.254),
sd=c(0.07,0.141,0.096, 0.0848, 0.0006, 0.0474))
Day type mean
浏览 0提问于2021-07-06得票数 3
回答已采纳
1回答
我试图确保100%以上的值被解释为100% (就像在记号和标题的位置上一样)，并且显示的值就是输入的值。现在，如果我尝试像dangerGauge(182)这样的东西，仪表就不起作用了。 library(dplyr)
dangerGauge <- function(pos,breaks=c(0, 10, 35, 65, 90, 100)) {
require(ggplot2)
get.poly <- function(a,b,r1=0.5,r2=1.0) {
th.start <- pi*(1-a/100)
th.end
浏览 19提问于2020-09-30得票数 0
回答已采纳
这就是我试图在R中编写的代码...
假设我有50行和4列。如果(行1，列2)中的值大于5，则对(行1，列4)中的值进行计数。
例如：(行，列)
如果(1,2) = (6)，则计算(1,4)中的值
如果(2,2) = (8)，则计算(2,4)中的值
如果(3,2) = (4)，则不计算(3,4)中的值
因此on....Then将第4列中的所有值相加。
我该如何在R中编写代码呢？我尝试过创建函数、循环、if语句等。
浏览 0提问于2015-01-30得票数 0
我有一个大的csv文件，我一直试图编辑。我一直在尝试创建一个名为“种族”的新专栏。目前有一个名为derived_race的专栏，其中有多个种族，包括白人、黑人或非裔美国人、亚洲人、联谊会等。我需要把derived_race分类降到白人、黑人和其他种族。我尝试使用mutate添加另一列，我使用的代码如下所示：
mutate(selected_public_2018_lar,Race = if (derived_race == 'White'){
print("White")
} else if (derived_race == 'Black or Afr
浏览 4提问于2020-06-28得票数 1
回答已采纳
1回答
操作数据帧的列中的日期
、、、、
用大于今天的日期更新dataframe列，从该日期减去1年 f1 %>% filter(Fresh.email.date > today()) %>% ymd(list(Fresh.email.date)) - years(1)
浏览 12提问于2019-04-17得票数 1
回答已采纳
在R中，我尝试根据数据框中另一列的值更新另一列
所以数据帧是2列，第一列s/b是一个数字，第二列是一个日期。对于3个特定日期，我需要将检查列更新为某个值。数据帧如下所示：
Exams Year
NA 2009-12-01
NA 2010-01-01
NA 2010-02-01
我想要将NA更改为这3个日期的特定值
我已经尝试过了：
library(dplyr)
ABVILE %>%
mutate(Exams=replace(Exams, Year==2009-12-01, 1709.67)) %>%
as.data.frame()
我也试着把我需
浏览 44提问于2019-04-16得票数 0
回答已采纳
在R中，我尝试创建一个名为model的列，其中的值取决于最多5个其他列的值。 列是运动，汽车，SUV，旅行车，小型货车，皮卡。如果这5列是该组的成员，则值为1，否则为0。我想创建一个名为model的列，如果运动= 1，2如果SUV = 1，3如果货车=1，4如果Minivan =1，5如果皮卡=1，否则如果所有5列都等于0，那么model将=0。我尝试使用case语句，并使用dplyr进行了变异 cars %>%
mutate(model == case_when(Sport == 1, ~ '1'
,case_when(SUV ==
浏览 24提问于2021-10-28得票数 0
回答已采纳
3回答
我正在执行数据分析和清理R使用tidyverse。我有一个包含23列的数据框架，其中包含'NO‘、'STEADY’、'UP‘和'down’。我想将这23列中的所有值更改为0，如果是'NO'，‘稳态’，而在其他情况下是1。
我所做的是，我根据名称键创建了一个列表，其中保留了我的所有列，之后我使用for循环、ifelse语句和变体。
请看下面的代码
# Column names are kept in the list by name keys
keys = c('metformin', 'repaglinide',
浏览 1提问于2019-07-28得票数 2
我试图使用case_when处理空值，以便在值为空时返回值，否则，对象将按原样返回。
h <- NULL
dplyr::case_when(
is_empty(h) ~ "This is null",
T ~ h)
> Error in value[[i]] : subscript out of bounds
我不明白为什么会出现错误:难道case_when不应该输出“这是空的”并就此结束吗？
浏览 10提问于2021-12-06得票数 1
回答已采纳
2回答
我有一个numpy整数数组，包含许多行和3列。给出了一个样本。第二列和第三列代表索引，每个第二列值<对应的第三列值。
在这个例子中，我将使用k = 4。
任务：，我想找到所有的数组行，其中k严格地不在第2列和第3列的值之间，。因此，在每一行中，第二列和第三列的值都将是< k，或者两者都是> k。
import numpy as np
arr = np.array([[-1, 0, 6],
[-6, 1, 2],
[-8, 3, 10],
[ 3, 4, 11],
浏览 0提问于2019-08-08得票数 2
回答已采纳
我有一个用数字逗号分隔的字符串的列，例如'0,1,17,200,6,0,1'。我想为字符串中那些数字(或子字符串)的和创建新的列，这些数字(或子字符串)是而不是等于0。
我可以使用这样的方法来计算整字符串的非零数之和。
df$F1 <- sapply(strsplit(df1$a, ","), function(x) length(which(x>0)))
[1] 5
这将输出' 5‘作为上面示例字符串中的子字符串数，这是正确的，因为'0,1,17,200,6,0,1'中的子字符串数确实是5。
然而，挑战是如何能够限制子字符串
浏览 0提问于2020-03-04得票数 0
回答已采纳
1回答
我有一个包含as.factor类型数据的数据集，其中包含物种、属、基因和衰变程度的数据。我想使用这两列中的数据计算每个单独行的AGB值，第一组代码仅使用GEN ran成功地创建了一个AGB列，为每个样本存储了AGB值。第二组代码不运行。我在这里省略了另外两个属，以避免重复。错误将粘贴到结尾处。任何关于为什么相同的方法在添加条件时不起作用的提示。
for (i in 1:nrow(dat)){
if(dat$GEN[i] =='Avicennia'){
dat$AGB[i]<- 140*dat$dbh[i]^2.44
}else if (dat$GEN[i]
浏览 1提问于2020-05-25得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
