我有这样的乳胶表生成代码示例
df<-data.frame(name=rep(letters[1:7],each=24),salary=runif(24*7,100,200))
lst<-tapply(df$salary,df$name,matrix,nrow=4,byrow=T)
xlst<-lapply(lst,xtable)
Run Code Online (Sandbox Code Playgroud)
现在我想在每个表中的每一行之后自动引入\ hdashline,并且在R代码之间的表之间还有一个\ vspace {2em} Wat我试过这个
for(i in seq_along(lst)){
addtorow[i] <- list(pos = list(seq_len(nrow(lst[[i]])-1)),
command = "\\hdashline \n")
}
Run Code Online (Sandbox Code Playgroud)
扫描更改我需要进行循环..它适用于我申请单个表但不能在for循环中工作...任何帮助非常感谢...
我有一个包含5列的csv文件.我想将第四列csv文件转换到第10行.并且第5列csv文件需要每10行转换一次,直到列的末尾.我无法为此循环.很感谢任何形式的帮助.谢谢!
test<-read.csv("sample.csv",sep=',')
first<-test$col4[1:10]
t(first)
n=length(sample.csv)
b<-1:1000
a<-1:10
for(i in 1:n) {
second<-test[a-9:a]
}
Run Code Online (Sandbox Code Playgroud)
我已经读过第4列第10行并转换它们.我想把第五列放在一个循环中并转置,然后转换'rbind'这两个.