R语言中实现数据框中数据的替换

1、全部替换

> c1 <- c("x", "z", "a", "b")
> c2 <- c("a", "ab", "d", "z")
> c3 <- c("d", "m", "n", "a")
> c4 <- c("x", "a", "m", "k") 
> dat <- data.frame(c1, c2, c3, c4)    ## 生成测试数据框
> dat
  c1 c2 c3 c4
1  x  a  d  x
2  z ab  m  a
3  a  d  n  m
4  b  z  a  k
> dat[dat == "a"] = 100   ## 将数据框中所有的a替换为100
> dat                     ##查看替换结果
   c1  c2  c3  c4
1   x 100   d   x
2   z  ab   m 100
3 100   d   n   m
4   b   z 100   k

 

2、在指定列中进行替换

> c1 <- c("x", "z", "a", "b")
> c2 <- c("a", "ab", "d", "z")
> c3 <- c("d", "m", "n", "a")
> c4 <- c("x", "a", "m", "k") 
> dat <- data.frame(c1, c2, c3, c4)   ## 生成测试数据
> dat
  c1 c2 c3 c4
1  x  a  d  x
2  z ab  m  a
3  a  d  n  m
4  b  z  a  k
> dat[,c(1,3)][dat[,c(1,3)] == "a"] = 100     ## 将1,3列中的a替换为100
> dat                         ## 替换结果
   c1 c2  c3 c4
1   x  a   d  x
2   z ab   m  a
3 100  d   n  m
4   b  z 100  k

 

3、在指定列中替换， for循环实现

> c1 <- c("x", "z", "a", "b")
> c2 <- c("a", "ab", "d", "z")
> c3 <- c("d", "m", "n", "a")
> c4 <- c("x", "a", "m", "k") 
> dat <- data.frame(c1, c2, c3, c4)     ## 生成测试数据
> dat
  c1 c2 c3 c4
1  x  a  d  x
2  z ab  m  a
3  a  d  n  m
4  b  z  a  k
> for (i in c(1,3,4)) {
+   dat[,i][dat[,i] == "a"] = 100             ## 利用for循环将1,3,4列中的a替换为100
+ }
> dat                                         ## 替换结果
   c1 c2  c3  c4
1   x  a   d   x
2   z ab   m 100
3 100  d   n   m
4   b  z 100   k

 

4、在指定行中进行替换

> c1 <- c("x", "z", "a", "b")
> c2 <- c("a", "ab", "d", "z")
> c3 <- c("d", "m", "n", "a")
> c4 <- c("x", "a", "m", "k") 
> dat <- data.frame(c1, c2, c3, c4)        ## 测试数据
> dat
  c1 c2 c3 c4
1  x  a  d  x
2  z ab  m  a
3  a  d  n  m
4  b  z  a  k
> dat[c(1,3),][dat[c(1,3),] == "a"] = 100    ## 将1,3行中的a替换为100
> dat
   c1  c2 c3 c4
1   x 100  d  x
2   z  ab  m  a
3 100   d  n  m
4   b   z  a  k

 

5、利用for循环实现指定行的替换

> c1 <- c("x", "z", "a", "b")
> c2 <- c("a", "ab", "d", "z")
> c3 <- c("d", "m", "n", "a")
> c4 <- c("x", "a", "m", "k") 
> dat <- data.frame(c1, c2, c3, c4)     ## 生成测试数据框
> dat
  c1 c2 c3 c4
1  x  a  d  x
2  z ab  m  a
3  a  d  n  m
4  b  z  a  k
> for (i in c(1,3,4)) {
+   dat[,i][dat[,i] == "a"] = 100       ##利用for循环实现指定行的替换
+ }
> dat
   c1 c2  c3  c4
1   x  a   d   x
2   z ab   m 100
3 100  d   n   m
4   b  z 100   k