У меня проблема с парой функций R, которые я написал.У меня есть 2 функции построения графиков, и я хочу написать функцию, которая создает графики для обеих функций.Эта функция выглядит следующим образом:
plotBoth = function(path = NULL){
plotPopulationStats(path)
plotInstructionFrequencies(path)
}
Однако отображается только та инструкция, которую я называю секундной, а первая - только пустое окно.Ниже приведены упрощенные версии этих функций.
plotInstructionFrequencies = function(path = NULL){
quartz()
table <- read.table(path, header=TRUE);
frame <- as.data.frame(table);
frame$time = seq(1, length(table$noop));
frame$mean = NULL
frame$sd = NULL
frame$variance = NULL
Molten <- melt(frame, id.vars = "time");
ggplot(Molten, aes(x = time, y = value, colour = variable)) + geom_line()
}
и
plotPopulationStats = function(path = NULL){
quartz()
table <- read.table(path, header=TRUE);
frame <- as.data.frame(table);
frame$time = seq(1, length(table$noop));
frame$noop = NULL
frame$plus = NULL
...
frame$store = NULL
Molten <- melt(frame, id.vars = "time");
ggplot(Molten, aes(x = time, y = value, colour = variable)) + geom_line();
}
Все функции находятся в отдельных файлах, но я бы хотел, чтобы они были в одном файле.
Обе функции отображаются нормально при вызове по отдельности.