[R] 열을 기준으로 나눠서 각각의 input데이터 만들기

y = read.csv("E:\\Chemical_Evaluation_Toxcast\\sub project\\Tox21 data challenge.csv",stringsAsFactors = F) #데이터 읽기

na.omit(y) #결측값이 들어있는 행 전체를 데이터 셋이서 제거

Names =colnames(y) # 각 컬럼의 이름(assay)저장하는 벡터

for(i in Names)

  print(i)

for(i in Names) #각 컬럼 별로

{

  data <- subset(y, select=c("CASN","SMILES",i))로 # 서브셋 만들기

  temp = paste0("E:\\Chemical_Evaluation_Toxcast\\sub project\\", i)기

  file_name = paste0(temp,"(input).csv")

  write.csv(data,file_name) #파일 이름 설정해서 파일 저장하기

}