0
Я хочу создать панель ошибок для каждой точки данных в ggplot2
с помощью общей функции, которая извлекает имена столбцов для одного и того же с помощью функции names
. Ниже приведен демонстрационный код:ggplot2 - Ошибки с использованием настраиваемой функции
plotfn <- function(data, xind, yind, yerr) {
yerrbar <- aes_string(ymin=names(data)[yind]-names(data)[yerr], ymin=names(data) [yind]+names(data)[yerr])
p <- ggplot(data, aes_string(x=names(data)[xind], y=names(data)[yind]) + geom_point() + geom_errorbar(yerrbar)
p
}
errdf <- data.frame('X'=rnorm(100, 2, 3), 'Y'=rnorm(100, 5, 6), 'eY'=rnorm(100))
plotfn(errdf, 1, 2, 3)
Запуск это дает следующее сообщение об ошибке:
Error in names(data)[yind] - names(data)[yerr] :
non-numeric argument to binary operator
Любые предложения? Благодарю.