r - 根据条件执行两个单独的代码

Question

我在使用以下代码时遇到问题(我是初学者，所以请放轻松):

COW$id<- (COW$tcode1*1000 + COW$tcode2)
COW$id<- (COW$tcode2*1000 + COW$tcode1)

我希望第一行代码在 tcode1(COW dataframe 中的一个变量)的值小于 tcode2 的条件下执行(tcode1 < tcode2 )，如果 tcode1 大于 tcode2 (tcode1 > tcode2)，我希望执行第二行代码。根据上述条件，我正在寻找的最终结果是我的数据框中的单列“ID”。有谁知道如何实现这一点？

Answer 1

COW = data.frame(tcode1=c(5,7,18,9),tcode2=c(4,15,8,10))
head(COW)

  tcode1 tcode2
      5      4
      7     15
     18      8
      9     10

id = ifelse(COW$tcode1<COW$tcode2,
            COW$tcode1*1000 + COW$tcode2,
            COW$tcode2*1000 + COW$tcode1)

COW = data.frame(id=id,COW)
head(COW)

  id tcode1 tcode2
4005      5      4
7015      7     15
8018     18      8
9010      9     10