R에있는 각 플롯에 제목을 추가하는 방법은 무엇입니까?

Question

이 코드는 하나의 창에 여러 개의 그림을 보여줍니다. 각 플롯은 X1에서 X13까지의 각 열에 따라 생성되었습니다. 그래서 각 그림에 as a main을 추가하고 그림을 그리는 데 사용 된 열의 이름을 다음과 같이 구별하여 어느 것이 어느 것이 인지 구분합니다.

ref= read.table("D:\\AS_asc.txt", sep="",header=TRUE) 
sour1 = read.table("D:\\re.txt", sep="",header=TRUE) 
sour2= read.table("D:\\_asc.txt", sep="",header=TRUE) 
columns <- paste0("X", 1:13) 
par(mfrow=c(4,4)) 
lapply(
columns, 
function(column) 
    { 
    result1 <- (
    mean(ref[[column]]) - 
    ((sd(ref[[column]])/sd(sour1[[column]])) * mean(sour1[[column]])) + 
    ((sd(ref[[column]])/sd(sour1[[column]]) * sour1[[column]])) 
    ) # calculate using ref and sour1 
    result2 <- (( 
     mean(ref[[column]]) - 
     ((sd(ref[[column]])/sd(sour2[[column]], na.rm=TRUE)) * mean(sour2[[column]], na.rm=TRUE)) + 
    ((sd(ref[[column]])/sd(sour2[[column]], na.rm=TRUE) * sour2[[column]])) 
    )) # calculate using ref and sour2 
     plot(
    ref[[column]], 
    result1, 
    ylab = "[[column]]", 
    xlab = "[[column]]", 
    col = 2 
    ) 

    points(ref[[column]], ref[[column]], col = 'green') 
    points(ref[[column]], result2, col = 'blue') 
    } 
    ) 

Answer 1

을 당신이 코드에이를 적용 할 수 있습니다 확신하지만 간단합니다 플롯 명령 안에 main = paste(column)을 추가하십시오.

예 :

columns <- paste0("X" , 1:9) 
par(mfrow=c(3,3)) 
lapply(columns , function(column){ plot(1:10 , y = 1:10 , main = paste(column)) }) 

Answer 2

이는 아마도 points 호출 후, 그 함수 내에서이 줄을 추가해야하지 않을까요 :

title(main=column)