Re: [R] Ask for help - how to change WHIRR.117.csv to WHIRR_117.csv

Hello, Maybe the code below answers to both your questions (Q1 and Q2) cnames <- colnames(dat) cnames <- sub("WHIRR\\.", "WHIRR_", cnames) for(which_col in seq_len(ncol(dat))) { subset_data <- dat[which_col:ncol(dat)] # change 1, Q2 file_name <- sprintf('%s.csv', cnames[which_col]

[R] Ask for help - how to change WHIRR.117.csv to WHIRR_117.csv

Hi, I have a script below. dat <- read.table(file="pt.csv", header=T, sep=",", row.names=1, col.names=1) dat for(which_col in seq_len(ncol(dat))) { subset_data <- dat[,which_col:ncol(dat)] file_name <- sprintf('%s.csv', colnames(dat)[which_col]) write.csv(subset_data, file_name)