发帖
雷达卡
各位大神，帮忙看一下，为什么factor就出错了。
> library(rms)> library(haven)> data1<- read_sav("C:/Users/HP/Desktop/6.8.sav")> View(data1)> summary(data1) 病理 AFP CA199 CEA Length:201 Length:201 Length:201 Length:201 Class :character Class :character Class :character Class :character Mode :character Mode :character Mode :character Mode :character 乙肝 肝硬化 声晕 远端胆管扩张 Length:201 Length:201 Length:201 Length:201 Class :character Class :character Class :character Class :character Mode :character Mode :character Mode :character Mode :character > str(data1)tibble [201 × 8] (S3: tbl_df/tbl/data.frame) $ 病理 : chr+lbl [1:201] 0, 0, 0, 0, 0, 0, ... ..@ label : chr "病理" ..@ format.spss: chr "A8" ..@ labels : Named chr [1:2] "0" "1" .. ..- attr(*, "names")= chr [1:2] "肝细胞癌" "胆管细胞癌" $ AFP : chr+lbl [1:201] 1, 1, 0, 1, 1, 1, ... ..@ label : chr "AFP" ..@ format.spss: chr "A8" ..@ labels : Named chr [1:2] "0" "1" .. ..- attr(*, "names")= chr [1:2] "阴性" "阳性" $ CA199 : chr+lbl [1:201] 1, 0, 0, 0, 0, 0, ... ..@ label : chr "CA199" ..@ format.spss: chr "A8" ..@ labels : Named chr [1:2] "0" "1" .. ..- attr(*, "names")= chr [1:2] "阴性" "阳性" $ CEA : chr+lbl [1:201] 0, 0, 1, 0, 0, 1, ... ..@ label : chr "CEA" ..@ format.spss: chr "A8" ..@ labels : Named chr [1:2] "0" "1" .. ..- attr(*, "names")= chr [1:2] "阴性" "阳性" $ 乙肝 : chr+lbl [1:201] 0, 1, 1, 1, 1, 0, ... ..@ label : chr "乙肝" ..@ format.spss: chr "A8" ..@ labels : Named chr [1:2] "0" "1" .. ..- attr(*, "names")= chr [1:2] "阴性" "阳性" $ 肝硬化 : chr+lbl [1:201] 0, 1, 1, 1, 1, 0, ... ..@ label : chr "肝硬化史" ..@ format.spss: chr "A8" ..@ labels : Named chr [1:2] "0" "1" .. ..- attr(*, "names")= chr [1:2] "无" "有" $ 声晕 : chr [1:201] " 0" " 1" " 1" " 0" ... ..- attr(*, "label")= chr "声晕" ..- attr(*, "format.spss")= chr "A8" $ 远端胆管扩张: chr+lbl [1:201] 0, 0, 0, 0, 0, 0, ... ..@ label : chr "远端胆管扩张" ..@ format.spss: chr "A8" ..@ labels : Named chr [1:2] "0" "1" .. ..- attr(*, "names")= chr [1:2] "无远端胆管扩张" "远端胆管扩张"> names(data1)[1] "病理" "AFP" "CA199" "CEA" "乙肝" [6] "肝硬化" "声晕" "远端胆管扩张"> data$病理 <- factor(data1$病理,levels = c(0,1), labels = c("肝细胞癌", "胆管细胞癌")) Error:! Assigned data `factor(...)` must be compatible with existing data.✖ Existing data has 149 rows.✖ Assigned data has 201 rows.ℹ Only vectors of size 1 are recycled.Run `[color=rgb(85, 87, 83) !important][url=]rlang::last_error()[/url]` to see where the error occurred.> rlang::last_error()<error/tibble_error_assign_incompatible_size>Error:! Assigned data `factor(...)` must be compatible with existing data.✖ Existing data has 149 rows.✖ Assigned data has 201 rows.ℹ Only vectors of size 1 are recycled.---Backtrace: 1. base::`$<-`(`*tmp*`, 病理, value = `<fct>`) 12. tibble (local) `<fn>`(`<vctrs___>`)Run `[color=rgb(85, 87, 83) !important][url=]rlang::last_trace()[/url]` to see the full context.
京公网安备 11010802022788号
