R에 행렬이있는 루프에 대해

Question

행렬에서 for 루프를 작성하여 pdf에 일련의 플롯을 작성하려고합니다. 여기 내 코드는 다음과 같습니다

> Thorny.Lmm 
    JUL   AUG   SEPT  OCT   NOV   DEC   
r Numeric,513 Numeric,513 Numeric,513 Numeric,513 Numeric,513 Numeric,513 
Kmm Numeric,513 Numeric,513 Numeric,513 Numeric,513 Numeric,513 Numeric,513 
Lmm Numeric,513 Numeric,513 Numeric,513 Numeric,513 Numeric,513 Numeric,513 

내가 먼저 잘 작동이 코드를 시도 :

pdf("/Users/Aurelz/Documents/Shark Research/DFO-data/Arctic/plots.pdf", height=8, width=6.5) 
par(mfrow=c(3,2), mar=c(0.8,0.8,0.8,0.8), oma=c(2,2,1,1.5), mgp=c(0.5,0.5,0)) 

for (i in c("JUL","AUG","SEPT","OCT","NOV","DEC")){ 
    plot(Thorny.Lmm[["r","i"]], Thorny.Lmm[["Lmm","i"]], type="l") 
    abline(h=0, lty=2) 
    title(main="Thorny skate in i") 
} 
dev.off() 

>Error in Thorny.Lmm[["r", "i"]] : subscript out of bounds 

Thorny.Lmm은 다음과 같은 형식의 행렬이다.

plot(Thorny.Lmm[["r","JUL"]], Thorny.Lmm[["Lmm","JUL"]], type="l") 
abline(h=0, lty=2) 
title(main="Thorny JUL") 

(지금은 어쨌든까지) 나는 그것을 해결하기 위해 매우 간단 확실 해요,하지만 난 그냥 주위에 내 머리를 얻을 수 없습니다!

도움 주셔서 감사합니다.

Answer 1

당신은 변수 i의 값이 아닌 인용 된 문자열 "i"을 원하는 :

for (i in c("JUL","AUG","SEPT","OCT","NOV","DEC")){ 
    plot(Thorny.Lmm[["r",i]], Thorny.Lmm[["Lmm",i]], type="l") 
    abline(h=0, lty=2) 
    title(main=paste("Thorny skate in", i)) 
} 
dev.off() 

Answer 2

당신은 내가 떨어져 따옴표를 떠나 시도 할 수 :

for (i in c("JUL","AUG","SEPT","OCT","NOV","DEC")){ 
    plot(Thorny.Lmm[["r",i]], Thorny.Lmm[["Lmm", i]], type="l") 
    abline(h=0, lty=2) 
    title(main=paste("Thorny skate in", i)) 
} 
dev.off() 

또는 더 R 틱 방법

사용 :

plotter <- function(month){ 
    plot(Thorny.Lmm[["r",month]], Thorny.Lmm[["Lmm",month]], type="l") 
    abline(h=0, lty=2) 
    title(main=paste("Thorny" month)) 
} 

lapply(colnames(Thorny.Lmm), plotter)