Revalue attributes from multiple columns
问题 I have a dataset like the following. dat1 <- read.table(header=TRUE, text=" ID Pa Gu Ta 8645 Rel345 Gel294 Tel452 6228 Rel345 Gel294 Tel467 5830 Rel345 Gel294 Tel467 1844 Rel345 Gel295 Tel467 4461 Rel345 Gel295 Tel467 2119 Rel345 Gel294 Tel452 1821 Rel345 Gel294 Tel467 6851 Rel345 Gel294 Tel467 4214 Rel345 Gel294 Tel452 2589 Rel346 Gel294 Tel467 2116 Rel347 Gel294 Tel452 8523 Rel348 Gel295 Tel468 2603 Rel348 Gel295 Tel468 2801 Rel348 Gel295 Tel452 1485 Rel348 Gel295 Tel468 2116 Rel348 Gel295