數(shù)據(jù)集

A,1,1
A,1,3
A,1,2
B,1,2
D,1,1
C,1,2
A,1,1

linux的代碼

cat file.txt | sort | uniq

R語言代碼

library(tidyverse)
?arrange
getwd()
dat01<-read_csv("MingYan/sort_uniq.txt",col_names = FALSE)
#?read_csv
dat01
dat01 %>% arrange(X1,X2,X3) %>% 
  distinct()
dat01 %>% arrange(across(everything())) %>% 
  distinct()

這個(gè)是升序來的

如果降序

dat01 %>% arrange(across(everything(),desc)) %>% 
  distinct()

如果排序只作用于某一列，可以直接在arrange()函數(shù)里寫列名
比如

dat01 %>% arrange(X1) %>% 
  distinct()

排序作用于所有列的寫法是

across(everything())

展示某個(gè)文件夾下符合特定命名規(guī)則的文件路徑

list.files("folder",pattern="*.txt",full.names=TRUE,recursive=TRUE)

所有文件按照行合并到一起

list.files("MingYan",pattern="*.txt",
           full.names = TRUE,
           recursive = TRUE) %>% 
  map(.,read_csv,col_names=FALSE) %>% 
  bind_rows()