摘要: data<-readClipboard() data = as_tibble(data) %>% tidyr::separate(value,sep = "\t",into = LETTERS[1:4]) colnames(data) <- as.character(unlist(data[1,]) 阅读全文