Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/google-cloud-platform/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 用数据框中的值替换代码_R - Fatal编程技术网

R 用数据框中的值替换代码

R 用数据框中的值替换代码,r,R,我有一个data.frame,其中包含代码及其各自的值,如: cod <- data.frame("Sy" = c("11","12","13","14","15"), "Class" = c("A","B","C","D","

我有一个data.frame,其中包含代码及其各自的值,如:

cod <- data.frame("Sy" = c("11","12","13","14","15"),
                  "Class" = c("A","B","C","D","E"))
我知道我可以使用:

for (i in c("11","12","13","14","15")) {
  dados$Value[which(dados$Sy == i)] <-cod$Class[which(cod$Sy == i)] 
}
(“11”、“12”、“13”、“14”、“15”)中的i){
dados$Value[其中(dados$Sy==i)]只需将字母值合并即可:

dados <- merge(dados, cod, by="Sy", all.x=TRUE)

dados带有
dplyr的选项

library(dplyr)
dados <- left_join(dados, cod, by = "Sy")
库(dplyr)
通过使用plyr包,护墙板:

  library(plyr)
  dados <- plyr::join(dados,
                      cod,
                      by = "Sy",
                      type = "left",
                      match = "all")
库(plyr)
护墙板护墙板$Value
library(dplyr)
dados <- left_join(dados, cod, by = "Sy")
  library(plyr)
  dados <- plyr::join(dados,
                      cod,
                      by = "Sy",
                      type = "left",
                      match = "all")