r - 计算csv文件中每个字段的最大长度

Question

我有一个 groovy 脚本，它遍历 csv 并将每个字段的最大长度存储在文件中:

def csv = new File('./myfile.csv').text

def max = [ ] as ArrayList

csv.eachLine { line, count ->

    def params = line.split(',')

    // skip the header line
    if (count > 0) 
    {
        params.eachWithIndex() { p, index ->        
            if (p.length() > max[index] ) {
                max[index] = p.length()
            }
        }
     }
}
println "Max length of fields: ${max}"

我想使用 R 实现相同的目标，最好使用库函数。

如何打印出 csv 文件中字段的最大长度？

示例输入:

foo,bar
abcd,12345
def,234567

输出:

Max length of fields: [4, 6]

Answer 1

将数据读入数据框中，并在其列中应用指定的函数。如果数据在文件中，请将 text = Lines 替换为 file = "myfile.csv" 。请参阅 ?read.csv 以获取其他参数，根据您的真实文件的外观，可能需要也可能不需要这些参数。

# test data
Lines <- "foo,bar
abcd,12345
def,234567"

DF <- read.csv(text = Lines, colClasses = "character")
sapply(DF, function(x) max(nchar(x)))

给予:

foo bar 
  4   6 

注意: 一个潜在的问题是你是否有这样的输入。幸运的是，这个答案是正确的:

Lines <- "foo,bar
abcd,1234567e9
def,234567"