применить прогнозную кривую лёсса к матрице рассеянного графика - возможно ли для l oop? - PullRequest
Новая
       45

применить прогнозную кривую лёсса к матрице рассеянного графика - возможно ли для l oop?

0 голосов
/ 28 апреля 2020

У меня есть матрица рассеяния 14 x 14, и я хотел бы написать a для l oop, чтобы построить график предсказанных кривых лёсса (не низкости) на каждом из 196 графиков. Следующий код работает для отображения каждого столбца по сравнению с самим собой (x1 против y1, x2 против y2, x3 против y3 .... x14 против y14). не все из 196 графиков. Любая помощь будет оценена. 

    #Dataframe: 63 rows by 14 columns

    # Set up a 14 x 14 plotting space
    par(mfrow = c(14, 14))  

    # Create the loop.vector (all the columns)
    loop.vector <- colnames(IgG_Refs)
    # Loop over loop.vector
    for(i in loop.vector) { 
    # store data in column.i as x and y
    x <- IgG_Refs[,i]
    y <- IgG_Refs[,i]

    # Plot of x vs. y
    plot(x~y,
    main = paste("", i),
    xlab = "",
    xlim = c(0, 60000),
    ylim = c(0, 60000))
    #loess
    loess.model <- loess(x ~ y, span = 0.75, degree=1)
    test <- predict(loess.model)
    lines(x[order(x)], test[order(x)], col="red", lwd=1)
    }
...