ls()
rm(list = ls())
library(openxlsx)
a <- readWorkbook('/Users/chaos/Desktop/科研资料/crs随访.xlsx',startRow = 2,sheet = 2,colNames = TRUE) #读取sheet2中的数据存入a
b <- readWorkbook('/Users/chaos/Desktop/科研资料/crs随访.xlsx',sheet = 1,startRow = 2,colNames = TRUE) #读取sheet1中的数据存入b
c <- cbind(a,b$结局) #把a列表和b中的结局变量按列合并
lost <- which(c$b$结局
=='2') #找到b中结局变量值为2(即失访)的行数
data_pure <- c[-lost,] #删除失访的行,存入pure_data中
fix(data_pure) #可以用这个函数来可视化更改数据框中的变量名(将原来的中文列名改为英文缩写)
ECRSgroup <- data_pure[data_pure$EOSp > 5.65]
我想根据条件取一个子集出来,运行到这行以后提示:
Error in [.data.frame
(data_pure, data_pure$EOSp > 5.65) :
选择了未定义的列
求助各位大佬怎么解决啊