为什么在R中汉字修改不了呢

有一列数据，也就是文化程度，包括小学，初中等，比如要把高中，初中都归为中学，我用的if句，但为什么修改不了呢
我是这样做的：

1. if (dat1$文化程度 == "初中") dat1$文化程度 <- "中学"
   
2. if (dat1$文化程度 == "高中") dat1$文化程度 <- "中学"

复制代码

但是这样修改不了

1. for(i in dim(dat1)[1]){
   
2.        if (dat1$文化程度[i] == "初中") dat1$文化程度[i] <- "中学"
   
3.        if (dat1$文化程度[i] == "高中") dat1$文化程度[i] <- "中学"
   
4. }

复制代码

这样仍修改不了，请问为什么？

参考代码， 忽略图片（不会删除）如果是两个if连用如下：
if(){
}else if(){
}
不过此例中if条件可以合并

1. library(tidyverse)
   
2. a1 <- c("小学","初中","高中" )
   
3. a <- data.frame("文化程度" = rep(a1, times = 10))
   
4. a$文化程度 <- as.character(a$文化程度)
   
5. 
   
6. # method1
   
7. for(i in 1:length(a$文化程度)){
   
8.   if(a$文化程度[i] %in% c("初中" ,"高中")){
   
9.     a$文化程度[i] <- "中学"
   
10.   }
    
11. }
    
12. 
    
13. # method2
    
14. a$文化程度 <- a$文化程度 %>%
    
15.   str_replace_all(pattern = "初中", replacement = "中学") %>%
    
16.   str_replace_all(pattern = "高中", replacement = "中学")
    
17. 
    
18. # method3
    
19. a$文化程度 <- str_replace_all(as.vector(a$文化程度), c("初中" = "中学", "高中" = "中学"))
    
20. 
    
21. # method4
    
22. a$文化程度 <- factor(a$文化程度,
    
23.                  levels = c("小学","初中","高中"),
    
24.                  labels = c("小学","中学","中学"))

复制代码

直接用gsub函数就可以了newdata <- gsub("[初中|高中]","中学",data)

松石空月 发表于 2017-2-21 18:52
参考代码， 忽略图片（不会删除）如果是两个if连用如下：
if(){
}else(){

谢谢！

AlexYoung757 发表于 2017-2-21 16:20
直接用gsub函数就可以了newdata

应该是"(初中|高中)"