関数ステートメントでラップリー、代用、印刷、プロット、およびリストを組み合わせることに成功していません。誰かがこのコードを修正する方法を教えてもらえますか? そうしたいです:
- データ フレームのすべてではなく一部のフィールドと df の最初のフィールドのプロットを自動化する
- プロットするフィールドを指定する
- 結果をファイルに書き込む
フィールドは数値です。ありがとう。
brg<-as.data.frame(sqlFetch(channel,"Bearing"))
is.data.frame(brg)
varlist<-names(brg)[c(6,8,10,12)]
varlist
pdf(file="brg%d.pdf")
figures<-lapply(varlist,function(x) {
print(plot(substitute(brg[c(1,i)], (list(i = as.name(x))))))
})
更新: コメントありがとうございます。軸ラベルを使用したこのコードの 2 つの作業バージョンを次に示します (記述どおりに SQL Server から読み取った df)。
#vers. 1
brg<-as.data.frame(sqlFetch(channel,"Bearing"))
is.data.frame(brg)
dim(brg)
head(brg)
names(brg)<-tolower(names(brg))
names(brg)
varlist<-names(brg)[c(6,8,10,12)]
varlist
pdf(file="brgd.pdf")
for (x in varlist) plot(brg[,1],brg[,x], xlab=names(brg[1]),ylab=as.name (x))
dev.off()
#vers. 2
brg<-as.data.frame(sqlFetch(channel,"Bearing"))
is.data.frame(brg)
dim(brg)
head(brg)
names(brg)<-tolower(names(brg))
names(brg)
varlist<-names(brg)[c(6,8,10,12)]
varlist
pdf(file="brg1.pdf")
figures<-lapply(varlist,function(x) {
(plot(brg[,1],brg[,x], ylab=as.name(x)))
})
dev.off()