1

我正在尝试解决一个问题,如果不满足条件并保留数据框的某些特征,我实际上是在尝试对一些数据进行子集化,同时为数据插入 0。

例如:我有一个数据集:

Plot    Species    Status
1A      ABBI       L
1A      PIEN       D
1B      ABBI       D
1B      PIEN       L
2A      ABBI       L

使用以下选择标准:

Species== 'ABBI', Status== 'L'

但我的症结是我需要完整的绘图信息,因此如果不满足 ABBI 标准,我需要添加一个值为 0 的行。例如:

Plot    Species    Status
1A      ABBI       L
1B      0
2A      ABBI       L

有什么建议么?提前致谢!

4

1 回答 1

1

听起来你想要这样的东西:

mydf <- read.table(text="Plot    Species    Status
1A      ABBI       L
1A      PIEN       D
1B      ABBI       D
1B      PIEN       L
2A      ABBI       L",header=TRUE,stringsAsFactors=FALSE)
mydf[!mydf$Species== 'ABBI' | !mydf$Status== 'L',c("Species","Status")] <- 0

> mydf
  Plot Species Status
1   1A    ABBI      L
2   1A       0      0
3   1B       0      0
4   1B       0      0
5   2A    ABBI      L
于 2013-09-13T07:04:45.197 回答