Liechi tctcab 你们是怎么知道这些黑科技的?要我肯定是傻傻地这么干:
x <- read.table('clipboard', sep = '|', skip = 2)
x <- x[, -c(1, ncol(x))]
names(x) <- strsplit(readLines('clipboard', n = 1), ' *\\| *')[[1]][-1]
假装一句写完:
x <- read.table('clipboard', sep = '|', skip = 2,
col.names = c(strsplit(readLines('clipboard', n = 1), ' *\\| *')[[1]], 'x'))
经常困惑于不知道是找包划算,还是自己写划算。