#刪去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")]
