Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/69.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 设定初始值_R_Dataframe - Fatal编程技术网

R 设定初始值

R 设定初始值,r,dataframe,R,Dataframe,有一个data.frame: a<-c(2,8,6,5,8) b<-c(1,6,7,3,2) df<-data.frame(a,b) a如果我正确理解了你的问题: df$d <- NA df$d[1] <- df$a[1] + df$b[1] for (i in 2:nrow(df)){ df$d[i] = ifelse(df$d[i-1] > df$a[i], df$a[i], df$d[i-1]+df$a[i]) } df a b d 1

有一个data.frame:

a<-c(2,8,6,5,8)
b<-c(1,6,7,3,2)
df<-data.frame(a,b)

a如果我正确理解了你的问题:

df$d <- NA
df$d[1] <- df$a[1] + df$b[1]
for (i in 2:nrow(df)){
  df$d[i] = ifelse(df$d[i-1] > df$a[i], df$a[i], df$d[i-1]+df$a[i])
}

df

  a b  d
1 2 1  3
2 8 6 11
3 6 7  6
4 5 3  5
5 8 2 13

df$d如果我正确理解了您的问题:

df$d <- NA
df$d[1] <- df$a[1] + df$b[1]
for (i in 2:nrow(df)){
  df$d[i] = ifelse(df$d[i-1] > df$a[i], df$a[i], df$d[i-1]+df$a[i])
}

df

  a b  d
1 2 1  3
2 8 6 11
3 6 7  6
4 5 3  5
5 8 2 13

df$d
shift
不是基本的R功能。
shift
从何而来?列的第一个元素:d(1])=a(1)+b(1)。将列创建为
NA
df$d=NA
,然后设置第一个值
df$d[1]=df$a[1]+df$b[1]
shift
不是基本的R函数。
shift
从何而来?列的第一个元素:d(1])=a(1)+b(1)。将列创建为
NA
df$d=NA
,然后设置第一个值
df$d[1]=df$a[1]+df$b[1]
完美!非常感谢你!不客气。如果它解决了你的问题,请考虑接受答案:)完美!非常感谢你!不客气。如果解决了你的问题,请考虑接受答案。