#刪去data表中第五列 data<- data[,-5] #刪去某幾列 data <- data[,-c(6:9)] #subset data <- subset(data,select=-c(colnames5)) data <- subset(data,select=- c(colname6:colname9)) data1 <- subset(base_data,select=- c(6:9)) #“+”則是把需要的選出來 #一個稍微比較麻煩的形式,通過列名刪除 data<- data[,!names(data) %in% c("sbp_m1","sbp_a1","dbp_m1","dbp_a1")]