Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/81.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 嵌套If-Else语句-参数";是”;缺少,没有默认值_R_If Statement_Dataframe - Fatal编程技术网

R 嵌套If-Else语句-参数";是”;缺少,没有默认值

R 嵌套If-Else语句-参数";是”;缺少,没有默认值,r,if-statement,dataframe,R,If Statement,Dataframe,基本上,我有一个带有信号强度值(Sig_1)的列,我正在制作一个名为“Activity2”的新列。如果一个值和下一个值(Sig_1)之间的差值等于或大于5,我希望在我的新列中显示“A”。如果信号强度低于-130,我希望出现“W”,如果信号强度高于-130,我希望出现“I” 我有一个嵌套的ifelse语句: df <- transform(df, Activity2 = c(0, ifelse(diff(Sig_1)<5), ifelse(Sig_1<-130), "W", "

基本上,我有一个带有信号强度值(Sig_1)的列,我正在制作一个名为“Activity2”的新列。如果一个值和下一个值(Sig_1)之间的差值等于或大于5,我希望在我的新列中显示“A”。如果信号强度低于-130,我希望出现“W”,如果信号强度高于-130,我希望出现“I”

我有一个嵌套的ifelse语句:

df <- transform(df, Activity2 = c(0, ifelse(diff(Sig_1)<5), 
ifelse(Sig_1<-130), "W", "I"), "A")

df错误是由错误的括号引起的:您基本上有
ifelse(TRUE)
。还要注意
a之间的差异。错误是由于括号错误造成的:基本上是
ifelse(TRUE)
。还要注意
a括号中错误位置之间的差异。。。c(0,ifelse(diff(Sig_1))看看这个问题的答案:括号在错误的地方…c(0,ifelse(diff(Sig_1))看看这个问题的答案:
df <- transform(df, Activity2 = 
ifelse(c(0, diff(Sig_1))<5, ifelse(Sig_1 < -130, "W", "I"), "A"))