Question

我尝试从R导出制表符分隔的txt文件。但是，我想在每80个项目之后更改一行。

例如，

a<-rep(1,200)

现在，连续有200个1。我使用下面的代码导出向量。

write.table(t(a), "a.csv", ,sep="\t", col.names = F, row.names = F)

但是，我希望在第80项之后转到下一行。换句话说，我想设置一个80的行限制。

提前致谢!!

Answer 1

我们可以拆分＆＃39; a＆＃39;使用由list创建的组%/%向rbind个向量填充list length元素后填充list在所有write.table中相等}元素并使用lst <- split(a, (seq_along(a)-1)%/%80 + 1) m1 <- do.call(rbind, lapply(lst, `length<-`, max(lengths(lst)))) write.table(m1, "a.csv", sep="\t", col.names = FALSE, row.names=FALSE)

将其写入文件

def filter_getColumns2(y):
if r'[!|@|#|$|%|^|&|*]' in y['zonename']:
    y['zonename'] = y['zonename'].map(lambda x: re.sub(r'[!|@|#|$|%|&|*]', '', str(x)))
    return y
elif "  " in y['polygonstring']:
    for r, map in y.items():
        y['polygonstring'] = [re.sub(' +', ' ', e) for e in y['polygonstring']]
        y['polygonstring'] = [re.sub(' ,', ', ', e) for e in y['polygonstring']]
        y['polygonstring'] = y['polygonstring'].map(lambda x: x.lstrip(' '))
    return y
else:   
    return y

设置R中行的个案数限制

1 个答案: